projects
/
pgp-tools.git
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add keylookup
[pgp-tools.git]
/
caff
/
pgp-clean
diff --git
a/caff/pgp-clean
b/caff/pgp-clean
index 71022c51a32d03ae7c4754d906d4aa7d5aa61bf6..7514e71f396f8b9555ccff511231fa57955424d0 100755
(executable)
--- a/
caff/pgp-clean
+++ b/
caff/pgp-clean
@@
-1,7
+1,7
@@
#!/usr/bin/perl -w
#!/usr/bin/perl -w
-#
caff -- CA - Fire and Forget
-# $Id
: caff 37 2005-02-28 23:20:15Z weasel
$
+#
pgp-clean -- remove all non-self signatures from key
+# $Id$
#
# Copyright (c) 2004, 2005 Peter Palfrader <peter@palfrader.org>
#
#
# Copyright (c) 2004, 2005 Peter Palfrader <peter@palfrader.org>
#
@@
-89,7
+89,7
@@
use Fcntl;
use IO::Select;
use GnuPG::Interface;
use IO::Select;
use GnuPG::Interface;
-my $REVISION = '$Rev
: 37
$';
+my $REVISION = '$Rev$';
my ($REVISION_NUMER) = $REVISION =~ /(\d+)/;
my $VERSION = "0.0.0.$REVISION_NUMER";
my ($REVISION_NUMER) = $REVISION =~ /(\d+)/;
my $VERSION = "0.0.0.$REVISION_NUMER";
@@
-247,7
+247,7
@@
my $KEYEDIT_DELSUBKEY_PROMPT = '^\[GNUPG:\] GET_BOOL keyedit.remove.subkey';
sub usage() {
sub usage() {
- print STDERR "
caff
$VERSION - (c) 2004, 2005 Peter Palfrader\n";
+ print STDERR "
pgp-clean
$VERSION - (c) 2004, 2005 Peter Palfrader\n";
print STDERR "Usage: $PROGRAM_NAME <keyid> [<keyid> ...]\n";
exit 1;
};
print STDERR "Usage: $PROGRAM_NAME <keyid> [<keyid> ...]\n";
exit 1;
};