From: minima <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.org/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 <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 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;