]> scm.dxcluster.org Git - spider.git/blob - cmd/show/version.pl
da72e305938cb3b263623be2578791738629ab12
[spider.git] / 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 $build = $main::version;
11
12 if (opendir(DIR, "$main::root/perl")) {
13         my @d = readdir(DIR);
14         closedir(DIR);
15         foreach my $fn (@d) {
16                 if ($fn =~ /^cluster\.pl$/ || $fn =~ /\.pm$/) {
17                         my $f = new IO::File "$main::root/perl/$fn" or next;
18                         while (<$f>) {
19                                 if (/^#\s+\$Id:\s+[\w\._]+,v\s+(\d+\.\d+)/ ) {
20                                         $build += $1;
21                                         last;
22                                 }
23                         }
24                         $f->close;
25                 }
26         }
27 }
28 push @out, "DX Spider Cluster version $main::version (build $build) on \u$^O";
29 push @out, "Copyright (c) 1998-2001 Dirk Koopman G1TLH";
30
31 return (1, @out);