#!/usr/local/bin/proxyperl -s # # hget --- get an html page from an http server # # Oscar Nierstrasz 26/8/93 oscar@cui.unige.ch # # An example of using url'get. # url'abs converts all relative URLs to absolute ones. # # Warning: only http, ftp and gopher URLs are currently understood. # # See urlget (separate script) for correct handling of gopher protocol. unshift(@INC,"/appl/perl/lib","/appl/perl/lib/sys"); require "url.pl"; die "Usage: hget [-abs] ...\n" unless $#ARGV >= 0; $timeout = 60; if ($v) { $version = "HTTP 1.0"; } $abs = 1; foreach $url (@ARGV) { if ($page = &url'get($url,$version)) { if ($abs) { $page = &url'abs($url,$page); } if ($page) { print $page; } else { print STDERR "hget: couldn't retrieve $url\n"; } } else { warn "$!\n"; } } __END__