[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.237,1.238

[Nick J. <nje...@us...>]

Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv29127

Modified Files:
	sandweb.cgi 
Log Message:
* added repository directory creation when a repository is created (but
  not updated).


Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.237
retrieving revision 1.238
diff -U2 -r1.237 -r1.238
--- sandweb.cgi	1 Mar 2002 04:34:00 -0000	1.237
+++ sandweb.cgi	1 Mar 2002 05:31:53 -0000	1.238
@@ -1984,6 +1984,18 @@
 				root => $repo_root,
 			);
+			# create repo directory
+			my $file = SandWeb::File->new(
+				'log_obj' => $log,
+				'filename' => $repo_name,
+				'location' => $config->{'paths'}->{'users_dir'} . "/" . $auth->get_username(),
+			);
+			if (!$file->create_folder()) {
+				set_message("unable to create repository directory");
+				sandbox_menu( ck_auth => $ck_auth );
+				exit(0);
+			}
 			set_message("$repo_name created.");
 		}
+
 	} elsif ($submit eq 'Delete') {
 		# delete repository entry