X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FDXProt.pm;h=92e3b0d0e1d24e27944f250a228e629e4d268ba0;hp=f0a0a3b27d07f1f8885dc5ef54bf537f595d39e0;hb=6b6a8002929017b6d4217f68fa492a2d728ee1fe;hpb=03d1d04e113f38a365f035612552a5e748b324ae

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index f0a0a3b2..92e3b0d0 100644
--- 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__