Explicitly give --verify command to GPG.

[autodns.git] / autodns.pl

diff --git a/autodns.pl b/autodns.pl
index 67beb7a92a8f9c65cc003298d9bf0ae2915421ee..ddb237c06155656a9d7ad3314b0464f9f165ad37 100755 (executable)
--- a/autodns.pl
+++ b/autodns.pl
@@ -74,7 +74,7 @@ sub valid_domain($) {
        my $domain = shift;
        $domain = lc $domain;
 
-       if ($domain =~ /^(?:[a-z0-9-]+\.)+[a-z]{2,4}$/) {
+       if ($domain =~ /^(?:[a-z0-9-]+\.)+[a-z]{2,6}$/) {
                return 1;
        } elsif ($domain =~ /^(?:[0-9\/-]+\.)+in-addr.arpa$/) {
                return 1;
@@ -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;