--- loncom/lond	1999/11/04 20:53:04	1.4
+++ loncom/lond	1999/11/16 17:50:16	1.5
@@ -3,7 +3,7 @@
 # lond "LON Daemon" Server (port "LOND" 5663)
 # 5/26/99,6/4,6/10,6/11,6/14,6/15,6/26,6/28,6/30,
 # 7/8,7/9,7/10,7/12,7/17,7/19,9/21,
-# 10/7,10/8,10/9,10/11,10/13,10/15,11/4 Gerd Kortemeyer
+# 10/7,10/8,10/9,10/11,10/13,10/15,11/4,11/16 Gerd Kortemeyer
 # based on "Perl Cookbook" ISBN 1-56592-243-3
 # preforker - server who forks first
 # runs as a daemon
@@ -694,6 +694,20 @@ sub make_new_child {
                        } else {
                            print $client "error:$!\n";
                        }
+# -------------------------------------------------------------------------- ls
+                   } elsif ($userinput =~ /^ls/) {
+                       my ($cmd,$ulsdir)=split(/:/,$userinput);
+                       my $ulsout='';
+                       my $ulsfn;
+                       if (-e $ulsdir) {
+                          while ($ulsfn=<$ulsdir/*>) {
+			     my @ulsstats=stat($ulsfn);
+                             $ulsout.=$ulsfn.'&'.join('&',@ulsstats).':';
+                          }
+		       } else {
+                          $ulsout='no_such_dir';
+                       }
+                       print $client "$ulsout\n";
 # ------------------------------------------------------------- unknown command
                    } else {
                        # unknown command