[Pgp-tools-commit] r120 - trunk/gpgsigs
Peter Palfrader
weasel at costa.debian.org
Wed Jul 6 11:57:30 UTC 2005
Author: weasel
Date: 2005-07-06 11:57:30 +0000 (Wed, 06 Jul 2005)
New Revision: 120
Modified:
trunk/gpgsigs/gpgsigs
Log:
Whine about malformed input
Modified: trunk/gpgsigs/gpgsigs
===================================================================
--- trunk/gpgsigs/gpgsigs 2005-07-06 11:49:21 UTC (rev 119)
+++ trunk/gpgsigs/gpgsigs 2005-07-06 11:57:30 UTC (rev 120)
@@ -261,10 +261,14 @@
return $r;
}
+$key = undef;
+$uid = undef;
+my $line = 0;
print STDERR "Annotating $keytxt, writing into $outfile\n";
open (TXT, $keytxt) or die ("Cannot open $keytxt\n");
open (WRITE, '>'.$outfile) or die ("Cannot open $outfile for writing\n");
while (<TXT>) {
+ $line++;
$_ = myfromrecode($_);
if (/^MD5 Checksum:/ && defined $MD5) {
s/[_[:xdigit:]][_ [:xdigit:]]+_/$MD5/;
@@ -282,7 +286,10 @@
}
if ( m/^uid +(.*)$/ ) {
$uid = $1;
- die "key is undefined" unless defined $key;
+ unless (defined $key) {
+ warn "key is undefined - input text is possibly malformed near line $line\n";
+ next;
+ };
die "uid is undefined, key $key" unless defined $uid;
die "bad tag from $key | $uid" unless defined (print_tag($key, $uid));
print WRITE print_tag($key, $uid) . " $_";
More information about the Pgp-tools-commit
mailing list