unconditionally fix pc50 unitialised variable

fix problem with eval on dbs.pl in DXDb for remote databases

diff --git a/Changes b/Changes
index 29dcca4de04157fbc691dc9a366ae241b47b3d80..21ab3c66dcd39eb99640d6a9d7ea3bd5a8eb723e 100644 (file)
--- 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 af5bcbd92179b607b01403728378d587f98504fa..8765a69b62a6998a2dacecc47b2511fada1cd5f8 100644 (file)
--- 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 <msgno>^Show the status of a message
+=== 1^STAT/MSG <msgno>^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 0f30e5b05b423d31d698c0700b4c21353525e39f..50148ee2a6d47c0c55a4a87d32707d13a7ba3ca5 100644 (file)
--- 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 a6587209179a8da21428e20a5176672265e8e61f..1ba185b183d4123f2489115c76088b71df6d3bb1 100644 (file)
--- 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;