perl/DXXml.pm

   1 #
   2 # XML handler
   3 #
   4 # $Id$
   5 #
   6 # Copyright (c) Dirk Koopman, G1TLH
   7 #
   8
   9 use strict;
  10
  11 package DXXml;
  12
  13 use DXChannel;
  14 use DXProt;
  15
  16 use vars qw($VERSION $BRANCH $xs);
  17 $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
  18 $BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/  || (0,0));
  19 $main::build += $VERSION;
  20 $main::branch += $BRANCH;
  21
  22 $xs = undef;                                                    # the XML::Simple parser instance
  23
  24 sub init
  25 {
  26         eval { require XML::Simple; };
  27         unless ($@) {
  28                 import XML::Simple;
  29                 $DXProt::handle_xml = 1;
  30                 $xs = new XML::Simple();
  31         }
  32         undef $@;
  33 }
  34
  35 sub normal
  36 {
  37
  38 }
  39
  40 sub process
  41 {
  42
  43 }
  44 1;