open (DIRECTIVE_FILE, "<", $directive_file)
or ftp_abort("FATAL: open($directive_file) failed: $!");
- my $cnt = 0; # Keep track of the order of directives...
$directive_file_contents = join('', (@lines = <DIRECTIVE_FILE>));
close (DIRECTIVE_FILE) or ftp_warn("close($directive_file) failed: $!");
push(@{$info{email}},$1)
if ($tmp_retval =~ /Good signature from .*?<(.*?)>/);
+ my $cnt = 0; # Keep track of the order of directives...
my $signed = 0;
# If there is a command in the directive that doesn't require an actual
# file to work on, we won't require the filename line in the directive