pFad - Phonifier reborn

#!/usr/bin/perl # # # # # # ##### ###### # ###### # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #### ###### # # ###### # # # # # # # # # # # # # ####### # # # # # # # # # # # # # # # # # # # ## ## ## ## ## ## ##### # # # # ###### ######################################################### # A WWW http grabber. # # Basically, given an http address it will get you # # the resource. # # # # Usage: wwwgrab http://site.name.edu/ [filename] # # # # ex. wwwgrab http://www.engr.wisc.edu/~ballard/ # # will get you the source behind my homepage and # # wwwgrab http://www.engr.wisc.edu/~ballard/pics/me.gif # # will get you a .gif image of my picture. # # # ######################################################### # Written by Jeff Ballard (ballard@cae.wisc.edu) 7/2/95 # # URL: http://www.engr.wisc.edu/~ballard/ # ######################################################### # # # Feel free to contact me with any questions/comments/ # # and such. # # # ######################################################### # This program is freeware. *NO* warranty is expressed,# # implied, nor granted to you in any way. Use of this # # program is at your own risk. Your milage may vary. # # This progarm was packed by weight, not by volume. # # Some settling may have occurred during shipment. # ######################################################### # Much thanks to Brendan Kehoe # # URL: http://www.zen.org/~brendan/ # # for his help in getting rid of the constants # ######################################################### # Required for perl5. use Socket; # Given an http address, rip it into its coresponding parts. ($_, $savefilename) = @ARGV; if (!$_) { print "Usage: $0 http://www.any.site/location [outputfilename]\n"; print " Where [outputfilename] is the optional filename to create.\n"; print " (ommitting this means that it will mean that the data will be\n"; die " sent to STDOUT. If this file exists, it will be overwritten)\n"; } /http:\/\/([^\/]*)\/*([^ ]*)/; $site = $1; $file = "/".$2; if (!$site) { die "$0: Fatal Error. You appear to have munged your URL address.\nIt must be in the form of http://www.any.site/location\n"; } $_ = $site; /^([^:]*):*([^ ]*)/; $site = $1; $port = $2; $port = 80 unless $port; $hostname = $site; #print STDERR "[$site] [$port] [$file]\n"; # Open a socket and get the data ($sockaddr,$there,$response,$tries) = ("Snc4x8"); $there = pack($sockaddr,2,$port, &getaddress($hostname)); ($a, $b, $c, $d) = unpack('C4', $hostaddr); $proto = (getprotobyname ('tcp'))[2]; if (!socket(S,AF_INET,SOCK_STREAM,$proto)) { die "$0: Fatal Error. $!\n"; } if (!connect(S,$there)) { die "$0: Fatal Error. $!\n"; } select(S);$|=1; select(STDOUT); print S "GET $file\r\n"; if ($savefilename) { open(OUT,">".$savefilename) || die "$0: Fatal error. Cannot create $savefilename.\n"; } while($line = ) { if ($savefilename) { print OUT $line; } else { print $line; } } close(S); if ($savefilename) { close(OUT); } sub getaddress { local($host) = @_; local(@ary); @ary = gethostbyname($host); return(unpack("C4",$ary[4])); } pFad - Phonifier reborn
Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.

Alternative Proxies:
Alternative Proxy
pFad Proxy
pFad v3 Proxy
pFad v4 Proxy