Ensure we split commands for MIME signed mail.

[autodns.git] / autodns.pl

diff --git a/autodns.pl b/autodns.pl
index ddb237c06155656a9d7ad3314b0464f9f165ad37..04d0d514a660d9edf847268375d051b3a4c36261 100755 (executable)
--- a/autodns.pl
+++ b/autodns.pl
@@ -261,6 +261,7 @@ if ($entity->parts) {
        # And grab what it has to say.
        @GPGERROR=<GPGERR>;
        @COMMANDS=<GPGOUT>;
+       @COMMANDS = split /\n/,$entity->bodyhandle->as_string;
        close GPGERR;
        close GPGOUT;
        waitpid $pid, 0;
@@ -273,7 +274,7 @@ foreach (@GPGERROR) {
        chomp;
        if (/Signature made (.*) using.*ID (.*)$/) {
                $sigtime = str2time($1);
-               $gpguser=$2; 
+               $gpguser=$2;
        } elsif (/error/) {
                $gpggood = 0;
                print REPLY "Some errors ocurred\n";