Update of /cvsroot/sandweb/sandweb/bin
In directory sc8-pr-cvs1:/tmp/cvs-serv26134
Modified Files:
sandweb.cgi
Log Message:
added some debugging messages, and some parsing fixes.
Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.335
retrieving revision 1.336
diff -U2 -r1.335 -r1.336
--- sandweb.cgi 4 Jan 2003 23:10:57 -0000 1.335
+++ sandweb.cgi 5 Jan 2003 22:19:58 -0000 1.336
@@ -154,5 +154,5 @@
my $main_window_url = $cgi->param('main_window_url') || '';
- $log->debug("action: $action submit: $submit");
+ $log->debug("action: $action - submit: $submit");
$log->debug("module_description: $module_description\n");
@@ -974,9 +974,9 @@
# verify repository name
foreach my $repo (@repos) {
- if ($repository_selected eq $repo) {
- $repo_name = $repo;
- $valid = 1;
+ if ($repository_selected eq $repo) {
+ $repo_name = $repo;
+ $valid = 1;
+ }
}
- }
if (!$valid) {
# bad repository name
@@ -2802,4 +2802,7 @@
'location' => $config->{'paths'}->{'users_dir'} . "/" . $auth->get_username(),
);
+
+ $log->debug("creating " . $config->{'paths'}->{'users_dir'} . "/" . $auth->get_username() . "/" . $repo_name);
+
if (! -d $config->{'paths'}->{'users_dir'} . "/" . $auth->get_username() . "/" . $repo_name ) {
if (!$file->create_folder()) {
|
