put dx.pl into an explicit handle sub

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

diff --git a/cmd/show/version.pl b/cmd/show/version.pl
index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..b57dd36c258d52a916fbf12748dc2e48055af736 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::build git: $main::gitversion) on \u$^O";
+push @out, "Copyright (c) 1998-$year Dirk Koopman G1TLH";
+
+return (1, @out);