From 2fe1a0ad8c8a8c40b2205a67ea9b49c4ef0fa391 Mon Sep 17 00:00:00 2001 From: lars Date: Mon, 10 Apr 2006 13:29:08 +0000 Subject: [PATCH] setting "requireSigs" added return default config for undefined values --- gpg-Ezmlm/trunk/Gpg.pm | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/gpg-Ezmlm/trunk/Gpg.pm b/gpg-Ezmlm/trunk/Gpg.pm index 0be4704..c0cbca6 100644 --- a/gpg-Ezmlm/trunk/Gpg.pm +++ b/gpg-Ezmlm/trunk/Gpg.pm @@ -82,6 +82,7 @@ local $ENV{'PATH'} = $GPG_EZMLM_BASE; # == define the available (supported) GPG_LIST_OPTIONS == @GPG_LIST_OPTIONS = ( "RequireSub", + "requireSigs", "NokeyNocrypt", "signMessages", "encryptToAll", @@ -203,6 +204,16 @@ sub getconfig { my($self) = @_; my(%options); + # define defaults + $options{signMessages} = 1; + $options{NokeyNocrypt} = 0; + $options{allowKeySubmission} = 1; + $options{encryptToAll} = 0; + $options{VerifiedKeyReq} = 0; + $options{RequireSub} = 0; + $options{requireSigs} = 0; + + # Read the config file if(open(CONFIG, "<$self->{'LIST_NAME'}/config")) { # 'config' contains the authorative information