CreateUserDir

UseModWiki/Documentation: Functions: CreateUserDir

Called by DoNewLogin, SaveUserData

 sub CreateUserDir {
   my ($n, $subdir);

   if (!(-d "$UserDir/0")) {
     &CreateDir($UserDir);

     foreach $n (0..9) {
       $subdir = "$UserDir/$n";
       &CreateDir($subdir);
     }
   }