Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv16248/bin
Modified Files:
sandweb.cgi
Log Message:
put check in to remove repo from config file even if repo dir no longer
exists
Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.306
retrieving revision 1.307
diff -U2 -r1.306 -r1.307
--- sandweb.cgi 13 Jul 2002 06:56:30 -0000 1.306
+++ sandweb.cgi 13 Jul 2002 07:02:53 -0000 1.307
@@ -2503,14 +2503,16 @@
'location' => $config->{'paths'}->{'users_dir'}. "/" . $auth->get_username(),
);
- if (!$file->delete_folder(recurse => 1)) {
- set_message("unable to remove repository '$repo_name' from system.");
- repository_menu(ck_auth => $ck_auth);
- exit(0);
- } elsif ((!$repository_selected) || ($repository_selected eq $new_string)) {
- # cannot commit without repository name
- $log->error("cannot delete without repository name!\n");
- set_message("cannot delete without repository name!\n");
- repository_menu( ck_auth => $ck_auth );
- exit(0);
+ if ($file->get_file_type() eq 'Directory') {
+ if (!$file->delete_folder(recurse => 1)) {
+ set_message("unable to remove repository '$repo_name' from system.");
+ repository_menu(ck_auth => $ck_auth);
+ exit(0);
+ } elsif ((!$repository_selected) || ($repository_selected eq $new_string)) {
+ # cannot commit without repository name
+ $log->error("cannot delete without repository name!\n");
+ set_message("cannot delete without repository name!\n");
+ repository_menu( ck_auth => $ck_auth );
+ exit(0);
+ }
}
|
