Move revision number into version string
[pgp-tools.git] / caff / caff
index e1b28f1e098a87a69211d66f3bcdd7700e51c5ae..80bbf98d332bd1a8fdbc216efd89782ba6f7f8d8 100755 (executable)
--- a/caff/caff
+++ b/caff/caff
@@ -41,7 +41,8 @@ use GnuPG::Interface;
 
 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';
@@ -228,6 +229,7 @@ my $DATE_STRING = sprintf("%04d-%02d-%02d", $year+1900, $mon+1, $mday);
 
 
 sub usage() {
+       print STDERR "caff $VERSION - (c) 2004 Peter Palfrader\n";
        print STDERR "Usage: $PROGRAM_NAME [-u <yourkeyid] <keyid> [<keyid> ...]\n";
        exit 1;
 };