add show/contest command

diff --git a/Changes b/Changes
index 29db141a68db4031594bf254197cab1f7cc9ea2b..bb3b749bd91dc22d0c8b25b676a117cb9c550fc9 100644 (file)
--- 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 fef7749a33eed14e4f8064aa0a58cb5b38b846fc..ec643eed26dd5ee5b53207a541eb11e54f450acc 100644 (file)
--- 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 8849be0853cc5ce930e30701db57eab05ba7a247..c1beca63dd2f2dfbaa3bd24661304d4e68cba1cf 100644 (file)
--- 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);