From ae9359ca7e3c924f7cc719a2fb8bb6b1ad8f36de Mon Sep 17 00:00:00 2001 From: minima Date: Tue, 11 Mar 2003 01:19:43 +0000 Subject: [PATCH] add show/contest command --- Changes | 1 + cmd/Commands_en.hlp | 8 ++++++++ perl/QSL.pm | 2 +- 3 files changed, 10 insertions(+), 1 deletion(-) 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); -- 2.43.0