cmd/show/version.pl

   1 #
   2 # show the version number of the software + copyright info
   3 #
   4 # Copyright (c) 1998 Dirk Koopman G1TLH
   5 #
   6 # $Id$
   7 #
   8
   9 my @out;
  10 my ($year) = (gmtime($main::systime))[5];
  11 $year += 1900;
  12 push @out, "DX Spider Cluster version $main::version (build $main::subversion.$main::build) on \u$^O";
  13 push @out, "Copyright (c) 1998-$year Dirk Koopman G1TLH";
  14
  15 return (1, @out);