altered PC18 to should version and build information
+16Mar01=======================================================================
+1. integrate build number into main cluster and change the PC18 to show
+version and build in the text portion
14Mar01=======================================================================
1. first cut at outgoing ax25 /external program connects
2. slight change of interface to connect
14Mar01=======================================================================
1. first cut at outgoing ax25 /external program connects
2. slight change of interface to connect
-my $build = $main::version;
-if (opendir(DIR, "$main::root/perl")) {
- my @d = readdir(DIR);
- closedir(DIR);
- foreach my $fn (@d) {
- if ($fn =~ /^cluster\.pl$/ || $fn =~ /\.pm$/) {
- my $f = new IO::File "$main::root/perl/$fn" or next;
- while (<$f>) {
- if (/^#\s+\$Id:\s+[\w\._]+,v\s+(\d+\.\d+)/ ) {
- $build += $1;
- last;
- }
- }
- $f->close;
- }
- }
-}
-push @out, "DX Spider Cluster version $main::version (build $build) on \u$^O";
+push @out, "DX Spider Cluster version $main::version (build $main::build) on \u$^O";
push @out, "Copyright (c) 1998-2001 Dirk Koopman G1TLH";
return (1, @out);
push @out, "Copyright (c) 1998-2001 Dirk Koopman G1TLH";
return (1, @out);
# Request init string
sub pc18
{
# Request init string
sub pc18
{
- my $info = DXCluster::cluster;
- return "PC18^$info^$DXProt::myprot_version^";
+ return "PC18^DXSpider Version $main::version Build $main::build^$DXProt::myprot_version^";
use BadWords;
use Data::Dumper;
use BadWords;
use Data::Dumper;
use Fcntl ':flock';
use POSIX ":sys_wait_h";
use Fcntl ':flock';
use POSIX ":sys_wait_h";
package main;
use strict;
package main;
use strict;
-use vars qw(@inqueue $systime $version $starttime $lockfn @outstanding_connects $zombies $root
- @listeners $lang $myalias @debug $userfn $clusteraddr $clusterport $mycall $decease );
+use vars qw(@inqueue $systime $version $starttime $lockfn @outstanding_connects
+ $zombies $root @listeners $lang $myalias @debug $userfn $clusteraddr
+ $clusterport $mycall $decease $build
+ );
@inqueue = (); # the main input queue, an array of hashes
$systime = 0; # the time now (in seconds)
@inqueue = (); # the main input queue, an array of hashes
$systime = 0; # the time now (in seconds)
- dbg('chan', "DXSpider version $version ended");
- Log('cluster', "DXSpider V$version stopped");
+ dbg('chan', "DXSpider version $version, build $build ended");
+ Log('cluster', "DXSpider V$version, build $build ended");
dbgclose();
Logclose();
unlink $lockfn;
dbgclose();
Logclose();
unlink $lockfn;
-Log('cluster', "DXSpider V$version started");
+# calculate build number
+$build = $main::version;
+
+if (opendir(DIR, "$main::root/perl")) {
+ my @d = readdir(DIR);
+ closedir(DIR);
+ foreach my $fn (@d) {
+ if ($fn =~ /^cluster\.pl$/ || $fn =~ /\.pm$/) {
+ my $f = new IO::File "$main::root/perl/$fn" or next;
+ while (<$f>) {
+ if (/^#\s+\$Id:\s+[\w\._]+,v\s+(\d+\.\d+)/ ) {
+ $build += $1;
+ last;
+ }
+ }
+ $f->close;
+ }
+ }
+}
+
+Log('cluster', "DXSpider V$version, build $build started");
-dbg('err', "DXSpider DX Cluster Version $version", "Copyright (c) 1998-2001 Dirk Koopman G1TLH");
+dbg('err', "DXSpider Version $version, build $build started", "Copyright (c) 1998-2001 Dirk Koopman G1TLH");
# load Prefixes
dbg('err', "loading prefixes ...");
# load Prefixes
dbg('err', "loading prefixes ...");