fixed problems with show/channel

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 1f224766ebe4968f97e9545d40bc428d2f078b74..88fed5e31917e3a121d4c214423e49b7132aa9ef 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -11,6 +11,8 @@ package DXProt;
 
 @ISA = qw(DXChannel);
 
+use strict;
+
 use DXUtil;
 use DXChannel;
 use DXUser;
@@ -25,9 +27,15 @@ sub start
   my $self = shift;
   my $call = $self->call;
   
+  # set the channel sort
+  $self->sort('A');
+
+  # set unbuffered
+  self->send_now('B',"0");
+  
   # do we have him connected on the cluster somewhere else?
-  $self->pc38();
-  $self->pc18();
+  $self->send(pc38());
+  $self->send(pc18());
   $self->{state} = 'incoming';
 }
 
@@ -45,7 +53,19 @@ sub normal
 #
 sub process
 {
-
+  my $t = time;
+  my @chan = DXChannel->get_all();
+  my $chan;
+  
+  foreach $chan (@chan) {
+    next if $chan->sort ne 'A';  
+
+    # send a pc50 out on this channel
+    if ($t >= $chan->t + $main::pc50_interval) {
+      $chan->send(pc50());
+         $chan->t($t);
+       }
+  }
 }
 
 #
@@ -57,19 +77,53 @@ sub finish
 }
  
 #
-# All the various PC routines
+# some active measures
 #
 
-sub pc18
+sub broadcast
 {
+  my $s = shift;
+  $s = shift if ref $s;           # if I have been called $self-> ignore it.
+  my @except = @_;                # to all channels EXCEPT these (dxchannel refs)
+  my @chan = DXChannel->get_all();
+  my ($chan, $except);
+  
+L: foreach $chan (@chan) {
+     next if $chan->sort != 'A';  # only interested in ak1a channels  
+        foreach $except (@except) {
+          next L if $except == $chan;  # ignore channels in the 'except' list
+        }
+        chan->send($s);              # send it
+  }
+}
 
+#
+# All the PCxx generation routines
+#
+
+sub pc18
+{
+  return "PC18^wot a load of twaddle^$main::myprot_version^~";
 }
 
+# send all the DX clusters I reckon are connected
 sub pc38
 {
-
+  my @list = DXNode->get_all();
+  my $list;
+  my @nodes;
+  
+  foreach $list (@list) {
+    push @nodes, $list->call;
+  }
+  return "PC38^" . join(',', @nodes) . "^~";
 }
 
+sub pc50
+{
+  my $n = DXUsers->count;
+  return "PC50^$main::mycall^$n^H99^";
+}
 
 1;
 __END__