[Sandweb-commit] CVS: sandweb/lib/SandWeb Auth.pm,1.16,1.17 Config.pm,1.18,1.19

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

Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv2167/lib/SandWeb

Modified Files:
	Auth.pm Config.pm 
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: Auth.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Auth.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -U2 -r1.16 -r1.17
--- Auth.pm	18 Feb 2002 10:44:58 -0000	1.16
+++ Auth.pm	18 Feb 2002 11:16:16 -0000	1.17
@@ -72,5 +72,5 @@
     my %args = @_;
     # need to remove cookie or invalidate it somehow
-    my $username = $self->get_userinfo('username');
+    my $username = $self->get_username();
     return $self->_remove_cookiedata($username);
 }
@@ -85,5 +85,5 @@
     my $self = shift;
     my $log = $self->_logobj();
-    unless ($self->get_userinfo('username')) {
+    unless ($self->get_username()) {
 		$log->error("set_cookie called when user_info not set (no login)");
         return 0;
@@ -148,5 +148,5 @@
     my $cookie_value = shift;
     chomp $cookie_value;
-    my $username = $self->get_userinfo('username');
+    my $username = $self->get_username();
     my $data_dir = $self->_get_data_dir();
     my $file = "$data_dir/cookies";

Index: Config.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Config.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -U2 -r1.18 -r1.19
--- Config.pm	18 Feb 2002 10:55:32 -0000	1.18
+++ Config.pm	18 Feb 2002 11:16:16 -0000	1.19
@@ -114,5 +114,48 @@
 }
 
+# create new repository
+sub create_repo {
+	my $self = shift;
+	my %args = @_;
+	my $name = $args{'repo'};
+	my $server = $args{'server'} || '';
+	my $connection = $args{'connection'} || '';
+	my $type = $args{'type'} || '';
+	my $root = $args{'root'} || '';
+
+	if ($self->repository_exists(repo => $name)) {
+		return 0;
+	} else {
+		$user->{'repo'}->{$name}->{'name'} = $name;
+		$user->{'repo'}->{$name}->{'server'} = $server;
+		$user->{'repo'}->{$name}->{'connection'} = $connection;
+		$user->{'repo'}->{$name}->{'type'} = $type;
+		$user->{'repo'}->{$name}->{'root'} = $root;
+	}
+}
+
+# update existing repository
+sub update_repo {
+	my $self = shift;
+	my %args = @_;
+	my $name = $args{'repo'};
+	my $server = $args{'server'} || '';
+	my $connection = $args{'connection'} || '';
+	my $type = $args{'type'} || '';
+	my $root = $args{'root'} || '';
+
+	if (!$self->repository_exists(repo => $name)) {
+		return 0;
+	} else {
+		$user->{'repo'}->{$name}->{'name'} = $name;
+		$user->{'repo'}->{$name}->{'server'} = $server if ($server);
+		$user->{'repo'}->{$name}->{'connection'} = $connection if ($connection);
+		$user->{'repo'}->{$name}->{'type'} = $type if ($type);
+		$user->{'repo'}->{$name}->{'root'} = $root if ($root);
+	}
+}
 
+
+# get/set repo_server
 sub get_repo_server {
 	my $self = shift;
@@ -125,4 +168,17 @@
 	}
 }
+sub set_repo_server {
+	my $self = shift;
+	my %args = @_;
+	my $repo_name = $args{'repo'};
+	my $repo_server = $args{'value'};
+	if ($self->repository_exists(repo => $repo_name)) {
+		$self->{'repo'}->{$repo_name}->{'server'} = $value || '';
+		return 1;
+	} else {
+		return 0;
+	}
+}
+# get/set repo_username
 sub get_repo_username {
 	my $self = shift;
@@ -135,4 +191,17 @@
 	}
 }
+sub set_repo_username {
+	my $self = shift;
+	my %args = @_;
+	my $repo_name = $args{'repo'};
+	my $repo_server = $args{'value'};
+	if ($self->repository_exists(repo => $repo_name)) {
+		$self->{'repo'}->{$repo_name}->{'username'} = $value || '';
+		return 1;
+	} else {
+		return 0;
+	}
+}
+# get/set repo_connection
 sub get_repo_connection {
 	my $self = shift;
@@ -145,4 +214,17 @@
 	}
 }
+sub set_repo_connection {
+	my $self = shift;
+	my %args = @_;
+	my $repo_name = $args{'repo'};
+	my $repo_server = $args{'value'};
+	if ($self->repository_exists(repo => $repo_name)) {
+		$self->{'repo'}->{$repo_name}->{'connection'} = $value || '';
+		return 1;
+	} else {
+		return 0;
+	}
+}
+# get/set repo_type
 sub get_repo_type {
 	my $self = shift;
@@ -155,4 +237,17 @@
 	}
 }
+sub set_repo_type {
+	my $self = shift;
+	my %args = @_;
+	my $repo_name = $args{'repo'};
+	my $repo_server = $args{'value'};
+	if ($self->repository_exists(repo => $repo_name)) {
+		$self->{'repo'}->{$repo_name}->{'type'} = $value || '';
+		return 1;
+	} else {
+		return 0;
+	}
+}
+# get/set repo_root
 sub get_repo_root {
 	my $self = shift;
@@ -163,4 +258,16 @@
 	} else {
 		return '';
+	}
+}
+sub set_repo_root {
+	my $self = shift;
+	my %args = @_;
+	my $repo_name = $args{'repo'};
+	my $repo_server = $args{'value'};
+	if ($self->repository_exists(repo => $repo_name)) {
+		$self->{'repo'}->{$repo_name}->{'root'} = $value || '';
+		return 1;
+	} else {
+		return 0;
 	}
 }