fix error messages if you leave out keywords

[spider.git] / perl / Messages

diff --git a/perl/Messages b/perl/Messages
index 8bc98cc18d26fca886be792c25173180142c42b2..642fc5426c92fd84de89d76ea5389b466545e13c 100644 (file)
--- a/perl/Messages
+++ b/perl/Messages
@@ -28,7 +28,9 @@ package DXM;
                                confail => 'connection to $_[0] failed ($_[1])',
                                constart => 'connection to $_[0] started',
                                disc1 => 'Disconnected by $_[0]',
-                               disc2 => '$_[0] disconnected',
+                               disc2 => 'Channel $_[0] disconnected',
+                               disc3 => 'No Channel, but connection $_[0] disconnected',
+                               disc4 => 'No Channel or connection but orphan $_[0] disconnected',
                                db1 => 'This database is hosted at $_[0]',
                                db2 => 'Sorry, but key: $_[0] was not found in $_[1]',
                                db3 => 'Sorry, database $_[0] doesn\'t exist here',
@@ -41,6 +43,7 @@ package DXM;
                                db10 => '$_[0] records imported into $_[1]',
                                db11 => 'Sending your request(s) to $_[0], please stand by...',
                                dfreq1 => 'Invalid freq $_[0] need: eg 0/30000 or hf or hf/cw', 
+                               done => 'Done',
                                dup => 'Sorry, this is a duplicate',
                                dx1 => 'Frequency $_[0] not in band (see show/band); usage: DX [BY call] freq call comments',
                                dx2 => 'Need a callsign; usage: DX [BY call] freq call comments',
@@ -82,7 +85,7 @@ package DXM;
                                export2 => '$_[3] has error exporting msg $_[0] to $_[1] ($_[2])',
                                export3 => '$_[2 ] exported msg $_[0] to $_[1]',
                                filter1 => 'Filter $_[0] updated for $_[1]',
-                               filter2 => 'Need a value for $_[0]',
+                               filter2 => 'Unknown filter keyword $_[0]',
                                filter3 => 'No filters defined for $_[0]',
                                filter4 => '$_[0]$_[1] Filter $_[2] deleted for $_[3]',
                                filter5 => 'need some filter commands...',
@@ -109,7 +112,7 @@ package DXM;
                                isou => '$_[0] UnIsolated',
                                isoc => '$_[0] created and Isolated',
                                l1 => 'Sorry $_[0], you are already logged on on another channel',
-                               l2 => 'Hello $_[0], this is $main::mycall in $main::myqth running DXSpider V$main::version',
+                               l2 => 'Hello $_[0], this is $main::mycall in $main::myqth\nrunning DXSpider V$main::version build $main::build',
                                lang => 'Language is now $_[0]',
                                lange1 => 'set/language <lang> where <lang> is one of ($_[0])',
                                lange2 => 'failed to set language on $_[0]', 
@@ -148,6 +151,8 @@ package DXM;
                                msgu => 'usage: msg <cmd> <msgno> data...',
                                merge1 => 'Merge request for $_[1] spots and $_[2] WWV sent to $_[0]',
                                moon => 'Location                              Rise   Set      Azim   Elev RGain dB',
+                               mond => 'Monitoring Disabled',
+                               mone => 'Monitoring Enabled',
                                namee1 => 'Please enter your name, set/name <your name>',
                                namee2 => 'Can\'t find user $_[0]!',
                                name => 'Your name is now \"$_[0]\"',
@@ -163,6 +168,7 @@ package DXM;
                                nodexc => '$_[0] created as DXNET style Node',
                                nodeu => '$_[0] set back as a User',
                                nodee1 => 'You cannot use this command whilst your target ($_[0]) is on-line',
+                               notdone => 'NOT Done',
                                obscount => 'Ping obsolescence count on $_[0] set to $_[1]',
                                ok => 'Operation successful',
                                outconn => 'Outstanding connect to $_[0]',