projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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 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
# 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;
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__
1;
__END__