sorted out inheritance

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index b21a4b587ded315c75f024446e96224b94ff5a5a..f0a0a3b27d07f1f8885dc5ef54bf537f595d39e0 100644 (file)
--- 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
 {
 
 }