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?
+ $self->pc38();
+ $self->pc18();
+ $self->{state} = 'incoming';
}
#
# This is the normal pcxx despatcher
#
-sub pc_normal
+sub 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
{
}
#
# finish up a pc context
#
-sub pc_clean
+sub finish
+{
+
+}
+
+#
+# All the various PC routines
+#
+
+sub pc18
+{
+
+}
+
+sub pc38
{
}
+
1;
__END__