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   $self->pc38();
  30   $self->pc18();
  31   $self->{state} = 'incoming';
  32 }
  33
  34 #
  35 # This is the normal pcxx despatcher
  36 #
  37 sub normal
  38 {
  39
  40 }
  41
  42 #
  43 # This is called from inside the main cluster processing loop and is used
  44 # for despatching commands that are doing some long processing job
  45 #
  46 sub process
  47 {
  48
  49 }
  50
  51 #
  52 # finish up a pc context
  53 #
  54 sub finish
  55 {
  56
  57 }
  58
  59 #
  60 # All the various PC routines
  61 #
  62
  63 sub pc18
  64 {
  65
  66 }
  67
  68 sub pc38
  69 {
  70
  71 }
  72
  73
  74 1;
  75 __END__