--- loncom/lonnet/perl/lonnet.pm	2004/08/23 19:34:01	1.529
+++ loncom/lonnet/perl/lonnet.pm	2004/08/24 06:43:21	1.530
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.529 2004/08/23 19:34:01 albertel Exp $
+# $Id: lonnet.pm,v 1.530 2004/08/24 06:43:21 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1372,6 +1372,12 @@ sub removeuserfile {
     return &reply("removeuserfile:$docudom/$docuname/$fname",$home);
 }
 
+sub mkdiruserfile {
+    my ($docuname,$docudom,$dir)=@_;
+    my $home=&homeserver($docuname,$docudom);
+    return &reply("mkdiruserfile:".&escape("$docudom/$docuname/$dir"),$home);
+}
+
 # ------------------------------------------------------------------------- Log
 
 sub log {