Removed printing a few unnesesary debug information.
parent
b24f7569df
commit
24f8ca354f
4
kuvert
4
kuvert
|
@ -395,7 +395,6 @@ sub crypt_send
|
||||||
# returns nothing if ok or @error msgs
|
# returns nothing if ok or @error msgs
|
||||||
sub process_file
|
sub process_file
|
||||||
{
|
{
|
||||||
dlogit("In processfile");
|
|
||||||
my ($fh,$file)=@_;
|
my ($fh,$file)=@_;
|
||||||
|
|
||||||
my $in_ent;
|
my $in_ent;
|
||||||
|
@ -503,7 +502,6 @@ sub process_file
|
||||||
}
|
}
|
||||||
@recips=@reallyr;
|
@recips=@reallyr;
|
||||||
}
|
}
|
||||||
|
|
||||||
# figure out what to do for specific recipients
|
# figure out what to do for specific recipients
|
||||||
my %actions=findaction($override,\@recips,\@recip_bcc);
|
my %actions=findaction($override,\@recips,\@recip_bcc);
|
||||||
|
|
||||||
|
@ -657,6 +655,8 @@ sub findaction
|
||||||
#Encrypt or drop everything
|
#Encrypt or drop everything
|
||||||
if ($actions{$addr}=~/^encrypt/)
|
if ($actions{$addr}=~/^encrypt/)
|
||||||
{
|
{
|
||||||
|
my $thisaction=$1;
|
||||||
|
$actions{$addr}=$thisaction;
|
||||||
$actions{$addr}=$specialkeys{$addr}||$email2key{$addr}||"drop";
|
$actions{$addr}=$specialkeys{$addr}||$email2key{$addr}||"drop";
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue