--- loncom/lonnet/perl/lonnet.pm	2004/04/23 23:01:36	1.489
+++ loncom/lonnet/perl/lonnet.pm	2004/04/29 07:18:10	1.490
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.489 2004/04/23 23:01:36 albertel Exp $
+# $Id: lonnet.pm,v 1.490 2004/04/29 07:18:10 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1338,6 +1338,12 @@ sub finishuserfileupload {
     }    
 }
 
+sub removeuserfile {
+    my ($docuname,$docudom,$fname)=@_;
+    my $home=&homeserver($docuname,$docudom);
+    return &reply("removeuserfile:$docudom/$docuname/$fname",$home);
+}
+
 # ------------------------------------------------------------------------- Log
 
 sub log {