--- loncom/lond 2003/08/12 19:46:04 1.136 +++ loncom/lond 2003/08/19 10:46:14 1.137 @@ -2,7 +2,7 @@ # The LearningOnline Network # lond "LON Daemon" Server (port "LOND" 5663) # -# $Id: lond,v 1.136 2003/08/12 19:46:04 www Exp $ +# $Id: lond,v 1.137 2003/08/19 10:46:14 foxr Exp $ # # Copyright Michigan State University Board of Trustees # @@ -81,7 +81,7 @@ my $DEBUG = 0; # Non zero to ena my $status=''; my $lastlog=''; -my $VERSION='$Revision: 1.136 $'; #' stupid emacs +my $VERSION='$Revision: 1.137 $'; #' stupid emacs my $remoteVERSION; my $currenthostid; my $currentdomainid; @@ -652,7 +652,7 @@ sub make_new_child { if ($userinput =~ /^ping/) { print $client "$currenthostid\n"; # ------------------------------------------------------------------------ pong - } elsif ($userinput =~ /^pong/) { + }elsif ($userinput =~ /^pong/) { my $reply=&reply("ping",$hostid{$clientip}); print $client "$currenthostid:$reply\n"; # ------------------------------------------------------------------------ ekey @@ -683,6 +683,10 @@ sub make_new_child { } elsif ($userinput =~ /^userload/) { my $userloadpercent=&userload(); print $client "$userloadpercent\n"; + +# +# Transactions requiring encryption: +# # ----------------------------------------------------------------- currentauth } elsif ($userinput =~ /^currentauth/) { if ($wasenc==1) { @@ -697,6 +701,12 @@ sub make_new_child { } else { print $client "refused\n"; } +#--------------------------------------------------------------------- pushfile + } elsif($userinput =~ /^pushfile/) { + print $client "ok\n"; +#--------------------------------------------------------------------- reinit + } elsif($userinput =~ /^reinit/) { + print $client "ok\n"; # ------------------------------------------------------------------------ auth } elsif ($userinput =~ /^auth/) { if ($wasenc==1) {