fleshed out some commands (particularly flag setting and unsetting)

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 92e3b0d0e1d24e27944f250a228e629e4d268ba0..1f224766ebe4968f97e9545d40bc428d2f078b74 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -26,7 +26,6 @@ sub start
   my $call = $self->call;
   
   # do we have him connected on the cluster somewhere else?
-  if (DXCluster->get
   $self->pc38();
   $self->pc18();
   $self->{state} = 'incoming';
@@ -61,5 +60,16 @@ sub finish
 # All the various PC routines
 #
 
+sub pc18
+{
+
+}
+
+sub pc38
+{
+
+}
+
+
 1;
 __END__