--- loncom/lond	2003/03/01 04:18:22	1.109
+++ loncom/lond	2003/03/02 03:58:55	1.110
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # lond "LON Daemon" Server (port "LOND" 5663)
 #
-# $Id: lond,v 1.109 2003/03/01 04:18:22 foxr Exp $
+# $Id: lond,v 1.110 2003/03/02 03:58:55 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1511,6 +1511,18 @@ sub make_new_child {
 			       ."IO::File->new Failed\n";
 		       }
 
+# ---------------------------------------------------------------------- tmpdel
+                   } elsif ($userinput =~ /^tmpdel/) {
+                       my ($cmd,$id)=split(/:/,$userinput);
+                       chomp($id);
+                       $id=~s/\W/\_/g;
+                       my $execdir=$perlvar{'lonDaemons'};
+                       if (unlink("$execdir/tmp/$id.tmp")) {
+			   print $client "ok\n";
+		       } else {
+			   print $client "error: ".($!+0)
+			       ."Unlink tmp Failed\n";
+		       }
 # -------------------------------------------------------------------------- ls
                    } elsif ($userinput =~ /^ls/) {
                        my ($cmd,$ulsdir)=split(/:/,$userinput);