X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=f0a0a3b27d07f1f8885dc5ef54bf537f595d39e0;hb=0121434f428d8e7d1f31a9d69a4ee250b952b468;hp=b21a4b587ded315c75f024446e96224b94ff5a5a;hpb=625ce0adf070a7e900fa03714a391652db0c065a;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index b21a4b58..f0a0a3b2 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -9,6 +9,8 @@
 
 package DXProt;
 
+@ISA = qw(DXChannel);
+
 use DXUtil;
 use DXChannel;
 use DXUser;
@@ -17,17 +19,15 @@ use DXM;
 # 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;
 }
 
 #
 # This is the normal pcxx despatcher
 #
-sub pc_normal
+sub normal
 {
 
 }
@@ -36,7 +36,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,7 +44,7 @@ sub pc_process
 #
 # finish up a pc context
 #
-sub pc_clean
+sub finish
 {
 
 }