perl/Thingy/Ping.pm

   1 #
   2 # Ping Thingy handling
   3 #
   4 # $Id$
   5 #
   6 # Copyright (c) 2005 Dirk Koopman G1TLH
   7 #
   8
   9 use strict;
  10
  11 package Thingy::Ping;
  12
  13 use vars qw($VERSION $BRANCH);
  14
  15 main::mkver($VERSION = q$Revision$);
  16
  17 use DXChannel;
  18 use DXDebug;
  19 use DXUtil;
  20 use Thingy;
  21 use Spot;
  22
  23 use vars qw(@ISA);
  24 @ISA = qw(Thingy);
  25
  26 sub gen_Aranea
  27 {
  28         my $thing = shift;
  29         unless ($thing->{Aranea}) {
  30                 $thing->{Aranea} = Aranea::genmsg($thing);
  31         }
  32         return $thing->{Aranea};
  33 }
  34
  35 sub from_Aranea
  36 {
  37         my $thing = shift;
  38         return unless $thing;
  39         return $thing;
  40 }
  41
  42 sub gen_DXProt
  43 {
  44         my $thing = shift;
  45         my $dxchan = shift;
  46         return $thing->{DXProt};
  47 }
  48
  49 sub gen_DXCommandmode
  50 {
  51         my $thing = shift;
  52         my $dxchan = shift;
  53         my $buf;
  54
  55         return $buf;
  56 }
  57
  58 sub from_DXProt
  59 {
  60         my $thing = shift;
  61         while (@_) {
  62                 my $k = shift;
  63                 $thing->{$k} = shift;
  64         }
  65         return $thing;
  66 }
  67
  68 sub handle
  69 {
  70         my $thing = shift;
  71         my $dxchan = shift;
  72
  73         $thing->broadcast($dxchan);
  74 }
  75
  76 1;