Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv2167/bin
Modified Files:
sandweb.cgi
Log Message:
* created get/set for all of the repository data
* created create/update repository
* fixed Auth reference to old userinfo (instead of username)
Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.180
retrieving revision 1.181
diff -U2 -r1.180 -r1.181
--- sandweb.cgi 18 Feb 2002 10:59:06 -0000 1.180
+++ sandweb.cgi 18 Feb 2002 11:16:16 -0000 1.181
@@ -568,5 +568,5 @@
$repository_selected = $repository_selected || $repos[0] || $new_string; # default for pulldown
- if (($repository_selected) && ($repository_selected != $new_string)) {
+ if (($repository_selected) && ($repository_selected ne $new_string)) {
my $valid = 0;
# verify repository name
@@ -1385,11 +1385,21 @@
# commit data to file
- $user->{'repo'}->{$repo_name}->{'name'} = $repo_name;
- $user->{'repo'}->{$repo_name}->{'server'} = $repo_server;
- $user->{'repo'}->{$repo_name}->{'username'} = $repo_username;
- $user->{'repo'}->{$repo_name}->{'connection'} = $repo_connection;
- $user->{'repo'}->{$repo_name}->{'type'} = $repo_type;
- $user->{'repo'}->{$repo_name}->{'root'} = $repo_root;
- $user->{'repo'}->{$repo_name}->{'module_list'} = [];
+ if ($user->repository_exists(repo => $repo_name)) {
+ $user->update_repo(
+ name => $repo_name,
+ server => $repo_server,
+ connection => $repo_connection,
+ type => $repo_type,
+ root => $repo_root,
+ );
+ } else {
+ $user->create_repo(
+ name => $repo_name,
+ server => $repo_server,
+ connection => $repo_connection,
+ type => $repo_type,
+ root => $repo_root,
+ );
+ }
# my $username = $auth->get_username();
|
