X-Git-Url: https://the.earth.li/gitweb/?a=blobdiff_plain;f=autodns.pl;h=04d0d514a660d9edf847268375d051b3a4c36261;hb=b7da774a5471f2ad9c0c32a7ac43519c603c4e81;hp=fa4e09b6a337cb4005e18f1a2b62d126ad5e3571;hpb=f42fd5611d122bd25736db2acb453aad297feb91;p=autodns.git

diff --git a/autodns.pl b/autodns.pl
index fa4e09b..04d0d51 100755
--- a/autodns.pl
+++ b/autodns.pl
@@ -252,7 +252,7 @@ if ($entity->parts) {
 } else {
 	# Clear text.
 
-	my $pid = open3(\*GPGIN, \*GPGOUT, \*GPGERR, "gpg --batch");
+	my $pid = open3(\*GPGIN, \*GPGOUT, \*GPGERR, "gpg --batch --verify");
 
 	# Feed it the mail.
 	print GPGIN $entity->bodyhandle->as_string;
@@ -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";