cabot ca-sendout

[Peter Palfrader]

CVSROOT:	/cvsroot/cabot
Module name:	cabot
Branch: 	
Changes by:	Peter Palfrader <savannah.gnu.org@palfrader.org>	03/09/08 16:16:32

Modified files:
	.              : ca-sendout 

Log message:
	Fix a few missing my declarations

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/cabot/cabot/ca-sendout.diff?tr1=1.13&tr2=1.14&r1=text&r2=text

Patches:
Index: cabot/ca-sendout
diff -u cabot/ca-sendout:1.13 cabot/ca-sendout:1.14
--- cabot/ca-sendout:1.13	Sun Aug 17 13:53:07 2003
+++ cabot/ca-sendout	Mon Sep  8 16:16:31 2003
@@ -78,7 +78,7 @@
 
 open URANDOM, "< /dev/urandom" or die $!;
 
-my $REVISION = '$Revision: 1.13 $';
+my $REVISION = '$Revision: 1.14 $';
 
 sub randhex ($) {
 	my ($length) = @_;
@@ -95,9 +95,9 @@
 	                            'always_trust' => 1);
 	$gnupg->options->push_recipients( $key );
 	$gnupg->options->push_recipients( $CONFIG{'keyid'} );
-	($inputfd, $stdoutfd, $stderrfd, $statusfd, $handles) = mkfds();
-	$pid = $gnupg->encrypt( handles => $handles );
-	my ($stdout, $stderr, $status) = readwritegpg($input, $inputfd, $stdoutfd, $stderrfd, $statusfd);
+	my ($inputfd, $stdoutfd, $stderrfd, $statusfd, $handles) = mkfds();
+	my $pid = $gnupg->encrypt( handles => $handles );
+	my ($stdout, $stderr, $status) = readwritegpg($text, $inputfd, $stdoutfd, $stderrfd, $statusfd);
 	waitpid $pid, 0;
 
 	if ($status =~ /^\[GNUPG:\] \s+ INV_RECP/mx) {
@@ -240,7 +240,7 @@
 
 =head1 VERSION
 
-$Id: ca-sendout,v 1.13 2003/08/17 17:53:07 weasel Exp $
+$Id: ca-sendout,v 1.14 2003/09/08 20:16:31 weasel Exp $
 
 =head1 COPYRIGHT