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=======================================================================
 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.
 
 
 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.
 
 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 $s = readfilestr($dbbase, "dbs", "pl");
        if ($s) {

-               my $a = { eval $s } ;
+               my $a = eval $s;

                confess $@ if $@;
                %avail = %{$a} if $a
        }
                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
                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;
                if ($t >= $dxchan->{pc50_t} + $DXProt::pc50_interval) {
                        $dxchan->send(pc50(scalar DXChannel::get_all_users));
                        $dxchan->{pc50_t} = $t;