Changeset 2410

Timestamp:

2001-05-15T10:00:35+12:00 (23 years ago)

Author:

sjboddie

Message:

Another attempt at getting a cross-platform http/ftp pinger working

File:

• trunk/gsdl/bin/script/ping.pl (modified) (2 diffs)

trunk/gsdl/bin/script/ping.pl

@@ -30 +30 @@
     die "GSDLHOME not set\n" unless defined $ENV{'GSDLHOME'};
     unshift (@INC, "$ENV{'GSDLHOME'}/perllib");
-    unshift (@INC, "$ENV{'GSDLHOME'}/perllib/cpan");
+    unshift (@INC, "$ENV{'GSDLHOME'}/perllib/cpan/new/lib/site_perl");
 }
 
-use LWP::Simple;
 
+require LWP::UserAgent;
 use parsargv;
 
@@ -60 +60 @@
     }
 
-    my @headers = head($ARGV[0]);
-
-    if (scalar(@headers)) {
+    $ua = new LWP::UserAgent;
+    $ua->timeout(60);
+    $request = new HTTP::Request('HEAD', $ARGV[0]);
+    $response = $ua->request($request);
+    
+    if ($response->is_success) {
     print STDERR "$ARGV[0] ping succeeded\n" unless $quiet;
     exit 0;