my %CONFIG;
my $REVISION = '$Rev$';
my %CONFIG;
my $REVISION = '$Rev$';
-my $VERSION = '0.0.0.1';
+my ($REVISION_NUMER) = $REVISION =~ /(\d+)/;
+my $VERSION = "0.0.0.$REVISION_NUMER";
sub load_config() {
my $config = $ENV{'HOME'} . '/.caffrc';
sub load_config() {
my $config = $ENV{'HOME'} . '/.caffrc';
+ print STDERR "caff $VERSION - (c) 2004 Peter Palfrader\n";
print STDERR "Usage: $PROGRAM_NAME [-u <yourkeyid] <keyid> [<keyid> ...]\n";
exit 1;
};
print STDERR "Usage: $PROGRAM_NAME [-u <yourkeyid] <keyid> [<keyid> ...]\n";
exit 1;
};