[Sandweb-commit] CVS: sandweb/lib/SandWeb Config.pm,1.30,1.31

[Rob H. <for...@us...>]

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

Modified Files:
	Config.pm 
Log Message:
needed for remember_repo_password feature

Index: Config.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Config.pm,v
retrieving revision 1.30
retrieving revision 1.31
diff -U2 -r1.30 -r1.31
--- Config.pm	16 Sep 2002 05:30:14 -0000	1.30
+++ Config.pm	7 Oct 2002 18:35:52 -0000	1.31
@@ -209,4 +209,5 @@
 	my $username = $args{'username'} || '';
 	my $password = $args{'password'} || '';
+	my $remember_password = $args{'remember_password'} || '';
 	my $connection = $args{'connection'} || '';
 	my $type = $args{'type'} || '';
@@ -218,4 +219,5 @@
 		$self->{'repo'}->{$name}->{'username'} = $username if ($username);
 		$self->{'repo'}->{$name}->{'password'} = $password if ($password);
+		$self->{'repo'}->{$name}->{'remember_password'} = $remember_password if ($remember_password);
 		$self->{'repo'}->{$name}->{'connection'} = $connection if ($connection);
 		$self->{'repo'}->{$name}->{'type'} = $type if ($type);
@@ -298,4 +300,27 @@
 	if ($self->repository_exists(repo => $repo_name)) {
 		$self->{'repo'}->{$repo_name}->{'password'} = $value || '';
+		return 1;
+	} else {
+		return 0;
+	}
+}
+# get/set whether we should remember repo password
+sub get_remember_repo_password {
+	my $self = shift;
+	my %args = @_;
+	my $repo_name = $args{'repo'};
+	if ($self->repository_exists(repo => $repo_name)) {
+		return $self->{'repo'}->{$repo_name}->{'remember_password'} || ''
+	} else {
+		return '';
+	}
+}
+sub set_remember_repo_password {
+	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}->{'remember_password'} = $value || '';
 		return 1;
 	} else {