From: minima <minima>
Date: Tue, 11 Mar 2003 01:19:43 +0000 (+0000)
Subject: add show/contest command
X-Git-Tag: PRE-1-52~24
X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=ae9359ca7e3c924f7cc719a2fb8bb6b1ad8f36de

add show/contest command
---

diff --git a/Changes b/Changes
index 29db141a..bb3b749b 100644
--- a/Changes
+++ b/Changes
@@ -7,6 +7,7 @@ procedure is (after the update) to run /spider/perl/create_qsl.pl (this may
 take a long time), then immediately it finishes, restart the node. The node 
 will then keep the database up to date automatically. If you are not 
 interested in historical data then you can leave this step out.
+2. added show/contest command from Tommy SM3OSM via Rene OZ1LQH.
 08Mar03=======================================================================
 1. Added chat, join, leave commands to allow general purpose conferencing
 on arbitrary subjects. [Translators: added e34,e35,join,leave]. There is
diff --git a/cmd/Commands_en.hlp b/cmd/Commands_en.hlp
index fef7749a..ec643eed 100644
--- a/cmd/Commands_en.hlp
+++ b/cmd/Commands_en.hlp
@@ -1766,6 +1766,14 @@ Show all the nodes connected to this node.
 This command shows information on all the active connections known to
 the node. This command gives slightly more information than WHO.
 
+=== 0^SHOW/CONTEST <year and month>^Show all the contests for a month
+Show all known contests which are maintained at http://www.sk3bg.se/contest/
+for a particular month or year. The format is reasonably flexible.
+For example:-
+  
+  SH/CONTEST sep2003
+  SH/CONTEST 03 march
+
 === 0^SHOW/DATE [<prefix>|<callsign>]^Show the local time 
 This is very nearly the same as SHOW/TIME, the only difference the format
 of the date string if no arguments are given.
diff --git a/perl/QSL.pm b/perl/QSL.pm
index 8849be08..c1beca63 100644
--- a/perl/QSL.pm
+++ b/perl/QSL.pm
@@ -88,8 +88,8 @@ sub update
 
 sub get
 {
-	my $key = uc shift;
 	return undef unless $dbm;
+	my $key = uc shift;
 	my $value;
 	
 	my $r = $dbm->get($key, $value);