ezmlm-web/ezmlm-web-modules
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

update gnupg options implemented

Browse source 
gpg-ezmlm: config update bug fixed
This commit is contained in:
lars 2006-04-10 14:26:25 +00:00
parent 2fe1a0ad8c
commit 006343c6cb
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
gpg-Ezmlm/trunk/Gpg.pm
View file

@ -118,7 +118,8 @@ sub convert {
# == Update the current list == # == Update the current list ==
sub update { sub update {
my($self, %switches, %ok_switches) = @_; my($self, %switches) = @_;
my %ok_switches;
# check for important files: 'config' # check for important files: 'config'
($self->_seterror(-1, "$self->{'LIST_NAME'} does not appear to be a valid list in update()") && return 0) unless((-e "$self->{'LIST_NAME'}/config") || (-e "$self->{'LIST_NAME'}/flags")); ($self->_seterror(-1, "$self->{'LIST_NAME'} does not appear to be a valid list in update()") && return 0) unless((-e "$self->{'LIST_NAME'}/config") || (-e "$self->{'LIST_NAME'}/flags"));
@ -150,6 +151,7 @@ sub update {
while (<CONFIG_OLD>) { while (<CONFIG_OLD>) {
$in_line = $_; $in_line = $_;
if (%ok_switches) { if (%ok_switches) {
my $found = 0;
while (($one_opt, $one_val) = each(%ok_switches)) { while (($one_opt, $one_val) = each(%ok_switches)) {
# is this the right line (maybe commented out)? # is this the right line (maybe commented out)?
if ($in_line =~ m/^#?\w*$one_opt/i) { if ($in_line =~ m/^#?\w*$one_opt/i) {
@ -157,10 +159,10 @@ sub update {
print CONFIG_NEW ($one_val)? "yes" : "no"; print CONFIG_NEW ($one_val)? "yes" : "no";
print CONFIG_NEW "\n"; print CONFIG_NEW "\n";
delete $ok_switches{$one_opt}; delete $ok_switches{$one_opt};
} else { $found = 1;
print CONFIG_NEW $in_line;
} }
} }
print CONFIG_NEW $in_line if ($found == 0);
} else { } else {
# just print the remaining config file if no other settings are left # just print the remaining config file if no other settings are left
print CONFIG_NEW $in_line; print CONFIG_NEW $in_line;