perl/DXProt.pm

   1 #!/usr/bin/perl
   2 #
   3 # This module impliments the protocal mode for a dx cluster
   4 #
   5 # Copyright (c) 1998 Dirk Koopman G1TLH
   6 #
   7 # $Id$
   8 #
   9
  10 package DXProt;
  11
  12 @ISA = qw(DXChannel);
  13
  14 use DXUtil;
  15 use DXChannel;
  16 use DXUser;
  17 use DXM;
  18
  19 # this is how a pc connection starts (for an incoming connection)
  20 # issue a PC38 followed by a PC18, then wait for a PC20 (remembering
  21 # all the crap that comes between).
  22 sub start
  23 {
  24   my $self = shift;
  25 }
  26
  27 #
  28 # This is the normal pcxx despatcher
  29 #
  30 sub normal
  31 {
  32
  33 }
  34
  35 #
  36 # This is called from inside the main cluster processing loop and is used
  37 # for despatching commands that are doing some long processing job
  38 #
  39 sub process
  40 {
  41
  42 }
  43
  44 #
  45 # finish up a pc context
  46 #
  47 sub finish
  48 {
  49
  50 }
  51
  52 1;
  53 __END__