From: 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://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=ae9359ca7e3c924f7cc719a2fb8bb6b1ad8f36de;p=spider.git 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 ^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 [|]^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);