Author: noodles
Date: 2005/04/13 17:24:40
Add wait for gpg termination signal.
git-archimport-id: noodles@earth.li--pie/autodns--mainline--1.0--patch-8
# http://www.earth.li/projectpurple/progs/autodns.html
# Released under the GPL.
#
# http://www.earth.li/projectpurple/progs/autodns.html
# Released under the GPL.
#
-# $Id: autodns.pl,v 1.8 2005/04/08 13:51:13 noodles Exp $
+# $Id: autodns.pl,v 1.9 2005/04/13 17:24:40 noodles Exp $
}
if ($got_sig && $got_text) {
}
if ($got_sig && $got_text) {
- open3(\*GPGIN, \*GPGOUT, \*GPGERR, "gpg --batch --verify ".
+ my $pid = open3(\*GPGIN, \*GPGOUT, \*GPGERR,
+ "gpg --batch --verify ".
$sig_name." ".$text_name);
close GPGIN;
$sig_name." ".$text_name);
close GPGIN;
my @GPGOUTPUT=<GPGOUT>;
close GPGERR;
close GPGOUT;
my @GPGOUTPUT=<GPGOUT>;
close GPGERR;
close GPGOUT;
unlink($text_name);
unlink($sig_name);
unlink($text_name);
unlink($sig_name);
- open3(\*GPGIN, \*GPGOUT, \*GPGERR, "gpg --batch");
+ my $pid = open3(\*GPGIN, \*GPGOUT, \*GPGERR, "gpg --batch");
# Feed it the mail.
print GPGIN @MAIL;
# Feed it the mail.
print GPGIN @MAIL;
@COMMANDS=<GPGOUT>;
close GPGERR;
close GPGOUT;
@COMMANDS=<GPGOUT>;
close GPGERR;
close GPGOUT;
}
# Check who it's from and if the signature was a good one.
}
# Check who it's from and if the signature was a good one.