setting "requireSigs" added

return default config for undefined values
This commit is contained in:
lars 2006-04-10 13:29:08 +00:00
parent 9ce1fff298
commit 2fe1a0ad8c

View file

@ -82,6 +82,7 @@ local $ENV{'PATH'} = $GPG_EZMLM_BASE;
# == define the available (supported) GPG_LIST_OPTIONS == # == define the available (supported) GPG_LIST_OPTIONS ==
@GPG_LIST_OPTIONS = ( @GPG_LIST_OPTIONS = (
"RequireSub", "RequireSub",
"requireSigs",
"NokeyNocrypt", "NokeyNocrypt",
"signMessages", "signMessages",
"encryptToAll", "encryptToAll",
@ -203,6 +204,16 @@ sub getconfig {
my($self) = @_; my($self) = @_;
my(%options); 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 # Read the config file
if(open(CONFIG, "<$self->{'LIST_NAME'}/config")) { if(open(CONFIG, "<$self->{'LIST_NAME'}/config")) {
# 'config' contains the authorative information # 'config' contains the authorative information