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;
|
