started to flesh some of it out.

[spider.git] / perl / DXM.pm

diff --git a/perl/DXM.pm b/perl/DXM.pm
new file mode 100644 (file)
index 0000000..e1579fa
--- /dev/null
+++ b/perl/DXM.pm
@@ -0,0 +1,28 @@
+#
+# DX cluster message strings for output
+#
+# Copyright (c) 1998 - Dirk Koopman G1TLH
+#
+# $Id$
+#
+
+package DXM;
+
+require Exporter;
+@ISA = qw(Exporter);
+@EXPORT = qw(m);
+
+%msgs = (
+  l1 => "Sorry $a[0], you are already logged on on another channel",
+  l2 => "Hello $a[0], this is $a[1] located in $a[2]",
+);
+
+sub m
+{
+  my $self = shift;
+  local @a = @_;
+  my $s = $msg{$self};
+  return "unknown message '$self'" if !defined $s;
+  return eval $s;
+}
+