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 use DXCluster;
  19
  20 # this is how a pc connection starts (for an incoming connection)
  21 # issue a PC38 followed by a PC18, then wait for a PC20 (remembering
  22 # all the crap that comes between).
  23 sub start
  24 {
  25   my $self = shift;
  26   my $call = $self->call;
  27
  28   # do we have him connected on the cluster somewhere else?
  29   if (DXCluster->get
  30   $self->pc38();
  31   $self->pc18();
  32   $self->{state} = 'incoming';
  33 }
  34
  35 #
  36 # This is the normal pcxx despatcher
  37 #
  38 sub normal
  39 {
  40
  41 }
  42
  43 #
  44 # This is called from inside the main cluster processing loop and is used
  45 # for despatching commands that are doing some long processing job
  46 #
  47 sub process
  48 {
  49
  50 }
  51
  52 #
  53 # finish up a pc context
  54 #
  55 sub finish
  56 {
  57
  58 }
  59
  60 #
  61 # All the various PC routines
  62 #
  63
  64 1;
  65 __END__