Started on the dx cluster database stuff

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index f0a0a3b27d07f1f8885dc5ef54bf537f595d39e0..92e3b0d0e1d24e27944f250a228e629e4d268ba0 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -15,6 +15,7 @@ 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
@@ -22,6 +23,13 @@ use DXM;
 sub start
 {
   my $self = shift;
+  my $call = $self->call;
+  
+  # do we have him connected on the cluster somewhere else?
+  if (DXCluster->get
+  $self->pc38();
+  $self->pc18();
+  $self->{state} = 'incoming';
 }
 
 #
@@ -48,6 +56,10 @@ sub finish
 {
 
 }
+ 
+#
+# All the various PC routines
+#
 
 1;
 __END__