loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

-version 1.186, 2004/04/07 10:02:11
+version 1.187, 2004/04/29 07:18:10
  Line 1872  sub make_new_child {
  		    } else {
  			Reply($client, "refused\n", $userinput);
  		    }
+ # --------------------------------------------------------- remove a user file
+ 		} elsif ($userinput =~ /^removeuserfile/) { # Client clear or enc.
+ 		    if(isClient) {
+ 			my ($cmd,$fname)=split(/:/,$userinput);
+ 			my ($udom,$uname,$ufile) = ($fname =~ m|^([^/]+)/([^/]+)/(.+)$|);
+ 			&logthis("$udom - $uname - $ufile");
+ 			if ($ufile =~m|/\.\./|) {
+ 			    # any files paths with /../ in them refuse
+                             # to deal with
+ 			    print $client "refused\n";
+ 			} else {
+ 			    my $udir=propath($udom,$uname);
+ 			    if (-e $udir) {
+ 				my $file=$udir.'/userfiles/'.$ufile;
+ 				if (-e $file) {
+ 				    unlink($file);
+ 				    if (-e $file) {
+ 					print $client "failed\n";
+ 				    } else {
+ 					print $client "ok\n";
+ 				    }
+ 				} else {
+ 				    print $client "not_found\n";
+ 				}
+ 			    } else {
+ 				print $client "not_home\n";
+ 			    }
+ 			}
+ 		    } else {
+ 			Reply($client, "refused\n", $userinput);
+ 		    }
  # ------------------------------------------ authenticate access to a user file
  		} elsif ($userinput =~ /^tokenauthuserfile/) { # Client only
  		    if(isClient) {