--- loncom/lonnet/perl/lonnet.pm	1999/11/08 16:20:35	1.2
+++ loncom/lonnet/perl/lonnet.pm	1999/11/18 19:52:46	1.4
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 # 6/1/99,6/2,6/10,6/11,6/12,6/14,6/26,6/28,6/29,6/30,
-# 7/1,7/2,7/9,7/10,7/12,7/14,7/15,7/19,11/8 Gerd Kortemeyer
+# 7/1,7/2,7/9,7/10,7/12,7/14,7/15,7/19,11/8,11/16,11/18 Gerd Kortemeyer
 
 package Apache::lonnet;
 
@@ -54,29 +54,6 @@ sub reply {
     return $answer;
 }
 
-# ------------------------------------------------ Try to send delayed messages
-
-sub senddelayed {
-    my $server=shift;
-    my $dfname;
-    my $path="$perlvar{'lonSockDir'}/delayed";
-    while ($dfname=<$path/*.$server>) {
-        my $wcmd;
-        {
-         my $dfh=Apache::File->new($dfname);
-         $wcmd=<$dfh>;
-        }
-        my ($server,$cmd)=split(/:/,$wcmd);
-        chomp($cmd);
-        my $answer=subreply($cmd,$server);
-        if ($answer ne 'con_lost') {
-	    unlink("$dfname");
-            &logthis("Delayed $cmd to $server: $answer");
-            &logperm("S:$server:$cmd");
-        }        
-    }
-}
-
 # ----------------------------------------------------------- Send USR1 to lonc
 
 sub reconlonc {
@@ -106,7 +83,6 @@ sub reconlonc {
 # ------------------------------------------------------ Critical communication
 sub critical {
     my ($cmd,$server)=@_;
-    &senddelayed($server);
     my $answer=reply($cmd,$server);
     if ($answer eq 'con_lost') {
         my $pingreply=reply('ping',$server);
@@ -171,7 +147,7 @@ sub authenticate {
 
     if (($perlvar{'lonRole'} eq 'library') && 
         ($udom eq $perlvar{'lonDefDomain'})) {
-        my $answer=reply("enc:auth:$udom:$uname:$upass",$perlvar{'lonHostID'});
+    my $answer=reply("encrypt:auth:$udom:$uname:$upass",$perlvar{'lonHostID'});
         if ($answer =~ /authorized/) {
               if ($answer eq 'authorized') { return $perlvar{'lonHostID'}; }
               if ($answer eq 'non_authorized') { return 'no_host'; }