changed all instances of FileHandle to IO::File

[spider.git] / perl / Messages

diff --git a/perl/Messages b/perl/Messages
index 0bd8bd2853340ca0108aee4c77bba719eee2cdac..e2be0e3fa36536ca68063854c1e5395f0159e5ae 100644 (file)
--- a/perl/Messages
+++ b/perl/Messages
@@ -104,6 +104,11 @@ package DXM;
                                shutting => '$main::mycall shutting down...',
                                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 ***',