remove $Id$ strings from everywhere that I can find
[spider.git] / cmd / show / version.pl
index fe0ae4d9711a0c044f650e3cefb48519c40bf80b..661b0f27a97212a22946abbbb7ab3cbc105bc511 100644 (file)
@@ -3,12 +3,13 @@
 #
 # Copyright (c) 1998 Dirk Koopman G1TLH
 #
-# $Id$
+#
 #
 
 my @out;
-
-push @out, "DX Spider Cluster version $main::version (build $main::build) on \u$^O";
-push @out, "Copyright (c) 1998-2001 Dirk Koopman G1TLH";
+my ($year) = (gmtime($main::systime))[5];
+$year += 1900;
+push @out, "DX Spider Cluster version $main::version (build $main::subversion.$main::build) on \u$^O";
+push @out, "Copyright (c) 1998-$year Dirk Koopman G1TLH";
 
 return (1, @out);