X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=1f224766ebe4968f97e9545d40bc428d2f078b74;hb=07ea293f3919d2da76220b5fbc55b734008ed44c;hp=b21a4b587ded315c75f024446e96224b94ff5a5a;hpb=56b610b0ed32b6d10122bca7554ce7a11251cdaa;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index b21a4b58..1f224766 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -9,25 +9,32 @@
 
 package DXProt;
 
+@ISA = qw(DXChannel);
+
 use DXUtil;
 use DXChannel;
 use DXUser;
 use DXM;
+use DXCluster;
 
 # this is how a pc connection starts (for an incoming connection)
 # issue a PC38 followed by a PC18, then wait for a PC20 (remembering
 # all the crap that comes between).
-sub pc_start
+sub start
 {
   my $self = shift;
-  $self->{normal} = \&pc_normal;
-  $self->{finish} = \&pc_finish;
+  my $call = $self->call;
+  
+  # do we have him connected on the cluster somewhere else?
+  $self->pc38();
+  $self->pc18();
+  $self->{state} = 'incoming';
 }
 
 #
 # This is the normal pcxx despatcher
 #
-sub pc_normal
+sub normal
 {
 
 }
@@ -36,7 +43,7 @@ sub pc_normal
 # This is called from inside the main cluster processing loop and is used
 # for despatching commands that are doing some long processing job
 #
-sub pc_process
+sub process
 {
 
 }
@@ -44,10 +51,25 @@ sub pc_process
 #
 # finish up a pc context
 #
-sub pc_clean
+sub finish
+{
+
+}
+ 
+#
+# All the various PC routines
+#
+
+sub pc18
+{
+
+}
+
+sub pc38
 {
 
 }
 
+
 1;
 __END__