spider/cmd/show/version.pl
2007-06-21 19:07:53 +01:00

16 lines
361 B
Perl

#
# show the version number of the software + copyright info
#
# Copyright (c) 1998 Dirk Koopman G1TLH
#
# $Id$
#
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);