[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

Scott Harrison lon-capa-cvs@mail.lon-capa.org
Fri, 6 Dec 2002 17:42:27 -0500


hallelujiah

On Fri, Dec 06, 2002 at 04:34:55PM -0000, matthew wrote:
> matthew		Fri Dec  6 11:34:55 2002 EDT
> 
>   Modified files:              
>     /loncom/lonnet/perl	lonnet.pm 
>   Log:
>   Gerd said the 5 second wait per server was unbearable too.
>   
>   
> Index: loncom/lonnet/perl/lonnet.pm
> diff -u loncom/lonnet/perl/lonnet.pm:1.310 loncom/lonnet/perl/lonnet.pm:1.311
> --- loncom/lonnet/perl/lonnet.pm:1.310	Fri Dec  6 07:55:44 2002
> +++ loncom/lonnet/perl/lonnet.pm	Fri Dec  6 11:34:55 2002
> @@ -1,7 +1,7 @@
>  # The LearningOnline Network
>  # TCP networking package
>  #
> -# $Id: lonnet.pm,v 1.310 2002/12/06 12:55:44 www Exp $
> +# $Id: lonnet.pm,v 1.311 2002/12/06 16:34:55 matthew Exp $
>  #
>  # Copyright Michigan State University Board of Trustees
>  #
> @@ -143,9 +143,9 @@
>      unless (defined($hostname{$server})) { return 'no_such_host'; }
>      my $answer=subreply($cmd,$server);
>      if ($answer eq 'con_lost') {
> -       sleep 5; 
> -       $answer=subreply($cmd,$server);
> -       #if ($answer eq 'con_lost') {
> +        #sleep 5; 
> +        #$answer=subreply($cmd,$server);
> +        #if ($answer eq 'con_lost') {
>  	#   &logthis("Second attempt con_lost on $server");
>          #   my $peerfile="$perlvar{'lonSockDir'}/$server";
>          #   my $client=IO::Socket::UNIX->new(Peer    =>"$peerfile",
> 
> 
> _______________________________________________
> LON-CAPA-cvs mailing list
> LON-CAPA-cvs@mail.lon-capa.org
> http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs


-- 
Scott Harrison, sharrison@users.sourceforge.net