]> dxcluster.org Git - spider.git/commitdiff
1. Changed grepdbg to accept a regexp. More useful (to me anyway).
authordjk <djk>
Thu, 15 Jul 1999 08:51:43 +0000 (08:51 +0000)
committerdjk <djk>
Thu, 15 Jul 1999 08:51:43 +0000 (08:51 +0000)
2. Altered init command so that it doesn't send PC21s down the initted
channel.

Changes
cmd/init.pl
perl/grepdbg

diff --git a/Changes b/Changes
index 88cb4b0f1a15a011ffc3b0b41a30fb847c55da44..ed3f545e9ead3ff899a21aadada88d7feb0d837b 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,22 +1,27 @@
+15Jul99=======================================================================
+1. Changed grepdbg to accept a regexp. More useful (to me anyway).
+2. Altered init command so that it doesn't send PC21s down the initted 
+channel.
 10Jul99=======================================================================
 1. added an explicit disconnect from my side for already connected calls. This
 appears to have fixed a problem where if two consoles connect at the same time
 with the same (sysop?) callsign the cluster would stop.
 2. added some debugging in the Message handler to allow more state to be seen.
+3. Message handler now seems to work better for longer and doesn't spew out
+PC42 aborts with quite such gay abandon.
 05Jul99=======================================================================
 1. added stat/msg and stat/cluster commands to allow me to poke about inside
 the msg and cluster node tables.
 04Jul99=======================================================================
-1. removed silly 'new message has arrived' to connected nodes if message is
+1. removed silly 'new message has arrived' to connected nodes 
 2. added a ! command to the console.pl program; works like the bash shell.
-addressed to the node call.
 01Jul99=======================================================================
 1. Altered priv to 5 for connect.pl to match disconnect for nodes
 29Jun99=======================================================================
 1. fixed merge command that I broke.
 2. added some randomness in waittimes for aborted outgoing messages 
 3. Message Queuing now only occurs every 5 minutes (configurable if anyone 
-wants to write the command for doing it) nad on receipt of a PC16. This is
+wants to write the command for doing it) and on receipt of a PC16. This is
 a further attempt at sorting the crossing of messages!
 4. a PC33 will cause another attempt at queuing. If you are on a roll, keep
 going!
index bfcb9bd290a2bca678bc7694cd34e260f8951367..36309e93ab6408d878c99c7bc58fde10adcc3e18 100644 (file)
@@ -1,6 +1,10 @@
 #
 # reinit a cluster connection
 #
+# Copyright (c) 1999 Dirk Koopman G1TLH
+#
+# $Id$
+#
 my ($self, $line) = @_;
 my @calls = split /\s+/, $line;
 my $call;
@@ -18,12 +22,14 @@ foreach $call (@calls) {
                        # first clear out any nodes on this dxchannel
                        my @gonenodes = map { $_->dxchan == $dxchan ? $_ : () } DXNode::get_all();
                        foreach my $node (@gonenodes) {
-                               next if $dxchan == $DXProt::me;
+                               next if $node->dxchan == $DXProt::me;
+                               next if $node->dxchan == $dxchan;
                                DXProt::broadcast_ak1a(DXProt::pc21($node->call, 'Gone, re-init') , $dxchan) unless $dxchan->{isolate}; 
                                $node->del();
                        }
                        $dxchan->send(DXProt::pc38());
                        $dxchan->send(DXProt::pc18());
+                       $dxchan->state('init');
                        push @out, $self->msg('init1', $call);
                } 
        } else {
index c44fc92b85c3a08f2565ef95e73f91a82886a1ca..250a898b5701aed2647c9e1de1822909cb48207e 100755 (executable)
@@ -43,7 +43,7 @@ for my $arg (@ARGV) {
                last;
        }
 }
-die "usage: dispdbg [[-nnn] ..] <string>\n" unless  $string;
+die "usage: grepdbg [[-nnn] ..] <regexp>\n" unless  $string;
 
 push @list, "0" unless @list;
 for my $entry (@list) {
@@ -54,7 +54,7 @@ for my $entry (@list) {
                while (<$fh>) {
                        my $line = $_;
                        chomp $line;
-                       if ($line =~ m{\Q$string}io) {
+                       if ($line =~ m{$string}io) {
                                my @line =  split '\^', $line;
                                my $t = shift @line;
                                print atime($t), ' ', join('^', @line), "\n";