X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FDXXml%2FDx.pm;fp=perl%2FDXXml%2FDx.pm;h=d8bba23b6fcf2e2c401a953df18bf568aedf5c49;hb=af378e74088394d9c70a9a01d67a311cf4774d96;hp=0000000000000000000000000000000000000000;hpb=c134d6e811bd0e40ae18cdba9b4941f747c48aaf;p=spider.git

diff --git a/perl/DXXml/Dx.pm b/perl/DXXml/Dx.pm
new file mode 100644
index 00000000..d8bba23b
--- /dev/null
+++ b/perl/DXXml/Dx.pm
@@ -0,0 +1,32 @@
+#
+# XML DX Spot handler
+#
+# $Id$
+#
+# Copyright (c) Dirk Koopman, G1TLH
+#
+
+use strict;
+
+package DXXml::Dx;
+
+use DXDebug;
+use DXProt;
+use IsoTime;
+
+use vars qw($VERSION $BRANCH @ISA);
+$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/  || (0,0));
+$main::build += $VERSION;
+$main::branch += $BRANCH;
+
+@ISA = qw(DXXml);
+
+sub handle_input
+{
+	my $self = shift;
+	my $dxchan = shift;
+	
+}
+
+1;