added set/user command

[spider.git] / perl / Messages

diff --git a/perl/Messages b/perl/Messages
index 4be9b10920a94cdf19dd4377f2211f268c4d5b3b..e2be0e3fa36536ca68063854c1e5395f0159e5ae 100644 (file)
--- a/perl/Messages
+++ b/perl/Messages
@@ -105,6 +105,10 @@ package DXM;
                                sloc => 'Cluster lat $_[0] long $_[1], DON\'T FORGET TO CHANGE YOUR DXVars.pm',
                                sqra => 'Cluster QRA Locator$_[0], DON\'T FORGET TO CHANGE YOUR DXVars.pm',
                                sorry => 'Sorry',
+                               suser1 => 'usage: callsign user_field_name value',
+                               suser2 => 'User $_[0] not found',
+                               suser3 => 'User field \'$_[0]\' was \'$_[1]\' now set to \'$_[2]\'',
+                               suser4 => 'User field name \'$_[0]\' doesn\'t exist',
                                talks => 'Talk flag set on $_[0]',
                                talku => 'Talk flag unset on $_[0]',
                                usernf => '*** User record for $_[0] not found ***',