Further to the previous, here is a possible patch to implement timeout behaviour in LWP::Simple. There is no way to set $timeout passed to _trivial_http_get() included. A global would be easiest I guess given the very simple interface. Defaults to 180 seconds.

$ diff -u Perl/site/lib/LWP/Simple.pm Perl/site/lib/LWP/Simple-patch.p
+m
--- Perl/site/lib/LWP/Simple.pm Tue Jun 22 12:40:14 2004
+++ Perl/site/lib/LWP/Simple-patch.pm   Tue Jun 22 12:42:15 2004
@@ -154,9 +154,10 @@

 sub _trivial_http_get
 {
-   my($host, $port, $path) = @_;
+   my($host, $port, $path, $timeout) = @_;
    #print "HOST=$host, PORT=$port, PATH=$path\n";
-
+   $timeout ||=180;
+   my $hard_timeout = time() + $timeout;
    require IO::Socket;
    local($^W) = 0;
    my $sock = IO::Socket::INET->new(PeerAddr => $host,
@@ -174,8 +175,15 @@

    my $buf = "";
    my $n;
-   1 while $n = sysread($sock, $buf, 8*1024, length($buf));
-   return undef unless defined($n);
+   while( 1 ) {
+       my $remaining = $hard_timeout - time();
+       return undef if $remaining <= 0;
+       if ( can_read( $sock, $remaining ) ) {
+           $n = sysread($sock, $buf, 8*1024, length($buf));
+         return undef unless defined($n);
+         last if $n == 0; # we are eof
+       }
+   }

    if ($buf =~ m,^HTTP/\d+\.\d+\s+(\d+)[^\012]*\012,) {
        my $code = $1;
@@ -191,6 +199,15 @@
    }

    return $buf;
+}
+
+sub can_read {
+    my($sock, $timeout) = @_;
+    my $fbits = '';
+    vec($fbits, fileno($sock), 1) = 1;
+    my $nfound = select($fbits, undef, undef, $timeout);
+    die "select failed: $!" unless defined $nfound;
+    return $nfound > 0;
 }



Administrator@JAMES /cygdrive/d
[download]