[Sandweb-commit] CVS: sandweb/lib/SandWeb Config.pm,1.11,1.12

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

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

Modified Files:
	Config.pm 
Log Message:
* added write_repository_config


Index: Config.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Config.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -U2 -r1.11 -r1.12
--- Config.pm	2001/10/06 08:17:12	1.11
+++ Config.pm	2002/02/05 06:16:10	1.12
@@ -55,9 +55,29 @@
 	my %data = ();
 	$data{'personal'} = ( %$self->{'personal'} );
-	$data{'repository'} = ( %$self->{'repository'} );
+	#$data{'repository'} = ( %$self->{'repository'} );
 
 	open(F, ">$config_dir/$config_file") or 
 		$log->debug("Unable to write to file '$config_dir/$config_file': $!\n");
 	print F XMLout(\%data, rootname => 'preferences' );
+	close F;
+
+	return 1;
+}
+
+# write config file for repository settings
+sub write_repository_settings {
+	my $self = shift;
+	my %args = @_;
+	my $config_dir = $args{'config_dir'} || $self->{'config_dir'};
+	my $config_file = $args{'config_file'} || $self->{'config_file'};
+	
+	my $log = $self->{'log_obj'};
+
+	my %data = ();
+	$data{'repository'} = ( %$self->{'repository'} );
+
+	open(F, ">$config_dir/$config_file") or 
+		$log->debug("Unable to write to file '$config_dir/$config_file': $!\n");
+	print F XMLout(\%data, rootname => 'repository' );
 	close F;