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

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

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

Modified Files:
	Config.pm 
Log Message:
* updated config file writing structure


Index: Config.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Config.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -U2 -r1.12 -r1.13
--- Config.pm	2002/02/05 06:16:10	1.12
+++ Config.pm	2002/02/05 07:59:03	1.13
@@ -23,5 +23,4 @@
 }
 
-
 sub _read_config {
 	my $config_file = shift;
@@ -55,5 +54,6 @@
 	my %data = ();
 	$data{'personal'} = ( %$self->{'personal'} );
-	#$data{'repository'} = ( %$self->{'repository'} );
+	$data{'repo'} = ( %$self->{'repo'} );
+	$data{'module'} = ( %$self->{'module'} );
 
 	open(F, ">$config_dir/$config_file") or 
@@ -63,35 +63,4 @@
 
 	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;
-
-	return 1;
-}
-
-# XXX - currently not used -nkj
-sub _report_error {
-	my $self = shift;
-	my $msg = shift;
-	my $log = $self->{'log_obj'};
-
-	$log->error("$msg");
-	return 0; # return 0 to report the error was logged (it's value being 
-	          # returned to the function who called this function).
 }