From: minima Date: Mon, 14 May 2001 16:06:15 +0000 (+0000) Subject: unconditionally fix pc50 unitialised variable X-Git-Tag: OLDROUTE_1_48~19 X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=6e210063f1ef4e5c36ad04ba029b59711cc1eb04;p=spider.git unconditionally fix pc50 unitialised variable fix problem with eval on dbs.pl in DXDb for remote databases --- diff --git a/Changes b/Changes index 29dcca4d..21ab3c66 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,7 @@ +14May01======================================================================= +1. fix problem with re-reading in db definitions for remote databases. +11May01======================================================================= +1. allow stat/msg on priv 1 07May01======================================================================= 1. set/page 0 switches off paging 03May01======================================================================= diff --git a/cmd/Commands_en.hlp b/cmd/Commands_en.hlp index af5bcbd9..8765a69b 100644 --- a/cmd/Commands_en.hlp +++ b/cmd/Commands_en.hlp @@ -1520,7 +1520,7 @@ you are on or else for the callsign that you asked for. Only the fields that are defined (in perl term) will be displayed. -=== 5^STAT/MSG ^Show the status of a message +=== 1^STAT/MSG ^Show the status of a message This command shows the internal status of a message and includes information such as to whom it has been forwarded, its size, origin etc etc. diff --git a/perl/DXDb.pm b/perl/DXDb.pm index 0f30e5b0..50148ee2 100644 --- a/perl/DXDb.pm +++ b/perl/DXDb.pm @@ -76,7 +76,7 @@ sub load { my $s = readfilestr($dbbase, "dbs", "pl"); if ($s) { - my $a = { eval $s } ; + my $a = eval $s; confess $@ if $@; %avail = %{$a} if $a } diff --git a/perl/DXProt.pm b/perl/DXProt.pm index a6587209..1ba185b1 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -1131,6 +1131,7 @@ sub process next if $dxchan == $me; # send a pc50 out on this channel + $dxchan->{pc50_t} = $main::systime unless exists $dxchan->{pc50_t}; if ($t >= $dxchan->{pc50_t} + $DXProt::pc50_interval) { $dxchan->send(pc50(scalar DXChannel::get_all_users)); $dxchan->{pc50_t} = $t;