remove $Id$ strings from everywhere that I can find

[spider.git] / cmd / show / version.pl

diff --git a/cmd/show/version.pl b/cmd/show/version.pl
index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..661b0f27a97212a22946abbbb7ab3cbc105bc511 100644 (file)
--- a/cmd/show/version.pl
+++ b/cmd/show/version.pl
@@ -0,0 +1,15 @@
+#
+# show the version number of the software + copyright info
+#
+# Copyright (c) 1998 Dirk Koopman G1TLH
+#
+#
+#
+
+my @out;
+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);