loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

-version 1.109, 2003/03/01 04:18:22
+version 1.110, 2003/03/02 03:58:55
  Line 1511  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);