[BACK]Return to lond CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom

Diff for /loncom/lond between versions 1.26 and 1.28

version 1.26, 2000/12/05 19:14:59 version 1.28, 2000/12/05 20:19:46
Line 29  use Authen::Krb4; Line 29  use Authen::Krb4;
   
 # grabs exception and records it to log before exiting  # grabs exception and records it to log before exiting
 sub catchexception {  sub catchexception {
     my ($signal)=@_;      my ($error)=@_;
     $SIG{'QUIT'}='DEFAULT';      $SIG{'QUIT'}='DEFAULT';
     $SIG{__DIE__}='DEFAULT';      $SIG{__DIE__}='DEFAULT';
     &logthis("<font color=red>CRITICAL: "      &logthis("<font color=red>CRITICAL: "
      ."ABNORMAL EXIT. Child $$ for server $wasserver died through "       ."ABNORMAL EXIT. Child $$ for server $wasserver died through "
      ."$signal with this parameter->[$@]</font>");       ."a crash with this error msg->[$error]</font>");
     if ($client) { print $client "error: $@\n"; }      if ($client) { print $client "error: $error\n"; }
     die($@);      die($error);
 }  }
   
 # grabs exception and records it to log before exiting  # grabs exception and records it to log before exiting
Line 50  sub catchdie { Line 50  sub catchdie {
     $SIG{__DIE__}='DEFAULT';      $SIG{__DIE__}='DEFAULT';
     &logthis("<font color=red>CRITICAL: "      &logthis("<font color=red>CRITICAL: "
      ."ABNORMAL EXIT. Child $$ for server $wasserver died through "       ."ABNORMAL EXIT. Child $$ for server $wasserver died through "
      ."\_\_DIE\_\_ with this parameter->[$message]</font>");       ."\_\_DIE\_\_ with this error msg->[$message]</font>");
     if ($client) { print $client "error: $message\n"; }      if ($client) { print $client "error: $message\n"; }
     die($message);      die($message);
 }  }
Line 565  sub make_new_child { Line 565  sub make_new_child {
                                   "LWP GET: $message for $fname ($remoteurl)");                                    "LWP GET: $message for $fname ($remoteurl)");
                              } else {                               } else {
                          if ($remoteurl!~/\.meta$/) {                           if ($remoteurl!~/\.meta$/) {
                                     my $ua=new LWP::UserAgent;
                                   my $mrequest=                                    my $mrequest=
                                    new HTTP::Request('GET',$remoteurl.'.meta');                                     new HTTP::Request('GET',$remoteurl.'.meta');
                                   my $mresponse=                                    my $mresponse=
Removed from v.1.26  
changed lines
  Added in v.1.28

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>