From: Jonathan McDowell <noodles@earth.li>
Date: Wed, 15 Jun 2005 10:41:54 +0000 (+0000)
Subject: cscvs to tla changeset 9
X-Git-Url: https://the.earth.li/gitweb/?p=autodns.git;a=commitdiff_plain;h=eff7c09ed93bdb9e1c6d631e29aad730926bbae4

cscvs to tla changeset 9

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
---

diff --git a/autodns.pl b/autodns.pl
index f84300f..8e1e20b 100755
--- a/autodns.pl
+++ b/autodns.pl
@@ -5,7 +5,7 @@
 # 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 $
 #
 
 use strict;
@@ -230,7 +230,8 @@ if ($entity->parts) {
 	}
 
 	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;
@@ -239,6 +240,7 @@ if ($entity->parts) {
 		my @GPGOUTPUT=<GPGOUT>;
 		close GPGERR;
 		close GPGOUT;
+		waitpid $pid, 0;
 
 		unlink($text_name);
 		unlink($sig_name);
@@ -246,7 +248,7 @@ if ($entity->parts) {
 } else {
 	# Clear text.
 
-	open3(\*GPGIN, \*GPGOUT, \*GPGERR, "gpg --batch");
+	my $pid = open3(\*GPGIN, \*GPGOUT, \*GPGERR, "gpg --batch");
 
 	# Feed it the mail.
 	print GPGIN @MAIL;
@@ -257,6 +259,7 @@ if ($entity->parts) {
 	@COMMANDS=<GPGOUT>;
 	close GPGERR;
 	close GPGOUT;
+	waitpid $pid, 0;
 }
 
 # Check who it's from and if the signature was a good one.