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).
}
|
