perl/DXXml/Ping.pm

   1 #
   2 # XML Ping handler
   3 #
   4 # $Id$
   5 #
   6 # Copyright (c) Dirk Koopman, G1TLH
   7 #
   8
   9 use strict;
  10
  11 package DXXml::Ping;
  12
  13 use DXDebug;
  14 use DXProt;
  15 use IsoTime;
  16
  17 use vars qw($VERSION $BRANCH @ISA);
  18 $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
  19 $BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/  || (0,0));
  20 $main::build += $VERSION;
  21 $main::branch += $BRANCH;
  22
  23 @ISA = qw(DXXml);
  24
  25 sub handle_input
  26 {
  27         my $self = shift;
  28         my $dxchan = shift;
  29
  30 }
  31
  32 1;