X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXM.pm;fp=perl%2FDXM.pm;h=e1579fabbd64d52cb25ea3cdb8b7be566460bb9c;hb=60c0ea1747bc8ad95e531d29025f7bcee4fd10c1;hp=0000000000000000000000000000000000000000;hpb=0017002e2dc438d49fcc090dc99b6d22f7037aa7;p=spider.git

diff --git a/perl/DXM.pm b/perl/DXM.pm
new file mode 100644
index 00000000..e1579fab
--- /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;
+}
+