Started on the dx cluster database stuff

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index b21a4b587ded315c75f024446e96224b94ff5a5a..92e3b0d0e1d24e27944f250a228e629e4d268ba0 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -9,25 +9,33 @@
 
 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?
+  if (DXCluster->get
+  $self->pc38();
+  $self->pc18();
+  $self->{state} = 'incoming';
 }
 
 #
 # This is the normal pcxx despatcher
 #
-sub pc_normal
+sub normal
 {
 
 }
@@ -36,7 +44,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 +52,14 @@ sub pc_process
 #
 # finish up a pc context
 #
-sub pc_clean
+sub finish
 {
 
 }
+ 
+#
+# All the various PC routines
+#
 
 1;
 __END__