+02Aug01=======================================================================
+1. correct manual and help references on accept/route and reject/route. Thanks
+to ea1dav for pointing out the errors
+30Jul01=======================================================================
+1. changes to manuals to add links etc. (g0vgs)
+23Jul01=======================================================================
+1. made ann,dx spots,wwv,wcy,wx more 'object oriented'.
+2. allow for 'enhanced clients' and tell them what sort of thing is being
+sent.
+3. Allow debug info to be sent via interface to an enhanced client.
+21Jul01=======================================================================
+1. started a gtkconsole program. It appears to sort of work. Requires Gtk-
+Perl-0.7007.
+2. start doing some spot statistical stuff.
+19Jul01=======================================================================
+1. changes to Admin Manual to reflect route filtering. Some alterations to
+the help files (g0vgs)
+09Jul01=======================================================================
+1. fix cron so that it allows stuff to be executed on the hour (ie min=0)
+06Jul01=======================================================================
+1. fix talk and routing problems to mycall
+2. add unset/privilege command to relinquish any sysop privileges you might
+have for the current session.
+05Jul01=======================================================================
+1. disconnect channels whose route node has disappeared
+29Jun01=======================================================================
+1. fix merge command
+28Jun01=======================================================================
+1. fix problems with users on more than one node
+27Jun01=======================================================================
+1. try adding an ARC mail hack
+2. slug the not here messages so they can't loopback
+25Jun01=======================================================================
+1. added automatic 'not here' message
+21Jun01=======================================================================
+1. fix (some) problems with 'init'
+2. fix stat/msg a bit more
+3. small change to PC28 generation to make sure that the subject always
+contains at least a blank
+16Jun01=======================================================================
+1. fix talk
+2. fix stat/msg
+14Jun01=======================================================================
+1. changed debug api to (potentially) use less cpu time
+2. changed the spider.cgi in Arnold's borrowed java client to Ian's perl
+script
+3. Added input route filtering
+4. put back the set/isolate logic into routing which is now overridable with
+filters whcih means a default filter is no longer generated. If you want the
+OLD behaviour, do rm /spider/filter/route/*.pl*, restart and try again.
+5. Add http_proxy to Internet.pm and allow sh/qrz to use an HTTP Proxy
+13Jun01=======================================================================
+1. fix init cnd rinit cmds
+2. add missing clear/route cmd
+10Jun01=======================================================================
+1. fix set/here and unset/here
+2. fix indirect routing to users two hops away
+09Jun01=======================================================================
+1. more fixes
+2. add set/debug filter so that you can see why your filters aren't working
+(for sysops only)
+3. add ephemera deduping for all those PC41,24,50 etc etc broadcasts
+4. Fix a problem with the connect text being sent on outgoing connections
+(this confuses db0fhf amongst other things)
+5. catch deep recursion bugs before you run out of memory.
+6. Make sure that PC16|17|19|21 update as well as add and delete
+7. local announces by the sysop will always be displayed
+08Jun01=======================================================================
+1. first cut with new routing code. Created NEW_ROUTE branch
+2. added acc/route and rej/route commands
+3. added stat/route_node and stat/route_user commands to look at the routing
+table entities
07Jun01=======================================================================
1. move userconfig.pl and nodeconfig.pl to stat/
2. fix problem with locally connected users not being removed from the
accept/ann input node_default by G,M,2
accept/ann user_default by G,M,2
+=== 8^ACCEPT/ROUTE <call> [0-9] <pattern>^Set an 'accept' filter line for routing
+Create an 'accept this routing PC Protocol' line for a filter.
+
+An accept filter line means that if a PC16/17/19/21/24/41/50 matches this filter
+it is passed thru that interface. See HELP FILTERING for more info. Please read this
+to understand how filters work - it will save a lot of grief later on.
+
+You can use any of the following things in this line:-
+
+ call <prefixes> the callsign of the thingy
+ call_dxcc <numbers> eg: 61,62 (from eg: sh/pre G)
+ call_itu <numbers>
+ call_zone <numbers>
+ origin <prefixes> really the interface it came in on
+ origin_dxcc <numbers> eg: 61,62 (from eg: sh/pre G)
+ origin_itu <numbers>
+ origin_zone <numbers>
+
+some examples:-
+
+ acc/route gb7djk call_dxcc 61,38 (send only UK+EIRE nodes)
+ acc/route gb7djk call gb7djk (equiv to SET/ISOLATE)
+
+You can use the tag 'all' to accept everything eg:
+
+ acc/route all
+
+
=== 0^ACCEPT/SPOTS [0-9] <pattern>^Set an 'accept' filter line for spots
Create an 'accept this spot' line for a filter.
but this probably for advanced users...
+
=== 8^ACCEPT/SPOTS <call> [input] [0-9] <pattern>^Spot filter sysop version
This version allows a sysop to set a filter for a callsign as well as the
default for nodes and users eg:-
but this probably for advanced users...
+=== 8^REJECT/ROUTE <call> [0-9] <pattern>^Set an 'reject' filter line for routing
+Create an 'reject this routing PC Protocol' line for a filter.
+
+An reject filter line means that if a PC16/17/19/21/24/41/50 matches this filter
+it is NOT passed thru that interface. See HELP FILTERING for more info. Please
+read this to understand how filters work - it will save a lot of grief later on.
+
+You can use any of the following things in this line:-
+
+ call <prefixes> the callsign of the thingy
+ call_dxcc <numbers> eg: 61,62 (from eg: sh/pre G)
+ call_itu <numbers>
+ call_zone <numbers>
+ origin <prefixes> really the interface it came in on
+ origin_dxcc <numbers> eg: 61,62 (from eg: sh/pre G)
+ origin_itu <numbers>
+ origin_zone <numbers>
+
+some examples:-
+
+ rej/route gb7djk call_dxcc 61,38 (everything except UK+EIRE nodes)
+
+You can use the tag 'all' to reject everything eg:
+
+ rej/route all (equiv to [very] restricted mode)
+
=== 8^REJECT/SPOTS <call> [input] [0-9] <pattern>^Spot filter sysop version
This version allows a sysop to set a filter for a callsign as well as the
default for nodes and users eg:-
If you are a sysop and you come in as a normal user on a remote connection
your privilege will automatically be set to 0.
+=== 0^UNSET/PRIVILEGE^Remove any privilege for this session
+You can use this command to 'protect' this session from unauthorised
+use. If you want to get your normal privilege back you will need to
+either logout and login again (if you are on a console) or use the
+SYSOP command.
+
=== 9^SET/PASSWORD <callsign> <string>^Set a users password
The password for a user can only be set by a full sysop. The string
can contain any characters but any spaces are removed (you can type in
--- /dev/null
+#
+# clear filters commands
+#
+# Copyright (c) 2000 Dirk Koopman G1TLH
+#
+# $Id$
+#
+my ($self, $line) = @_;
+my @f = split /\s+/, $line;
+my @out;
+my $dxchan = $self;
+my $sort = 'route';
+my $flag;
+my $fno = 1;
+my $call = $dxchan->call;
+
+my $f = lc shift @f if @f;
+if ($self->priv >= 8) {
+ if (is_callsign(uc $f)) {
+ my $uref = DXUser->get(uc $f);
+ $call = $uref->call if $uref;
+ }
+ if (@f) {
+ $f = lc shift @f;
+ if ($f eq 'input') {
+ $flag = 'in';
+ $f = shift @f if @f;
+ }
+ }
+}
+
+$fno = $f if $f;
+my $filter = Filter::read_in($sort, $call, $flag);
+Filter::delete($sort, $call, $flag, $fno);
+$flag = $flag ? "input " : "";
+push @out, $self->msg('filter4', $flag, $sort, $fno, $call);
+return (1, @out);
# for doing connections and things
#
1 0 * * 0 DXUser::export("$main::data/user_asc")
+0 3 * * * Spot::daily()
+
if ($db->remote) {
# remote databases
- unless (DXCluster->get_exact($db->remote) || DXChannel->get($db->remote)) {
+ unless (Route::Node::get($db->remote) || DXChannel->get($db->remote)) {
push @out, $self->msg('db4', uc $name, $db->remote);
last;
}
} elsif (my $conn = Msg->conns($call)) {
$conn->disconnect;
push @out, $self->msg('disc3', $call);
- } elsif (my $ref = DXCluster->get_exact($call)) {
- my $dxchancall = $ref->dxchancall;
- if ($dxchancall eq $main::mycall || !DXChannel->get($dxchancall)) {
- $ref->del;
- push @out, $self->msg('disc4', $call);
- }
+# } elsif (my $ref = DXCluster->get_exact($call)) {
+# my $dxchancall = $ref->dxchancall;
+# if ($dxchancall eq $main::mycall || !DXChannel->get($dxchancall)) {
+# $ref->del;
+# push @out, $self->msg('disc4', $call);
+# }
} else {
push @out, $self->msg('e10', $call);
}
if (-e $fn) {
my $m = $self->msg('e16', $fn);
Log('msg', $self->call . " tried to export $m");
- dbg('msg', $m);
+ dbg($m) if isdbg('msg');
return (1, $m);
}
my $long = $ref->long;
my $node = $ref->homenode;
my $latlong = DXBearing::lltos($lat, $long) if $lat && $long;
- DXProt::broadcast_all_ak1a(DXProt::pc41($call, 1, $name), $DXProt::me) if $name;
- DXProt::broadcast_all_ak1a(DXProt::pc41($call, 2, $qth), $DXProt::me) if $qth;
- DXProt::broadcast_all_ak1a(DXProt::pc41($call, 3, $latlong), $DXProt::me) if $latlong;
- DXProt::broadcast_all_ak1a(DXProt::pc41($call, 4, $node), $DXProt::me) if $node;
+ if ($name) {
+ my $l = DXProt::pc41($DXProt::me, $call, 1, $name);
+ DXProt::eph_dup($l);
+ DXProt::broadcast_all_ak1a($l, $DXProt::me) ;
+ }
+ if ($qth) {
+ my $l = DXProt::pc41($call, 2, $qth);
+ DXProt::eph_dup($l);
+ DXProt::broadcast_all_ak1a($l, $DXProt::me) ;
+ }
+ if ($latlong) {
+ my $l = DXProt::pc41($call, 3, $latlong);
+ DXProt::eph_dup($l);
+ DXProt::broadcast_all_ak1a($l, $DXProt::me) ;
+ }
+ if ($node) {
+ my $l = DXProt::pc41($call, 4, $node);
+ DXProt::eph_dup($l);
+ DXProt::broadcast_all_ak1a($l, $DXProt::me) ;
+ }
}
}
my $dxchan = DXChannel->get($call);
if ($dxchan) {
if ($dxchan->is_node) {
-
# first clear out any nodes on this dxchannel
- my @gonenodes = grep { $_->dxchan == $dxchan } DXNode::get_all();
- foreach my $node (@gonenodes) {
- next if $node->dxchan == $DXProt::me;
- next unless $node->dxchan == $dxchan;
- DXProt::broadcast_ak1a(DXProt::pc21($node->call, 'Gone, re-init') , $dxchan) unless $dxchan->{isolate};
- $node->del();
- }
-# $dxchan->send(DXProt::pc38());
+ my $parent = Route::Node::get($call);
+ my @rout = $parent->del_nodes;
+ $dxchan->route_pc21($self, @rout) if @rout;
$dxchan->send(DXProt::pc18());
$dxchan->state('init');
push @out, $self->msg('init1', $call);
my $call = uc $f[0];
return (1, $self->msg('e11')) if $call eq $main::mycall;
-my $ref = DXCluster->get_exact($call);
+my $ref = Route::Node::get($call);
my $dxchan = $ref->dxchan if $ref;
return (1, $self->msg('e10', $call)) unless $ref;
-return (1, $self->msg('e13', $call)) unless $ref->isa('DXNode');
my ($spots, $wwv) = $f[1] =~ m{(\d+)/(\d+)} if $f[1];
return (1, $self->msg('pinge1')) if $call eq $main::mycall;
# can we see it? Is it a node?
-my $noderef = DXCluster->get_exact($call);
-$noderef = DXChannel->get($call) unless $noderef;
+my $noderef = Route::Node::get($call);
return (1, $self->msg('e7', $call)) unless $noderef;
# can we see it? Is it a node?
$call = uc $call;
-my $noderef = DXCluster->get_exact($call);
-unless ($noderef) {
- $noderef = DXChannel->get($call);
- $noderef = undef unless $noderef && $noderef->is_node;
-}
+my $noderef = Route::Node::get($call);
return (1, $self->msg('e7', $call)) unless $noderef;
# rcmd it
my $dxchan = DXChannel->get($call);
if ($dxchan) {
if ($dxchan->is_node) {
-
- # first clear out any nodes on this dxchannel
- my @gonenodes = grep { $_->dxchan == $dxchan } DXNode::get_all();
- foreach my $node (@gonenodes) {
- next if $node->dxchan == $DXProt::me;
- next unless $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::pc20());
+ my $parent = Route::Node::get($call);
$dxchan->state('init');
+ $dxchan->send_local_config;
+ $dxchan->send(DXProt::pc20());
push @out, $self->msg('init1', $call);
}
} else {
@args = $self->call if (!@args || $self->priv < 9);
foreach $call (@args) {
- $call = uc $call;
- my $dxchan = DXChannel->get($call);
- my $ref = DXCluster->get_exact($call);
- if ($dxchan && $ref) {
- $dxchan->here(1);
- $ref->here(1);
- DXProt::broadcast_all_ak1a(DXProt::pc24($ref), $DXProt::me);
- push @out, $self->msg('heres', $call);
- } else {
- push @out, $self->msg('e3', "Set Here", $call);
- }
+ $call = uc $call;
+ my $dxchan = DXChannel->get($call);
+ if ($dxchan) {
+ $dxchan->here(1);
+ push @out, $self->msg('heres', $call);
+ my $ref = Route::User::get($call);
+ $ref = Route::Node::get($call) unless $ref;
+ if ($ref) {
+ $ref->here(1);
+ my $s = DXProt::pc24($ref);
+ DXProt::eph_dup($s);
+ DXProt::broadcast_all_ak1a($s, $DXProt::me) ;
+ }
+ } else {
+ push @out, $self->msg('e3', "Set Here", $call);
+ }
}
return (1, @out);
$line = uc $line;
$user->homenode($line);
$user->put();
- DXProt::broadcast_all_ak1a(DXProt::pc41($call, 4, $line), $DXProt::me);
+ my $s = DXProt::pc41($call, 4, $line);
+ DXProt::eph_dup($s);
+ DXProt::broadcast_all_ak1a($s, $DXProt::me) ;
return (1, $self->msg('hnode', $line));
} else {
return (1, $self->msg('namee2', $call));
my ($lat, $long) = DXBearing::stoll($line);
$user->lat($lat);
$user->long($long);
- DXProt::broadcast_all_ak1a(DXProt::pc41($call, 3, $line), $DXProt::me);
+ my $s = DXProt::pc41($call, 3, $line);
+ DXProt::eph_dup($s);
+ DXProt::broadcast_all_ak1a($s, $DXProt::me) ;
unless ($user->qra && DXBearing::is_qra($user->qra) ) {
my $qra = DXBearing::lltoqra($lat, $long);
$user->qra($qra);
if ($user) {
$user->name($line);
$user->put();
- DXProt::broadcast_all_ak1a(DXProt::pc41($call, 1, $line), $DXProt::me);
+ my $s = DXProt::pc41($call, 1, $line);
+ DXProt::eph_dup($s);
+ DXProt::broadcast_all_ak1a($s, $DXProt::me) ;
return (1, $self->msg('name', $line));
} else {
return (1, $self->msg('namee2', $call));
$user->lat($lat);
$user->long($long);
my $s = DXBearing::lltos($lat, $long);
- DXProt::broadcast_all_ak1a(DXProt::pc41($call, 3, $s), $DXProt::me);
+ my $l = DXProt::pc41($call, 3, $s);
+ DXProt::eph_dup($l);
+ DXProt::broadcast_all_ak1a($l, $DXProt::me) ;
}
$user->put();
if ($user) {
$user->qth($line);
$user->put();
- DXProt::broadcast_all_ak1a(DXProt::pc41($call, 2, $line), $DXProt::me);
+ my $s = DXProt::pc41($call, 2, $line);
+ DXProt::eph_dup($s);
+ DXProt::broadcast_all_ak1a($s, $DXProt::me) ;
return (1, $self->msg('qth', $line));
} else {
return (1, $self->msg('namee2', $call));
--- /dev/null
+#
+# send debug information to this connection
+#
+# Copyright (c) 2001 - Dirk Koopman
+#
+# $Id$
+#
+
+my ($self, $line) = @_;
+return (1, $self->msg('e5')) if $self->priv < 8;
+$self->senddbg(1);
+return (1, $self->msg('done'));
#
# show some statistics
#
-return (1, DXCluster::cluster() );
+return (1, Route::cluster() );
my ($self, $line) = @_;
my @list = map { uc } split /\s+/, $line; # list of callsigns of nodes
my @out;
-my @nodes = sort {$a->call cmp $b->call} (DXNode::get_all());
+my @nodes = sort {$a->call cmp $b->call} (Route::Node::get_all());
my $node;
my @l;
my @val;
push @l, "";
$i = 0;
}
- my $s = $call->{call};
- $s = sprintf "(%s)", $s if $call->{here} == 0;
+ my $s = $call->call;
+ $s = sprintf "(%s)", $s unless $call->here;
push @l, $s;
$i++;
}
foreach $node (@nodes) {
next if scalar @list && !grep $node->call =~ /^$_/, @list;
my $call = $node->call;
- $call = "($call)" if $node->here == 0;
+ $call = "($call)" unless $node->here;
@l = ();
push @l, $call;
- my $nlist = $node->list;
- @val = sort {$a->call cmp $b->call} values %{$nlist};
+ @val = sort $node->users;
my $i = 0;
- if (@val == 0 && $node->users) {
- push @l, sprintf "(%d users)", $node->users;
+ if (@val == 0 && $node->usercount) {
+ push @l, sprintf "(%d users)", $node->usercount;
}
foreach $call (@val) {
if ($i >= 5) {
push @l, "";
$i = 0;
}
- my $s = $call->{call};
- $s = sprintf "(%s)", $s if $call->{here} == 0;
+ my $uref = Route::User::get($call);
+ my $s = $call;
+ if ($uref) {
+ $s = sprintf "(%s)", $call unless $uref->here;
+ } else {
+ $s = "$call?";
+ }
push @l, $s;
$i++;
}
if (@f) {
push @in, @f;
} else {
- push @in, qw(ann spots wcy wwv);
+ push @in, qw(route ann spots wcy wwv);
}
my $sort;
shift @list;
}
-push @out, $main::routeroot->config($nodes_only, 0, @list);
+push @out, $main::routeroot->config($nodes_only, 0, [], @list);
return (1, @out);
my $count;
# search thru the user for nodes
-unless (@call) {
-
+if ($call[0] eq 'ALL') {
+ shift @call;
my ($action, $key, $data) = (0,0,0);
for ($action = DXUser::R_FIRST, $count = 0; !$DXUser::dbm->seq($key, $data, $action); $action = DXUser::R_NEXT) {
if ($data =~ m{sort => '[ACRSX]'}) {
++$count;
}
}
+} elsif (@call == 0) {
+ @call = map {$_->call} DXChannel::get_all_nodes();
}
my $call;
foreach $call (@call) {
- my $clref = DXCluster->get_exact($call);
+ my $clref = Route::Node::get($call);
my $uref = DXUser->get_current($call);
my ($sort, $ver);
$sort = "Spider";
$ver = $main::version;
} else {
- $ver = $clref->pcversion if $clref && $clref->pcversion;
+ $ver = $clref->version if $clref && $clref->version;
}
my ($major, $minor, $subs) = unpack("AAA*", $ver) if $ver;
return (1, $self->msg('e24')) unless $Internet::allow;
return (1, "SHOW/QRZ <callsign>, e.g. SH/QRZ g1tlh") unless @list;
+my $target = $Internet::http_proxy || 'qrz.com';
+my $port = $Internet::http_proxy_port || 80;
+my $url = '';
+$url = 'http://qrz.com' if $Internet::http_proxy;
use Net::Telnet;
my $t = new Net::Telnet;
foreach $l (@list) {
- $t->open(Host => "qrz.com",
- Port => 80,
+ $t->open(Host => $target,
+ Port => $port,
Timeout => 15);
if ($t) {
- my $s = "GET /dxcluster.cgi?callsign=$l\&uid=$Internet::qrz_uid\&pw=$Internet::qrz_pw HTTP/1.0\n\n";
+ my $s = "GET $url/dxcluster.cgi?callsign=$l\&uid=$Internet::qrz_uid\&pw=$Internet::qrz_pw HTTP/1.0\n\n";
# print $s;
$t->print($s);
Log('call', "$call: show/qrz \U$l");
my $state = "blank";
while (my $result = $t->getline) {
- dbg('qrz', $result);
+ dbg($result) if isdbg('qrz');
if ($state eq 'blank' && $result =~ /^\s*Callsign\s*:/i) {
$state = 'go';
} elsif ($state eq 'go') {
my $l;
foreach $l (@list) {
- my $ref = DXCluster->get_exact($l);
+ my $ref = Route::get($l);
if ($ref) {
- push @out, $self->msg('route', $l, $ref->mynode->call, $ref->dxchan->call);
+ my $parents = join ',', $ref->parents;
+ my $dxchan = $ref->dxchan;
+ push @out, $self->msg('route', $l, $parents, $dxchan->call);
} else {
push @out, $self->msg('e7', $l);
}
$miles = $dx * 0.62133785;
}
- my $cref = DXCluster->get_exact($call);
- $cref = DXCluster->get($call) unless $cref;
- my $seek = $cref->mynode->call if $cref;
+ my $cref = Route::get($call);
+ my $seek = join(',', $cref->parents) if $cref;
if ($seek) {
push @out, "User : $call (at $seek)";
#
my ($self, $line) = @_;
-my @list = map { uc } split /\s+/, $line; # list of callsigns of nodes
+my @list = map { uc } split /\s+/, $line; # list of callsigns of nodes
my @out;
-my $node = (DXNode->get($main::mycall));
+my $node = $main::routeroot;
push @out, "Callsigns connected to $main::mycall";
my $call;
my $i = 0;
my @l;
-my $nlist = $node->list;
-my @val = sort {$a->call cmp $b->call} values %{$nlist};
+my @val = sort $node->users;
foreach $call (@val) {
- if (@list) {
- next if !grep $call->call eq $_, @list;
- }
- if ($i >= 5) {
- push @out, sprintf "%-12s %-12s %-12s %-12s %-12s %-12s", @l;
- @l = ();
- $i = 0;
- }
- my $s = $call->{call};
- $s = sprintf "(%s)", $s if $call->{here} == 0;
- push @l, $s;
- $i++;
+ if (@list) {
+ next if !grep $call eq $_, @list;
+ }
+ if ($i >= 5) {
+ push @out, sprintf "%-12s %-12s %-12s %-12s %-12s %-12s", @l;
+ @l = ();
+ $i = 0;
+ }
+ my $uref = Route::User::get($call);
+ my $s = $call;
+ if ($uref) {
+ $s = sprintf "(%s)", $call unless $uref->here;
+ } else {
+ $s = "$call?";
+ }
+ push @l, $s;
+ $i++;
}
push @out, sprintf "%-12s %-12s %-12s %-12s %-12s %-12s", @l;
push @out, "Work Queue Keys";
push @out, map { " $_" } sort keys %DXMsg::work;
push @out, "Busy Queue Data";
- foreach $ref (sort {$a->call cmp $b->call} DXMsg::get_all_busy) {
+ foreach $ref (sort {$a->to cmp $b->to} DXMsg::get_all_busy) {
my $msgno = $ref->msgno;
my $stream = $ref->stream;
- my $lines = scalar $ref->lines;
+ my $lref = $ref->lines;
+ my $lines = 0;
+ $lines = @$lref if $lref;
my $count = $ref->count;
+ my $to = $ref->to;
my $lastt = $ref->lastt ? " Last Processed: " . cldatetime($ref->lastt) : "";
my $waitt = $ref->waitt ? " Waiting since: " . cldatetime($ref->waitt) : "";
- push @out, " $call -> msg: $msgno stream: $stream Count: $count Lines: $lines$lastt$waitt";
+ push @out, " $call -> $to msg: $msgno stream: $stream Count: $count Lines: $lines$lastt$waitt";
}
} else {
foreach my $msgno (@list) {
$to = uc $to if $to;
$via = uc $via if $via;
my $call = $via ? $via : $to;
-my $clref = DXCluster->get_exact($call); # try an exact call
+my $clref = Route::get($call); # try an exact call
my $dxchan = $clref->dxchan if $clref;
return (1, $self->msg('e7', $call)) unless $dxchan;
@args = $self->call if (!@args || $self->priv < 9);
foreach $call (@args) {
- $call = uc $call;
- my $dxchan = DXChannel->get($call);
- my $ref = DXCluster->get_exact($call);
- if ($dxchan && $ref) {
- $dxchan->here(0);
- $ref->here(0);
- DXProt::broadcast_all_ak1a(DXProt::pc24($ref), $DXProt::me);
- push @out, $self->msg('hereu', $call);
- } else {
- push @out, $self->msg('e3', "Unset Here", $call);
- }
+ $call = uc $call;
+ my $dxchan = DXChannel->get($call);
+ if ($dxchan) {
+ $dxchan->here(0);
+ push @out, $self->msg('hereu', $call);
+ my $ref = Route::User::get($call);
+ $ref = Route::Node::get($call) unless $ref;
+ if ($ref) {
+ $ref->here(0);
+ my $s = DXProt::pc24($ref);
+ DXProt::eph_dup($s);
+ DXProt::broadcast_all_ak1a($s, $DXProt::me) ;
+ }
+ } else {
+ push @out, $self->msg('e3', "Unset Here", $call);
+ }
}
+
return (1, @out);
--- /dev/null
+#
+# unset any privileges that the user might have for THIS SESSION only
+#
+# Copyright (c) 2001 Dirk Koopman G1TLH
+#
+# $Id$
+#
+my ($self, $line) = @_;
+$self->priv(0);
+return (1, $self->msg('done'));
+
--- /dev/null
+#
+# send debug information to this connection
+#
+# Copyright (c) 2001 - Dirk Koopman
+#
+# $Id$
+#
+
+my ($self, $line) = @_;
+return (1, $self->msg('e5')) if $self->priv < 8;
+$self->senddbg(0);
+return (1, $self->msg('done'));
--- /dev/null
+#
+# Gtk Handler for Debug Files
+#
+
+package DebugHandler;
+
+use strict;
+
+use Gtk;
+use DXVars;
+use DXLog;
+use DXUtil;
+
+use vars qw(@ISA);
+@ISA = qw(Gtk::Window);
+
+sub new
+{
+ my $pkg = shift;
+ my $parent = shift;
+ my $regexp = shift || '';
+ my $nolines = shift || 1;
+
+ my $self = new Gtk::Window;
+ bless $self, $pkg;
+ $self->set_default_size(400, 400);
+ $self->set_transient_for($parent) if $parent;
+ $self->signal_connect('destroy', sub {$self->destroy} );
+ $self->signal_connect('delete_event', sub {$self->destroy; return undef;});
+ $self->set_title("Debug Output - $regexp");
+ $self->border_width(0);
+ $self->show;
+
+ my $box1 = new Gtk::VBox(0, 0);
+ $self->add($box1);
+ $box1->show;
+
+ my $swin = new Gtk::ScrolledWindow(undef, undef);
+ $swin->set_policy('automatic', 'automatic');
+ $box1->pack_start($swin, 1, 1, 0);
+ $swin->show;
+
+ my $button = new Gtk::Button('close');
+ $button->signal_connect('clicked', sub {$self->destroy});
+ $box1->pack_end($button, 0, 1, 0);
+ $button->show;
+
+ my $clist = new_with_titles Gtk::CList('Time', 'Data');
+ $swin->add($clist);
+ $clist->show;
+
+ $self->{fp} = DXLog::new('debug', 'dat', 'd');
+
+ my @today = Julian::unixtoj(time);
+ my $fh = $self->{fh} = $self->{fp}->open(@today);
+ $fh->seek(0, 2);
+ $self->{regexp} = $regexp if $regexp;
+ $self->{nolines} = $nolines;
+ $self->{clist} = $clist;
+
+ $self->{id} = Gtk::Gdk->input_add($fh->fileno, ['read'], sub {$self->handleinp(@_); 1;}, $fh);
+
+ $self->show_all;
+ return $self;
+}
+
+sub destroy
+{
+ my $self = shift;
+ $self->{fp}->close;
+ Gtk::Gdk->input_remove($self->{id});
+ delete $self->{clist};
+}
+
+sub handleinp
+{
+ my ($self, $socket, $fd, $flags) = @_;
+ if ($flags->{read}) {
+ my $offset = exists $self->{rbuf} ? length $self->{rbuf} : 0;
+ my $l = sysread($socket, $self->{rbuf}, 1024, $offset);
+ if (defined $l) {
+ if ($l) {
+ while ($self->{rbuf} =~ s/^([^\015\012]*)\015?\012//) {
+ my $line = $1;
+ if ($self->{regexp}) {
+ push @{$self->{prev}}, $line;
+ shift @{$self->{prev}} while @{$self->{prev}} > $self->{nolines};
+ if ($line =~ m{$self->{regexp}}oi) {
+ $self->printit(@{$self->{prev}});
+ @{$self->{prev}} = [];
+ }
+ } else {
+ $self->printit($line);
+ }
+ }
+ }
+ }
+ }
+}
+
+sub printit
+{
+ my $self = shift;
+ my $clist = $self->{clist};
+ while (@_) {
+ my $line = shift;
+ $line =~ s/([\x00-\x1f\x7f-\xff])/sprintf("\\x%02X", ord($1))/eg;
+ my @line = split /\^/, $line, 2;
+ my $t = shift @line;
+ my ($sec,$min,$hour) = gmtime((defined $t) ? $t : time);
+ my $buf = sprintf "%02d:%02d:%02d", $hour, $min, $sec;
+ $clist->append($buf, @line);
+ }
+}
+1;
--- /dev/null
+#
+# create a text area with scroll bars
+#
+# Copyright (c) 2001 Dirk Koopman G1TLH
+#
+# $Id$
+#
+
+package Text;
+
+use strict;
+use Gtk;
+
+use vars qw(@ISA);
+@ISA = qw(Gtk::Text);
+
+sub new
+{
+ my $pkg = shift;
+ my ($vbar, $hbar) = @_;
+
+ my $font = Gtk::Gdk::Font->load("-misc-fixed-medium-r-normal-*-*-130-*-*-c-*-koi8-r");
+ my $text = new Gtk::Text(undef,undef);
+ my $style = $text->style;
+ $style->font($font);
+ $text->set_style($style);
+ $text->show;
+ my $vscroll = new Gtk::VScrollbar($text->vadj);
+ $vscroll->show;
+ my $box = new Gtk::HBox();
+ $box->add($text);
+ $box->pack_start($vscroll, 0,0,0);
+ $box->show;
+
+ my $self = bless $box, $pkg;
+ $self->{text} = $text;
+ $self->{text}->{font} = $font;
+ return $self;
+}
+
+sub destroy
+{
+ my $self = shift;
+ delete $self->{text}->{font};
+ delete $self->{text};
+}
+
+sub text
+{
+ return shift->{text};
+}
+
+1;
--- /dev/null
+#!/usr/bin/perl -w
+#
+# A GTK based console program
+#
+# Copyright (c) 2001 Dirk Koopman G1TLH
+#
+# $Id$
+#
+
+# search local then perl directories
+BEGIN {
+ # root of directory tree for this system
+ $root = "/spider";
+ $root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
+
+ unshift @INC, "$root/perl"; # this IS the right way round!
+ unshift @INC, "$root/gtkconsole";
+ unshift @INC, "$root/local";
+}
+
+use strict;
+
+use Gtk qw(-init);
+
+use vars qw(@modules $font);
+
+@modules = (); # is the list of modules that need init calling
+ # on them. It is set up by each 'use'ed module
+ # that has Gtk stuff in it
+$font = Gtk::Gdk::Font->load("-misc-fixed-medium-r-normal-*-*-130-*-*-c-*-koi8-r");
+
+use DXVars;
+use DXUtil;
+use IO::Socket::INET;
+use Text;
+use DebugHandler;
+
+#
+# main initialisation
+#
+my $call = uc shift @ARGV if @ARGV;
+$call = uc $main::myalias unless $call;
+my ($scall, $ssid) = split /-/, $call;
+$ssid = undef unless $ssid && $ssid =~ /^\d+$/;
+if ($ssid) {
+ $ssid = 15 if $ssid > 15;
+ $call = "$scall-$ssid";
+}
+
+die "You cannot connect as your cluster callsign ($main::mycall)\n" if $call eq $main::mycall;
+
+
+my $sock = IO::Socket::INET->new(PeerAddr=>$main::clusteraddr, PeerPort=>$main::clusterport);
+die "Cannot connect to $main::clusteraddr/$main::clusterport ($!)\n" unless $sock;
+sendmsg('A', 'local');
+sendmsg('G', '2');
+sendmsg('I', 'set/page 500');
+sendmsg('I', 'set/nobeep');
+
+#
+# start of GTK stuff
+#
+
+
+# main window
+my $main = new Gtk::Window('toplevel');
+$main->set_default_size(600, 600);
+$main->set_policy(0, 1, 0);
+$main->signal_connect('destroy', sub { Gtk->exit(0); });
+$main->signal_connect('delete_event', sub { Gtk->exit(0); });
+$main->set_title("gtkconsole - The DXSpider Console - $call");
+
+# the main vbox
+my $vbox = new Gtk::VBox(0, 1);
+$vbox->border_width(1);
+$main->add($vbox);
+
+# the menu bar
+my @menu = (
+ {path => '/_File', type => '<Branch>'},
+ {path => '/_File/Quit', callback => sub {Gtk->exit(0)}},
+ {path => '/_Help', type => '<LastBranch>'},
+ {path => '/_Help/About'},
+ );
+my $accel = new Gtk::AccelGroup();
+my $itemf = new Gtk::ItemFactory('Gtk::MenuBar', '<main>', $accel);
+$itemf->create_items(@menu);
+$main->add_accel_group($accel);
+my $menu = $itemf->get_widget('<main>');
+$vbox->pack_start($menu, 0, 1, 0);
+$menu->show;
+
+
+my $top = new Text(1);
+my $toplist = $top->text;
+$toplist->set_editable(0);
+$toplist->sensitive(0);
+
+# add the handler for incoming messages from the node
+my $tophandler = Gtk::Gdk->input_add($sock->fileno, ['read'], \&tophandler, $sock);
+my $rbuf = ""; # used in handler
+
+#$toplist->{signalid} = $toplist->signal_connect(insert_text => \&doinsert, $toplist);
+#$bot->{signalid} = $bot->signal_connect(insert_text => \&botinsert, $bot);
+$vbox->pack_start($top, 1, 1, 0);
+$vbox->show;
+
+# the bottom handler
+my $bot = new Gtk::Entry;
+my $style = $toplist->style;
+$style->font($main::font);
+$bot->set_style($style);
+$bot->set_editable(1);
+$bot->signal_connect('activate', \&bothandler);
+$bot->can_default(1);
+$bot->grab_default;
+$bot->grab_focus;
+$bot->show;
+
+# a horizontal box
+my $hbox = new Gtk::HBox;
+$hbox->show;
+
+# callsign and current date and time
+my $calllabel = new Gtk::Label($call);
+my $date = new Gtk::Label(cldatetime(time));
+Gtk->timeout_add(1000, \&updatetime);
+$calllabel->show;
+$date->show;
+
+$hbox->pack_start( $calllabel, 0, 1, 0 );
+$hbox->pack_end($date, 0, 1, 0);
+
+
+$vbox->pack_start($hbox, 0, 1, 0);
+
+# nice little separator
+my $separator = new Gtk::HSeparator();
+$vbox->pack_start( $separator, 0, 1, 0 );
+$separator->show();
+$vbox->pack_start($bot, 0, 1, 0);
+
+# the main loop
+$main->show_all;
+Gtk->main;
+
+#
+# handlers
+#
+
+sub updatetime
+{
+ $date->set_text(cldatetime(time));
+ 1;
+}
+
+sub doinsert {
+ my ($self, $text) = @_;
+
+ # we temporarily block this handler to avoid recursion
+ $self->signal_handler_block($self->{signalid});
+ my $pos = $self->insert($self->{font}, $toplist->style->black, $toplist->style->white, $text);
+ $self->signal_handler_unblock($self->{signalid});
+
+ # we already inserted the text if it was valid: no need
+ # for the self to process this signal emission
+ $self->signal_emit_stop_by_name('insert-text');
+ 1;
+}
+
+sub bothandler
+{
+ my ($self, $data) = @_;
+ my $msg = $self->get_text;
+ $msg =~ s/\r?\n$//;
+ $self->set_text('');
+ senddata($msg);
+}
+
+sub tophandler
+{
+ my ($socket, $fd, $flags) = @_;
+ if ($flags->{read}) {
+ my $offset = length $rbuf;
+ my $l = sysread($socket, $rbuf, 1024, $offset);
+ if (defined $l) {
+ my $freeze;
+ if ($l) {
+ while ($rbuf =~ s/^([^\015\012]*)\015?\012//) {
+ my $msg = $1;
+ $msg =~ s/\%([0-9A-F][0-9A-F])/chr(hex($1))/eg;
+ $msg =~ s/[\x00-\x08\x0a-\x19\x1b-\x1f\x80-\x9f]/./g; # immutable CSI sequence + control characters
+ $toplist->freeze unless $freeze++;
+ handlemsg($msg);
+ }
+ if ($freeze) {
+ $toplist->thaw;
+ $toplist->vadj->set_value($toplist->vadj->upper);
+ $toplist->vadj->value_changed;
+ }
+ } else {
+ Gtk->exit(0);
+ }
+ } else {
+ Gtk->exit(0);
+ }
+ }
+}
+
+sub handlemsg
+{
+ my $msg = shift;
+ my ($sort, $call, $line) = $msg =~ /^(\w)([^\|]+)\|(.*)$/;
+ if ($sort eq 'D') {
+ $toplist->insert($toplist->{font}, undef, undef, "$line\n");
+ } elsif ($sort eq 'X') {
+ $toplist->insert($toplist->{font}, undef, undef, "$line\n");
+ } elsif ($sort eq 'Y') {
+ $toplist->insert($toplist->{font}, undef, undef, "$line\n");
+ } elsif ($sort eq 'V') {
+ $toplist->insert($toplist->{font}, undef, undef, "$line\n");
+ } elsif ($sort eq 'N') {
+ $toplist->insert($toplist->{font}, undef, undef, "$line\n");
+ } elsif ($sort eq 'W') {
+ $toplist->insert($toplist->{font}, undef, undef, "$line\n");
+ } elsif ($sort eq 'Z') {
+ Gtk->exit(0);
+ }
+}
+
+#
+# subroutine
+#
+
+sub senddata
+{
+ my $msg = shift;
+ sendmsg('I', $msg);
+}
+
+sub sendmsg
+{
+ my ($let, $msg) = @_;
+ $msg =~ s/([\%\x00-\x1f\x7f-\xff])/sprintf("%%%02X", ord($1))/eg;
+ $sock->print("$let$call|$msg\n");
+}
<HTML>
<HEAD>
<META NAME="GENERATOR" CONTENT="SGML-Tools 1.0.9">
- <TITLE>The DXSpider Administration Manual v1.47: Hop control</TITLE>
+ <TITLE>The DXSpider Administration Manual v1.48: Routing and Filtering</TITLE>
<LINK HREF="adminmanual-2.html" REL=next>
<LINK HREF="adminmanual.html#toc1" REL=contents>
Previous
<A HREF="adminmanual.html#toc1">Contents</A>
<HR>
-<H2><A NAME="s1">1. Hop control</A></H2>
+<H2><A NAME="s1">1. Routing and Filtering</A></H2>
-<P>Starting with version 1.13 there is simple hop control available on a per
-node basis. Also it is possible to isolate a network completely so that you
-get all the benefits of being on that network, but can't pass on information
-from it to any other networks you may be connected to (or vice versa).
+<H2><A NAME="ss1.1">1.1 Introduction</A>
+</H2>
+
+<P>From DXSpider version 1.48, major changes were introduced to the way
+node connections are treated. This is part of an ongoing process to
+remove problems with loops and to enable talk and other functions to
+propagate across the whole of the worldwide cluster network. In fact,
+in a Spider network, it would be useful, perhaps even necessary to
+have loops. This would give real resilience to the network, meaning
+that if a link dropped, the information flow would simply come in and
+go out via a different route. Of course, we do not have a complete
+network of Spider nodes, there are other programs out there. Some of
+these do not have any protection from loops. Certainly AK1A does not
+handle loops well at all. It is therefore necessary to have some form
+of protection for these nodes.
+<P>
+<P>This is achieved by using filtering on a route basis. There is a
+default setting to help to protect the network, especially useful for new
+and inexperienced SysOps. The idea is simple. When Spider is started
+for the first time and a connection is made to or from another node,
+the default is to only send the nodes you already have that are in your
+own zone. For example, in the UK the default setting would be to send
+only UK nodes to any connection. This can be filtered further (down to
+a single node if needed) or expanded as required.
+<P>
+<P>
+<H2><A NAME="ss1.2">1.2 Route Filters</A>
+</H2>
+
+<P>As mentioned in the introduction, a default setting exists. If this is
+all you want to use then that is fine, you have nothing else to do.
+However, if you want to make any alterations then you need to know
+a bit about filters.
+<P>
+<P>It is possible to reset the default setting for node connections should
+you wish to do so, however this can be dangerous to the network unless
+you have some experience in how all this works.... be careful! It is
+also possible to change settings for one connection only. You can,
+therefore, have many different filters set dependent on the amount of
+node links you have.
<P>
-<H2><A NAME="ss1.1">1.1 Basic hop control</A>
+<P>I should at this stage give a little bit of background on filters. All
+the filters in Spider work in basically the same way. You can either
+accept or reject various options in order to create the filter rules
+you wish to achieve. Some filters are user settable, others can only
+be altered by the sysop. Route filtering can only be done by the sysop.
+<P>
+<H2><A NAME="ss1.3">1.3 The default_node filter</A>
+</H2>
+
+<P>As discussed previously, a default setting exists that only sends nodes
+from your own zone. This can be overridden by using the default_node
+filter option like this ...
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+reject/route default_node <filter_option>
+
+or
+
+accept/route default_node <filter_option>
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<P>where filter_option is one of the following ...
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+call <prefixes>
+call_dxcc <numbers>
+call_itu <numbers>
+call_zone <numbers>
+origin <prefixes>
+origin_dxcc <numbers>
+origin_itu <numbers>
+origin_zone <numbers>
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<P>Please be careful if you alter this setting, it will affect
+<B><I>ALL</I></B> your links!
+<P>
+<H2><A NAME="ss1.4">1.4 General route filtering</A>
+</H2>
+
+<P>Exactly the same rules apply for general route filtering. You would
+use either an accept filter or a reject filter like this ...
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+reject/route <node_call> <filter_option>
+
+or
+
+accept/route <node_call> <filter_option>
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<P>where filter_option is one of the following ...
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+call <prefixes>
+call_dxcc <numbers>
+call_itu <numbers>
+call_zone <numbers>
+origin <prefixes>
+origin_dxcc <numbers>
+origin_itu <numbers>
+origin_zone <numbers>
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<P>Here are some examples of route filters ...
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+rej/route gb7djk call_dxcc 61,38 (everything except UK+EIRE nodes)
+rej/route all (equiv to [very] restricted mode)
+acc/route gb7djk call_dxcc 61,38 (send only UK+EIRE nodes)
+acc/route gb7djk call gb7djk (equiv to SET/ISOLATE)
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss1.5">1.5 General filter rules</A>
+</H2>
+
+<P>Upto v1.44 it was not possible for the user to set their own filters. From
+v1.45 though that has all changed. It is now possible to set filters for just
+about anything you wish. If you have just updated from an older version of
+DXSpider you will need to update your new filters. You do not need to do
+anything with your old filters, they will be renamed as you update.
+<P>
+<P>There are 3 basic commands involved in setting and manipulating filters. These
+are <EM>accept</EM>, <EM>reject</EM> and <EM>clear</EM>. First we will look
+generally at filtering. There are a number of things you can filter in the
+DXSpider system. They all use the same general mechanism.
+<P>
+<P>In general terms you can create a 'reject' or an 'accept' filter which can have
+up to 10 lines in it. You do this using, for example ...
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+
+accept/spots .....
+reject/spots .....
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>where ..... are the specific commands for that type of filter. There are filters
+for spots, wwv, announce, wcy and (for sysops) connects. See each different
+accept or reject command reference for more details.
+<P>There is also a command to clear out one or more lines in a filter. They are ...
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+clear/spots 1
+clear/spots all
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>There is clear/xxxx command for each type of filter.
+<P>
+<P>and you can check that your filters have worked by the command ...
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+
+show/filter
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<P>For now we are going to use spots for the examples, but you can apply the same
+principles to all types of filter.
+<P>
+<H2><A NAME="ss1.6">1.6 Types of filter</A>
+</H2>
+
+<P>There are two main types of filter, <EM>accept</EM> or <EM>reject</EM>. You
+can use either to achieve the result you want dependent on your own preference
+and which is more simple to do. It is pointless writing 8 lines of reject
+filters when 1 accept filter would do the same thing! Each filter has 10
+lines (of any length) which are tried in order. If a line matches then the
+action you have specified is taken (ie reject means ignore it and accept
+means take it)
+<P>
+<P>If you specify reject filters, then any lines that arrive that match the filter
+will be dumped but all else will be accepted. If you use an accept filter,
+then ONLY the lines in the filter will be accepted and all else will be dumped.
+For example if you have a single line <EM>accept</EM> filter ...
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+accept/spots on vhf and (by_zone 14,15,16 or call_zone 14,15,16)
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>then you will <EM>ONLY</EM> get VHF spots <EM>from</EM> or <EM>to</EM> CQ zones
+14, 15 and 16.
+<P>
+<P>If you set a reject filter like this ...
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+reject/spots on hf/cw
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>Then you will get everything <EM>EXCEPT</EM> HF CW spots. You could make this
+single filter even more flexible. For example, if you are interested in IOTA
+and will work it even on CW even though normally you are not interested in
+CW, then you could say ...
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+reject/spots on hf/cw and not info iota
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>But in that case you might only be interested in iota and say:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+accept/spots not on hf/cw or info iota
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>which achieves exactly the same thing. You should choose one or the other
+until you are comfortable with the way it works. You can mix them if you
+wish (actually you can have an accept AND a reject on the same line) but
+don't attempt this until you are sure you know what you are doing!
+<P>
+<P>You can arrange your filter lines into logical units, either for your own
+understanding or simply convenience. Here is an example ...
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+reject/spots 1 on hf/cw
+reject/spots 2 on 50000/1400000 not (by_zone 14,15,16 or call_zone 14,15,16)
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>What this does is to ignore all HF CW spots and also rejects any spots on VHF
+which don't either originate or spot someone in Europe.
+<P>
+<P>This is an example where you would use a line number (1 and 2 in this case), if
+you leave the digit out, the system assumes '1'. Digits '0'-'9' are available.
+This make it easier to see just what filters you have set. It also makes it
+more simple to remove individual filters, during a contest for example.
+<P>
+<P>You will notice in the above example that the second line has brackets. Look
+at the line logically. You can see there are 2 separate sections to it. We
+are saying reject spots that are VHF or above <EM>APART</EM> from those in
+zones 14, 15 and 16 (either spotted there or originated there). If you did
+not have the brackets to separate the 2 sections, then Spider would read it
+logically from the front and see a different expression entirely ...
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+(on 50000/1400000 and by_zone 14,15,16) or call_zone 14,15,16
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>The simple way to remember this is, if you use OR - use brackets. Whilst we are
+here CASE is not important. 'And BY_Zone' is just the same as 'and by_zone'.
+<P>As mentioned earlier, setting several filters can be more flexible than
+simply setting one complex one. Doing it in this way means that if you want
+to alter your filter you can just redefine or remove one or more lines of it or
+one line. For example ...
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+reject/spots 1 on hf/ssb
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>would redefine our earlier example, or
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+clear/spots 1
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>To remove all the filter lines in the spot filter ...
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+clear/spots all
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss1.7">1.7 Filter options</A>
+</H2>
+
+<P>You can filter in several different ways. The options are listed in the
+various helpfiles for accept, reject and filter.
+<P>
+<H2><A NAME="ss1.8">1.8 Default filters</A>
+</H2>
+
+<P>Sometimes all that is needed is a general rule for node connects. This can
+be done with a node_default filter. This rule will always be followed, even
+if the link is isolated, unless another filter is set specifically. Default
+rules can be set for nodes and users. They can be set for spots, announces,
+WWV and WCY. They can also be used for hops. An example might look like
+this ...
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+accept/spot node_default by_zone 14,15,16,20,33
+set/hops node_default spot 50
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>This filter is for spots only, you could set others for announce, WWV and WCY.
+This filter would work for ALL nodes unless a specific filter is written to
+override it for a particular node. You can also set a user_default should
+you require. It is important to note that default filters should be
+considered to be "connected". By this I mean that should you override the
+default filter for spots, you need to add a rule for the hops for spots also.
+<P>
+<H2><A NAME="ss1.9">1.9 Advanced filtering</A>
+</H2>
+
+<P>Once you are happy with the results you get, you may like to experiment.
+<P>
+<P>The previous example that filters hf/cw spots and accepts vhf/uhf spots from EU
+can be written with a mixed filter, for example ...
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+rej/spot on hf/cw
+acc/spot on 0/30000
+acc/spot 2 on 50000/1400000 and (by_zone 14,15,16 or call_zone 14,15,16)
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>Note that the first filter has not been specified with a number. This will
+automatically be assumed to be number 1. In this case, we have said <EM>reject all
+HF spots in the CW section of the bands but accept all others at HF. Also
+accept anything in VHF and above spotted in or by operators in the zones
+14, 15 and 16</EM>. Each filter slot actually has a 'reject' slot and
+an 'accept' slot. The reject slot is executed BEFORE the accept slot.
+<P>
+<P>It was mentioned earlier that after a reject test that doesn't match, the default
+for following tests is 'accept', the reverse is true for 'accept'. In the example
+what happens is that the reject is executed first, any non hf/cw spot is passed
+to the accept line, which lets through everything else on HF. The next filter line
+lets through just VHF/UHF spots from EU.
+<P>
+<H2><A NAME="ss1.10">1.10 Basic hop control</A>
</H2>
<P>In /spider/data you will find a file called hop_table.pl. This is the file
If you alter the file during runtime, the command <EM>load/hops</EM> will
bring your changes into effect.
<P>
-<H2><A NAME="ss1.2">1.2 Isolating networks</A>
+<H2><A NAME="ss1.11">1.11 Isolating networks</A>
</H2>
<P>It is possible to isolate networks from each other on a "gateway" node using the
<EM>set/isolate <node_call></EM> command.
<P>
<P>The effect of this is to partition an isolated network completely from another
-nodes connected to your node. Your node will appear on and otherwise behave
+node connected to your node. Your node will appear on and otherwise behave
normally on every network to which you are connected, but data from an isolated
network will not cross onto any other network or vice versa. However all the
spot, announce and WWV traffic and personal messages will still be handled
</PRE>
</CODE></BLOCKQUOTE>
<P>
-<P>There is a lot more on filtering in the next section.
-<P>
<HR>
<A HREF="adminmanual-2.html">Next</A>
Previous
<HTML>
<HEAD>
<META NAME="GENERATOR" CONTENT="SGML-Tools 1.0.9">
- <TITLE>The DXSpider Administration Manual v1.47: Filtering (Old Style upto v1.44)</TITLE>
+ <TITLE>The DXSpider Administration Manual v1.48: Other filters</TITLE>
<LINK HREF="adminmanual-3.html" REL=next>
<LINK HREF="adminmanual-1.html" REL=previous>
<LINK HREF="adminmanual.html#toc2" REL=contents>
<A HREF="adminmanual-1.html">Previous</A>
<A HREF="adminmanual.html#toc2">Contents</A>
<HR>
-<H2><A NAME="s2">2. Filtering (Old Style upto v1.44)</A></H2>
-
-<P>Filters can be set for spots, announcements and WWV. You will find the
-directories for these under /spider/filter. You will find some examples in
-the directories with the suffix <EM>.issue</EM>. There are two types of
-filter, one for incoming information and one for outgoing information.
-Outgoing filters are in the form <EM>CALLSIGN.pl</EM> and incoming filters
-are in the form <EM>in_CALLSIGN.pl</EM>. Filters can be set for both nodes
-and users.
-<P>
-<P>All filters work in basically the same way. There are several elements
-delimited by commas. There can be many lines in the filter and they are
-read from the top by the program. When writing a filter you need to think
-carefully about just what you want to achieve. You are either going to write
-a filter to <EM>accept</EM> or to <EM>reject</EM>. Think of a filter as
-having 2 main elements. For a reject filter, you would have a line or multiple
-lines rejecting the things you do not wish to receive and then a default line
-accepting everything else that is not included in the filter. Likewise, for an
-accept filter, you would have a line or multiple lines accepting the things you
-wish to receive and a default line rejecting everthing else.
-<P>
-<P>In the example below, a user requires a filter that would only return SSB spots
-posted in Europe on the HF bands. This is achieved by first rejecting the CW
-section of each HF band and rejecting all of VHF, UHF etc based on frequency.
-Secondly, a filter rule is set based on CQ zones to only accept spots posted in
-Europe. Lastly, a default filter rule is set to reject anything outside the filter.
-<P>
-<BLOCKQUOTE><CODE>
-<PRE>
-$in = [
- [ 0, 0, 'r', # reject all CW spots
- [
- 1800.0, 1850.0,
- 3500.0, 3600.0,
- 7000.0, 7040.0,
- 14000.0, 14100.0,
- 18068.0, 18110.0,
- 21000.0, 21150.0,
- 24890.0, 24930.0,
- 28000.0, 28180.0,
- 30000.0, 49000000000.0,
- ] ,1 ],
- [ 1, 11, 'n', [ 14, 15, 16, 20, 33, ], 15 ], #accept EU
- [ 0, 0, 'd', 0, 1 ], # 1 = want, 'd' = everything else
-];
-</PRE>
-</CODE></BLOCKQUOTE>
-<P>
-<P>The actual elements of each filter are described more fully in the following
-sections.
-<P>
-<H2><A NAME="ss2.1">2.1 Spots</A>
+<H2><A NAME="s2">2. Other filters</A></H2>
+
+<H2><A NAME="ss2.1">2.1 Filtering Mail</A>
</H2>
-<P>The elements of the Spot filter are ....
-<P>
-<BLOCKQUOTE><CODE>
-<PRE>
-[action, field_no, sort, possible_values, hops]
-</PRE>
-</CODE></BLOCKQUOTE>
-<P>
-<P>There are 3 elements here to look at. Firstly, the action element. This is
-very simple and only 2 possible states exist, accept (1) or drop (0).
-<P>
-<P>The second element is the field_no. There are 13 possiblities to choose from
-here ....
+<P>In the /spider/msg directory you will find a file called badmsg.pl.issue. Rename
+this to badmsg.pl and edit the file. The original looks something like this ....
<P>
<BLOCKQUOTE><CODE>
<PRE>
- 0 = frequency
- 1 = call
- 2 = date in unix format
- 3 = comment
- 4 = spotter
- 5 = spotted dxcc country
- 6 = spotter's dxcc country
- 7 = origin
- 8 = spotted itu
- 9 = spotted cq
- 10 = spotter's itu
- 11 = spotter's cq
- 12 = callsign of the channel on which the spot has appeared
-</PRE>
-</CODE></BLOCKQUOTE>
-<P>
-<P>The third element tells us what to expect in the fourth element. There are
-4 possibilities ....
-<P>
-<BLOCKQUOTE><CODE>
-<PRE>
- n - numeric list of numbers e.g. [ 1,2,3 ]
- r - ranges of pairs of numbers e.g. between 2 and 4 or 10 to 17 - [ 2,4, 10,17 ]
- a - an alphanumeric regex
- d - the default rule
-</PRE>
-</CODE></BLOCKQUOTE>
-<P>
-<P>The fifth element is simply the hops to set in this filter. This would only
-be used if the filter was for a node of course and overrides the hop count in
-hop_table.pl.
-<P>
-<P>So, let's look at an example spot filter. It does not matter in the example
-who the filter is to be used for. So, what do we need in the filter? We need
-to filter the spots the user/node requires and also set a default rule for
-anything else outside the filter. Below is a simple filter that stops spots
-arriving from outside Europe.
-<P>
-<BLOCKQUOTE><CODE>
-<PRE>
-$in = [
- [ 0, 4, 'a', '^(K|N|A|W|VE|VA|J)'], # 0 = drop, 'a' = alphanumeric
- [ 1, 0, 'd', 0, 1 ], # 1 = want, 'd' = everything else
- ];
-</PRE>
-</CODE></BLOCKQUOTE>
-<P>
-<P>So the filter is wrapped in between a pair of square brackets. This tells
-Spider to look in between these limits. Then each line is contained within
-its own square brackets and ends with a comma. Lets look carefully at the first
-line. The first element is 0 (drop). Therefore anything we put on this line
-will not be accepted. The next element is 4. This means we are filtering by
-the spotter. The third element is the letter "a" which tells the program to
-expect an alphanumeric expression in the fourth element. The fourth element
-is a list of letters separated by the pipe symbol.
-<P>
-<P>What this line does is tell the program to drop any spots posted by anyone in
-the USA, Canada or Japan.
-<P>
-<P>The second line is the default rule for anything else. The "d" tells us this
-and the line simply reads... accept anything else.
-<P>
-<P>You can add as many lines as you need to complete the filter but if there are
-several lines of the same type it is neater to enclose them all as one line.
-An example of this is where specific bands are set. We could write this like
-this ....
-<P>
-<BLOCKQUOTE><CODE>
-<PRE>
-[ 0,0,'r',[1800.0, 2000.0], 1],
-[ 0,0,'r',[10100.0, 10150.0], 1],
-[ 0,0,'r',[14000.0, 14350.0], 1],
-[ 0,0,'r',[18000.0, 18200.0], 1],
-</PRE>
-</CODE></BLOCKQUOTE>
-<P>
-<P>But the line below achieves the same thing and is more efficient ....
-<P>
-<BLOCKQUOTE><CODE>
-<PRE>
- [ 0, 0, 'r',
- [
- 1800.0, 2000.0, # top band
- 10100.0, 10150.0, # WARC
- 14000.0, 14350.0, # 20m
- 18000.0, 18200.0, # WARC
- [ ,1 ],
+
+# the list of regexes for messages that we won't store having
+# received them (bear in mind that we must receive them fully before
+# we can bin them)
+
+
+# The format of each line is as follows
+
+# type source pattern
+# P/B/F T/F/O/S regex
+
+# type: P - private, B - bulletin (msg), F - file (ak1a bull)
+# source: T - to field, F - from field, O - origin, S - subject
+# pattern: a perl regex on the field requested
+
+# Currently only type B and P msgs are affected by this code.
+#
+# The list is read from the top down, the first pattern that matches
+# causes the action to be taken.
+
+# The pattern can be undef or 0 in which case it will always be selected
+# for the action specified
+
+
+
+package DXMsg;
+
+@badmsg = (
+'B', 'T', 'SALE',
+'B', 'T', 'WANTED',
+'B', 'S', 'WANTED',
+'B', 'S', 'SALE',
+'B', 'S', 'WTB',
+'B', 'S', 'WTS',
+'B', 'T', 'FS',
+);
</PRE>
</CODE></BLOCKQUOTE>
<P>
+<P>I think this is fairly self explanatory. It is simply a list of subject
+headers that we do not want to pass on to either the users of the cluster or
+the other cluster nodes that we are linked to. This is usually because of
+rules and regulations pertaining to items for sale etc in a particular country.
<P>
-<H2><A NAME="ss2.2">2.2 Announcements</A>
+<H2><A NAME="ss2.2">2.2 Filtering DX callouts (Depricated)</A>
</H2>
+<P><B><I>From version 1.47, this method is replaced by the command set/baddx</I></B>
+<P>
+<P>In the same way as mail, there are some types of spot we do not wish to pass on
+to users or linked cluster nodes. In the /spider/data directory you will find
+a file called baddx.pl.issue. Rename this to baddx.pl and edit the file. The
+original looks like this ....
<P>
<BLOCKQUOTE><CODE>
<PRE>
-# This is an example announce or filter allowing only West EU announces
-#
-# The element list is:-
-# 0 - callsign of announcer
-# 1 - destination * = all, <callsign> = routed to the node
-# 2 - text
-# 3 - * - sysop, <some text> - special list eg 6MUK, ' ', normal announce
-# 4 - origin
-# 5 - 0 - announce, 1 - wx
-# 6 - channel callsign (the interface from which this spot came)
-
-$in = [
- [ 1, 0, 'a', '^(P[ABCDE]|DK0WCY|G|M|2|EI|F|ON)' ],
- [ 0, 0, 'd', 0 ]
-];
+# the list of dx spot addresses that we don't store and don't pass on
+
+
+package DXProt;
+
+@baddx = qw
+
+ FROG
+ SALE
+ FORSALE
+ WANTED
+ P1RATE
+ PIRATE
+ TEST
+ DXTEST
+ NIL
+ NOCALL
+);
</PRE>
</CODE></BLOCKQUOTE>
-<P>In this example, only the prefixes listed will be allowed. It is possible to
-be quite specific. The Dutch prefix "P" is followed by several secondary
-identifiers which are allowed. So, in the example, "PA" or "PE" would be ok
-but not "PG". It is even possible to allow information from a single callsign.
-In the example this is DK0WCY, to allow the posting of his Aurora Beacon.
<P>
-<H2><A NAME="ss2.3">2.3 WWV</A>
+<P>Again, this is simply a list of names we do not want to see in the spotted
+field of a DX callout.
+<P>
+<P>
+<H2><A NAME="ss2.3">2.3 Filtering words from text fields in Announce, Talk and DX spots</A>
</H2>
+<P>Create a file in /spider/data called <EM>badwords</EM>. The format is quite
+simple. Lines beginning with # are ignored so comments can be added. An
+example file is below ...
<P>
<BLOCKQUOTE><CODE>
<PRE>
-
-# This is an example WWV filter
-#
-# The element list is:-
-# 0 - nominal unix date of spot (ie the day + hour:13)
-# 1 - the hour
-# 2 - SFI
-# 3 - K
-# 4 - I
-# 5 - text
-# 6 - spotter
-# 7 - origin
-# 8 - incoming interface callsign
-
-# this one doesn't filter, it just sets the hop count to 6 and is
-# used mainly just to override any isolation from WWV coming from
-# the internet.
-
-$in = [
- [ 1, 0, 'd', 0, 6 ]
-];
+# Below is a list of words we do not wish to see on the cluster
+grunge grunged grunging
+splodge splodger splodging
+grince
+fluffle
</PRE>
</CODE></BLOCKQUOTE>
+<P>Multiple words can be used on the same line as shown. Obviously these
+are just examples :-)
<P>
-<P>It should be noted that the filter will start to be used only once a user/node
-has logged out and back in again.
-<P>I am not going to spend any more time on these filters now as they will become
-more "comprehensive" in the near future.
+<P>You can reload the file from the cluster prompt as sysop with load/badwords.
<P>
<HR>
<A HREF="adminmanual-3.html">Next</A>
<HTML>
<HEAD>
<META NAME="GENERATOR" CONTENT="SGML-Tools 1.0.9">
- <TITLE>The DXSpider Administration Manual v1.47: Filtering (New Style v1.45 and later)</TITLE>
+ <TITLE>The DXSpider Administration Manual v1.48: Mail</TITLE>
<LINK HREF="adminmanual-4.html" REL=next>
<LINK HREF="adminmanual-2.html" REL=previous>
<LINK HREF="adminmanual.html#toc3" REL=contents>
<A HREF="adminmanual-2.html">Previous</A>
<A HREF="adminmanual.html#toc3">Contents</A>
<HR>
-<H2><A NAME="s3">3. Filtering (New Style v1.45 and later)</A></H2>
+<H2><A NAME="s3">3. Mail</A></H2>
-<H2><A NAME="ss3.1">3.1 General filter rules</A>
+<P>DXSpider deals seamlessly with standard AK1A type mail. It supports both
+personal and bulletin mail and the sysop has additional commands to ensure
+that mail gets to where it is meant. DXSpider will send mail almost
+immediately, assuming that the target is on line. However, only one
+mail message is dealt with at any one time. If a mail message is already
+being sent or recieved, then the new message will be queued until it has
+finished.
+<P>The cluster mail is automatically deleted after 30 days unless the sysop
+sets the "keep" flag using the <EM>msg</EM> command.
+<P>
+<H2><A NAME="ss3.1">3.1 Personal mail</A>
</H2>
-<P>Upto v1.44 it was not possible for the user to set their own filters. From
-v1.45 though that has all changed. It is now possible to set filters for just
-about anything you wish. If you have just updated from an older version of
-DXSpider you will need to update your new filters. You do not need to do
-anything with your old filters, they will be renamed as you update.
+<P>Personal mail is sent using the <EM>sp</EM> command. This is actually the
+default method of sending mail and so a simple <EM>s</EM> for send will do.
+A full list of the send commands and options is in the <EM>command set</EM>
+section, so I will not duplicate them here.
<P>
-<P>There are 3 basic commands involved in setting and manipulating filters. These
-are <EM>accept</EM>, <EM>reject</EM> and <EM>clear</EM>. First we will look
-generally at filtering. There are a number of things you can filter in the
-DXSpider system. They all use the same general mechanism.
-<P>
-<P>In general terms you can create a 'reject' or an 'accept' filter which can have
-up to 10 lines in it. You do this using, for example ...
-<P>
-<BLOCKQUOTE><CODE>
-<PRE>
-
-accept/spots .....
-reject/spots .....
-</PRE>
-</CODE></BLOCKQUOTE>
-<P>where ..... are the specific commands for that type of filter. There are filters
-for spots, wwv, announce, wcy and (for sysops) connects. See each different
-accept or reject command reference for more details.
-<P>There is also a command to clear out one or more lines in a filter. They are ...
-<P>
-<BLOCKQUOTE><CODE>
-<PRE>
-clear/spots 1
-clear/spots all
-</PRE>
-</CODE></BLOCKQUOTE>
-<P>There is clear/xxxx command for each type of filter.
-<P>
-<P>and you can check that your filters have worked by the command ...
-<P>
-<BLOCKQUOTE><CODE>
-<PRE>
-
-show/filter
-</PRE>
-</CODE></BLOCKQUOTE>
-<P>
-<P>For now we are going to use spots for the examples, but you can apply the same
-principles to all types of filter.
-<P>
-<H2><A NAME="ss3.2">3.2 Types of filter</A>
+<H2><A NAME="ss3.2">3.2 Bulletin mail</A>
</H2>
-<P>There are two main types of filter, <EM>accept</EM> or <EM>reject</EM>. You
-can use either to achieve the result you want dependent on your own preference
-and which is more simple to do. It is pointless writing 8 lines of reject
-filters when 1 accept filter would do the same thing! Each filter has 10
-lines (of any length) which are tried in order. If a line matches then the
-action you have specified is taken (ie reject means ignore it and accept
-means take it)
-<P>
-<P>If you specify reject filters, then any lines that arrive that match the filter
-will be dumped but all else will be accepted. If you use an accept filter,
-then ONLY the lines in the filter will be accepted and all else will be dumped.
-For example if you have a single line <EM>accept</EM> filter ...
-<P>
-<BLOCKQUOTE><CODE>
-<PRE>
-accept/spots on vhf and (by_zone 14,15,16 or call_zone 14,15,16)
-</PRE>
-</CODE></BLOCKQUOTE>
-<P>then you will <EM>ONLY</EM> get VHF spots <EM>from</EM> or <EM>to</EM> CQ zones
-14, 15 and 16.
+<P>Bulletin mail is sent by using the <EM>sb</EM> command. This is one of the
+most common mistakes users make when sending mail. They send a bulletin
+mail with <EM>s</EM> or <EM>sp</EM> instead of <EM>sb</EM> and of course
+the message never leaves the cluster. This can be rectified by the sysop
+by using the <EM>msg</EM> command.
<P>
-<P>If you set a reject filter like this ...
+<P>Bulletin addresses can be set using the Forward.pl file.
<P>
-<BLOCKQUOTE><CODE>
-<PRE>
-reject/spots on hf/cw
-</PRE>
-</CODE></BLOCKQUOTE>
-<P>Then you will get everything <EM>EXCEPT</EM> HF CW spots. You could make this
-single filter even more flexible. For example, if you are interested in IOTA
-and will work it even on CW even though normally you are not interested in
-CW, then you could say ...
-<P>
-<BLOCKQUOTE><CODE>
-<PRE>
-reject/spots on hf/cw and not info iota
-</PRE>
-</CODE></BLOCKQUOTE>
-<P>But in that case you might only be interested in iota and say:-
-<P>
-<BLOCKQUOTE><CODE>
-<PRE>
-accept/spots not on hf/cw or info iota
-</PRE>
-</CODE></BLOCKQUOTE>
-<P>which achieves exactly the same thing. You should choose one or the other
-until you are comfortable with the way it works. You can mix them if you
-wish (actually you can have an accept AND a reject on the same line) but
-don't attempt this until you are sure you know what you are doing!
-<P>
-<P>You can arrange your filter lines into logical units, either for your own
-understanding or simply convenience. Here is an example ...
+<H2><A NAME="ss3.3">3.3 Forward.pl</A>
+</H2>
+
+<P>DXSpider receives all and any mail sent to it without any alterations needed
+in files. Because personal and bulletin mail are treated differently, there
+is no need for a list of accepted bulletin addresses. It is necessary, however,
+to tell the program which links accept which bulletins. For example, it is
+pointless sending bulletins addresses to "UK" to any links other than UK
+ones. The file that does this is called forward.pl and lives in /spider/msg.
+At default, like other spider files it is named forward.pl.issue. Rename it
+to forward.pl and edit the file to match your requirements.
+The format is below ...
<P>
<BLOCKQUOTE><CODE>
<PRE>
-reject/spots 1 on hf/cw
-reject/spots 2 on 50000/1400000 not (by_zone 14,15,16 or call_zone 14,15,16)
+#
+# this is an example message forwarding file for the system
+#
+# The format of each line is as follows
+#
+# type to/from/at pattern action destinations
+# P/B/F T/F/A regex I/F [ call [, call ...] ]
+#
+# type: P - private, B - bulletin (msg), F - file (ak1a bull)
+# to/from/at: T - to field, F - from field, A - home bbs, O - origin
+# pattern: a perl regex on the field requested
+# action: I - ignore, F - forward
+# destinations: a reference to an array containing node callsigns
+#
+# if it is non-private and isn't in here then it won't get forwarded
+#
+# Currently only type B msgs are affected by this code.
+#
+# The list is read from the top down, the first pattern that matches
+# causes the action to be taken.
+#
+# The pattern can be undef or 0 in which case it will always be selected
+# for the action specified
+#
+# If the BBS list is undef or 0 and the action is 'F' (and it matches the
+# pattern) then it will always be forwarded to every node that doesn't have
+# it (I strongly recommend you don't use this unless you REALLY mean it, if
+# you allow a new link with this on EVERY bull will be forwarded immediately
+# on first connection)
+#
+
+package DXMsg;
+
+@forward = (
+'B', 'T', 'LOCAL', 'F', [ qw(GB7MBC) ],
+'B', 'T', 'ALL', 'F', [ qw(GB7BAA GB7ADX PA4AB-14) ],
+'B', 'T', 'UK', 'F', [ qw(GB7BAA GB7ADX) ],
+'B', 'T', 'QSL', 'F', [ qw(GB7BAA GB7ADX PA4AB-14) ],
+'B', 'T', 'QSLINF', 'F', [ qw(GB7BAA GB7ADX PA4AB-14) ],
+'B', 'T', 'DX', 'F', [ qw(GB7BAA GB7ADX PA4AB-14) ],
+'B', 'T', 'DXINFO', 'F', [ qw(GB7BAA GB7ADX PA4AB-14) ],
+'B', 'T', 'DXNEWS', 'F', [ qw(GB7BAA GB7ADX PA4AB-14) ],
+'B', 'T', 'DXQSL', 'F', [ qw(GB7BAA GB7ADX PA4AB-14) ],
+'B', 'T', 'SYSOP', 'F', [ qw(GB7BAA GB7ADX) ],
+'B', 'T', '50MHZ', 'F', [ qw(GB7BAA GB7ADX PA4AB-14) ],
+);
</PRE>
</CODE></BLOCKQUOTE>
-<P>What this does is to ignore all HF CW spots and also rejects any spots on VHF
-which don't either originate or spot someone in Europe.
+<P>Simply insert a bulletin address and state in the brackets where you wish
+that mail to go. For example, you can see here that mail sent to "UK" will
+only be sent to the UK links and not to PA4AB-14.
<P>
-<P>This is an example where you would use a line number (1 and 2 in this case), if
-you leave the digit out, the system assumes '1'. Digits '0'-'9' are available.
-This make it easier to see just what filters you have set. It also makes it
-more simple to remove individual filters, during a contest for example.
+<P>To force the cluster to reread the file use load/forward
<P>
-<P>You will notice in the above example that the second line has brackets. Look
-at the line logically. You can see there are 2 separate sections to it. We
-are saying reject spots that are VHF or above <EM>APART</EM> from those in
-zones 14, 15 and 16 (either spotted there or originated there). If you did
-not have the brackets to separate the 2 sections, then Spider would read it
-logically from the front and see a different expression entirely ...
<P>
-<BLOCKQUOTE><CODE>
-<PRE>
-(on 50000/1400000 and by_zone 14,15,16) or call_zone 14,15,16
-</PRE>
-</CODE></BLOCKQUOTE>
-<P>The simple way to remember this is, if you use OR - use brackets. Whilst we are
-here CASE is not important. 'And BY_Zone' is just the same as 'and by_zone'.
-<P>As mentioned earlier, setting several filters can be more flexible than
-simply setting one complex one. Doing it in this way means that if you want
-to alter your filter you can just redefine or remove one or more lines of it or
-one line. For example ...
+<H2><A NAME="ss3.4">3.4 The msg command</A>
+</H2>
+
+<P>The <EM>msg</EM> command is a very powerful and flexible tool for the
+sysop. It allows the sysop to alter to and from fields and make other
+changes to manage the cluster mail.
+<P>Here is a full list of the various options ...
<P>
<BLOCKQUOTE><CODE>
<PRE>
-reject/spots 1 on hf/ssb
+ MSG TO <msgno> <call> - change TO callsign to <call>
+ MSG FRom <msgno> <call> - change FROM callsign to <call>
+ MSG PRrivate <msgno> - set private flag
+ MSG NOPRrivate <msgno> - unset private flag
+ MSG RR <msgno> - set RR flag
+ MSG NORR <msgno> - unset RR flag
+ MSG KEep <msgno> - set the keep flag (message won't be deleted ever)
+ MSG NOKEep <msgno> - unset the keep flag
+ MSG SUbject <msgno> <new> - change the subject to <new>
+ MSG WAittime <msgno> - remove any waiting time for this message
+ MSG NOREad <msgno> - mark message as unread
+ MSG REad <msgno> - mark message as read
+ MSG QUeue - queue any outstanding bulletins
+ MSG QUeue 1 - queue any outstanding private messages
</PRE>
</CODE></BLOCKQUOTE>
-<P>would redefine our earlier example, or
+<P>These commands are simply typed from within the cluster as the sysop user.
<P>
-<BLOCKQUOTE><CODE>
-<PRE>
-clear/spots 1
-</PRE>
-</CODE></BLOCKQUOTE>
-<P>To remove all the filter lines in the spot filter ...
+<H2><A NAME="ss3.5">3.5 Message status</A>
+</H2>
+
+<P>You can check on a message from within the cluster by using the command
+<EM>stat/msg</EM>. This will give you additional information on the
+message number including which nodes have received it, which node it
+was received from and when etc. Here is an example of the output of
+the command ...
<P>
<BLOCKQUOTE><CODE>
<PRE>
-clear/spots all
+G0VGS de GB7MBC 28-Jan-2001 1308Z >
+stat/msg 6869
+ From: GB7DJK
+ Msg Time: 26-Jan-2001 1302Z
+ Msgno: 6869
+ Origin: GB7DJK
+ Size: 8012
+ Subject: AMSAT 2line KEPS 01025.AMSAT
+ To: UK
+Got it Nodes: GB7BAA, GB7ADX
+ Private: 0
+Read Confirm: 0
+ Times read: 0
+G0VGS de GB7MBC 28-Jan-2001 1308Z >
</PRE>
</CODE></BLOCKQUOTE>
<P>
-<H2><A NAME="ss3.3">3.3 Filter options</A>
+<H2><A NAME="ss3.6">3.6 Filtering mail</A>
</H2>
-<P>You can filter in several different ways. The options are listed in the
-various helpfiles for accept, reject and filter.
+<P>This is described in the section on <EM>Other filters</EM> so I will not
+duplicate it here.
<P>
-<H2><A NAME="ss3.4">3.4 Default filters</A>
+<H2><A NAME="ss3.7">3.7 Distribution lists</A>
</H2>
-<P>Sometimes all that is needed is a general rule for node connects. This can
-be done with a node_default filter. This rule will always be followed, even
-if the link is isolated, unless another filter is set specifically. Default
-rules can be set for nodes and users. They can be set for spots, announces,
-WWV and WCY. They can also be used for hops. An example might look like
-this ...
+<P>Distribution lists are simply a list of users to send certain types of
+mail to. An example of this is mail you only wish to send to other
+sysops. In /spider/msg there is a directory called <EM>distro</EM>. You
+put any distibution lists in here. For example, here is a file called
+SYSOP.pl that caters for the UK sysops.
<P>
<BLOCKQUOTE><CODE>
<PRE>
-accept/spot node_default by_zone 14,15,16,20,33
-set/hops node_default spot 50
+qw(GB7TLH GB7DJK GB7DXM GB7CDX GB7BPQ GB7DXN GB7MBC GB7MBC-6 GB7MDX
+ GB7NDX GB7SDX GB7TDX GB7UDX GB7YDX GB7ADX GB7BAA GB7DXA GB7DXH
+ GB7DXK GB7DXI GB7DXS)
</PRE>
</CODE></BLOCKQUOTE>
-<P>This filter is for spots only, you could set others for announce, WWV and WCY.
-This filter would work for ALL nodes unless a specific filter is written to
-override it for a particular node. You can also set a user_default should
-you require. It is important to note that default filters should be
-considered to be "connected". By this I mean that should you override the
-default filter for spots, you need to add a rule for the hops for spots also.
-<P>
-<H2><A NAME="ss3.5">3.5 Advanced filtering</A>
+<P>Any mail sent to "sysop" would only be sent to the callsigns in this list.
+<P>
+<H2><A NAME="ss3.8">3.8 BBS interface</A>
</H2>
-<P>Once you are happy with the results you get, you may like to experiment.
-<P>
-<P>The previous example that filters hf/cw spots and accepts vhf/uhf spots from EU
-can be written with a mixed filter, for example ...
-<P>
-<BLOCKQUOTE><CODE>
-<PRE>
-rej/spot on hf/cw
-acc/spot on 0/30000
-acc/spot 2 on 50000/1400000 and (by_zone 14,15,16 or call_zone 14,15,16)
-</PRE>
-</CODE></BLOCKQUOTE>
-<P>Note that the first filter has not been specified with a number. This will
-automatically be assumed to be number 1. In this case, we have said <EM>reject all
-HF spots in the CW section of the bands but accept all others at HF. Also
-accept anything in VHF and above spotted in or by operators in the zones
-14, 15 and 16</EM>. Each filter slot actually has a 'reject' slot and
-an 'accept' slot. The reject slot is executed BEFORE the accept slot.
-<P>
-<P>It was mentioned earlier that after a reject test that doesn't match, the default
-for following tests is 'accept', the reverse is true for 'accept'. In the example
-what happens is that the reject is executed first, any non hf/cw spot is passed
-to the accept line, which lets through everything else on HF. The next filter line
-lets through just VHF/UHF spots from EU.
-<P>
+<P>Spider provides a simple BBS interface. No input is required from the sysop
+of the cluster at all. The BBS simply sets the cluster as a BBS and pushes
+any required mail to the cluster. No mail can flow from Spider to the BBS,
+the interface is one-way.
+<P>
+<P>Please be careful not to flood the cluster network with unnecessary mail.
+Make sure you only send mail to the clusters that want it by using the
+Forward.pl file very carefully.
<P>
<HR>
<A HREF="adminmanual-4.html">Next</A>
<HTML>
<HEAD>
<META NAME="GENERATOR" CONTENT="SGML-Tools 1.0.9">
- <TITLE>The DXSpider Administration Manual v1.47: Other filters</TITLE>
+ <TITLE>The DXSpider Administration Manual v1.48: Databases</TITLE>
<LINK HREF="adminmanual-5.html" REL=next>
<LINK HREF="adminmanual-3.html" REL=previous>
<LINK HREF="adminmanual.html#toc4" REL=contents>
<A HREF="adminmanual-3.html">Previous</A>
<A HREF="adminmanual.html#toc4">Contents</A>
<HR>
-<H2><A NAME="s4">4. Other filters</A></H2>
+<H2><A NAME="s4">4. Databases</A></H2>
-<H2><A NAME="ss4.1">4.1 Filtering Mail</A>
+<P>Spider allows the creation of local or remote databases. It supports
+chained databases, allowing several different databases to be scanned
+with one simple command. Importing of databases is limited at present
+to the standard AK1A databases such as OBLAST and the DB0SDX QSL
+database but will expand with time.
+<P>
+<H2><A NAME="ss4.1">4.1 Creating databases</A>
</H2>
-<P>In the /spider/msg directory you will find a file called badmsg.pl.issue. Rename
-this to badmsg.pl and edit the file. The original looks something like this ....
+<P>Creating a database could not be more simple. All the commands are
+sent from the cluster prompt as the <EM>sysop</EM> user.
+<P>To create a database you use the command <EM>dbcreate</EM>. It can
+be used in 3 different ways like so ..
<P>
<BLOCKQUOTE><CODE>
<PRE>
-
-# the list of regexes for messages that we won't store having
-# received them (bear in mind that we must receive them fully before
-# we can bin them)
-
-
-# The format of each line is as follows
-
-# type source pattern
-# P/B/F T/F/O/S regex
-
-# type: P - private, B - bulletin (msg), F - file (ak1a bull)
-# source: T - to field, F - from field, O - origin, S - subject
-# pattern: a perl regex on the field requested
-
-# Currently only type B and P msgs are affected by this code.
-#
-# The list is read from the top down, the first pattern that matches
-# causes the action to be taken.
-
-# The pattern can be undef or 0 in which case it will always be selected
-# for the action specified
-
-
-
-package DXMsg;
-
-@badmsg = (
-'B', 'T', 'SALE',
-'B', 'T', 'WANTED',
-'B', 'S', 'WANTED',
-'B', 'S', 'SALE',
-'B', 'S', 'WTB',
-'B', 'S', 'WTS',
-'B', 'T', 'FS',
-);
+dbcreate <name>
</PRE>
</CODE></BLOCKQUOTE>
+<P>To simply create a database locally, you just tell the command the
+name of the database. This does not create the actual database, it
+simply defines it to say that it exists.
<P>
-<P>I think this is fairly self explanatory. It is simply a list of subject
-headers that we do not want to pass on to either the users of the cluster or
-the other cluster nodes that we are linked to. This is usually because of
-rules and regulations pertaining to items for sale etc in a particular country.
+<BLOCKQUOTE><CODE>
+<PRE>
+dbcreate <name> chain <name> [<name>...]
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>This creates a chained database entry. The first database will be
+scanned, then the second, the third etc...
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+dbcreate <name> remote <name>
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>This creates a remote entry. the first name field is the database
+name at the remote node, then the remote switch, then the actual
+node_call of the remote node, for example...
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+dbcreate buckmaster remote gb7dxc
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>Remote databases cannot be chained, however, the last database in a
+chain can be a remote database.
<P>
-<H2><A NAME="ss4.2">4.2 Filtering DX callouts (Depricated)</A>
+<H2><A NAME="ss4.2">4.2 Importing databases</A>
</H2>
-<P><B><I>From version 1.47, this method is replaced by the command set/baddx</I></B>
-<P>
-<P>In the same way as mail, there are some types of spot we do not wish to pass on
-to users or linked cluster nodes. In the /spider/data directory you will find
-a file called baddx.pl.issue. Rename this to baddx.pl and edit the file. The
-original looks like this ....
+<P>The only databases that Spider can currently import are the standard
+AK1A databases such as OBLAST or the DB0SDX qsl and address database.
+This will be added to with time.
+<P>To import such a database, first put the file somewhere useful like /tmp
+and then issue the following command ...
<P>
<BLOCKQUOTE><CODE>
<PRE>
-
-# the list of dx spot addresses that we don't store and don't pass on
-
-
-package DXProt;
-
-@baddx = qw
-
- FROG
- SALE
- FORSALE
- WANTED
- P1RATE
- PIRATE
- TEST
- DXTEST
- NIL
- NOCALL
-);
+dbimport oblast /tmp/OBLAST.FUL
</PRE>
</CODE></BLOCKQUOTE>
+<P>This will update the existing local oblast database or create it if
+it does not exist.
<P>
-<P>Again, this is simply a list of names we do not want to see in the spotted
-field of a DX callout.
+<H2><A NAME="ss4.3">4.3 Checking available databases</A>
+</H2>
+
+<P>Once a database is created, you will want to check that it has been
+added. To do this use the <EM>dbavail</EM> command. This will
+output the available databases. For example ...
<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+dbavail
+DB Name Location Chain
+qsl Local
+buck GB7ADX
+hftest GB7DXM
+G0VGS de GB7MBC 3-Feb-2001 1925Z >
+</PRE>
+</CODE></BLOCKQUOTE>
<P>
-<H2><A NAME="ss4.3">4.3 Filtering words from text fields in Announce, Talk and DX spots</A>
+<H2><A NAME="ss4.4">4.4 Looking up databases</A>
</H2>
-<P>Create a file in /spider/data called <EM>badwords</EM>. The format is quite
-simple. Lines beginning with # are ignored so comments can be added. An
-example file is below ...
+<P>To look for information in a defined database, simply use the <EM>dbshow</EM>
+command, for example ...
<P>
<BLOCKQUOTE><CODE>
<PRE>
-# Below is a list of words we do not wish to see on the cluster
-grunge grunged grunging
-splodge splodger splodging
-grince
-fluffle
+dbshow buckmaster G0YLM
</PRE>
</CODE></BLOCKQUOTE>
-<P>Multiple words can be used on the same line as shown. Obviously these
-are just examples :-)
+<P>will show the information for the callsign G0YLM from the buckmaster
+database if it exists. To make things more standard for the users
+you can add an entry in the Aliases file so that it looks like a standard
+<EM>show</EM> command like this ...
<P>
-<P>You can reload the file from the cluster prompt as sysop with load/badwords.
+<BLOCKQUOTE><CODE>
+<PRE>
+'^sh\w*/buc', 'dbshow buckmaster', 'dbshow',
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>Now you can simply use show/buckmaster or an abreviation.
+<P>
+<H2><A NAME="ss4.5">4.5 Removing databases</A>
+</H2>
+
+<P>To delete an existing database you use the <EM>dbremove</EM> command.
+For example ...
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+dbremove oblast
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>would remove the oblast database and its associated datafile from the
+system. There are no warnings or recovery possible from this command.
+If you remove a database it ceases to exist and would have to be created
+from scratch if you still required it.
<P>
<HR>
<A HREF="adminmanual-5.html">Next</A>
<HTML>
<HEAD>
<META NAME="GENERATOR" CONTENT="SGML-Tools 1.0.9">
- <TITLE>The DXSpider Administration Manual v1.47: Mail</TITLE>
+ <TITLE>The DXSpider Administration Manual v1.48: Information, files and useful programs</TITLE>
<LINK HREF="adminmanual-6.html" REL=next>
<LINK HREF="adminmanual-4.html" REL=previous>
<LINK HREF="adminmanual.html#toc5" REL=contents>
<A HREF="adminmanual-4.html">Previous</A>
<A HREF="adminmanual.html#toc5">Contents</A>
<HR>
-<H2><A NAME="s5">5. Mail</A></H2>
-
-<P>DXSpider deals seamlessly with standard AK1A type mail. It supports both
-personal and bulletin mail and the sysop has additional commands to ensure
-that mail gets to where it is meant. DXSpider will send mail almost
-immediately, assuming that the target is on line. However, only one
-mail message is dealt with at any one time. If a mail message is already
-being sent or recieved, then the new message will be queued until it has
-finished.
-<P>The cluster mail is automatically deleted after 30 days unless the sysop
-sets the "keep" flag using the <EM>msg</EM> command.
-<P>
-<H2><A NAME="ss5.1">5.1 Personal mail</A>
+<H2><A NAME="s5">5. Information, files and useful programs</A></H2>
+
+<H2><A NAME="ss5.1">5.1 MOTD</A>
</H2>
-<P>Personal mail is sent using the <EM>sp</EM> command. This is actually the
-default method of sending mail and so a simple <EM>s</EM> for send will do.
-A full list of the send commands and options is in the <EM>command set</EM>
-section, so I will not duplicate them here.
+<P>One of the more important things a cluster sysop needs to do is to get
+information to his users. The simplest way to do this is to have a banner
+that is sent to the user on login. This is know as a "message of the day"
+or "motd". To set this up, simply create a file in /spider/data called motd
+and edit it to say whatever you want. It is purely a text file and will be
+sent automatically to anyone logging in to the cluster.
<P>
-<H2><A NAME="ss5.2">5.2 Bulletin mail</A>
+<H2><A NAME="ss5.2">5.2 Downtime message</A>
</H2>
-<P>Bulletin mail is sent by using the <EM>sb</EM> command. This is one of the
-most common mistakes users make when sending mail. They send a bulletin
-mail with <EM>s</EM> or <EM>sp</EM> instead of <EM>sb</EM> and of course
-the message never leaves the cluster. This can be rectified by the sysop
-by using the <EM>msg</EM> command.
-<P>
-<P>Bulletin addresses can be set using the Forward.pl file.
+<P>If for any reason the cluster is down, maybe for upgrade or maintenance but
+the machine is still running, a message can be sent to the user advising them
+of the fact. This message lives in the /spider/data directory and is called
+"offline". Simply create the file and edit it to say whatever you wish.
+This file will be sent to a user attempting to log into the cluster when
+DXSpider is not actually running.
<P>
-<H2><A NAME="ss5.3">5.3 Forward.pl</A>
+<H2><A NAME="ss5.3">5.3 Other text messages</A>
</H2>
-<P>DXSpider receives all and any mail sent to it without any alterations needed
-in files. Because personal and bulletin mail are treated differently, there
-is no need for a list of accepted bulletin addresses. It is necessary, however,
-to tell the program which links accept which bulletins. For example, it is
-pointless sending bulletins addresses to "UK" to any links other than UK
-ones. The file that does this is called forward.pl and lives in /spider/msg.
-At default, like other spider files it is named forward.pl.issue. Rename it
-to forward.pl and edit the file to match your requirements.
-The format is below ...
+<P>You can set other text messages to be read by the user if they input the file
+name. This could be for news items or maybe information for new users.
+To set this up, make a directory under /spider called <EM>packclus</EM>.
+Under this directory you can create files called <EM>news</EM> or <EM>newuser</EM>
+for example. In fact you can create files with any names you like. These can
+be listed by the user with the command ....
<P>
<BLOCKQUOTE><CODE>
<PRE>
-#
-# this is an example message forwarding file for the system
-#
-# The format of each line is as follows
-#
-# type to/from/at pattern action destinations
-# P/B/F T/F/A regex I/F [ call [, call ...] ]
-#
-# type: P - private, B - bulletin (msg), F - file (ak1a bull)
-# to/from/at: T - to field, F - from field, A - home bbs, O - origin
-# pattern: a perl regex on the field requested
-# action: I - ignore, F - forward
-# destinations: a reference to an array containing node callsigns
-#
-# if it is non-private and isn't in here then it won't get forwarded
-#
-# Currently only type B msgs are affected by this code.
-#
-# The list is read from the top down, the first pattern that matches
-# causes the action to be taken.
-#
-# The pattern can be undef or 0 in which case it will always be selected
-# for the action specified
-#
-# If the BBS list is undef or 0 and the action is 'F' (and it matches the
-# pattern) then it will always be forwarded to every node that doesn't have
-# it (I strongly recommend you don't use this unless you REALLY mean it, if
-# you allow a new link with this on EVERY bull will be forwarded immediately
-# on first connection)
-#
-
-package DXMsg;
-
-@forward = (
-'B', 'T', 'LOCAL', 'F', [ qw(GB7MBC) ],
-'B', 'T', 'ALL', 'F', [ qw(GB7BAA GB7ADX PA4AB-14) ],
-'B', 'T', 'UK', 'F', [ qw(GB7BAA GB7ADX) ],
-'B', 'T', 'QSL', 'F', [ qw(GB7BAA GB7ADX PA4AB-14) ],
-'B', 'T', 'QSLINF', 'F', [ qw(GB7BAA GB7ADX PA4AB-14) ],
-'B', 'T', 'DX', 'F', [ qw(GB7BAA GB7ADX PA4AB-14) ],
-'B', 'T', 'DXINFO', 'F', [ qw(GB7BAA GB7ADX PA4AB-14) ],
-'B', 'T', 'DXNEWS', 'F', [ qw(GB7BAA GB7ADX PA4AB-14) ],
-'B', 'T', 'DXQSL', 'F', [ qw(GB7BAA GB7ADX PA4AB-14) ],
-'B', 'T', 'SYSOP', 'F', [ qw(GB7BAA GB7ADX) ],
-'B', 'T', '50MHZ', 'F', [ qw(GB7BAA GB7ADX PA4AB-14) ],
-);
+show/files
</PRE>
</CODE></BLOCKQUOTE>
-<P>Simply insert a bulletin address and state in the brackets where you wish
-that mail to go. For example, you can see here that mail sent to "UK" will
-only be sent to the UK links and not to PA4AB-14.
+<P>They can be read by the user by typing the command ....
<P>
-<P>To force the cluster to reread the file use load/forward
+<BLOCKQUOTE><CODE>
+<PRE>
+type news
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>If the file they want to read is called <EM>news</EM>. You could also set
+an alias for this in the Alias file to allow them just to type <EM>news</EM>
<P>
+<P>You can also store other information in this directory, either directly or
+nested under directories. One use for this would be to store DX bulletins
+such as the OPDX bulletins. These can be listed and read by the user.
+To keep things tidy, make a directory under /spider/packclus called
+<EM>bulletin</EM>. Now copy any OPDX or similar bulletins into it. These
+can be listed by the user in the same way as above using the <EM>show/files</EM>
+command with an extension for the bulletin directory you have just created,
+like this ....
<P>
-<H2><A NAME="ss5.4">5.4 The msg command</A>
-</H2>
-
-<P>The <EM>msg</EM> command is a very powerful and flexible tool for the
-sysop. It allows the sysop to alter to and from fields and make other
-changes to manage the cluster mail.
-<P>Here is a full list of the various options ...
+<BLOCKQUOTE><CODE>
+<PRE>
+show/files bulletin
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<P>An example would look like this ....
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+sh/files
+bulletin DIR 20-Dec-1999 1715Z news 1602 14-Dec-1999 1330Z
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>You can see that in the files area (basically the packclus directory) there is a
+file called <EM>news</EM> and a directory called <EM>bulletin</EM>. You can
+also see that dates they were created. In the case of the file <EM>news</EM>,
+you can also see the time it was last modified, a good clue as to whether the
+file has been updated since you last read it. To read the file called
+<EM>news</EM> you would simply issue the command ....
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+type news
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>To look what is in the bulletin directory you issue the command ....
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+show/files bulletin
+opdx390 21381 29-Nov-1999 1621Z opdx390.1 1670 29-Nov-1999 1621Z
+opdx390.2 2193 29-Nov-1999 1621Z opdx391 25045 29-Nov-1999 1621Z
+opdx392 35969 29-Nov-1999 1621Z opdx393 15023 29-Nov-1999 1621Z
+opdx394 33429 29-Nov-1999 1621Z opdx394.1 3116 29-Nov-1999 1621Z
+opdx395 24319 29-Nov-1999 1621Z opdx396 32647 29-Nov-1999 1621Z
+opdx396.1 5537 29-Nov-1999 1621Z opdx396.2 6242 29-Nov-1999 1621Z
+opdx397 18433 29-Nov-1999 1621Z opdx398 19961 29-Nov-1999 1621Z
+opdx399 17719 29-Nov-1999 1621Z opdx400 19600 29-Nov-1999 1621Z
+opdx401 27738 29-Nov-1999 1621Z opdx402 18698 29-Nov-1999 1621Z
+opdx403 24994 29-Nov-1999 1621Z opdx404 15685 29-Nov-1999 1621Z
+opdx405 13984 29-Nov-1999 1621Z opdx405.1 4166 29-Nov-1999 1621Z
+opdx406 28934 29-Nov-1999 1621Z opdx407 24153 29-Nov-1999 1621Z
+opdx408 15081 29-Nov-1999 1621Z opdx409 23234 29-Nov-1999 1621Z
+Press Enter to continue, A to abort (16 lines) >
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>You can now read any file in this directory using the type command, like this ....
<P>
<BLOCKQUOTE><CODE>
<PRE>
- MSG TO <msgno> <call> - change TO callsign to <call>
- MSG FRom <msgno> <call> - change FROM callsign to <call>
- MSG PRrivate <msgno> - set private flag
- MSG NOPRrivate <msgno> - unset private flag
- MSG RR <msgno> - set RR flag
- MSG NORR <msgno> - unset RR flag
- MSG KEep <msgno> - set the keep flag (message won't be deleted ever)
- MSG NOKEep <msgno> - unset the keep flag
- MSG SUbject <msgno> <new> - change the subject to <new>
- MSG WAittime <msgno> - remove any waiting time for this message
- MSG NOREad <msgno> - mark message as unread
- MSG REad <msgno> - mark message as read
- MSG QUeue - queue any outstanding bulletins
- MSG QUeue 1 - queue any outstanding private messages
+type bulletin/opdx391
+Ohio/Penn DX Bulletin No. 391
+The Ohio/Penn Dx PacketCluster
+DX Bulletin No. 391
+BID: $OPDX.391
+January 11, 1999
+Editor Tedd Mirgliotta, KB8NW
+Provided by BARF-80 BBS Cleveland, Ohio
+Online at 440-237-8208 28.8k-1200 Baud 8/N/1 (New Area Code!)
+Thanks to the Northern Ohio Amateur Radio Society, Northern Ohio DX
+Association, Ohio/Penn PacketCluster Network, K1XN & Golist, WB2RAJ/WB2YQH
+& The 59(9) DXReport, W3UR & The Daily DX, K3TEJ, KN4UG, W4DC, NC6J, N6HR,
+Press Enter to continue, A to abort (508 lines) >
</PRE>
</CODE></BLOCKQUOTE>
-<P>These commands are simply typed from within the cluster as the sysop user.
+<P>The page length will of course depend on what you have it set to!
<P>
-<H2><A NAME="ss5.5">5.5 Message status</A>
+<H2><A NAME="ss5.4">5.4 The Aliases file</A>
</H2>
-<P>You can check on a message from within the cluster by using the command
-<EM>stat/msg</EM>. This will give you additional information on the
-message number including which nodes have received it, which node it
-was received from and when etc. Here is an example of the output of
-the command ...
+<P>You will find a file in /spider/cmd/ called Aliases. First, copy this file to
+/spider/local_cmd/Aliases and edit this file. You will see something like this ...
<P>
<BLOCKQUOTE><CODE>
<PRE>
-G0VGS de GB7MBC 28-Jan-2001 1308Z >
-stat/msg 6869
- From: GB7DJK
- Msg Time: 26-Jan-2001 1302Z
- Msgno: 6869
- Origin: GB7DJK
- Size: 8012
- Subject: AMSAT 2line KEPS 01025.AMSAT
- To: UK
-Got it Nodes: GB7BAA, GB7ADX
- Private: 0
-Read Confirm: 0
- Times read: 0
-G0VGS de GB7MBC 28-Jan-2001 1308Z >
+
+#!/usr/bin/perl
+
+# provide some standard aliases for commands for terminally
+# helpless ak1a user (helpless in the sense that they never
+# read nor understand help files)
+
+# This file is automagically reloaded if its modification time is
+# later than the one stored in CmdAlias.pm
+
+# PLEASE make this file consistant with reality! (the patterns MUST
+# match the filenames!)
+
+# Don't alter this file, copy it into the local_cmd tree and modify it.
+# This file will be replaced everytime I issue a new release.
+
+# You only need to put aliases in here for commands that don't work as
+# you desire naturally, e.g sh/dx on its own just works as you expect
+# so you need not add it as an alias.
+
+
+
+package CmdAlias;
+
+%alias = (
+ '?' => [
+ '^\?', 'apropos', 'apropos',
+ ],
+ 'a' => [
+ '^ann.*/full', 'announce full', 'announce',
+ '^ann.*/sysop', 'announce sysop', 'announce',
+ '^ann.*/(.*)$', 'announce $1', 'announce',
+ ],
+ 'b' => [
+ ],
+ 'c' => [
+ ],
+ 'd' => [
+ '^del', 'kill', 'kill',
+ '^del\w*/fu', 'kill full', 'kill',
+ '^di\w*/a\w*', 'directory all', 'directory',
+ '^di\w*/b\w*', 'directory bulletins', 'directory',
+ '^di\w*/n\w*', 'directory new', 'directory',
+ '^di\w*/o\w*', 'directory own', 'directory',
+ '^di\w*/s\w*', 'directory subject', 'directory',
+ '^di\w*/t\w*', 'directory to', 'directory',
+ '^di\w*/f\w*', 'directory from', 'directory',
+ '^di\w*/(\d+)', 'directory $1', 'directory',
+ ],
+ 'e' => [
+ ],
+ 'f' => [
+ ],
+ 'g' => [
+ ],
+ 'h' => [
+ ],
+ 'i' => [
+ ],
+ 'j' => [
+ ],
+ 'k' => [
+ ],
+ 'l' => [
+ '^l$', 'directory', 'directory',
+ '^ll$', 'directory', 'directory',
+ '^ll/(\d+)', 'directory $1', 'directory',
+ ],
+ 'm' => [
+ ],
+ 'n' => [
+ '^news', 'type news', 'type',
+ ],
+ 'o' => [
+ ],
+ 'p' => [
+ ],
+ 'q' => [
+ '^q', 'bye', 'bye',
+ ],
+ 'r' => [
+ '^r$', 'read', 'read',
+ '^rcmd/(\S+)', 'rcmd $1', 'rcmd',
+ ],
+ 's' => [
+ '^s/p$', 'send', 'send',
+ '^sb$', 'send noprivate', 'send',
+ '^set/home$', 'set/homenode', 'set/homenode',
+ '^set/nobe', 'unset/beep', 'unset/beep',
+ '^set/nohe', 'unset/here', 'unset/here',
+ '^set/noan', 'unset/announce', 'unset/announce',
+ '^set/nodx', 'unset/dx', 'unset/dx',
+ '^set/nota', 'unset/talk', 'unset/talk',
+ '^set/noww', 'unset/wwv', 'unset/wwv',
+ '^set/nowx', 'unset/wx', 'unset/wx',
+ '^sh$', 'show', 'show',
+ '^sh\w*/buck', 'dbshow buck', 'dbshow',
+ '^sh\w*/bu', 'show/files bulletins', 'show/files',
+ '^sh\w*/c/n', 'show/configuration nodes', 'show/configuration',
+ '^sh\w*/c$', 'show/configuration', 'show/configuration',
+ '^sh\w*/com', 'dbavail', 'dbavail',
+ '^sh\w*/dx/(\d+)-(\d+)', 'show/dx $1-$2', 'show/dx',
+ '^sh\w*/dx/(\d+)', 'show/dx $1', 'show/dx',
+ '^sh\w*/dx/d(\d+)', 'show/dx from $1', 'show/dx',
+ '^sh\w*/email', 'dbshow email', 'dbshow',
+ '^sh\w*/hftest', 'dbshow hftest', 'dbshow',
+ '^sh\w*/vhftest', 'dbshow vhftest', 'dbshow',
+ '^sh\w*/qsl', 'dbshow qsl', 'dbshow',
+ '^sh\w*/tnc', 'who', 'who',
+ '^sh\w*/up', 'show/cluster', 'show/cluster',
+ '^sh\w*/w\w*/(\d+)-(\d+)', 'show/wwv $1-$2', 'show/wwv',
+ '^sh\w*/w\w*/(\d+)', 'show/wwv $1', 'show/wwv',
+ '^sp$', 'send', 'send',
+
+ ],
+ 't' => [
+ '^ta$', 'talk', 'talk',
+ '^t$', 'talk', 'talk',
+ ],
+ 'u' => [
+ ],
+ 'v' => [
+ ],
+ 'w' => [
+ '^wx/full', 'wx full', 'wx',
+ '^wx/sysop', 'wx sysop', 'wx',
+ ],
+ 'x' => [
+ ],
+ 'y' => [
+ ],
+ 'z' => [
+ ],
+)
</PRE>
</CODE></BLOCKQUOTE>
+<P>You can create aliases for commands at will. Beware though, these may not
+always turn out as you think. Care is needed and you need to test the
+results once you have set an alias.
<P>
-<H2><A NAME="ss5.6">5.6 Filtering mail</A>
+<H2><A NAME="ss5.5">5.5 Console.pl</A>
</H2>
-<P>This is described in the section on <EM>Other filters</EM> so I will not
-duplicate it here.
+<P>In later versions of Spider a simple console program is provided for the sysop.
+This has a type ahead buffer with line editing facilities and colour for spots,
+announces etc. To use this program, simply use console.pl instead of client.
<P>
-<H2><A NAME="ss5.7">5.7 Distribution lists</A>
+<P>To edit the colours, copy /spider/perl/Console.pl to /spider/local and edit the
+file with your favourite editor.
+<P>
+<H2><A NAME="ss5.6">5.6 Updating kepler data</A>
</H2>
-<P>Distribution lists are simply a list of users to send certain types of
-mail to. An example of this is mail you only wish to send to other
-sysops. In /spider/msg there is a directory called <EM>distro</EM>. You
-put any distibution lists in here. For example, here is a file called
-SYSOP.pl that caters for the UK sysops.
+<P>Spider has a powerful and flexible show/satellite command. In order for
+this to be accurate, the kepler data has to be updated regularly. In
+general, this data is available as an email or via cluster mail.
+Updating it is simple. First you need to export the mail message as a
+file. You do this with the <EM>export</EM> command from the cluster prompt
+as the sysop. For example ...
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+export 5467 /spider/perl/keps.in
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>would export message number 5467 as a file called keps.in in the
+/spider/perl directory.
+<P>Now login to a VT as sysop and cd /spider/perl. There is a command in
+the perl directory called <EM>convkeps.pl</EM>. All we need to do now is
+convert the file like so ...
<P>
<BLOCKQUOTE><CODE>
<PRE>
-qw(GB7TLH GB7DJK GB7DXM GB7CDX GB7BPQ GB7DXN GB7MBC GB7MBC-6 GB7MDX
- GB7NDX GB7SDX GB7TDX GB7UDX GB7YDX GB7ADX GB7BAA GB7DXA GB7DXH
- GB7DXK GB7DXI GB7DXS)
+./convkeps.pl keps.in
</PRE>
</CODE></BLOCKQUOTE>
-<P>Any mail sent to "sysop" would only be sent to the callsigns in this list.
+<P>Now go back to the cluster and issue the command ...
<P>
-<H2><A NAME="ss5.8">5.8 BBS interface</A>
+<BLOCKQUOTE><CODE>
+<PRE>
+load/keps
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>That is it! the kepler data has been updated.
+<P>
+<H2><A NAME="ss5.7">5.7 The QRZ callbook</A>
</H2>
-<P>Spider provides a simple BBS interface. No input is required from the sysop
-of the cluster at all. The BBS simply sets the cluster as a BBS and pushes
-any required mail to the cluster. No mail can flow from Spider to the BBS,
-the interface is one-way.
-<P>
-<P>Please be careful not to flood the cluster network with unnecessary mail.
-Make sure you only send mail to the clusters that want it by using the
-Forward.pl file very carefully.
+<P>The command <EM>sh/qrz</EM> will only work once you have followed a few
+simple steps. First you need to get a user ID and password from qrz.com.
+Simply go to the site and create one. Secondly you need to copy the file
+/spider/perl/Internet.pm to /spider/local and alter it to match your user
+ID and password. You also at this point need to set $allow=1 to complete
+the setup. Many thanks to Fred Lloyd, the proprieter of
+<A HREF="http://www.qrz.com">qrz.com</A> for allowing this access.
<P>
<HR>
<A HREF="adminmanual-6.html">Next</A>
<HTML>
<HEAD>
<META NAME="GENERATOR" CONTENT="SGML-Tools 1.0.9">
- <TITLE>The DXSpider Administration Manual v1.47: Databases</TITLE>
+ <TITLE>The DXSpider Administration Manual v1.48: CVS</TITLE>
<LINK HREF="adminmanual-7.html" REL=next>
<LINK HREF="adminmanual-5.html" REL=previous>
<LINK HREF="adminmanual.html#toc6" REL=contents>
<A HREF="adminmanual-5.html">Previous</A>
<A HREF="adminmanual.html#toc6">Contents</A>
<HR>
-<H2><A NAME="s6">6. Databases</A></H2>
+<H2><A NAME="s6">6. CVS</A></H2>
-<P>Spider allows the creation of local or remote databases. It supports
-chained databases, allowing several different databases to be scanned
-with one simple command. Importing of databases is limited at present
-to the standard AK1A databases such as OBLAST and the DB0SDX QSL
-database but will expand with time.
-<P>
-<H2><A NAME="ss6.1">6.1 Creating databases</A>
-</H2>
-
-<P>Creating a database could not be more simple. All the commands are
-sent from the cluster prompt as the <EM>sysop</EM> user.
-<P>To create a database you use the command <EM>dbcreate</EM>. It can
-be used in 3 different ways like so ..
+<P>CVS stands for "Concurrent Versions System" and the CVS for DXSpider is held
+at
+<A HREF="http://www.sourceforge.net">Sourceforge</A>. This means
+that it is possible to update your DXSpider installation to the latest
+sources by using a few simple commands.
<P>
-<BLOCKQUOTE><CODE>
-<PRE>
-dbcreate <name>
-</PRE>
-</CODE></BLOCKQUOTE>
-<P>To simply create a database locally, you just tell the command the
-name of the database. This does not create the actual database, it
-simply defines it to say that it exists.
+<P>THIS IS NOT FOR THE FAINT HEARTED!!! ONLY DO THIS IF YOU HAVE A TEST
+INSTALLATION OR ARE WILLING TO HAVE YOUR CLUSTER CRASH ON YOU!!!
+THIS MUST BE CONSIDERED AT LEAST BETA TESTING AND MAYBE EVEN ALPHA!!
+YOU HAVE BEEN WARNED!!!
<P>
-<BLOCKQUOTE><CODE>
-<PRE>
-dbcreate <name> chain <name> [<name>...]
-</PRE>
-</CODE></BLOCKQUOTE>
-<P>This creates a chained database entry. The first database will be
-scanned, then the second, the third etc...
+<P>DID I MENTION..... ONLY DO THIS IF YOU ARE WILLING TO ACCEPT THE
+CONSEQUENCES!!!
<P>
-<BLOCKQUOTE><CODE>
-<PRE>
-dbcreate <name> remote <name>
-</PRE>
-</CODE></BLOCKQUOTE>
-<P>This creates a remote entry. the first name field is the database
-name at the remote node, then the remote switch, then the actual
-node_call of the remote node, for example...
+<P>I am of course assuming that you have a machine with both DXSpider and
+Internet access running.
<P>
-<BLOCKQUOTE><CODE>
-<PRE>
-dbcreate buckmaster remote gb7dxc
-</PRE>
-</CODE></BLOCKQUOTE>
-<P>Remote databases cannot be chained, however, the last database in a
-chain can be a remote database.
+<P>BEFORE YOU EVEN CONSIDER STARTING WITH THIS MAKE A BACKUP OF YOUR
+ENTIRE SPIDER TREE!!
<P>
-<H2><A NAME="ss6.2">6.2 Importing databases</A>
-</H2>
-
-<P>The only databases that Spider can currently import are the standard
-AK1A databases such as OBLAST or the DB0SDX qsl and address database.
-This will be added to with time.
-<P>To import such a database, first put the file somewhere useful like /tmp
-and then issue the following command ...
+<P>Assuming you are connected to the Internet, you need to login to the
+CVS repository and then update your Spider source. There are several
+steps which are listed below ...
+<P>
+<P>First login as the user <EM>sysop</EM>. Next you need to connect to the CVS
+repository. You do this with the command below ...
<P>
-<BLOCKQUOTE><CODE>
<PRE>
-dbimport oblast /tmp/OBLAST.FUL
+cvs -d:pserver:anonymous@cvs.DXSpider.sourceforge.net:/cvsroot/dxspider login
</PRE>
-</CODE></BLOCKQUOTE>
-<P>This will update the existing local oblast database or create it if
-it does not exist.
+<P>You will get a password prompt. Simply hit return here and your machine should
+return to a normal linux prompt.
<P>
-<H2><A NAME="ss6.3">6.3 Checking available databases</A>
-</H2>
-
-<P>Once a database is created, you will want to check that it has been
-added. To do this use the <EM>dbavail</EM> command. This will
-output the available databases. For example ...
+<P>What happens next depends on whether you have an existing installation that
+you want to update with the latest and greatest or whether you just want
+to see what is there and/or run it on a new machine for testing.
+<P>If you are installing Spider from CVS then change directory to /home/sysop
+<P>If you are wanting to update Spider then cd to /tmp
+<P>
+<P>The next step will create a brand new 'spider' directory in your current
+directory.
<P>
-<BLOCKQUOTE><CODE>
<PRE>
-dbavail
-DB Name Location Chain
-qsl Local
-buck GB7ADX
-hftest GB7DXM
-G0VGS de GB7MBC 3-Feb-2001 1925Z >
+cvs -z3 -d:pserver:anonymous@cvs.DXSpider.sourceforge.net:/cvsroot/dxspider co spider
</PRE>
-</CODE></BLOCKQUOTE>
+<P>This command is all on one line.
<P>
-<H2><A NAME="ss6.4">6.4 Looking up databases</A>
-</H2>
-
-<P>To look for information in a defined database, simply use the <EM>dbshow</EM>
-command, for example ...
+<P>Hopefully your screen should show you downloading files. The -z3 simply compresses
+the download to improve speed.
+When this has finished, you will have exactly the same as if you had untarred a full
+tarball PLUS some extra directories and files that CVS needs to do the magic that
+it does.
<P>
-<BLOCKQUOTE><CODE>
-<PRE>
-dbshow buckmaster G0YLM
-</PRE>
-</CODE></BLOCKQUOTE>
-<P>will show the information for the callsign G0YLM from the buckmaster
-database if it exists. To make things more standard for the users
-you can add an entry in the Aliases file so that it looks like a standard
-<EM>show</EM> command like this ...
+<P>Now if you are doing a new installation, that's it. Carry on as if you have
+just downloaded and untarred the lastest tarball.
+<P>
+<P>If you want to upgrade your current installation then do this ...
<P>
<BLOCKQUOTE><CODE>
<PRE>
-'^sh\w*/buc', 'dbshow buckmaster', 'dbshow',
+tar cvfz /tmp/s.tgz spider
+cd /
+tar xvfzp /tmp/s.tgz
</PRE>
</CODE></BLOCKQUOTE>
-<P>Now you can simply use show/buckmaster or an abreviation.
+<P>This is assuming you downloaded to the /tmp directory of course.
<P>
-<H2><A NAME="ss6.5">6.5 Removing databases</A>
-</H2>
-
-<P>To delete an existing database you use the <EM>dbremove</EM> command.
-For example ...
+<P>NOTE: the 'p' on the end of the 'xvfz' is IMPORTANT! It keeps the permissions
+correct. YOU WERE LOGGED IN AS THE USER SYSOP WEREN'T YOU?????
+<P>Remember to recompile the C client (cd /spider/src; make)
+<P>
+<P>At this point the files have been upgraded. You can (usually) restart the cluster
+in your own time. However, if you attempt to use any new commands or features
+expect it to be fatal! At least your cluster will have been restarted then so it
+will be too late to worry about it!
+<P>
+<P>Now the magic part! From now on when you want to update, simply connect to the
+Internet and then, as the user <EM>sysop</EM> ...
<P>
<BLOCKQUOTE><CODE>
<PRE>
-dbremove oblast
+cd /spider
+cvs -z3 update -d
</PRE>
</CODE></BLOCKQUOTE>
-<P>would remove the oblast database and its associated datafile from the
-system. There are no warnings or recovery possible from this command.
-If you remove a database it ceases to exist and would have to be created
-from scratch if you still required it.
+<P>and your files will be updated. As above, remember to recompile the "C" client
+if it has been updated (CVS will tell you) and restart if any of the perl scripts
+have been altered or added, again, CVS will tell you.
+<P>
+<P>You will find any changes documented in the /spider/Changes file.
<P>
<HR>
<A HREF="adminmanual-7.html">Next</A>
<HTML>
<HEAD>
<META NAME="GENERATOR" CONTENT="SGML-Tools 1.0.9">
- <TITLE>The DXSpider Administration Manual v1.47: Information, files and useful programs</TITLE>
- <LINK HREF="adminmanual-8.html" REL=next>
+ <TITLE>The DXSpider Administration Manual v1.48: The DXSpider command set</TITLE>
<LINK HREF="adminmanual-6.html" REL=previous>
<LINK HREF="adminmanual.html#toc7" REL=contents>
<link rel=stylesheet href="style.css" type="text/css" title="default stylesheet">
</HEAD>
<BODY>
-<A HREF="adminmanual-8.html">Next</A>
+Next
<A HREF="adminmanual-6.html">Previous</A>
<A HREF="adminmanual.html#toc7">Contents</A>
<HR>
-<H2><A NAME="s7">7. Information, files and useful programs</A></H2>
+<H2><A NAME="s7">7. The DXSpider command set</A></H2>
-<H2><A NAME="ss7.1">7.1 MOTD</A>
+<P>Below is a complete list of commands available from the cluster prompt.
+Most maintenance tasks are automatic but there are some commands that are useful
+for a sysop. These are listed below in alphabetical order. The number in
+brackets following the command name is the permissions level needed to use
+the command.
+<P>
+<H2><A NAME="ss7.1">7.1 accept/announce (0)</A>
+</H2>
+
+<P><CODE><B>accept/announce [0-9] <pattern></B> Set an accept filter
+line for announce</CODE>
+<P>
+<P>Create an 'accept this announce' line for a filter.
+<P>An accept filter line means that if the announce matches this filter it is
+passed onto the user. See HELP FILTERS for more info. Please read this
+to understand how filters work - it will save a lot of grief later on.
+<P>You can use any of the following things in this line:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ info <string> eg: iota or qsl
+ by <prefixes> eg: G,M,2
+ origin <prefixes>
+ origin_dxcc <numbers> eg: 61,62 (from eg: sh/pre G)
+ origin_itu <numbers>
+ origin_zone <numbers>
+ by_dxcc <numbers>
+ by_itu <numbers>
+ by_zone <numbers>
+ channel <prefixes>
+ wx 1 filter WX announces
+ dest <prefixes> eg: 6MUK,WDX (distros)
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>some examples:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ acc/ann dest 6MUK
+ acc/ann 2 by_zone 14,15,16
+ (this could be all on one line: acc/ann dest 6MUK or by_zone 14,15,16)
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>or
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ acc/ann by G,M,2
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>This filter would only allow announces that were posted buy UK stations.
+You can use the tag 'all' to accept everything eg:
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ acc/ann all
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>but this probably for advanced users...
+<P>
+<H2><A NAME="ss7.2">7.2 accept/announce (extended for sysops) (8)</A>
+</H2>
+
+<P><CODE><B>accept/announce <call> [input] [0-9]<pattern></B> Announce filter sysop version</CODE>
+<P>
+<P>This version allows a sysop to set a filter for a callsign as well as the
+default for nodes and users eg:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ accept/ann by G,M,2
+ accept/ann input node_default by G,M,2
+ accept/ann user_default by G,M,2
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss7.3">7.3 accept/route (8)</A>
+</H2>
+
+<P><CODE><B>accept/route <call> [0-9] <pattern></B> Set an 'accept' filter line for routing</CODE>
+<P>
+<P>Create an 'accept this routing PC Protocol' line for a filter.
+<P>
+<P>An accept filter line means that if a PC16/17/19/21/24/41/50 matches this filter
+it is passed thru that interface. See HELP FILTERING for more info. Please read this
+to understand how filters work - it will save a lot of grief later on.
+<P>
+<P>You can use any of the following things in this line:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ call <prefixes> the callsign of the thingy
+ call_dxcc <numbers> eg: 61,62 (from eg: sh/pre G)
+ call_itu <numbers>
+ call_zone <numbers>
+ origin <prefixes> really the interface it came in on
+ origin_dxcc <numbers> eg: 61,62 (from eg: sh/pre G)
+ origin_itu <numbers>
+ origin_zone <numbers>
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<P>some examples:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ acc/route gb7djk call_dxcc 61,38 (send only UK+EIRE nodes)
+ acc/route gb7djk call gb7djk (equiv to SET/ISOLATE)
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<P>You can use the tag 'all' to accept everything eg:
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ acc/route all
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss7.4">7.4 accept/spots (0)</A>
+</H2>
+
+<P><CODE><B>accept/announce [0-9] <pattern></B> Set an accept filter line for spots</CODE>
+<P>
+<P>Create an 'accept this spot' line for a filter.
+<P>
+<P>An accept filter line means that if the spot matches this filter it is
+passed onto the user. See HELP FILTERS for more info. Please read this
+to understand how filters work - it will save a lot of grief later on.
+<P>You can use any of the following things in this line:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ freq <range> eg: 0/30000 or hf or hf/cw or 6m,4m,2m
+ on <range> same as 'freq'
+ call <prefixes> eg: G,PA,HB9
+ info <string> eg: iota or qsl
+ by <prefixes>
+ call_dxcc <numbers> eg: 61,62 (from eg: sh/pre G)
+ call_itu <numbers>
+ call_zone <numbers>
+ by_dxcc <numbers>
+ by_itu <numbers>
+ by_zone <numbers>
+ origin <prefixes>
+ channel <prefixes>
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<P>For frequencies, you can use any of the band names defined in
+SHOW/BANDS and you can use a subband name like: cw, rtty, data, ssb -
+thus: hf/ssb. You can also just have a simple range like: 0/30000 -
+this is more efficient than saying simply: freq HF (but don't get
+too hung up about that)
+<P>some examples:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ acc/spot 1 on hf/cw
+ acc/spot 2 on vhf and (by_zone 14,15,16 or call_zone 14,15,16)
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>You can use the tag 'all' to accept everything, eg:
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ acc/spot 3 all
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>but this probably for advanced users...
+<P>
+<H2><A NAME="ss7.5">7.5 accept/spots (extended for sysops) (8)</A>
+</H2>
+
+<P><CODE><B>accept/spots <call> [input] [0-9] <pattern></B> Spot filter sysop version</CODE>
+<P>
+<P>This version allows a sysop to set a filter for a callsign as well as the
+default for nodes and users eg:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ accept/spot db0sue-7 1 by_zone 14,15,16
+ accept/spot node_default all
+ set/hops node_default 10
+
+ accept/spot user_default by G,M,2
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss7.6">7.6 accept/wcy (0)</A>
+</H2>
+
+<P><CODE><B>accept/wcy [0-9] <pattern></B> set an accept WCY filter</CODE>
+<P>
+<P>It is unlikely that you will want to do this, but if you do then you can
+filter on the following fields:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ by <prefixes> eg: G,M,2
+ origin <prefixes>
+ origin_dxcc <numbers> eg: 61,62 (from eg: sh/pre G)
+ origin_itu <numbers>
+ origin_zone <numbers>
+ by_dxcc <numbers>
+ by_itu <numbers>
+ by_zone <numbers>
+ channel <prefixes>
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<P>There are no examples because WCY Broadcasts only come from one place and
+you either want them or not (see UNSET/WCY if you don't want them).
+<P>This command is really provided for future use.
+<P>See HELP FILTER for information.
+<P>
+<H2><A NAME="ss7.7">7.7 accept/wcy (extended for sysops) (8)</A>
+</H2>
+
+<P><CODE><B>accept/wcy <call> [input] [0-9] <pattern></B>
+WCY filter sysop version</CODE>
+<P>
+<P>This version allows a sysop to set a filter for a callsign as well as the
+default for nodes and users eg:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ accept/wcy node_default all
+ set/hops node_default 10
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss7.8">7.8 accept/wwv (0)</A>
+</H2>
+
+<P><CODE><B>accept/wwv [0-9] <pattern></B> Set an accept WWV filter</CODE>
+<P>
+<P>It is unlikely that you will want to do this, but if you do then you can
+filter on the following fields:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ by <prefixes> eg: G,M,2
+ origin <prefixes>
+ origin_dxcc <numbers> eg: 61,62 (from eg: sh/pre G)
+ origin_itu <numbers>
+ origin_zone <numbers>
+ by_dxcc <numbers>
+ by_itu <numbers>
+ by_zone <numbers>
+ channel <prefixes>
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>for example
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ accept/wwv by_zone 4
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>is probably the only useful thing to do (which will only show WWV broadcasts
+by stations in the US).
+<P>See HELP FILTER for information.
+<P>
+<H2><A NAME="ss7.9">7.9 accept/wwv (extended for sysops) (8)</A>
+</H2>
+
+<P><CODE><B>accept/wwv <call> [input] [0-9] <pattern></B>
+WWV filter sysop version</CODE>
+<P>
+<P>This version allows a sysop to set a filter for a callsign as well as the
+default for nodes and users eg:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ accept/wwv db0sue-7 1 by_zone 4
+ accept/wwv node_default all
+ set/hops node_default 10
+
+ accept/wwv user_default by W,K
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss7.10">7.10 announce (0)</A>
+</H2>
+
+<P><CODE><B>announce <text></B> Send an announcement to local users</CODE>
+<P>
+<P>Send an announcement to LOCAL users only, where <text> is the text
+of the announcement you wish to broadcast. If you do not wish to receive
+announces, use the <EM>set/noannounce</EM> command. Any announces made by
+a sysop will override set/noannounce.
+<P>
+<H2><A NAME="ss7.11">7.11 announce full (0)</A>
+</H2>
+
+<P><CODE><B>announce full <text></B> Send an announcement cluster wide</CODE>
+<P>
+<P>This command will send your announcement across the whole cluster
+network.
+<P>
+<P>
+<H2><A NAME="ss7.12">7.12 announce sysop (5)</A>
+</H2>
+
+<P><CODE><B>announce sysop <text></B></CODE>
+<P>
+<P>Send an announcement to Sysops only
+<P>
+<H2><A NAME="ss7.13">7.13 apropos (0)</A>
+</H2>
+
+<P><CODE><B>apropos <string></B> Search the help database</CODE>
+<P>
+<P>Search the help database for <string> (it isn't case sensitive),
+and print the names of all the commands that may be relevant.
+<P>
+<H2><A NAME="ss7.14">7.14 bye (0)</A>
+</H2>
+
+<P><CODE><B>bye</B> Exit from the cluster</CODE>
+<P>
+<P>This will disconnect you from the cluster
+<P>
+<H2><A NAME="ss7.15">7.15 catchup (5)</A>
+</H2>
+
+<P><CODE><B>catchup <node_call> All|[<msgno> ...]</B> Mark a message as sent</CODE>
+<P>
+<P>When you send messages the fact that you have forwarded it to another node
+is remembered so that it isn't sent again. When you have a new partner
+node and you add their callsign to your /spider/msg/forward.pl file, all
+outstanding non-private messages will be forwarded to them. This may well
+be ALL the non-private messages. You can prevent this by using these
+commmands:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ catchup GB7DJK all
+ catchup GB7DJK 300 301 302 303 500-510
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>and to undo what you have just done:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ uncatchup GB7DJK all
+ uncatchup GB7DJK 300 301 302 303 500-510
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>which will arrange for them to be forward candidates again.
+<P>Order is not important.
+<P>
+<H2><A NAME="ss7.16">7.16 clear/spots (0)</A>
+</H2>
+
+<P><CODE><B>clear/spots [1|all]</B> Clear a spot filter line</CODE>
+<P>
+<P>This command allows you to clear (remove) a line in a spot filter or to
+remove the whole filter.
+<P>If you have a filter:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ acc/spot 1 on hf/cw
+ acc/spot 2 on vhf and (by_zone 14,15,16 or call_zone 14,15,16)
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>and you say:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ clear/spot 1
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>you will be left with:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ acc/spot 2 on vhf and (by_zone 14,15,16 or call_zone 14,15,16)
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>If you do:
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ clear/spot all
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>the filter will be completely removed.
+<P>
+<P>
+<H2><A NAME="ss7.17">7.17 connect (5) </A>
+</H2>
+
+<P><CODE><B>connect <callsign></B> Start a connection to another DX Cluster</CODE>
+<P>
+<P>Start a connection process that will culminate in a new connection to the
+DX cluster <callsign>. This process creates a new 'client' process which will
+use the script in /spider/connect/<callsign> to effect the 'chat' exchange
+necessary to traverse the network(s) to logon to the cluster <callsign>.
+<P>
+<H2><A NAME="ss7.18">7.18 dbavail (0)</A>
+</H2>
+
+<P><CODE><B>dbavail</B> Show a list of all the databases in the system</CODE>
+<P>
+<P>The title says it all really, this command lists all the databases defined
+in the system. It is also aliased to SHOW/COMMAND.
+<P>
+<H2><A NAME="ss7.19">7.19 dbcreate (9)</A>
+</H2>
+
+<P><CODE><B>dbcreate <name></B> Create a database entry<BR>
+<B>dbcreate <name> chain <name> [<name>..]</B> Create a chained database entry<BR>
+<B>dbcreate <name> remote <node></B> Create a remote database
+entry<BR></CODE>
+<P>
+<P>DBCREATE allows you to define a database in the system. It doesn't actually
+create anything, just defines it.
+<P>The databases that are created are simple DB_File hash databases, they are
+therefore already 'indexed'.
+<P>You can define a local database with the first form of the command eg:
+<P>DBCREATE oblast
+<P>You can also chain databases with the addition of the 'chain' keyword.
+This will search each database one after the other. A typical example
+is:
+<P>DBCREATE sdx_qsl chain sql_ad
+<P>No checking is done to see if the any of the chained databases exist, in
+fact it is usually better to do the above statement first then do each of
+the chained databases.
+<P>Databases can exist offsite. To define a database that lives on another
+node do:
+<P>DBCREATE buckmaster remote gb7dxc
+<P>Remote databases cannot be chained; however, the last database in a
+a chain can be a remote database eg:
+<P>DBCREATE qsl chain gb7dxc
+<P>To see what databases have been defined do:
+<P>DBAVAIL (or it will have been aliased to SHOW/COMMAND)
+<P>It would be normal for you to add an entry into your local Aliases file
+to allow people to use the 'SHOW/<dbname>' style syntax. So you would
+need to add a line like:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ 's' => [
+ ..
+ ..
+ '^sh\w*/buc', 'dbshow buckmaster', 'dbshow',
+ ..
+ ..
+ ],
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>to allow
+<P>SH/BUCK g1tlh
+<P>to work as they may be used to.
+<P>See DBIMPORT for the importing of existing AK1A format data to databases.
+See DBSHOW for generic database enquiry
+<P>
+<H2><A NAME="ss7.20">7.20 dbimport (9)</A>
+</H2>
+
+<P><CODE><B>dbimport <dbname></B> Import AK1A data into a database</CODE>
+<P>
+<P>If you want to import or update data in bulk to a database you can use
+this command. It will either create or update entries into an existing
+database. For example:-
+<P>DBIMPORT oblast /tmp/OBLAST.FUL
+<P>will import the standard OBLAST database that comes with AK1A into the
+oblast database held locally.
+<P>
+<H2><A NAME="ss7.21">7.21 dbremove (9)</A>
+</H2>
+
+<P><CODE><B>dbremove <dbname></B> Delete a database</CODE>
+<P>
+<P>DBREMOVE will completely remove a database entry and also delete any data
+file that is associated with it.
+<P>There is no warning, no comeback, no safety net.
+<P>For example:
+<P>DBREMOVE oblast
+<P>will remove the oblast database from the system and it will also remove
+the associated datafile.
+<P>I repeat:
+<P>There is no warning, no comeback, no safety net.
+<P>You have been warned.
+<P>
+<H2><A NAME="ss7.22">7.22 dbshow (0)</A>
+</H2>
+
+<P><CODE><B>dbshow <dbname> <key></B> Display an entry, if it exists, in a database</CODE>
+<P>
+<P>This is the generic user interface to the database to the database system.
+It is expected that the sysop will add an entry to the local Aliases file
+so that users can use the more familiar AK1A style of enquiry such as:
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ SH/BUCK G1TLH
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>but if he hasn't and the database really does exist (use DBAVAIL or
+SHOW/COMMAND to find out) you can do the same thing with:
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ DBSHOW buck G1TLH
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<P>
+<H2><A NAME="ss7.23">7.23 debug (9)</A>
+</H2>
+
+<P><CODE><B>debug</B> Set the cluster program into debug mode</CODE>
+<P>
+<P>Executing this command will only have an effect if you are running the cluster
+in debug mode i.e.
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ perl -d cluster.pl
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>It will interrupt the cluster just after the debug command has finished.
+<P>
+<H2><A NAME="ss7.24">7.24 directory (0)</A>
+</H2>
+
+<P><CODE><B>directory</B> List messages<BR> <B>directory all</B> List all messages<BR>
+<B>directory own</B> List your own messages<BR>
+<B>directory new</B> List all new messages<BR>
+<B>directory to <call></B> List all messages to <call><BR>
+<B>directory from <call></B> List all messages from <call><BR>
+<B>directory subject <string></B> List all messages with <string> in subject<BR>
+<B>directory <nn></B> List last <nn> messages<BR>
+<B>directory <from>-<to></B> List messages <from> message <to> message <BR></CODE>
+<P>
+<P>List the messages in the messages directory.
+<P>If there is a 'p' one space after the message number then it is a
+personal message. If there is a '-' between the message number and the
+'p' then this indicates that the message has been read.
+<P>You can use shell escape characters such as '*' and '?' in the <call>
+fields.
+<P>You can combine some of the various directory commands together eg:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ DIR TO G1TLH 5
+or
+ DIR SUBJECT IOTA 200-250
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>You can abbreviate all the commands to one letter and use ak1a syntax:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ DIR/T G1* 10
+ DIR/S QSL 10-100 5
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<P>
+<H2><A NAME="ss7.25">7.25 directory (extended for sysops) (5)</A>
+</H2>
+
+<P>Works just like the user command except that sysops can see ALL messages.
+<P>
+<H2><A NAME="ss7.26">7.26 disconnect (8)</A>
+</H2>
+
+<P><CODE><B>disconnect <call> [<call> ...]</B> Disconnect a user or node</CODE>
+<P>
+<P>Disconnect any <call> connected locally
+<P>
+<H2><A NAME="ss7.27">7.27 dx (0)</A>
+</H2>
+
+<P><CODE><B>dx [by <call>] <freq> <call> <remarks></B> Send a DX spot</CODE>
+<P>
+<P>This is how you send a DX Spot to other users. You can, in fact, now
+enter the <freq> and the <call> either way round.
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ DX FR0G 144.600
+ DX 144.600 FR0G
+ DX 144600 FR0G
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>will all give the same result. You can add some remarks to the end
+of the command and they will be added to the spot.
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ DX FR0G 144600 this is a test
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>You can credit someone else by saying:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ DX by G1TLH FR0G 144.600 he isn't on the cluster
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>The <freq> is compared against the available bands set up in the
+cluster. See SHOW/BANDS for more information.
+<P>
+<H2><A NAME="ss7.28">7.28 export (9)</A>
+</H2>
+
+<P><CODE><B>export <msgno> <filename></B> Export a message to a file</CODE>
+<P>
+<P>Export a message to a file. This command can only be executed on a local
+console with a fully privileged user. The file produced will be in a form
+ready to be imported back into the cluster by placing it in the import
+directory (/spider/msg/import).
+<P>This command cannot overwrite an existing file. This is to provide some
+measure of security. Any files written will owned by the same user as the
+main cluster, otherwise you can put the new files anywhere the cluster can
+access. For example:-
+<P>EXPORT 2345 /tmp/a
+<P>
+<H2><A NAME="ss7.29">7.29 export_users (9)</A>
+</H2>
+
+<P><CODE><B>export_users [<filename>]</B> Export the users database to ascii</CODE>
+<P>
+<P>Export the users database to a file in ascii format. If no filename
+is given then it will export the file to /spider/data/user_asc.
+<P>If the file already exists it will be renamed to <filename>.o. In fact
+up to 5 generations of the file can be kept each one with an extra 'o' on the
+suffix.
+<P>BE WARNED: this will write to any file you have write access to. No check is
+made on the filename (if any) that you specify.
+<P>
+<H2><A NAME="ss7.30">7.30 forward/latlong (8)</A>
+</H2>
+
+<P><CODE><B>forward/latlong <node_call></B> Send latitude and longitude information to another cluster</CODE>
+<P>
+<P>This command sends all the latitude and longitude information that your
+cluster is holding against callsigns. One advantage of recieving this
+information is that more locator information is held by you. This
+means that more locators are given on the DX line assuming you have
+<EM>set/dxgrid</EM> enabled. This could be a LOT of information though, so
+it is not recommended on slow links.
+<P>
+<H2><A NAME="ss7.31">7.31 forward/opername (1)</A>
+</H2>
+
+<P><CODE><B>forward/opername <call></B> Send out information on this <call> to all clusters</CODE>
+<P>
+<P>This command sends out any information held in the user file which can
+be broadcast in PC41 protocol packets. This information is Name, QTH, Location
+and Homenode. PC41s are only sent for the information that is available.
+<P>
+<H2><A NAME="ss7.32">7.32 help (0)</A>
+</H2>
+
+<P><CODE><B>help <cmd></B> Get help on a command</CODE>
+<P>
+<P>All commands can be abbreviated, so SHOW/DX can be abbreviated
+to SH/DX, ANNOUNCE can be shortened to AN and so on.
+<P>Look at the APROPOS <string> command which will search the help database
+for the <string> you specify and give you a list of likely commands
+to look at with HELP.
+<P>
+<H2><A NAME="ss7.33">7.33 init (5)</A>
+</H2>
+
+<P><CODE><B>init <node call></B> Re-initialise a link to an AK1A compatible node</CODE>
+<P>
+<P>This command attempts to re-initialise a link to a (usually) AK1A node
+that has got confused, usually by a protocol loop of some kind. It may
+work - but you usually will be better off simply disconnecting it (or
+better, if it is a real AK1A node, doing an RCMD <node> DISC/F <your
+node>).
+<P>Best of luck - you will need it.
+<P>
+<H2><A NAME="ss7.34">7.34 kill (0)</A>
+</H2>
+
+<P><CODE><B>kill <msgno> [<msgno> ..]</B> Delete a message from the local system</CODE>
+<P>
+<P>Delete a message from the local system. You will only be able to
+delete messages that you have originated or been sent (unless you are
+the sysop).
+<P>
+<H2><A NAME="ss7.35">7.35 kill (5)</A>
+</H2>
+
+<P><CODE><B>kill <msgno> [<msgno> ...]</B> Remove or erase a message from the system<BR>
+<B>kill from <call></B> Remove all messages from a callsign<BR>
+<B>kill to <call></B> Remove all messages to a callsign<BR></CODE>
+<P>
+<P>You can get rid of any message to or originating from your callsign using
+this command. You can remove more than one message at a time.
+<P>As a sysop you can kill any message on the system.
+<P>
+<H2><A NAME="ss7.36">7.36 kill full (5)</A>
+</H2>
+
+<P><CODE><B>kill full <msgno> [<msgno>]</B> Delete a message from the whole cluster</CODE>
+<P>
+<P>Delete a message (usually a 'bulletin') from the whole cluster system.
+<P>This uses the subject field, so any messages that have exactly the same subject
+will be deleted. Beware!
+<P>
+<H2><A NAME="ss7.37">7.37 links (0)</A>
+</H2>
+
+<P><CODE><B>links</B> Show which nodes are physically connected</CODE>
+<P>
+<P>This is a quick listing that shows which links are connected and
+some information about them. See WHO for a list of all connections.
+<P>
+<P>
+<H2><A NAME="ss7.38">7.38 load/aliases (9)</A>
+</H2>
+
+<P><CODE><B>load/aliases</B> Reload the command alias table</CODE>
+<P>
+<P>Reload the /spider/cmd/Aliases file after you have editted it. You will need to
+do this if you change this file whilst the cluster is running in order for the
+changes to take effect.
+<P>
+<P>
+<H2><A NAME="ss7.39">7.39 load/baddx (9)</A>
+</H2>
+
+<P><CODE><B>load/baddx</B> Reload the bad DX table</CODE>
+<P>
+<P>Reload the /spider/data/baddx.pl file if you have changed it manually whilst
+the cluster is running. This table contains the DX Calls that, if spotted,
+will not be passed on. FR0G and TEST are classic examples.
+<P>
+<H2><A NAME="ss7.40">7.40 load/badmsg (9)</A>
+</H2>
+
+<P><CODE><B>load/badmsg</B> Reload the bad message table</CODE>
+<P>
+<P>Reload the /spider/msg/badmsg.pl file if you have changed it manually whilst
+the cluster is running. This table contains a number of perl regular
+expressions which are searched for in the fields targetted of each message.
+If any of them match then that message is immediately deleted on receipt.
+<P>
+<H2><A NAME="ss7.41">7.41 load/badwords (9)</A>
+</H2>
+
+<P><CODE><B>load/badwords</B> Reload the badwords file</CODE>
+<P>
+<P>Reload the /spider/data/badwords file if you have changed it manually whilst
+the cluster is running. This file contains a list of words which, if found
+on certain text portions of PC protocol, will cause those protocol frames
+to be rejected. It will all put out a message if any of these words are
+used on the announce, dx and talk commands. The words can be one or
+more on a line, lines starting with '#' are ignored.
+<P>
+<H2><A NAME="ss7.42">7.42 load/bands (9)</A>
+</H2>
+
+<P><CODE><B>load/bands</B> Reload the band limits table</CODE>
+<P>
+<P>Reload the /spider/data/bands.pl file if you have changed it manually whilst
+the cluster is running.
+<P>
+<H2><A NAME="ss7.43">7.43 load/cmd_cache (9)</A>
+</H2>
+
+<P><CODE><B>load/cmd_cache</B> Reload the automatic command cache</CODE>
+<P>
+<P>Normally, if you change a command file in the cmd or local_cmd tree it will
+automatially be picked up by the cluster program. Sometimes it can get confused
+if you are doing a lot of moving commands about or delete a command in the
+local_cmd tree and want to use the normal one again. Execute this command to
+reset everything back to the state it was just after a cluster restart.
+<P>
+<H2><A NAME="ss7.44">7.44 load/forward (9)</A>
+</H2>
+
+<P><CODE><B>load/forward</B> Reload the msg forwarding routing table</CODE>
+<P>Reload the /spider/msg/forward.pl file if you have changed it
+manually whilst the cluster is running.
+<P>
+<H2><A NAME="ss7.45">7.45 load/messages (9)</A>
+</H2>
+
+<P><CODE><B>load/messages</B> Reload the system messages file</CODE>
+<P>
+<P>If you change the /spider/perl/Messages file (usually whilst fiddling/writing ne
+commands) you can have them take effect during a cluster session by executing this
+command. You need to do this if get something like :-
+<P>unknown message 'xxxx' in lang 'en'
+<P>
+<H2><A NAME="ss7.46">7.46 load/prefixes (9)</A>
+</H2>
+
+<P><CODE><B>load/prefixes</B> Reload the prefix table</CODE>
+<P>
+<P>Reload the /spider/data/prefix_data.pl file if you have changed it manually
+whilst the cluster is running.
+<P>
+<H2><A NAME="ss7.47">7.47 merge (5)</A>
+</H2>
+
+<P><CODE><B>merge <node> [<no spots>/<no wwv>]</B> Ask for the latest spots and WWV</CODE>
+<P>
+<P>MERGE allows you to bring your spot and wwv database up to date. By default
+it will request the last 10 spots and 5 WWVs from the node you select. The
+node must be connected locally.
+<P>You can request any number of spots or wwv and although they will be appended
+to your databases they will not duplicate any that have recently been added
+(the last 2 days for spots and last month for WWV data).
+<P>
+<H2><A NAME="ss7.48">7.48 msg (9)</A>
+</H2>
+
+<P><CODE><B>msg <cmd> <msgno> [data ...]</B> Alter various message parameters</CODE>
+<P>
+<P>Alter message parameters like To, From, Subject, whether private or bulletin
+or return receipt (RR) is required or whether to keep this message from timing
+out.
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ MSG TO <msgno> <call> - change TO callsign to <call>
+ MSG FRom <msgno> <call> - change FROM callsign to <call>
+ MSG PRrivate <msgno> - set private flag
+ MSG NOPRrivate <msgno> - unset private flag
+ MSG RR <msgno> - set RR flag
+ MSG NORR <msgno> - unset RR flag
+ MSG KEep <msgno> - set the keep flag (message won't be deleted ever)
+ MSG NOKEep <msgno> - unset the keep flag
+ MSG SUbject <msgno> <new> - change the subject to <new>
+ MSG WAittime <msgno> - remove any waitting time for this message
+ MSG NOREad <msgno> - mark message as unread
+ MSG REad <msgno> - mark message as read
+ MSG QUeue - queue any outstanding bulletins
+ MSG QUeue 1 - queue any outstanding private messages
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>You can look at the status of a message by using:-
+<P>STAT/MSG <msgno>
+<P>This will display more information on the message than DIR does.
+<P>
+<H2><A NAME="ss7.49">7.49 pc (8)</A>
+</H2>
+
+<P><CODE><B>pc <call> <text></B> Send text (eg PC Protocol) to <call></CODE>
+<P>
+<P>Send some arbitrary text to a locally connected callsign. No processing is done on
+the text. This command allows you to send PC Protocol to unstick things if problems
+arise (messages get stuck etc). eg:-
+<P>pc gb7djk PC33^GB7TLH^GB7DJK^400^
+<P>You can also use in the same way as a talk command to a connected user but
+without any processing, added of "from <blah> to <blah>" or whatever.
+<P>pc G1TLH Try doing that properly!!!
+<P>
+<H2><A NAME="ss7.50">7.50 ping (1)</A>
+</H2>
+
+<P><CODE><B>ping <node></B> Check the link quality between nodes</CODE>
+<P>
+<P>his command allows you to send a frame to another cluster node on
+the network and get a return frame. The time it takes to do this
+is a good indication of the quality of the link. The actual time
+it takes is output to the console in seconds.
+Any visible cluster node can be PINGed.
+<P>
+<P>
+<H2><A NAME="ss7.51">7.51 rcmd (1)</A>
+</H2>
+
+<P><CODE><B>rcmd <node call> <cmd></B> Send a command to another DX cluster</CODE>
+<P>
+<P>This command allows you to send nearly any command to another DX Cluster
+node that is connected to the system.
+<P>Whether you get any output is dependant on a) whether the other system knows
+that the node callsign of this cluster is in fact a node b) whether the
+other system is allowing RCMDs from this node and c) whether you have
+permission to send this command at all.
+<P>
+<H2><A NAME="ss7.52">7.52 read (0)</A>
+</H2>
+
+<P><CODE><B>read</B> Read the next unread personal message addressed to you<BR>
+<B>read <msgno></B> Read the specified message<BR></CODE>
+<P>
+<P>You can read any messages that are sent as 'non-personal' and also any
+message either sent by or sent to your callsign.
+<P>
+<P>
+<H2><A NAME="ss7.53">7.53 read (extended for sysops) (5) </A>
+</H2>
+
+<P><CODE><B>read <msgno></B> Read a message on the system</CODE>
+<P>
+<P>As a sysop you may read any message on the system
+<P>
+<H2><A NAME="ss7.54">7.54 reject/announce</A>
+</H2>
+
+<P><CODE><B>reject/announce [0-9] <pattern></B> Set a reject filter
+for announce</CODE>
+<P>
+<P>Create an 'reject this announce' line for a filter.
+<P>An reject filter line means that if the announce matches this filter it is
+passed onto the user. See HELP FILTERS for more info. Please read this
+to understand how filters work - it will save a lot of grief later on.
+<P>You can use any of the following things in this line:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ info <string> eg: iota or qsl
+ by <prefixes> eg: G,M,2
+ origin <prefixes>
+ origin_dxcc <numbers> eg: 61,62 (from eg: sh/pre G)
+ origin_itu <numbers>
+ origin_zone <numbers>
+ by_dxcc <numbers>
+ by_itu <numbers>
+ by_zone <numbers>
+ channel <prefixes>
+ wx 1 filter WX announces
+ dest <prefixes> eg: 6MUK,WDX (distros)
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>some examples:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ rej/ann by_zone 14,15,16 and not by G,M,2
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>You can use the tag 'all' to reject everything eg:
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ rej/ann all
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>but this probably for advanced users...
+<P>
+<H2><A NAME="ss7.55">7.55 reject/announce (extended for sysops) (8)</A>
+</H2>
+
+<P><CODE><B>reject/announce <call> [input] [0-9] <pattern></B> Announce filter sysop version</CODE>
+<P>
+<P>This version allows a sysop to set a filter for a callsign as well as the
+default for nodes and users eg:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ reject/ann by G,M,2
+ reject/ann input node_default by G,M,2
+ reject/ann user_default by G,M,2
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss7.56">7.56 reject/route (8)</A>
+</H2>
+
+<P><CODE><B>reject/route <call> [0-9] <pattern></B> Set an 'reject' filter line for routing</CODE>
+<P>
+<P>Create an 'reject this routing PC Protocol' line for a filter.
+<P>
+<P>An reject filter line means that if a PC16/17/19/21/24/41/50 matches this filter
+it is NOT passed thru that interface. See HELP FILTERING for more info. Please
+read this to understand how filters work - it will save a lot of grief later on.
+You can use any of the following things in this line:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ call <prefixes> the callsign of the thingy
+ call_dxcc <numbers> eg: 61,62 (from eg: sh/pre G)
+ call_itu <numbers>
+ call_zone <numbers>
+ origin <prefixes> really the interface it came in on
+ origin_dxcc <numbers> eg: 61,62 (from eg: sh/pre G)
+ origin_itu <numbers>
+ origin_zone <numbers>
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<P>some examples:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ rej/route gb7djk call_dxcc 61,38 (everything except UK+EIRE nodes)
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<P>You can use the tag 'all' to reject everything eg:
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ rej/route all (equiv to [very] restricted mode)
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss7.57">7.57 reject/spots (0)</A>
+</H2>
+
+<P><CODE><B>reject/spots [0-9] <pattern></B> Set a reject filter line for spots</CODE>
+<P>
+<P>Create a 'reject this spot' line for a filter.
+<P>A reject filter line means that if the spot matches this filter it is
+dumped (not passed on). See HELP FILTERS for more info. Please read this
+to understand how filters work - it will save a lot of grief later on.
+<P>You can use any of the following things in this line:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ freq <range> eg: 0/30000 or hf or hf/cw or 6m,4m,2m
+ on <range> same as 'freq'
+ call <prefixes> eg: G,PA,HB9
+ info <string> eg: iota or qsl
+ by <prefixes>
+ call_dxcc <numbers> eg: 61,62 (from eg: sh/pre G)
+ call_itu <numbers>
+ call_zone <numbers>
+ by_dxcc <numbers>
+ by_itu <numbers>
+ by_zone <numbers>
+ origin <prefixes>
+ channel <prefixes>
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>For frequencies, you can use any of the band names defined in
+SHOW/BANDS and you can use a subband name like: cw, rtty, data, ssb -
+thus: hf/ssb. You can also just have a simple range like: 0/30000 -
+this is more efficient than saying simply: on HF (but don't get
+too hung up about that)
+<P>some examples:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ rej/spot 1 on hf
+ rej/spot 2 on vhf and not (by_zone 14,15,16 or call_zone 14,15,16)
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>You can use the tag 'all' to reject everything eg:
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ rej/spot 3 all
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>but this probably for advanced users...
+<P>
+<H2><A NAME="ss7.58">7.58 reject/spots (extended for sysops) (8)</A>
+</H2>
+
+<P><CODE><B>reject/spots <call> [input] [0-9] <pattern></B>
+Reject spot filter sysop version </CODE>
+<P>
+<P>This version allows a sysop to set a filter for a callsign as well as the
+default for nodes and users eg:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ reject/spot db0sue-7 1 by_zone 14,15,16
+ reject/spot node_default all
+ set/hops node_default 10
+
+ reject/spot user_default by G,M,2
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss7.59">7.59 reject/wcy (0)</A>
+</H2>
+
+<P><CODE><B>reject/wcy [0-9] <pattern></B> Set a reject WCY filter</CODE>
+<P>
+<P>It is unlikely that you will want to do this, but if you do then you can
+filter on the following fields:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ by <prefixes> eg: G,M,2
+ origin <prefixes>
+ origin_dxcc <numbers> eg: 61,62 (from eg: sh/pre G)
+ origin_itu <numbers>
+ origin_zone <numbers>
+ by_dxcc <numbers>
+ by_itu <numbers>
+ by_zone <numbers>
+ channel <prefixes>
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>There are no examples because WCY Broadcasts only come from one place and
+you either want them or not (see UNSET/WCY if you don't want them).
+<P>This command is really provided for future use.
+<P>See HELP FILTER for information.
+<P>
+<H2><A NAME="ss7.60">7.60 reject/wcy (extended for sysops) (8)</A>
+</H2>
+
+<P><CODE><B>reject/wcy <call> [input] [0-9] <pattern></B>
+WCY reject filter sysop version</CODE>
+<P>
+<P>This version allows a sysop to set a filter for a callsign as well as the
+default for nodes and users eg:-
+<P>reject/wcy gb7djk all
+<P>
+<H2><A NAME="ss7.61">7.61 reject/wwv (0)</A>
+</H2>
+
+<P><CODE><B>reject/wwv [0-9] <pattern></B> Set a reject WWV filter</CODE>
+<P>
+<P>It is unlikely that you will want to do this, but if you do then you can
+filter on the following fields:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ by <prefixes> eg: G,M,2
+ origin <prefixes>
+ origin_dxcc <numbers> eg: 61,62 (from eg: sh/pre G)
+ origin_itu <numbers>
+ origin_zone <numbers>
+ by_dxcc <numbers>
+ by_itu <numbers>
+ by_zone <numbers>
+ channel <prefixes>
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>for example
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ reject/wwv by_zone 14,15,16
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>is probably the only useful thing to do (which will only show WWV broadcasts
+by stations in the US).
+<P>See HELP FILTER for information.
+<P>
+<H2><A NAME="ss7.62">7.62 reject/wwv (extended for sysops) (8)</A>
+</H2>
+
+<P><CODE><B>reject/wwv <call> [input] [0-9] <pattern></B>
+WWV reject filter sysop version</CODE>
+<P>
+<P>This version allows a sysop to set a filter for a callsign as well as the
+default for nodes and users eg:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ reject/wwv db0sue-7 1 by_zone 4
+ reject/wwv node_default all
+
+ reject/wwv user_default by W
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss7.63">7.63 reply (0)</A>
+</H2>
+
+<P><CODE><B>reply</B> Reply (privately) to the last message that you have read<BR>
+<B>reply <msgno></B> Reply (privately) to the specified message<BR>
+<B>reply B <msgno></B> Reply as a Bulletin to the specified message<BR>
+<B>reply NOPrivate <msgno></B> Reply as a Bulletin to the specified
+message<BR>
+<B>reply RR <msgno></B> Reply to the specified message with read receipt<BR></CODE>
+<P>
+<P>You can reply to a message and the subject will automatically have
+"Re:" inserted in front of it, if it isn't already present.
+<P>You can also use all the extra qualifiers such as RR, PRIVATE,
+NOPRIVATE, B that you can use with the SEND command (see SEND
+for further details)
+<P>
+<H2><A NAME="ss7.64">7.64 send (0)</A>
+</H2>
+
+<P><CODE><B>send <call> [<call> ...]</B> Send a message to one or more callsigns<BR>
+<B>send RR <call></B> Send a message and ask for a read receipt<BR>
+<B>send COPY <msgno> <call></B> Send a copy of a message to someone<BR>
+<B>send PRIVATE <call></B> Send a personal message<BR>
+<B>send NOPRIVATE <call></B> Send a message to all stations<BR></CODE>
+<P>
+<P>All the SEND commands will create a message which will be sent either to
+an individual callsign or to one of the 'bulletin' addresses.
+<P>SEND <call> on its own acts as though you had typed SEND PRIVATE, that is
+it will mark the message as personal and send it to the cluster node that
+that callsign is connected to.
+<P>You can have more than one callsign in all of the SEND commands.
+<P>You can have multiple qualifiers so that you can have for example:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ SEND RR COPY 123 PRIVATE G1TLH G0RDI
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>which should send a copy of message 123 to G1TLH and G0RDI and you will
+receive a read receipt when they have read the message.
+<P>SB is an alias for SEND NOPRIVATE (or send a bulletin in BBS speak)
+SP is an alias for SEND PRIVATE
+<P>
+<H2><A NAME="ss7.65">7.65 set/address (0)</A>
+</H2>
+
+<P><CODE><B>set/address <your_address></B> Record your postal address</CODE>
+<P>
+<P>Literally, record your address details on the cluster.
+<P>
+<H2><A NAME="ss7.66">7.66 set/announce (0)</A>
+</H2>
+
+<P><CODE><B>set/announce</B> Allow announce messages</CODE>
+<P>
+<P>Allow announce messages to arrive at your terminal.
+<P>
+<H2><A NAME="ss7.67">7.67 set/arcluster (5)</A>
+</H2>
+
+<P><CODE><B>set/arcluster <node_call> [<node_call> ...]</B> Make
+the node_call an AR-Cluster type node</CODE>
+<P>
+<P>Set the node_call as an AR-Cluster type node
+<P>
+<H2><A NAME="ss7.68">7.68 set/baddx (8)</A>
+</H2>
+
+<P><CODE><B>set/baddx <call></B> Stop words we do not wish to see in the callsign field
+of a dx spot being propagated</CODE>
+<P>
+<P>Setting a word as 'baddx' will prevent spots with that word in the callsign
+field of a DX spot from going any further. They will not be displayed and they
+will not be sent onto other nodes.
+<P>The word must be wriiten in full, no wild cards are allowed eg:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ set/baddx FORSALE VIDEO FR0G
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>To allow a word again, use the following command ...
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ unset/baddx VIDEO
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss7.69">7.69 set/badnode (6)</A>
+</H2>
+
+<P><CODE><B>set/badnode <node_call></B> Stop spots from this node_call
+being propagated</CODE>
+<P>
+<P>Setting a callsign as a 'badnode' will prevent spots from that node
+going any further. They will not be displayed and they will not be
+sent onto other nodes.
+<P>The call can be a full or partial call (or a prefix), eg:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ set/badnode K1TTT
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>will stop anything from K1TTT (including any SSID's)
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ unset/badnode K1TTT
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>will allow spots from him again.
+<P>Use with extreme care. This command may well be superceded by FILTERing.
+<P>
+<H2><A NAME="ss7.70">7.70 set/badspotter (8)</A>
+</H2>
+
+<P><CODE><B>set/badspotter <call></B> Stop spots from this callsign being propagated</CODE>
+<P>
+<P>Setting a callsign as a 'badspotter' will prevent spots from this callsign
+going any further. They will not be displayed and they will not be
+sent onto other nodes.
+<P>The call must be written in full, no wild cards are allowed eg:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ set/badspotter VE2STN
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>will stop anything from VE2STN. If you want SSIDs as well then you must
+enter them specifically.
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ unset/badspotter VE2STN
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>will allow spots from him again.
+<P>Use with extreme care. This command may well be superceded by FILTERing.
+<P>
+<H2><A NAME="ss7.71">7.71 set/beep (0)</A>
+</H2>
+
+<P><CODE><B>set/beep</B> Add beeps to terminal messages</CODE>
+<P>
+<P>Add a beep to DX and other terminal messages.
+<P>
+<H2><A NAME="ss7.72">7.72 set/bbs (5)</A>
+</H2>
+
+<P><CODE><B>set/bbs <call> [<call>..]</B>Make <call> a BBS</CODE>
+<P>
+<H2><A NAME="ss7.73">7.73 set/clx (5)</A>
+</H2>
+
+<P><CODE><B>set/clx <node_call> [<node_call> ...]</B> Make
+the node_call a CLX type node</CODE>
+<P>
+<P>Set the node_call as a CLX type node
+<P>
+<H2><A NAME="ss7.74">7.74 set/debug (9)</A>
+</H2>
+
+<P><CODE><B>set/debug <name></B> Add a debug level to the debug set</CODE>
+<P>
+<P>You can choose to log several different levels. The levels are
+<P>chan
+state
+msg
+cron
+connect
+<P>You can show what levels you are logging with the <EM>show/debug</EM>
+command.
+<P>You can remove a debug level with unset/debug <name>
+<P>
+<H2><A NAME="ss7.75">7.75 set/dx (0)</A>
+</H2>
+
+<P><CODE><B>set/dx</B>Allow DX messages to arrive at your terminal</CODE>
+<P>
+<P>You can stop DX messages with the <EM>unset/dx</EM> command
+<P>
+<H2><A NAME="ss7.76">7.76 set/dxgrid (0)</A>
+</H2>
+
+<P><CODE><B>set/dxgrid</B>Allow grid squares on the end of DX messages</CODE>
+<P>
+<P>Some logging programs do not like the additional information at
+the end of a DX spot. If this is the case, use the <EM>unset/dxgrid</EM>
+command to remove the grid squares.
+<P>
+<H2><A NAME="ss7.77">7.77 set/dxnet (5)</A>
+</H2>
+
+<P><CODE><B>set/dxnet <node_call> [<node_call> ...]</B> Make
+the node_call a DXNet type node</CODE>
+<P>
+<P>Set the node_call as a DXNet type node
+<P>
+<H2><A NAME="ss7.78">7.78 set/echo (0)</A>
+</H2>
+
+<P><CODE><B>set/echo</B> Make the cluster echo your input</CODE>
+<P>
+<P>If you are connected via a telnet session, different implimentations
+of telnet handle echo differently depending on whether you are
+connected via port 23 or some other port. You can use this command
+to change the setting appropriately.
+<P>You can remove the echo with the <EM>unset/echo</EM> command
+<P>The setting is stored in your user profile.
+<P>YOU DO NOT NEED TO USE THIS COMMAND IF YOU ARE CONNECTED VIA AX25.
+<P>
+<H2><A NAME="ss7.79">7.79 set/here (0)</A>
+</H2>
+
+<P><CODE><B>set/here</B> Set the here flag</CODE>
+<P>
+<P>Let others on the cluster know you are here by only displaying your
+callsign. If you are away from your terminal you can use the <EM>unset/here</EM>
+command to let people know you are away. This simply puts brackets
+around your callsign to indicate you are not available.
+<P>
+<H2><A NAME="ss7.80">7.80 set/homenode (0)</A>
+</H2>
+
+<P><CODE><B>set/homenode <node_call></B> Set your home cluster</CODE>
+<P>
+<P>Tell the cluster system where you normally connect to. Any Messages sent
+to you will normally find their way there should you not be connected.
+eg:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ SET/HOMENODE gb7djk
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss7.81">7.81 set/hops (8)</A>
+</H2>
+
+<P><CODE><B>set/hops <node_call> ann|spots|wwv|wcy <n></B>
+Set hop count</CODE>
+<P>
+<P>Set the hop count for a particular type of broadcast for a node.
+<P>This command allows you to set up special hop counts for a node
+for currently: announce, spots, wwv and wcy broadcasts.
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+eg:
+ set/hops gb7djk ann 10
+ set/hops gb7mbc spots 20
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>Set SHOW/HOPS for information on what is already set. This command
+creates a filter and works in conjunction with the filter system.
+<P>
+<H2><A NAME="ss7.82">7.82 set/isolate (9)</A>
+</H2>
+
+<P><CODE><B>set/isolate <node call></B> Isolate a node from the rest of the network</CODE>
+<P>
+<P>Connect a node to your system in such a way that you are a full protocol
+member of its network and can see all spots on it, but nothing either leaks
+out from it nor goes back into from the rest of the nodes connected to you.
+<P>You can potentially connect several nodes in this way.
+<P>You can see which nodes are isolated with the show/isolate (1) command.
+<P>You can remove the isolation with the command unset/isolate.
+<P>
+<H2><A NAME="ss7.83">7.83 set/language (0)</A>
+</H2>
+
+<P><CODE><B>set/language <language></B> Set the language you wish to use</CODE>
+<P>
+<P>You can select the language that you want the cluster to use. Currently
+the languages available are <EM>en</EM> (English) and <EM>nl</EM> (Dutch).
+<P>
+<H2><A NAME="ss7.84">7.84 set/location (0)</A>
+</H2>
+
+<P><CODE><B>set/location <lat and long></B> Set your latitude and longitude</CODE>
+<P>
+<P>You can set your latitude and longitude manually or alternatively use the
+<EM>set/qra</EM> command which will do the conversion for you.
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ set/location 54 04 N 2 02 E
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<P>
+<H2><A NAME="ss7.85">7.85 set/sys_location (9)</A>
+</H2>
+
+<P><CODE><B>set/sys_location <lat & long></B> Set your cluster latitude and longitude</CODE>
+<P>
+<P>In order to get accurate headings and such like you must tell the system
+what your latitude and longitude is. If you have not yet done a SET/QRA
+then this command will set your QRA locator for you. For example:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ SET/LOCATION 52 22 N 0 57 E
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss7.86">7.86 set/logininfo (0)</A>
+</H2>
+
+<P><CODE><B>set/logininfo</B> Show logins and logouts of nodes and users</CODE>
+<P>
+<P>Show users and nodes when they log in and out of the local cluster. You
+can stop these messages by using the <EM>unset/logininfo</EM> command.
+<P>
+<P>
+<H2><A NAME="ss7.87">7.87 set/lockout (9)</A>
+</H2>
+
+<P><CODE><B>set/lockout <call></B> Stop a callsign connecting to the cluster</CODE>
+<P>
+<P>You can show who is locked out with the <EM>show/lockout</EM> command.
+To allow the user to connect again, use the <EM>unset/lockout</EM> command.
+<P>
+<H2><A NAME="ss7.88">7.88 set/name (0)</A>
+</H2>
+
+<P><CODE><B>set/name <your_name></B> Set your name</CODE>
+<P>
+<P>Tell the cluster what your name is, eg:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ set/name Dirk
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss7.89">7.89 set/node (9)</A>
+</H2>
+
+<P><CODE><B>set/node <call> [<call> ...]</B> Make the callsign an AK1A cluster</CODE>
+<P>
+<P>Tell the system that the call(s) are to be treated as AK1A cluster and
+fed PC Protocol rather normal user commands.
+<P>From version 1.41 you can also set the following types of cluster
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ set/spider
+ set/dxnet
+ set/clx
+ set/arcluster
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>To see what your nodes are set to, use the <EM>show/nodes</EM> command.
+<P>
+<H2><A NAME="ss7.90">7.90 set/obscount (9)</A>
+</H2>
+
+<P><CODE><B>set/obscount <count> <node call></B> Set the 'pump-up' obsolescence counter</CODE>
+<P>
+<P>From version 1.35 onwards neighbouring nodes are pinged at regular intervals (see
+SET/PINGINTERVAL), usually 300 seconds or 5 minutes. There is a 'pump-up'
+counter which is decremented on every outgoing ping and then reset to
+the 'obscount' value on every incoming ping. The default value of this
+parameter is 2.
+<P>What this means is that a neighbouring node will be pinged twice at
+(default) 300 second intervals and if no reply has been heard just before
+what would be the third attempt, that node is disconnected.
+<P>If a ping is heard then the obscount is reset to the full value. Using
+default values, if a node has not responded to a ping within 15 minutes,
+it is disconnected.
+<P>
+<H2><A NAME="ss7.91">7.91 set/page (0)</A>
+</H2>
+
+<P><CODE><B>set/page <n></B> Set the number of lines per page</CODE>
+<P>
+<P>Tell the system how many lines you wish on a page when the number of lines
+of output from a command is more than this. The default is 20. Setting it
+explicitly to 0 will disable paging.
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ SET/PAGE 30
+ SET/PAGE 0
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>The setting is stored in your user profile.
+<P>
+<P>
+<H2><A NAME="ss7.92">7.92 set/password (9)</A>
+</H2>
+
+<P><CODE><B>set/password <callsign> <string></B> Set a users password</CODE>
+<P>
+<P>The password for a user can only be set by a full sysop. The string
+can contain any characters but any spaces are removed (you can type in
+spaces - but they won't appear in the password). You can see the
+result with STAT/USER. The password is the usual 30 character baycom
+type password.
+<P>
+<H2><A NAME="ss7.93">7.93 set/pinginterval (9)</A>
+</H2>
+
+<P><CODE><B>set/pinginterval <time> <node call></B> Set the ping time to neighbouring nodes</CODE>
+<P>
+<P>As from version 1.35 all neighbouring nodes are pinged at regular intervals
+in order to determine the rolling quality of the link and, in future, to
+affect routing decisions. The default interval is 300 secs or 5 minutes.
+<P>You can use this command to set a different interval. Please don't.
+<P>But if you do the value you enter is treated as minutes up 60 and seconds
+for numbers greater than that.
+<P>This is used also to help determine when a link is down at the far end
+(as certain cluster software doesn't always notice), see SET/OBSCOUNT
+for more information.
+<P>
+<H2><A NAME="ss7.94">7.94 set/privilege (9)</A>
+</H2>
+
+<P><CODE><B>set/privilege <n> <call> [<call> ...]</B> Set the privilege level on a call</CODE>
+<P>
+<P>Set the privilege level on a callsign. The privilege levels that pertain
+to commands are as default:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ 0 - normal user
+ 1 - allow remote nodes normal user RCMDs
+ 5 - various privileged commands (including shutdown, but not disc-
+ connect), the normal level for another node.
+ 8 - more privileged commands (including disconnect)
+ 9 - local sysop privilege. DO NOT SET ANY REMOTE USER OR NODE TO THIS
+ LEVEL.
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>If you are a sysop and you come in as a normal user on a remote connection
+your privilege will automatically be set to 0.
+<P>
+<H2><A NAME="ss7.95">7.95 set/spider (5)</A>
+</H2>
+
+<P><CODE><B>set/spider <node_call> [<node_call> ...]</B> Make
+the node_call a DXSpider type node</CODE>
+<P>
+<P>Set the node_call as a DXSpider type node
+<P>
+<H2><A NAME="ss7.96">7.96 set/sys_qra (9)</A>
+</H2>
+
+<P><CODE><B>set/sys_qra <locator></B> Set your cluster QRA locator</CODE>
+<P>
+<H2><A NAME="ss7.97">7.97 set/qra (0)</A>
+</H2>
+
+<P><CODE><B>set/qra <locator></B> Set your QRA locator</CODE>
+<P>
+<P>Tell the system what your QRA (or Maidenhead) locator is. If you have not
+done a SET/LOCATION then your latitude and longitude will be set roughly
+correctly (assuming your locator is correct ;-). For example:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ SET/QRA JO02LQ
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss7.98">7.98 set/qth (0)</A>
+</H2>
+
+<P><CODE><B>set/qth <your QTH></B> Set your QTH</CODE>
+<P>
+<P>Tell the system where your are. For example:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ set/qth East Dereham, Norfolk
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss7.99">7.99 set/talk (0)</A>
+</H2>
+
+<P><CODE><B>set/talk</B> Allow talk messages to be seen at your console</CODE>
+<P>
+<P>Allow talk messages to arrive at your console. You can switch off
+talks with the <EM>unset/talk</EM> command.
+<P>
+<H2><A NAME="ss7.100">7.100 set/wcy (0)</A>
+</H2>
+
+<P><CODE><B>set/wcy</B> Allow WCY messages to be seen at your console</CODE>
+<P>
+<P>Allow WCY information to be seen at your console. You can switch off
+WCY messages with the <EM>unset/wcy</EM> command.
+<P>
+<H2><A NAME="ss7.101">7.101 set/wwv (0)</A>
+</H2>
+
+<P><CODE><B>set/wwv</B> Allow WWV messages to be seen at your console</CODE>
+<P>
+<P>Allow WWV information to be seen at your console. You can switch off
+WWV messages with the <EM>unset/wwv</EM> command.
+<P>
+<H2><A NAME="ss7.102">7.102 set/wx (0)</A>
+</H2>
+
+<P><CODE><B>set/wx</B> Allow WX messages to be seen at your console</CODE>
+<P>
+<P>Allow WX information to be seen at your console. You can switch off
+WX messages with the <EM>unset/wx</EM> command.
+<P>
+<H2><A NAME="ss7.103">7.103 show/baddx (1)</A>
+</H2>
+
+<P><CODE><B>show/baddx</B>Show all the bad dx calls in the system</CODE>
+<P>
+<P>Display all the bad dx callsigns in the system, see SET/BADDX
+for more information.
+<P>
+<H2><A NAME="ss7.104">7.104 show/badnode (6)</A>
+</H2>
+
+<P><CODE><B>show/badnode</B> Show all the bad nodes in the system</CODE>
+<P>
+<P>Display all the bad node callsigns in the system, see SET/BADNODE
+for more information.
+<P>
+<H2><A NAME="ss7.105">7.105 show/badspotter (1)</A>
+</H2>
+
+<P><CODE><B>show/badspotter</B> Show all the bad spotters in the system</CODE>
+<P>
+<P>Display all the bad spotter's callsigns in the system, see SET/BADSPOTTER
+for more information.
+<P>
+<H2><A NAME="ss7.106">7.106 show/configuration (0)</A>
+</H2>
+
+<P><CODE><B>show/configuration [<node>]</B> Show all visible nodes and their users</CODE>
+<P>
+<P>This command allows you to see all the users that can be seen
+and the nodes to which they are connected. With the optional <EM>node</EM>,
+you can specify a particular node to look at.
+<P>This command is normally abbreviated to: sh/c
+<P>BE WARNED: the list that is returned can be VERY long
+<P>
+<H2><A NAME="ss7.107">7.107 show/configuration/node (0)</A>
+</H2>
+
+<P><CODE><B>show/configuration/node</B> Show all the nodes connected</CODE>
+<P>
+<P>Show all the nodes connected locally and the nodes they have connected.
+<P>
+<H2><A NAME="ss7.108">7.108 show/connect (1)</A>
+</H2>
+
+<P><CODE><B>show/connect</B> Show all the active connections</CODE>
+<P>
+<P>This command shows information on all the active connections known to
+the node. This command gives slightly more information than WHO.
+<P>
+<H2><A NAME="ss7.109">7.109 show/date (0)</A>
+</H2>
+
+<P><CODE><B>show/date [<prefix>|<callsign>]</B> Show
+the local time</CODE>
+<P>
+<P>This is very nearly the same as SHOW/TIME, the only difference the format
+of the date string if no arguments are given.
+<P>If no prefixes or callsigns are given then this command returns the local
+time and UTC as the computer has it right now. If you give some prefixes
+then it will show UTC and UTC + the local offset (not including DST) at
+the prefixes or callsigns that you specify.
+<P>
+<H2><A NAME="ss7.110">7.110 show/debug (9)</A>
+</H2>
+
+<P><CODE><B>show/debug</B> Show what levels of debug you are logging</CODE>
+<P>
+<P>The levels can be set with <EM>set/debug</EM>
+<P>
+<H2><A NAME="ss7.111">7.111 show/dx (0)</A>
+</H2>
+
+<P><CODE><B>show/dx [options]</B> interrogate the spot database</CODE>
+<P>
+<P>If you just type SHOW/DX you will get the last so many spots
+(sysop configurable, but usually 10).
+<P>In addition you can add any number of these options in very nearly
+any order to the basic SHOW/DX command, they are:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+
+on <band> - eg 160m 20m 2m 23cm 6mm
+on <region> - eg hf vhf uhf shf (see SHOW/BANDS)
+
+<number> - the number of spots you want
+<from>-<to> - <from> spot no <to> spot no in
+ the selected list
+
+<prefix> - for a spotted callsign beginning with <prefix>
+*<suffix> - for a spotted callsign ending in <suffix>
+*<string>* - for a spotted callsign containing <string>
+
+day <number> - starting <number> days ago
+day <from>-<to> - <from> days <to> days ago
+
+info <text> - any spots containing <text> in the info or remarks
+
+by <call> - any spots spotted by <call> (spotter <call>
+ is the same).
+
+qsl - this automatically looks for any qsl info on the call
+ held in the spot database.
+
+iota [<iota>] - If the iota island number is missing it will
+ look for the string iota and anything which looks like
+ an iota island number. If you specify then it will look
+ for that island.
+
+qra [<locator>] - this will look for the specific locator if
+ you specify one or else anything that looks like a locator.
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>e.g.
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+
+ SH/DX 9m0
+ SH/DX on 20m info iota
+ SH/DX 9a on vhf day 30
+ SH/DX rf1p qsl
+ SH/DX iota
+ SH/DX iota eu-064
+ SH/DX qra jn86
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss7.112">7.112 show/dxcc (0)</A>
+</H2>
+
+<P><CODE><B>show/dxcc <prefix></B> Interrogate the spot database by country</CODE>
+<P>
+<P>This command takes the <prefix> (which can be a full or partial
+callsign if desired), looks up which internal country number it is
+and then displays all the spots as per SH/DX for that country.
+<P>The options for SHOW/DX also apply to this command.
+e.g.
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+
+ SH/DXCC G
+ SH/DXCC W on 20m info iota
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss7.113">7.113 show/files (0)</A>
+</H2>
+
+<P><CODE><B>show/files [<filearea> [<string>]]</B> List
+the contents of a filearea</CODE>
+<P>
+<P>SHOW/FILES on its own will show you a list of the various fileareas
+available on the system. To see the contents of a particular file
+area type:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ SH/FILES <filearea>
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>where <filearea> is the name of the filearea you want to see the
+contents of.
+<P>You can also use shell globbing characters like '*' and '?' in a
+string to see a selection of files in a filearea eg:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ SH/FILES bulletins arld*
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>See also TYPE - to see the contents of a file.
+<P>
+<H2><A NAME="ss7.114">7.114 show/filter (0)</A>
+</H2>
+
+<P><CODE><B>show/filter</B> Show the filters you have set</CODE>
+<P>
+<P>Show the contents of all the filters that are set by you. This command
+displays all the filters set - for all the various categories.
+<P>
+<H2><A NAME="ss7.115">7.115 show/filter (extended for sysops) (5)</A>
+</H2>
+
+<P><CODE><B>show/filter <callsign></B> Show the filters set by <callsign></CODE>
+<P>
+<P>A sysop can look at any filters that have been set.
+<P>
+<H2><A NAME="ss7.116">7.116 show/hops (8)</A>
+</H2>
+
+<P><CODE><B>show/hops <node_call> [ann|spots|wcy|wwv|]</B> Show the hop counts for a node</CODE>
+<P>
+<P>This command shows the hop counts set up for a node. You can specify
+which category you want to see. If you leave the category out then
+all the categories will be listed.
+<P>
+<H2><A NAME="ss7.117">7.117 show/isolate (1)</A>
+</H2>
+
+<P><CODE><B>show/isolate</B> Show a list of isolated nodes</CODE>
+<P>
+<P>Show which nodes are currently set to be isolated.
+<P>
+<H2><A NAME="ss7.118">7.118 show/lockout (9)</A>
+</H2>
+
+<P><CODE><B>show/lockout</B> Show a list of excluded callsigns</CODE>
+<P>
+<P>Show a list of callsigns that have been excluded (locked out) of the
+cluster locally with the <EM>set/lockout</EM> command
+<P>
+<H2><A NAME="ss7.119">7.119 show/log (8)</A>
</H2>
-<P>One of the more important things a cluster sysop needs to do is to get
-information to his users. The simplest way to do this is to have a banner
-that is sent to the user on login. This is know as a "message of the day"
-or "motd". To set this up, simply create a file in /spider/data called motd
-and edit it to say whatever you want. It is purely a text file and will be
-sent automatically to anyone logging in to the cluster.
+<P><CODE><B>show/log [<callsign>]</B> Show excerpts from the system log</CODE>
+<P>
+<P>This command outputs a short section of the system log. On its own
+it will output a general logfile. With the optional callsign it will
+show output from the log associated with that callsign.
<P>
-<H2><A NAME="ss7.2">7.2 Downtime message</A>
+<H2><A NAME="ss7.120">7.120 show/moon (0)</A>
</H2>
-<P>If for any reason the cluster is down, maybe for upgrade or maintenance but
-the machine is still running, a message can be sent to the user advising them
-of the fact. This message lives in the /spider/data directory and is called
-"offline". Simply create the file and edit it to say whatever you wish.
-This file will be sent to a user attempting to log into the cluster when
-DXSpider is not actually running.
+<P><CODE><B>show/moon [<prefix>|<callsign>]</B> Show moon
+rise and set times</CODE>
+<P>
+<P>Show the Moon rise and set times for a (list of) prefixes or callsigns,
+together with the azimuth and elevation of the sun currently at those
+locations.
+<P>If you don't specify any prefixes or callsigns, it will show the times for
+your QTH (assuming you have set it with either SET/LOCATION or SET/QRA),
+together with the current azimuth and elevation.
+<P>In addition, it will show the gain or loss dB relative to the nominal
+distance of 385,000Km due to the ellipsoidal nature of the orbit.
+<P>If all else fails it will show the Moonrise and set times for the node
+that you are connected to.
+<P>For example:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ SH/MOON
+ SH/MOON G1TLH W5UN
+</PRE>
+</CODE></BLOCKQUOTE>
<P>
-<H2><A NAME="ss7.3">7.3 Other text messages</A>
+<H2><A NAME="ss7.121">7.121 show/muf (0)</A>
</H2>
-<P>You can set other text messages to be read by the user if they input the file
-name. This could be for news items or maybe information for new users.
-To set this up, make a directory under /spider called <EM>packclus</EM>.
-Under this directory you can create files called <EM>news</EM> or <EM>newuser</EM>
-for example. In fact you can create files with any names you like. These can
-be listed by the user with the command ....
+<P><CODE><B>show/muf <prefix> [<hours>][long]</B> Show
+the likely propagation to <prefix></CODE>
+<P>
+<P>This command allow you to estimate the likelihood of you contacting
+a station with the prefix you have specified. The output assumes a modest
+power of 20dBW and receiver sensitivity of -123dBm (about 0.15muV/10dB SINAD)
+<P>The result predicts the most likely operating frequencies and signal
+levels for high frequency (shortwave) radio propagation paths on
+specified days of the year and hours of the day. It is most useful for
+paths between 250 km and 6000 km, but can be used with reduced accuracy
+for paths shorter or longer than this.
+<P>The command uses a routine MINIMUF 3.5 developed by the U.S. Navy and
+used to predict the MUF given the predicted flux, day of the year,
+hour of the day and geographic coordinates of the transmitter and
+receiver. This routine is reasonably accurate for the purposes here,
+with a claimed RMS error of 3.8 MHz, but much smaller and less complex
+than the programs used by major shortwave broadcasting organizations,
+such as the Voice of America.
+<P>The command will display some header information detailing its
+assumptions, together with the locations, latitude and longitudes and
+bearings. It will then show UTC (UT), local time at the other end
+(LT), calculate the MUFs, Sun zenith angle at the midpoint of the path
+(Zen) and the likely signal strengths. Then for each frequency for which
+the system thinks there is a likelihood of a circuit it prints a value.
+<P>The value is currently a likely S meter reading based on the conventional
+6dB / S point scale. If the value has a '+' appended it means that it is
+1/2 an S point stronger. If the value is preceeded by an 'm' it means that
+there is likely to be much fading and by an 's' that the signal is likely
+to be noisy.
+<P>By default SHOW/MUF will show the next two hours worth of data. You
+can specify anything up to 24 hours worth of data by appending the no of
+hours required after the prefix. For example:-
<P>
<BLOCKQUOTE><CODE>
<PRE>
-show/files
+ SH/MUF W
</PRE>
</CODE></BLOCKQUOTE>
-<P>They can be read by the user by typing the command ....
+<P>produces:
<P>
<BLOCKQUOTE><CODE>
<PRE>
-type news
+ RxSens: -123 dBM SFI: 159 R: 193 Month: 10 Day: 21
+ Power : 20 dBW Distance: 6283 km Delay: 22.4 ms
+ Location Lat / Long Azim
+ East Dereham, Norfolk 52 41 N 0 57 E 47
+ United-States-W 43 0 N 87 54 W 299
+ UT LT MUF Zen 1.8 3.5 7.0 10.1 14.0 18.1 21.0 24.9 28.0 50.0
+ 18 23 11.5 -35 mS0+ mS2 S3
+ 19 0 11.2 -41 mS0+ mS2 S3
</PRE>
</CODE></BLOCKQUOTE>
-<P>If the file they want to read is called <EM>news</EM>. You could also set
-an alias for this in the Alias file to allow them just to type <EM>news</EM>
+<P>indicating that you will have weak, fading circuits on top band and
+80m but usable signals on 40m (about S3).
+<P>inputing:-
<P>
-<P>You can also store other information in this directory, either directly or
-nested under directories. One use for this would be to store DX bulletins
-such as the OPDX bulletins. These can be listed and read by the user.
-To keep things tidy, make a directory under /spider/packclus called
-<EM>bulletin</EM>. Now copy any OPDX or similar bulletins into it. These
-can be listed by the user in the same way as above using the <EM>show/files</EM>
-command with an extension for the bulletin directory you have just created,
-like this ....
+<BLOCKQUOTE><CODE>
+<PRE>
+ SH/MUF W 24
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>will get you the above display, but with the next 24 hours worth of
+propagation data.
<P>
<BLOCKQUOTE><CODE>
<PRE>
-show/files bulletin
+ SH/MUF W L 24
+ SH/MUF W 24 Long
</PRE>
</CODE></BLOCKQUOTE>
+<P>Gives you an estimate of the long path propagation characterics. It
+should be noted that the figures will probably not be very useful, nor
+terrible accurate, but it is included for completeness.
+<P>
+<H2><A NAME="ss7.122">7.122 show/node (1)</A>
+</H2>
+
+<P><CODE><B>show/node [<node_call> ...]</B> Show the type and version
+number of nodes</CODE>
+<P>
+<P>Show the type and version (if connected) of the nodes specified on the
+command line. If no callsigns are specified then a sorted list of all
+the non-user callsigns known to the system will be displayed.
+<P>
+<H2><A NAME="ss7.123">7.123 show/prefix (0)</A>
+</H2>
+
+<P><CODE><B>show/prefix <callsign></B> Interrogate the prefix database</CODE>
<P>
-<P>An example would look like this ....
+<P>This command takes the <callsign> (which can be a full or partial
+callsign or a prefix), looks up which internal country number
+it is and then displays all the relevant prefixes for that country
+together with the internal country no, the CQ and ITU regions.
+<P>See also SHOW/DXCC
+<P>
+<P>
+<H2><A NAME="ss7.124">7.124 show/program (5)</A>
+</H2>
+
+<P><CODE><B>show/program</B> Show the locations of all the included program modules</CODE>
+<P>
+<P>Show the name and location where every program module was load from. This
+is useful for checking where you think you have loaded a .pm file from.
+<P>
+<H2><A NAME="ss7.125">7.125 show/qra (0)</A>
+</H2>
+
+<P><CODE><B>show/qra <locator> [<locator>]</B> Show the distance
+between locators<BR>
+<B>show/qra <lat> <long></B> Convert latitude and longitude to a locator</CODE>
+<P>
+<P>This is a multipurpose command that allows you either to calculate the
+distance and bearing between two locators or (if only one locator is
+given on the command line) the distance and beraing from your station
+to the locator. For example:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+SH/QRA IO92QL
+SH/QRA JN06 IN73
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>The first example will show the distance and bearing to the locator from
+yourself, the second example will calculate the distance and bearing from
+the first locator to the second. You can use 4 or 6 character locators.
+<P>It is also possible to convert a latitude and longitude to a locator by
+using this command with a latitude and longitude as an argument, for
+example:-
<P>
<BLOCKQUOTE><CODE>
<PRE>
-sh/files
-bulletin DIR 20-Dec-1999 1715Z news 1602 14-Dec-1999 1330Z
+SH/QRA 52 41 N 0 58 E
</PRE>
</CODE></BLOCKQUOTE>
-<P>You can see that in the files area (basically the packclus directory) there is a
-file called <EM>news</EM> and a directory called <EM>bulletin</EM>. You can
-also see that dates they were created. In the case of the file <EM>news</EM>,
-you can also see the time it was last modified, a good clue as to whether the
-file has been updated since you last read it. To read the file called
-<EM>news</EM> you would simply issue the command ....
+<P>
+<H2><A NAME="ss7.126">7.126 show/qrz (0)</A>
+</H2>
+
+<P><CODE><B>show/qrz <callsign></B> Show any callbook details on a callsign</CODE>
+<P>
+<P>This command queries the QRZ callbook server on the internet
+and returns any information available for that callsign. This service
+is provided for users of this software by http://www.qrz.com
+<P>
+<H2><A NAME="ss7.127">7.127 show/route (0)</A>
+</H2>
+
+<P><CODE><B>show/route <callsign></B> Show the route to <callsign></CODE>
+<P>
+<P>This command allows you to see to which node the callsigns specified are
+connected. It is a sort of inverse sh/config.
<P>
<BLOCKQUOTE><CODE>
<PRE>
-type news
+ sh/route n2tly
</PRE>
</CODE></BLOCKQUOTE>
-<P>To look what is in the bulletin directory you issue the command ....
+<P>
+<H2><A NAME="ss7.128">7.128 show/satellite (0)</A>
+</H2>
+
+<P><CODE><B>show/satellite <name> [<hours> <interval>]</B>
+Show satellite tracking data</CODE>
+<P>
+<P>Show the tracking data from your location to the satellite of your choice
+from now on for the next few hours.
+<P>If you use this command without a satellite name it will display a list
+of all the satellites known currently to the system.
+<P>If you give a name then you can obtain tracking data of all the passes
+that start and finish 5 degrees below the horizon. As default it will
+give information for the next three hours for every five minute period.
+<P>You can alter the number of hours and the step size, within certain
+limits.
+<P>Each pass in a period is separated with a row of '-----' characters
+<P>So for example:-
<P>
<BLOCKQUOTE><CODE>
<PRE>
-show/files bulletin
-opdx390 21381 29-Nov-1999 1621Z opdx390.1 1670 29-Nov-1999 1621Z
-opdx390.2 2193 29-Nov-1999 1621Z opdx391 25045 29-Nov-1999 1621Z
-opdx392 35969 29-Nov-1999 1621Z opdx393 15023 29-Nov-1999 1621Z
-opdx394 33429 29-Nov-1999 1621Z opdx394.1 3116 29-Nov-1999 1621Z
-opdx395 24319 29-Nov-1999 1621Z opdx396 32647 29-Nov-1999 1621Z
-opdx396.1 5537 29-Nov-1999 1621Z opdx396.2 6242 29-Nov-1999 1621Z
-opdx397 18433 29-Nov-1999 1621Z opdx398 19961 29-Nov-1999 1621Z
-opdx399 17719 29-Nov-1999 1621Z opdx400 19600 29-Nov-1999 1621Z
-opdx401 27738 29-Nov-1999 1621Z opdx402 18698 29-Nov-1999 1621Z
-opdx403 24994 29-Nov-1999 1621Z opdx404 15685 29-Nov-1999 1621Z
-opdx405 13984 29-Nov-1999 1621Z opdx405.1 4166 29-Nov-1999 1621Z
-opdx406 28934 29-Nov-1999 1621Z opdx407 24153 29-Nov-1999 1621Z
-opdx408 15081 29-Nov-1999 1621Z opdx409 23234 29-Nov-1999 1621Z
-Press Enter to continue, A to abort (16 lines) >
+SH/SAT AO-10
+SH/SAT FENGYUN1 12 2
</PRE>
</CODE></BLOCKQUOTE>
-<P>You can now read any file in this directory using the type command, like this ....
+<P>
+<H2><A NAME="ss7.129">7.129 show/sun (0)</A>
+</H2>
+
+<P><CODE><B>show/sun [<prefix>|<callsign>]</B> Show
+sun rise and set times</CODE>
+<P>
+<P>Show the sun rise and set times for a (list of) prefixes or callsigns,
+together with the azimuth and elevation of the sun currently at those
+locations.
+<P>If you don't specify any prefixes or callsigns, it will show the times for
+your QTH (assuming you have set it with either SET/LOCATION or SET/QRA),
+together with the current azimuth and elevation.
+<P>If all else fails it will show the sunrise and set times for the node
+that you are connected to.
+<P>For example:-
<P>
<BLOCKQUOTE><CODE>
<PRE>
-type bulletin/opdx391
-Ohio/Penn DX Bulletin No. 391
-The Ohio/Penn Dx PacketCluster
-DX Bulletin No. 391
-BID: $OPDX.391
-January 11, 1999
-Editor Tedd Mirgliotta, KB8NW
-Provided by BARF-80 BBS Cleveland, Ohio
-Online at 440-237-8208 28.8k-1200 Baud 8/N/1 (New Area Code!)
-Thanks to the Northern Ohio Amateur Radio Society, Northern Ohio DX
-Association, Ohio/Penn PacketCluster Network, K1XN & Golist, WB2RAJ/WB2YQH
-& The 59(9) DXReport, W3UR & The Daily DX, K3TEJ, KN4UG, W4DC, NC6J, N6HR,
-Press Enter to continue, A to abort (508 lines) >
+ SH/SUN
+ SH/SUN G1TLH K9CW ZS
</PRE>
</CODE></BLOCKQUOTE>
-<P>The page length will of course depend on what you have it set to!
<P>
-<H2><A NAME="ss7.4">7.4 The Aliases file</A>
+<H2><A NAME="ss7.130">7.130 show/time (0)</A>
+</H2>
+
+<P><CODE><B>show/time [<prefix>|<callsign>]</B> Show
+the local time</CODE>
+<P>
+<P>If no prefixes or callsigns are given then this command returns the local
+time and UTC as the computer has it right now. If you give some prefixes
+then it will show UTC and UTC + the local offset (not including DST) at
+the prefixes or callsigns that you specify.
+<P>
+<H2><A NAME="ss7.131">7.131 show/wcy (0)</A>
+</H2>
+
+<P><CODE><B>show/wcy</B> Show the last 10 WCY broadcasts<BR>
+<B>show/wcy <n></B> Show the last <n> WCY broadcasts</CODE>
+<P>
+<P>Display the most recent WCY information that has been received by the system
+<P>
+<H2><A NAME="ss7.132">7.132 show/wwv (0)</A>
+</H2>
+
+<P><CODE><B>show/wwv</B> Show the last 10 WWV broadcasts<BR>
+<B>show/wwv <n></B> Show the last <n> WWV broadcasts</CODE>
+<P>
+<P>Display the most recent WWV information that has been received by the system
+<P>
+<P>
+<H2><A NAME="ss7.133">7.133 shutdown (5)</A>
+</H2>
+
+<P><CODE><B>shutdown</B> Shutdown the cluster</CODE>
+<P>
+<P>Shutdown the cluster and disconnect all the users. If you have Spider
+set to respawn in /etc/inittab it will of course restart.
+<P>
+<H2><A NAME="ss7.134">7.134 spoof (9)</A>
+</H2>
+
+<P><CODE><B>spoof <callsign> <command></B> Run commands as another user</CODE>
+<P>
+<P>This is a very simple yet powerful command for the sysop. It allows you to
+issue commands as if you were a different user. This is very useful for the
+kind of things that users seem to always get wrong.. like home_node for
+example.
+<P>
+<H2><A NAME="ss7.135">7.135 stat/db (5)</A>
+</H2>
+
+<P><CODE><B>stat/db <dbname></B> Show the status of a database</CODE>
+<P>
+<P>Show the internal status of a database descriptor.
+<P>Depending on your privilege level you will see more or less information.
+This command is unlikely to be of much use to anyone other than a sysop.
+<P>
+<H2><A NAME="ss7.136">7.136 stat/channel (5)</A>
+</H2>
+
+<P><CODE><B>stat/channel <callsign></B> Show the status of a channel on the cluster</CODE>
+<P>
+<P>Show the internal status of the channel object either for the channel that
+you are on or else for the callsign that you asked for.
+<P>Only the fields that are defined (in perl term) will be displayed.
+<P>
+<H2><A NAME="ss7.137">7.137 stat/msg (5)</A>
+</H2>
+
+<P><CODE><B>stat/msg <msgno></B> Show the status of a message</CODE>
+<P>
+<P>This command shows the internal status of a message and includes information
+such as to whom it has been forwarded, its size, origin etc etc.
+<P>
+<P>If no message number is given then the status of the message system is
+displayed.
+<P>
+<H2><A NAME="ss7.138">7.138 stat/route_node (5)</A>
</H2>
-<P>You will find a file in /spider/cmd/ called Aliases. First, copy this file to
-/spider/local_cmd/Aliases and edit this file. You will see something like this ...
+<P><CODE><B>stat/route_node <callsign></B> Show the data in a Route::Node object</CODE>
+<P>
+<H2><A NAME="ss7.139">7.139 stat/route_user (5)</A>
+</H2>
+
+<P><CODE><B>stat/route_user <callsign></B> Show the data in a Route::User object</CODE>
+<P>
+<H2><A NAME="ss7.140">7.140 stat/user (5)</A>
+</H2>
+
+<P><CODE><B>stat/user <callsign></B> Show the full status of a user</CODE>
+<P>
+<P>Shows the full contents of a user record including all the secret flags
+and stuff.
+<P>Only the fields that are defined (in perl term) will be displayed.
+<P>
+<H2><A NAME="ss7.141">7.141 sysop (0)</A>
+</H2>
+
+<P><CODE><B>sysop</B> Regain your privileges if you login remotely</CODE>
+<P>
+<P>The system automatically reduces your privilege level to that of a
+normal user if you login in remotely. This command allows you to
+regain your normal privilege level. It uses the normal system: five
+numbers are returned that are indexes into the character array that is
+your assigned password (see SET/PASSWORD). The indexes start from
+zero.
+<P>You are expected to return a string which contains the characters
+required in the correct order. You may intersperse those characters
+with others to obscure your reply for any watchers. For example (and
+these values are for explanation :-):
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ password = 012345678901234567890123456789
+ > sysop
+ 22 10 15 17 3
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>you type:-
<P>
<BLOCKQUOTE><CODE>
<PRE>
+ aa2bbbb0ccc5ddd7xxx3n
+ or 2 0 5 7 3
+ or 20573
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>They will all match. If there is no password you will still be offered
+numbers but nothing will happen when you input a string. Any match is
+case sensitive.
+<P>
+<H2><A NAME="ss7.142">7.142 talk (0)</A>
+</H2>
-#!/usr/bin/perl
+<P><CODE><B>talk <callsign></B> Enter talk mode with <callsign><BR>
+<B>talk <callsign> <text></B> Send a text message to <callsign><BR>
+<B>talk <callsign> > <node_call> [<text>]</B>
+Send a text message to <callsign> via <node_call></CODE>
+<P>
+<P>Send a short message to any other station that is visible on the cluster
+system. You can send it to anyone you can see with a SHOW/CONFIGURATION
+command, they don't have to be connected locally.
+<P>The second form of TALK is used when other cluster nodes are connected
+with restricted information. This usually means that they don't send
+the user information usually associated with logging on and off the cluster.
+<P>If you know that G3JNB is likely to be present on GB7TLH, but you can only
+see GB7TLH in the SH/C list but with no users, then you would use the
+second form of the talk message.
+<P>If you want to have a ragchew with someone you can leave the text message
+out and the system will go into 'Talk' mode. What this means is that a
+short message is sent to the recipient telling them that you are in a 'Talking'
+frame of mind and then you just type - everything you send will go to the
+station that you asked for.
+<P>All the usual announcements, spots and so on will still come out on your
+terminal.
+<P>If you want to do something (such as send a spot) you precede the normal
+command with a '/' character, eg:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ /DX 14001 G1TLH What's a B class licensee doing on 20m CW?
+ /HELP talk
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>To leave talk mode type:
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ /EX
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss7.143">7.143 type (0)</A>
+</H2>
-# provide some standard aliases for commands for terminally
-# helpless ak1a user (helpless in the sense that they never
-# read nor understand help files)
-
-# This file is automagically reloaded if its modification time is
-# later than the one stored in CmdAlias.pm
-
-# PLEASE make this file consistant with reality! (the patterns MUST
-# match the filenames!)
-
-# Don't alter this file, copy it into the local_cmd tree and modify it.
-# This file will be replaced everytime I issue a new release.
-
-# You only need to put aliases in here for commands that don't work as
-# you desire naturally, e.g sh/dx on its own just works as you expect
-# so you need not add it as an alias.
-
-
-
-package CmdAlias;
-
-%alias = (
- '?' => [
- '^\?', 'apropos', 'apropos',
- ],
- 'a' => [
- '^ann.*/full', 'announce full', 'announce',
- '^ann.*/sysop', 'announce sysop', 'announce',
- '^ann.*/(.*)$', 'announce $1', 'announce',
- ],
- 'b' => [
- ],
- 'c' => [
- ],
- 'd' => [
- '^del', 'kill', 'kill',
- '^del\w*/fu', 'kill full', 'kill',
- '^di\w*/a\w*', 'directory all', 'directory',
- '^di\w*/b\w*', 'directory bulletins', 'directory',
- '^di\w*/n\w*', 'directory new', 'directory',
- '^di\w*/o\w*', 'directory own', 'directory',
- '^di\w*/s\w*', 'directory subject', 'directory',
- '^di\w*/t\w*', 'directory to', 'directory',
- '^di\w*/f\w*', 'directory from', 'directory',
- '^di\w*/(\d+)', 'directory $1', 'directory',
- ],
- 'e' => [
- ],
- 'f' => [
- ],
- 'g' => [
- ],
- 'h' => [
- ],
- 'i' => [
- ],
- 'j' => [
- ],
- 'k' => [
- ],
- 'l' => [
- '^l$', 'directory', 'directory',
- '^ll$', 'directory', 'directory',
- '^ll/(\d+)', 'directory $1', 'directory',
- ],
- 'm' => [
- ],
- 'n' => [
- '^news', 'type news', 'type',
- ],
- 'o' => [
- ],
- 'p' => [
- ],
- 'q' => [
- '^q', 'bye', 'bye',
- ],
- 'r' => [
- '^r$', 'read', 'read',
- '^rcmd/(\S+)', 'rcmd $1', 'rcmd',
- ],
- 's' => [
- '^s/p$', 'send', 'send',
- '^sb$', 'send noprivate', 'send',
- '^set/home$', 'set/homenode', 'set/homenode',
- '^set/nobe', 'unset/beep', 'unset/beep',
- '^set/nohe', 'unset/here', 'unset/here',
- '^set/noan', 'unset/announce', 'unset/announce',
- '^set/nodx', 'unset/dx', 'unset/dx',
- '^set/nota', 'unset/talk', 'unset/talk',
- '^set/noww', 'unset/wwv', 'unset/wwv',
- '^set/nowx', 'unset/wx', 'unset/wx',
- '^sh$', 'show', 'show',
- '^sh\w*/buck', 'dbshow buck', 'dbshow',
- '^sh\w*/bu', 'show/files bulletins', 'show/files',
- '^sh\w*/c/n', 'show/configuration nodes', 'show/configuration',
- '^sh\w*/c$', 'show/configuration', 'show/configuration',
- '^sh\w*/com', 'dbavail', 'dbavail',
- '^sh\w*/dx/(\d+)-(\d+)', 'show/dx $1-$2', 'show/dx',
- '^sh\w*/dx/(\d+)', 'show/dx $1', 'show/dx',
- '^sh\w*/dx/d(\d+)', 'show/dx from $1', 'show/dx',
- '^sh\w*/email', 'dbshow email', 'dbshow',
- '^sh\w*/hftest', 'dbshow hftest', 'dbshow',
- '^sh\w*/vhftest', 'dbshow vhftest', 'dbshow',
- '^sh\w*/qsl', 'dbshow qsl', 'dbshow',
- '^sh\w*/tnc', 'who', 'who',
- '^sh\w*/up', 'show/cluster', 'show/cluster',
- '^sh\w*/w\w*/(\d+)-(\d+)', 'show/wwv $1-$2', 'show/wwv',
- '^sh\w*/w\w*/(\d+)', 'show/wwv $1', 'show/wwv',
- '^sp$', 'send', 'send',
-
- ],
- 't' => [
- '^ta$', 'talk', 'talk',
- '^t$', 'talk', 'talk',
- ],
- 'u' => [
- ],
- 'v' => [
- ],
- 'w' => [
- '^wx/full', 'wx full', 'wx',
- '^wx/sysop', 'wx sysop', 'wx',
- ],
- 'x' => [
- ],
- 'y' => [
- ],
- 'z' => [
- ],
-)
-</PRE>
-</CODE></BLOCKQUOTE>
-<P>You can create aliases for commands at will. Beware though, these may not
-always turn out as you think. Care is needed and you need to test the
-results once you have set an alias.
-<P>
-<H2><A NAME="ss7.5">7.5 Console.pl</A>
-</H2>
-
-<P>In later versions of Spider a simple console program is provided for the sysop.
-This has a type ahead buffer with line editing facilities and colour for spots,
-announces etc. To use this program, simply use console.pl instead of client.
-<P>
-<P>To edit the colours, copy /spider/perl/Console.pl to /spider/local and edit the
-file with your favourite editor.
-<P>
-<H2><A NAME="ss7.6">7.6 Updating kepler data</A>
-</H2>
-
-<P>Spider has a powerful and flexible show/satellite command. In order for
-this to be accurate, the kepler data has to be updated regularly. In
-general, this data is available as an email or via cluster mail.
-Updating it is simple. First you need to export the mail message as a
-file. You do this with the <EM>export</EM> command from the cluster prompt
-as the sysop. For example ...
-<P>
-<BLOCKQUOTE><CODE>
-<PRE>
-export 5467 /spider/perl/keps.in
-</PRE>
-</CODE></BLOCKQUOTE>
-<P>would export message number 5467 as a file called keps.in in the
-/spider/perl directory.
-<P>Now login to a VT as sysop and cd /spider/perl. There is a command in
-the perl directory called <EM>convkeps.pl</EM>. All we need to do now is
-convert the file like so ...
-<P>
-<BLOCKQUOTE><CODE>
-<PRE>
-./convkeps.pl keps.in
-</PRE>
-</CODE></BLOCKQUOTE>
-<P>Now go back to the cluster and issue the command ...
-<P>
-<BLOCKQUOTE><CODE>
-<PRE>
-load/keps
+<P><CODE><B>type <filearea>/<name></B> Look at a file in one of the fileareas</CODE>
+<P>
+<P>Type out the contents of a file in a filearea. So, for example, in
+filearea 'bulletins' you want to look at file 'arld051' you would
+enter:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ TYPE bulletins/arld051
</PRE>
</CODE></BLOCKQUOTE>
-<P>That is it! the kepler data has been updated.
+<P>See also SHOW/FILES to see what fileareas are available and a
+list of content.
+<P>
+<H2><A NAME="ss7.144">7.144 who (0)</A>
+</H2>
+
+<P><CODE><B>who</B> Show who is physically connected locally</CODE>
<P>
-<H2><A NAME="ss7.7">7.7 The QRZ callbook</A>
+<P>This is a quick listing that shows which callsigns are connected and
+what sort of connection they have
+<P>
+<H2><A NAME="ss7.145">7.145 wx (0)</A>
+</H2>
+
+<P><CODE><B>wx <text></B> Send a weather message to local users<BR>
+<B>wx full <text> </B> Send a weather message to all cluster users</CODE>
+<P>
+<P>Weather messages can sometimes be useful if you are experiencing an extreme
+that may indicate enhanced conditions
+<P>
+<H2><A NAME="ss7.146">7.146 wx (enhanced for sysops) (5)</A>
</H2>
-<P>The command <EM>sh/qrz</EM> will only work once you have followed a few
-simple steps. First you need to get a user ID and password from qrz.com.
-Simply go to the site and create one. Secondly you need to copy the file
-/spider/perl/Internet.pm to /spider/local and alter it to match your user
-ID and password. You also at this point need to set $allow=1 to complete
-the setup. Many thanks to Fred Lloyd, the proprieter of
-<A HREF="http://www.qrz.com">qrz.com</A> for allowing this access.
+<P><CODE><B>wx sysop <text></B> Send a weather message to other clusters only</CODE>
+<P>
+<P>Send a weather message only to other cluster nodes and not to general users.
+<P>
+<P>
<P>
<HR>
-<A HREF="adminmanual-8.html">Next</A>
+Next
<A HREF="adminmanual-6.html">Previous</A>
<A HREF="adminmanual.html#toc7">Contents</A>
</BODY>
<HTML>
<HEAD>
<META NAME="GENERATOR" CONTENT="SGML-Tools 1.0.9">
- <TITLE>The DXSpider Administration Manual v1.47: CVS</TITLE>
- <LINK HREF="adminmanual-9.html" REL=next>
+ <TITLE>The DXSpider Administration Manual v1.47: The DXSpider command set</TITLE>
<LINK HREF="adminmanual-7.html" REL=previous>
<LINK HREF="adminmanual.html#toc8" REL=contents>
<link rel=stylesheet href="style.css" type="text/css" title="default stylesheet">
</HEAD>
<BODY>
-<A HREF="adminmanual-9.html">Next</A>
+Next
<A HREF="adminmanual-7.html">Previous</A>
<A HREF="adminmanual.html#toc8">Contents</A>
<HR>
-<H2><A NAME="s8">8. CVS</A></H2>
+<H2><A NAME="s8">8. The DXSpider command set</A></H2>
-<P>CVS stands for "Concurrent Versions System" and the CVS for DXSpider is held
-at
-<A HREF="http://www.sourceforge.net">Sourceforge</A>. This means
-that it is possible to update your DXSpider installation to the latest
-sources by using a few simple commands.
+<P>Below is a complete list of commands available from the cluster prompt.
+Most maintenance tasks are automatic but there are some commands that are useful
+for a sysop. These are listed below in alphabetical order. The number in
+brackets following the command name is the permissions level needed to use
+the command.
<P>
-<P>THIS IS NOT FOR THE FAINT HEARTED!!! ONLY DO THIS IF YOU HAVE A TEST
-INSTALLATION OR ARE WILLING TO HAVE YOUR CLUSTER CRASH ON YOU!!!
-THIS MUST BE CONSIDERED AT LEAST BETA TESTING AND MAYBE EVEN ALPHA!!
-YOU HAVE BEEN WARNED!!!
+<H2><A NAME="ss8.1">8.1 accept/announce (0)</A>
+</H2>
+
+<P><CODE><B>accept/announce [0-9] <pattern></B> Set an accept filter
+line for announce</CODE>
+<P>
+<P>Create an 'accept this announce' line for a filter.
+<P>An accept filter line means that if the announce matches this filter it is
+passed onto the user. See HELP FILTERS for more info. Please read this
+to understand how filters work - it will save a lot of grief later on.
+<P>You can use any of the following things in this line:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ info <string> eg: iota or qsl
+ by <prefixes> eg: G,M,2
+ origin <prefixes>
+ origin_dxcc <numbers> eg: 61,62 (from eg: sh/pre G)
+ origin_itu <numbers>
+ origin_zone <numbers>
+ by_dxcc <numbers>
+ by_itu <numbers>
+ by_zone <numbers>
+ channel <prefixes>
+ wx 1 filter WX announces
+ dest <prefixes> eg: 6MUK,WDX (distros)
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>some examples:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ acc/ann dest 6MUK
+ acc/ann 2 by_zone 14,15,16
+ (this could be all on one line: acc/ann dest 6MUK or by_zone 14,15,16)
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>or
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ acc/ann by G,M,2
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>This filter would only allow announces that were posted buy UK stations.
+You can use the tag 'all' to accept everything eg:
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ acc/ann all
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>but this probably for advanced users...
+<P>
+<H2><A NAME="ss8.2">8.2 accept/announce (extended for sysops) (8)</A>
+</H2>
+
+<P><CODE><B>accept/announce <call> [input] [0-9]<pattern></B> Announce filter sysop version</CODE>
+<P>
+<P>This version allows a sysop to set a filter for a callsign as well as the
+default for nodes and users eg:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ accept/ann by G,M,2
+ accept/ann input node_default by G,M,2
+ accept/ann user_default by G,M,2
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss8.3">8.3 accept/spots (0)</A>
+</H2>
+
+<P><CODE><B>accept/announce [0-9] <pattern></B> Set an accept filter line for spots</CODE>
+<P>
+<P>Create an 'accept this spot' line for a filter.
+<P>
+<P>An accept filter line means that if the spot matches this filter it is
+passed onto the user. See HELP FILTERS for more info. Please read this
+to understand how filters work - it will save a lot of grief later on.
+<P>You can use any of the following things in this line:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ freq <range> eg: 0/30000 or hf or hf/cw or 6m,4m,2m
+ on <range> same as 'freq'
+ call <prefixes> eg: G,PA,HB9
+ info <string> eg: iota or qsl
+ by <prefixes>
+ call_dxcc <numbers> eg: 61,62 (from eg: sh/pre G)
+ call_itu <numbers>
+ call_zone <numbers>
+ by_dxcc <numbers>
+ by_itu <numbers>
+ by_zone <numbers>
+ origin <prefixes>
+ channel <prefixes>
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<P>For frequencies, you can use any of the band names defined in
+SHOW/BANDS and you can use a subband name like: cw, rtty, data, ssb -
+thus: hf/ssb. You can also just have a simple range like: 0/30000 -
+this is more efficient than saying simply: freq HF (but don't get
+too hung up about that)
+<P>some examples:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ acc/spot 1 on hf/cw
+ acc/spot 2 on vhf and (by_zone 14,15,16 or call_zone 14,15,16)
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>You can use the tag 'all' to accept everything, eg:
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ acc/spot 3 all
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>but this probably for advanced users...
+<P>
+<H2><A NAME="ss8.4">8.4 accept/spots (extended for sysops) (8)</A>
+</H2>
+
+<P><CODE><B>accept/spots <call> [input] [0-9] <pattern></B> Spot filter sysop version</CODE>
+<P>
+<P>This version allows a sysop to set a filter for a callsign as well as the
+default for nodes and users eg:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ accept/spot db0sue-7 1 by_zone 14,15,16
+ accept/spot node_default all
+ set/hops node_default 10
+
+ accept/spot user_default by G,M,2
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss8.5">8.5 accept/wcy (0)</A>
+</H2>
+
+<P><CODE><B>accept/wcy [0-9] <pattern></B> set an accept WCY filter</CODE>
+<P>
+<P>It is unlikely that you will want to do this, but if you do then you can
+filter on the following fields:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ by <prefixes> eg: G,M,2
+ origin <prefixes>
+ origin_dxcc <numbers> eg: 61,62 (from eg: sh/pre G)
+ origin_itu <numbers>
+ origin_zone <numbers>
+ by_dxcc <numbers>
+ by_itu <numbers>
+ by_zone <numbers>
+ channel <prefixes>
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<P>There are no examples because WCY Broadcasts only come from one place and
+you either want them or not (see UNSET/WCY if you don't want them).
+<P>This command is really provided for future use.
+<P>See HELP FILTER for information.
+<P>
+<H2><A NAME="ss8.6">8.6 accept/wcy (extended for sysops) (8)</A>
+</H2>
+
+<P><CODE><B>accept/wcy <call> [input] [0-9] <pattern></B>
+WCY filter sysop version</CODE>
+<P>
+<P>This version allows a sysop to set a filter for a callsign as well as the
+default for nodes and users eg:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ accept/wcy node_default all
+ set/hops node_default 10
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss8.7">8.7 accept/wwv (0)</A>
+</H2>
+
+<P><CODE><B>accept/wwv [0-9] <pattern></B> Set an accept WWV filter</CODE>
+<P>
+<P>It is unlikely that you will want to do this, but if you do then you can
+filter on the following fields:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ by <prefixes> eg: G,M,2
+ origin <prefixes>
+ origin_dxcc <numbers> eg: 61,62 (from eg: sh/pre G)
+ origin_itu <numbers>
+ origin_zone <numbers>
+ by_dxcc <numbers>
+ by_itu <numbers>
+ by_zone <numbers>
+ channel <prefixes>
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>for example
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ accept/wwv by_zone 4
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>is probably the only useful thing to do (which will only show WWV broadcasts
+by stations in the US).
+<P>See HELP FILTER for information.
+<P>
+<H2><A NAME="ss8.8">8.8 accept/wwv (extended for sysops) (8)</A>
+</H2>
+
+<P><CODE><B>accept/wwv <call> [input] [0-9] <pattern></B>
+WWV filter sysop version</CODE>
+<P>
+<P>This version allows a sysop to set a filter for a callsign as well as the
+default for nodes and users eg:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ accept/wwv db0sue-7 1 by_zone 4
+ accept/wwv node_default all
+ set/hops node_default 10
+
+ accept/wwv user_default by W,K
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss8.9">8.9 announce (0)</A>
+</H2>
+
+<P><CODE><B>announce <text></B> Send an announcement to local users</CODE>
+<P>
+<P>Send an announcement to LOCAL users only, where <text> is the text
+of the announcement you wish to broadcast
+<P>
+<H2><A NAME="ss8.10">8.10 announce full (0)</A>
+</H2>
+
+<P><CODE><B>announce full <text></B> Send an announcement cluster wide</CODE>
+<P>
+<P>This command will send your announcement across the whole cluster
+network.
+<P>
+<P>
+<H2><A NAME="ss8.11">8.11 announce sysop (5)</A>
+</H2>
+
+<P><CODE><B>announce sysop <text></B></CODE>
+<P>
+<P>Send an announcement to Sysops only
+<P>
+<H2><A NAME="ss8.12">8.12 apropos (0)</A>
+</H2>
+
+<P><CODE><B>apropos <string></B> Search the help database</CODE>
+<P>
+<P>Search the help database for <string> (it isn't case sensitive),
+and print the names of all the commands that may be relevant.
+<P>
+<H2><A NAME="ss8.13">8.13 bye (0)</A>
+</H2>
+
+<P><CODE><B>bye</B> Exit from the cluster</CODE>
+<P>
+<P>This will disconnect you from the cluster
+<P>
+<H2><A NAME="ss8.14">8.14 catchup (5)</A>
+</H2>
+
+<P><CODE><B>catchup <node_call> All|[<msgno> ...]</B> Mark a message as sent</CODE>
+<P>
+<P>When you send messages the fact that you have forwarded it to another node
+is remembered so that it isn't sent again. When you have a new partner
+node and you add their callsign to your /spider/msg/forward.pl file, all
+outstanding non-private messages will be forwarded to them. This may well
+be ALL the non-private messages. You can prevent this by using these
+commmands:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ catchup GB7DJK all
+ catchup GB7DJK 300 301 302 303 500-510
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>and to undo what you have just done:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ uncatchup GB7DJK all
+ uncatchup GB7DJK 300 301 302 303 500-510
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>which will arrange for them to be forward candidates again.
+<P>Order is not important.
+<P>
+<H2><A NAME="ss8.15">8.15 clear/spots (0)</A>
+</H2>
+
+<P><CODE><B>clear/spots [1|all]</B> Clear a spot filter line</CODE>
+<P>
+<P>This command allows you to clear (remove) a line in a spot filter or to
+remove the whole filter.
+<P>If you have a filter:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ acc/spot 1 on hf/cw
+ acc/spot 2 on vhf and (by_zone 14,15,16 or call_zone 14,15,16)
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>and you say:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ clear/spot 1
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>you will be left with:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ acc/spot 2 on vhf and (by_zone 14,15,16 or call_zone 14,15,16)
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>If you do:
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ clear/spot all
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>the filter will be completely removed.
+<P>
+<P>
+<H2><A NAME="ss8.16">8.16 connect (5) </A>
+</H2>
+
+<P><CODE><B>connect <callsign></B> Start a connection to another DX Cluster</CODE>
+<P>
+<P>Start a connection process that will culminate in a new connection to the
+DX cluster <callsign>. This process creates a new 'client' process which will
+use the script in /spider/connect/<callsign> to effect the 'chat' exchange
+necessary to traverse the network(s) to logon to the cluster <callsign>.
+<P>
+<H2><A NAME="ss8.17">8.17 dbavail (0)</A>
+</H2>
+
+<P><CODE><B>dbavail</B> Show a list of all the databases in the system</CODE>
+<P>
+<P>The title says it all really, this command lists all the databases defined
+in the system. It is also aliased to SHOW/COMMAND.
+<P>
+<H2><A NAME="ss8.18">8.18 dbcreate (9)</A>
+</H2>
+
+<P><CODE><B>dbcreate <name></B> Create a database entry<BR>
+<B>dbcreate <name> chain <name> [<name>..]</B> Create a chained database entry<BR>
+<B>dbcreate <name> remote <node></B> Create a remote database
+entry<BR></CODE>
+<P>
+<P>DBCREATE allows you to define a database in the system. It doesn't actually
+create anything, just defines it.
+<P>The databases that are created are simple DB_File hash databases, they are
+therefore already 'indexed'.
+<P>You can define a local database with the first form of the command eg:
+<P>DBCREATE oblast
+<P>You can also chain databases with the addition of the 'chain' keyword.
+This will search each database one after the other. A typical example
+is:
+<P>DBCREATE sdx_qsl chain sql_ad
+<P>No checking is done to see if the any of the chained databases exist, in
+fact it is usually better to do the above statement first then do each of
+the chained databases.
+<P>Databases can exist offsite. To define a database that lives on another
+node do:
+<P>DBCREATE buckmaster remote gb7dxc
+<P>Remote databases cannot be chained; however, the last database in a
+a chain can be a remote database eg:
+<P>DBCREATE qsl chain gb7dxc
+<P>To see what databases have been defined do:
+<P>DBAVAIL (or it will have been aliased to SHOW/COMMAND)
+<P>It would be normal for you to add an entry into your local Aliases file
+to allow people to use the 'SHOW/<dbname>' style syntax. So you would
+need to add a line like:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ 's' => [
+ ..
+ ..
+ '^sh\w*/buc', 'dbshow buckmaster', 'dbshow',
+ ..
+ ..
+ ],
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>to allow
+<P>SH/BUCK g1tlh
+<P>to work as they may be used to.
+<P>See DBIMPORT for the importing of existing AK1A format data to databases.
+See DBSHOW for generic database enquiry
+<P>
+<H2><A NAME="ss8.19">8.19 dbimport (9)</A>
+</H2>
+
+<P><CODE><B>dbimport <dbname></B> Import AK1A data into a database</CODE>
+<P>
+<P>If you want to import or update data in bulk to a database you can use
+this command. It will either create or update entries into an existing
+database. For example:-
+<P>DBIMPORT oblast /tmp/OBLAST.FUL
+<P>will import the standard OBLAST database that comes with AK1A into the
+oblast database held locally.
+<P>
+<H2><A NAME="ss8.20">8.20 dbremove (9)</A>
+</H2>
+
+<P><CODE><B>dbremove <dbname></B> Delete a database</CODE>
+<P>
+<P>DBREMOVE will completely remove a database entry and also delete any data
+file that is associated with it.
+<P>There is no warning, no comeback, no safety net.
+<P>For example:
+<P>DBREMOVE oblast
+<P>will remove the oblast database from the system and it will also remove
+the associated datafile.
+<P>I repeat:
+<P>There is no warning, no comeback, no safety net.
+<P>You have been warned.
+<P>
+<H2><A NAME="ss8.21">8.21 dbshow (0)</A>
+</H2>
+
+<P><CODE><B>dbshow <dbname> <key></B> Display an entry, if it exists, in a database</CODE>
+<P>
+<P>This is the generic user interface to the database to the database system.
+It is expected that the sysop will add an entry to the local Aliases file
+so that users can use the more familiar AK1A style of enquiry such as:
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ SH/BUCK G1TLH
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>but if he hasn't and the database really does exist (use DBAVAIL or
+SHOW/COMMAND to find out) you can do the same thing with:
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ DBSHOW buck G1TLH
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<P>
+<H2><A NAME="ss8.22">8.22 debug (9)</A>
+</H2>
+
+<P><CODE><B>debug</B> Set the cluster program into debug mode</CODE>
+<P>
+<P>Executing this command will only have an effect if you are running the cluster
+in debug mode i.e.
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ perl -d cluster.pl
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>It will interrupt the cluster just after the debug command has finished.
+<P>
+<H2><A NAME="ss8.23">8.23 directory (0)</A>
+</H2>
+
+<P><CODE><B>directory</B> List messages<BR> <B>directory all</B> List all messages<BR>
+<B>directory own</B> List your own messages<BR>
+<B>directory new</B> List all new messages<BR>
+<B>directory to <call></B> List all messages to <call><BR>
+<B>directory from <call></B> List all messages from <call><BR>
+<B>directory subject <string></B> List all messages with <string> in subject<BR>
+<B>directory <nn></B> List last <nn> messages<BR>
+<B>directory <from>-<to></B> List messages <from> message <to> message <BR></CODE>
+<P>
+<P>List the messages in the messages directory.
+<P>If there is a 'p' one space after the message number then it is a
+personal message. If there is a '-' between the message number and the
+'p' then this indicates that the message has been read.
+<P>You can use shell escape characters such as '*' and '?' in the <call>
+fields.
+<P>You can combine some of the various directory commands together eg:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ DIR TO G1TLH 5
+or
+ DIR SUBJECT IOTA 200-250
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>You can abbreviate all the commands to one letter and use ak1a syntax:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ DIR/T G1* 10
+ DIR/S QSL 10-100 5
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<P>
+<H2><A NAME="ss8.24">8.24 directory (extended for sysops) (5)</A>
+</H2>
+
+<P>Works just like the user command except that sysops can see ALL messages.
+<P>
+<H2><A NAME="ss8.25">8.25 disconnect (8)</A>
+</H2>
+
+<P><CODE><B>disconnect <call> [<call> ...]</B> Disconnect a user or node</CODE>
+<P>
+<P>Disconnect any <call> connected locally
+<P>
+<H2><A NAME="ss8.26">8.26 dx (0)</A>
+</H2>
+
+<P><CODE><B>dx [by <call>] <freq> <call> <remarks></B> Send a DX spot</CODE>
+<P>
+<P>This is how you send a DX Spot to other users. You can, in fact, now
+enter the <freq> and the <call> either way round.
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ DX FR0G 144.600
+ DX 144.600 FR0G
+ DX 144600 FR0G
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>will all give the same result. You can add some remarks to the end
+of the command and they will be added to the spot.
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ DX FR0G 144600 this is a test
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>You can credit someone else by saying:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ DX by G1TLH FR0G 144.600 he isn't on the cluster
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>The <freq> is compared against the available bands set up in the
+cluster. See SHOW/BANDS for more information.
+<P>
+<H2><A NAME="ss8.27">8.27 export (9)</A>
+</H2>
+
+<P><CODE><B>export <msgno> <filename></B> Export a message to a file</CODE>
+<P>
+<P>Export a message to a file. This command can only be executed on a local
+console with a fully privileged user. The file produced will be in a form
+ready to be imported back into the cluster by placing it in the import
+directory (/spider/msg/import).
+<P>This command cannot overwrite an existing file. This is to provide some
+measure of security. Any files written will owned by the same user as the
+main cluster, otherwise you can put the new files anywhere the cluster can
+access. For example:-
+<P>EXPORT 2345 /tmp/a
+<P>
+<H2><A NAME="ss8.28">8.28 export_users (9)</A>
+</H2>
+
+<P><CODE><B>export_users [<filename>]</B> Export the users database to ascii</CODE>
+<P>
+<P>Export the users database to a file in ascii format. If no filename
+is given then it will export the file to /spider/data/user_asc.
+<P>If the file already exists it will be renamed to <filename>.o. In fact
+up to 5 generations of the file can be kept each one with an extra 'o' on the
+suffix.
+<P>BE WARNED: this will write to any file you have write access to. No check is
+made on the filename (if any) that you specify.
+<P>
+<H2><A NAME="ss8.29">8.29 forward/latlong (8)</A>
+</H2>
+
+<P><CODE><B>forward/latlong <node_call></B> Send latitude and longitude information to another cluster</CODE>
+<P>
+<P>This command sends all the latitude and longitude information that your
+cluster is holding against callsigns. One advantage of recieving this
+information is that more locator information is held by you. This
+means that more locators are given on the DX line assuming you have
+<EM>set/dxgrid</EM> enabled. This could be a LOT of information though, so
+it is not recommended on slow links.
+<P>
+<H2><A NAME="ss8.30">8.30 forward/opername (1)</A>
+</H2>
+
+<P><CODE><B>forward/opername <call></B> Send out information on this <call> to all clusters</CODE>
+<P>
+<P>This command sends out any information held in the user file which can
+be broadcast in PC41 protocol packets. This information is Name, QTH, Location
+and Homenode. PC41s are only sent for the information that is available.
+<P>
+<H2><A NAME="ss8.31">8.31 help (0)</A>
+</H2>
+
+<P><CODE><B>help <cmd></B> Get help on a command</CODE>
+<P>
+<P>All commands can be abbreviated, so SHOW/DX can be abbreviated
+to SH/DX, ANNOUNCE can be shortened to AN and so on.
+<P>Look at the APROPOS <string> command which will search the help database
+for the <string> you specify and give you a list of likely commands
+to look at with HELP.
+<P>
+<H2><A NAME="ss8.32">8.32 init (5)</A>
+</H2>
+
+<P><CODE><B>init <node call></B> Re-initialise a link to an AK1A compatible node</CODE>
+<P>
+<P>This command attempts to re-initialise a link to a (usually) AK1A node
+that has got confused, usually by a protocol loop of some kind. It may
+work - but you usually will be better off simply disconnecting it (or
+better, if it is a real AK1A node, doing an RCMD <node> DISC/F <your
+node>).
+<P>Best of luck - you will need it.
+<P>
+<H2><A NAME="ss8.33">8.33 kill (0)</A>
+</H2>
+
+<P><CODE><B>kill <msgno> [<msgno> ..]</B> Delete a message from the local system</CODE>
+<P>
+<P>Delete a message from the local system. You will only be able to
+delete messages that you have originated or been sent (unless you are
+the sysop).
+<P>
+<H2><A NAME="ss8.34">8.34 kill (5)</A>
+</H2>
+
+<P><CODE><B>kill <msgno> [<msgno> ...]</B> Remove or erase a message from the system<BR>
+<B>kill from <call></B> Remove all messages from a callsign<BR>
+<B>kill to <call></B> Remove all messages to a callsign<BR></CODE>
+<P>
+<P>You can get rid of any message to or originating from your callsign using
+this command. You can remove more than one message at a time.
+<P>As a sysop you can kill any message on the system.
+<P>
+<H2><A NAME="ss8.35">8.35 kill full (5)</A>
+</H2>
+
+<P><CODE><B>kill full <msgno> [<msgno>]</B> Delete a message from the whole cluster</CODE>
+<P>
+<P>Delete a message (usually a 'bulletin') from the whole cluster system.
+<P>This uses the subject field, so any messages that have exactly the same subject
+will be deleted. Beware!
+<P>
+<H2><A NAME="ss8.36">8.36 links (0)</A>
+</H2>
+
+<P><CODE><B>links</B> Show which nodes are physically connected</CODE>
+<P>
+<P>This is a quick listing that shows which links are connected and
+some information about them. See WHO for a list of all connections.
+<P>
+<P>
+<H2><A NAME="ss8.37">8.37 load/aliases (9)</A>
+</H2>
+
+<P><CODE><B>load/aliases</B> Reload the command alias table</CODE>
+<P>
+<P>Reload the /spider/cmd/Aliases file after you have editted it. You will need to
+do this if you change this file whilst the cluster is running in order for the
+changes to take effect.
+<P>
+<P>
+<H2><A NAME="ss8.38">8.38 load/baddx (9)</A>
+</H2>
+
+<P><CODE><B>load/baddx</B> Reload the bad DX table</CODE>
+<P>
+<P>Reload the /spider/data/baddx.pl file if you have changed it manually whilst
+the cluster is running. This table contains the DX Calls that, if spotted,
+will not be passed on. FR0G and TEST are classic examples.
+<P>
+<H2><A NAME="ss8.39">8.39 load/badmsg (9)</A>
+</H2>
+
+<P><CODE><B>load/badmsg</B> Reload the bad message table</CODE>
+<P>
+<P>Reload the /spider/msg/badmsg.pl file if you have changed it manually whilst
+the cluster is running. This table contains a number of perl regular
+expressions which are searched for in the fields targetted of each message.
+If any of them match then that message is immediately deleted on receipt.
+<P>
+<H2><A NAME="ss8.40">8.40 load/badwords (9)</A>
+</H2>
+
+<P><CODE><B>load/badwords</B> Reload the badwords file</CODE>
+<P>
+<P>Reload the /spider/data/badwords file if you have changed it manually whilst
+the cluster is running. This file contains a list of words which, if found
+on certain text portions of PC protocol, will cause those protocol frames
+to be rejected. It will all put out a message if any of these words are
+used on the announce, dx and talk commands. The words can be one or
+more on a line, lines starting with '#' are ignored.
+<P>
+<H2><A NAME="ss8.41">8.41 load/bands (9)</A>
+</H2>
+
+<P><CODE><B>load/bands</B> Reload the band limits table</CODE>
+<P>
+<P>Reload the /spider/data/bands.pl file if you have changed it manually whilst
+the cluster is running.
+<P>
+<H2><A NAME="ss8.42">8.42 load/cmd_cache (9)</A>
+</H2>
+
+<P><CODE><B>load/cmd_cache</B> Reload the automatic command cache</CODE>
+<P>
+<P>Normally, if you change a command file in the cmd or local_cmd tree it will
+automatially be picked up by the cluster program. Sometimes it can get confused
+if you are doing a lot of moving commands about or delete a command in the
+local_cmd tree and want to use the normal one again. Execute this command to
+reset everything back to the state it was just after a cluster restart.
+<P>
+<H2><A NAME="ss8.43">8.43 load/forward (9)</A>
+</H2>
+
+<P><CODE><B>load/forward</B> Reload the msg forwarding routing table</CODE>
+<P>Reload the /spider/msg/forward.pl file if you have changed it
+manually whilst the cluster is running.
+<P>
+<H2><A NAME="ss8.44">8.44 load/messages (9)</A>
+</H2>
+
+<P><CODE><B>load/messages</B> Reload the system messages file</CODE>
+<P>
+<P>If you change the /spider/perl/Messages file (usually whilst fiddling/writing ne
+commands) you can have them take effect during a cluster session by executing this
+command. You need to do this if get something like :-
+<P>unknown message 'xxxx' in lang 'en'
+<P>
+<H2><A NAME="ss8.45">8.45 load/prefixes (9)</A>
+</H2>
+
+<P><CODE><B>load/prefixes</B> Reload the prefix table</CODE>
+<P>
+<P>Reload the /spider/data/prefix_data.pl file if you have changed it manually
+whilst the cluster is running.
+<P>
+<H2><A NAME="ss8.46">8.46 merge (5)</A>
+</H2>
+
+<P><CODE><B>merge <node> [<no spots>/<no wwv>]</B> Ask for the latest spots and WWV</CODE>
+<P>
+<P>MERGE allows you to bring your spot and wwv database up to date. By default
+it will request the last 10 spots and 5 WWVs from the node you select. The
+node must be connected locally.
+<P>You can request any number of spots or wwv and although they will be appended
+to your databases they will not duplicate any that have recently been added
+(the last 2 days for spots and last month for WWV data).
+<P>
+<H2><A NAME="ss8.47">8.47 msg (9)</A>
+</H2>
+
+<P><CODE><B>msg <cmd> <msgno> [data ...]</B> Alter various message parameters</CODE>
+<P>
+<P>Alter message parameters like To, From, Subject, whether private or bulletin
+or return receipt (RR) is required or whether to keep this message from timing
+out.
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ MSG TO <msgno> <call> - change TO callsign to <call>
+ MSG FRom <msgno> <call> - change FROM callsign to <call>
+ MSG PRrivate <msgno> - set private flag
+ MSG NOPRrivate <msgno> - unset private flag
+ MSG RR <msgno> - set RR flag
+ MSG NORR <msgno> - unset RR flag
+ MSG KEep <msgno> - set the keep flag (message won't be deleted ever)
+ MSG NOKEep <msgno> - unset the keep flag
+ MSG SUbject <msgno> <new> - change the subject to <new>
+ MSG WAittime <msgno> - remove any waitting time for this message
+ MSG NOREad <msgno> - mark message as unread
+ MSG REad <msgno> - mark message as read
+ MSG QUeue - queue any outstanding bulletins
+ MSG QUeue 1 - queue any outstanding private messages
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>You can look at the status of a message by using:-
+<P>STAT/MSG <msgno>
+<P>This will display more information on the message than DIR does.
+<P>
+<H2><A NAME="ss8.48">8.48 pc (8)</A>
+</H2>
+
+<P><CODE><B>pc <call> <text></B> Send text (eg PC Protocol) to <call></CODE>
+<P>
+<P>Send some arbitrary text to a locally connected callsign. No processing is done on
+the text. This command allows you to send PC Protocol to unstick things if problems
+arise (messages get stuck etc). eg:-
+<P>pc gb7djk PC33^GB7TLH^GB7DJK^400^
+<P>You can also use in the same way as a talk command to a connected user but
+without any processing, added of "from <blah> to <blah>" or whatever.
+<P>pc G1TLH Try doing that properly!!!
+<P>
+<H2><A NAME="ss8.49">8.49 ping (1)</A>
+</H2>
+
+<P><CODE><B>ping <node></B> Check the link quality between nodes</CODE>
+<P>
+<P>his command allows you to send a frame to another cluster node on
+the network and get a return frame. The time it takes to do this
+is a good indication of the quality of the link. The actual time
+it takes is output to the console in seconds.
+Any visible cluster node can be PINGed.
+<P>
+<P>
+<H2><A NAME="ss8.50">8.50 rcmd (1)</A>
+</H2>
+
+<P><CODE><B>rcmd <node call> <cmd></B> Send a command to another DX cluster</CODE>
+<P>
+<P>This command allows you to send nearly any command to another DX Cluster
+node that is connected to the system.
+<P>Whether you get any output is dependant on a) whether the other system knows
+that the node callsign of this cluster is in fact a node b) whether the
+other system is allowing RCMDs from this node and c) whether you have
+permission to send this command at all.
+<P>
+<H2><A NAME="ss8.51">8.51 read (0)</A>
+</H2>
+
+<P><CODE><B>read</B> Read the next unread personal message addressed to you<BR>
+<B>read <msgno></B> Read the specified message<BR></CODE>
+<P>
+<P>You can read any messages that are sent as 'non-personal' and also any
+message either sent by or sent to your callsign.
+<P>
+<P>
+<H2><A NAME="ss8.52">8.52 read (extended for sysops) (5) </A>
+</H2>
+
+<P><CODE><B>read <msgno></B> Read a message on the system</CODE>
+<P>
+<P>As a sysop you may read any message on the system
+<P>
+<H2><A NAME="ss8.53">8.53 reject/announce</A>
+</H2>
+
+<P><CODE><B>reject/announce [0-9] <pattern></B> Set a reject filter
+for announce</CODE>
+<P>
+<P>Create an 'reject this announce' line for a filter.
+<P>An reject filter line means that if the announce matches this filter it is
+passed onto the user. See HELP FILTERS for more info. Please read this
+to understand how filters work - it will save a lot of grief later on.
+<P>You can use any of the following things in this line:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ info <string> eg: iota or qsl
+ by <prefixes> eg: G,M,2
+ origin <prefixes>
+ origin_dxcc <numbers> eg: 61,62 (from eg: sh/pre G)
+ origin_itu <numbers>
+ origin_zone <numbers>
+ by_dxcc <numbers>
+ by_itu <numbers>
+ by_zone <numbers>
+ channel <prefixes>
+ wx 1 filter WX announces
+ dest <prefixes> eg: 6MUK,WDX (distros)
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>some examples:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ rej/ann by_zone 14,15,16 and not by G,M,2
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>You can use the tag 'all' to reject everything eg:
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ rej/ann all
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>but this probably for advanced users...
+<P>
+<H2><A NAME="ss8.54">8.54 reject/announce (extended for sysops) (8)</A>
+</H2>
+
+<P><CODE><B>reject/announce <call> [input] [0-9] <pattern></B> Announce filter sysop version</CODE>
+<P>
+<P>This version allows a sysop to set a filter for a callsign as well as the
+default for nodes and users eg:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ reject/ann by G,M,2
+ reject/ann input node_default by G,M,2
+ reject/ann user_default by G,M,2
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss8.55">8.55 reject/spots (0)</A>
+</H2>
+
+<P><CODE><B>reject/spots [0-9] <pattern></B> Set a reject filter line for spots</CODE>
+<P>
+<P>Create a 'reject this spot' line for a filter.
+<P>A reject filter line means that if the spot matches this filter it is
+dumped (not passed on). See HELP FILTERS for more info. Please read this
+to understand how filters work - it will save a lot of grief later on.
+<P>You can use any of the following things in this line:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ freq <range> eg: 0/30000 or hf or hf/cw or 6m,4m,2m
+ on <range> same as 'freq'
+ call <prefixes> eg: G,PA,HB9
+ info <string> eg: iota or qsl
+ by <prefixes>
+ call_dxcc <numbers> eg: 61,62 (from eg: sh/pre G)
+ call_itu <numbers>
+ call_zone <numbers>
+ by_dxcc <numbers>
+ by_itu <numbers>
+ by_zone <numbers>
+ origin <prefixes>
+ channel <prefixes>
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>For frequencies, you can use any of the band names defined in
+SHOW/BANDS and you can use a subband name like: cw, rtty, data, ssb -
+thus: hf/ssb. You can also just have a simple range like: 0/30000 -
+this is more efficient than saying simply: on HF (but don't get
+too hung up about that)
+<P>some examples:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ rej/spot 1 on hf
+ rej/spot 2 on vhf and not (by_zone 14,15,16 or call_zone 14,15,16)
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>You can use the tag 'all' to reject everything eg:
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ rej/spot 3 all
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>but this probably for advanced users...
+<P>
+<H2><A NAME="ss8.56">8.56 reject/spots (extended for sysops) (8)</A>
+</H2>
+
+<P><CODE><B>reject/spots <call> [input] [0-9] <pattern></B>
+Reject spot filter sysop version </CODE>
+<P>
+<P>This version allows a sysop to set a filter for a callsign as well as the
+default for nodes and users eg:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ reject/spot db0sue-7 1 by_zone 14,15,16
+ reject/spot node_default all
+ set/hops node_default 10
+
+ reject/spot user_default by G,M,2
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss8.57">8.57 reject/wcy (0)</A>
+</H2>
+
+<P><CODE><B>reject/wcy [0-9] <pattern></B> Set a reject WCY filter</CODE>
+<P>
+<P>It is unlikely that you will want to do this, but if you do then you can
+filter on the following fields:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ by <prefixes> eg: G,M,2
+ origin <prefixes>
+ origin_dxcc <numbers> eg: 61,62 (from eg: sh/pre G)
+ origin_itu <numbers>
+ origin_zone <numbers>
+ by_dxcc <numbers>
+ by_itu <numbers>
+ by_zone <numbers>
+ channel <prefixes>
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>There are no examples because WCY Broadcasts only come from one place and
+you either want them or not (see UNSET/WCY if you don't want them).
+<P>This command is really provided for future use.
+<P>See HELP FILTER for information.
+<P>
+<H2><A NAME="ss8.58">8.58 reject/wcy (extended for sysops) (8)</A>
+</H2>
+
+<P><CODE><B>reject/wcy <call> [input] [0-9] <pattern></B>
+WCY reject filter sysop version</CODE>
+<P>
+<P>This version allows a sysop to set a filter for a callsign as well as the
+default for nodes and users eg:-
+<P>reject/wcy gb7djk all
+<P>
+<H2><A NAME="ss8.59">8.59 reject/wwv (0)</A>
+</H2>
+
+<P><CODE><B>reject/wwv [0-9] <pattern></B> Set a reject WWV filter</CODE>
+<P>
+<P>It is unlikely that you will want to do this, but if you do then you can
+filter on the following fields:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ by <prefixes> eg: G,M,2
+ origin <prefixes>
+ origin_dxcc <numbers> eg: 61,62 (from eg: sh/pre G)
+ origin_itu <numbers>
+ origin_zone <numbers>
+ by_dxcc <numbers>
+ by_itu <numbers>
+ by_zone <numbers>
+ channel <prefixes>
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>for example
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ reject/wwv by_zone 14,15,16
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>is probably the only useful thing to do (which will only show WWV broadcasts
+by stations in the US).
+<P>See HELP FILTER for information.
+<P>
+<H2><A NAME="ss8.60">8.60 reject/wwv (extended for sysops) (8)</A>
+</H2>
+
+<P><CODE><B>reject/wwv <call> [input] [0-9] <pattern></B>
+WWV reject filter sysop version</CODE>
+<P>
+<P>This version allows a sysop to set a filter for a callsign as well as the
+default for nodes and users eg:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ reject/wwv db0sue-7 1 by_zone 4
+ reject/wwv node_default all
+
+ reject/wwv user_default by W
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss8.61">8.61 reply (0)</A>
+</H2>
+
+<P><CODE><B>reply</B> Reply (privately) to the last message that you have read<BR>
+<B>reply <msgno></B> Reply (privately) to the specified message<BR>
+<B>reply B <msgno></B> Reply as a Bulletin to the specified message<BR>
+<B>reply NOPrivate <msgno></B> Reply as a Bulletin to the specified
+message<BR>
+<B>reply RR <msgno></B> Reply to the specified message with read receipt<BR></CODE>
+<P>
+<P>You can reply to a message and the subject will automatically have
+"Re:" inserted in front of it, if it isn't already present.
+<P>You can also use all the extra qualifiers such as RR, PRIVATE,
+NOPRIVATE, B that you can use with the SEND command (see SEND
+for further details)
+<P>
+<H2><A NAME="ss8.62">8.62 send (0)</A>
+</H2>
+
+<P><CODE><B>send <call> [<call> ...]</B> Send a message to one or more callsigns<BR>
+<B>send RR <call></B> Send a message and ask for a read receipt<BR>
+<B>send COPY <msgno> <call></B> Send a copy of a message to someone<BR>
+<B>send PRIVATE <call></B> Send a personal message<BR>
+<B>send NOPRIVATE <call></B> Send a message to all stations<BR></CODE>
+<P>
+<P>All the SEND commands will create a message which will be sent either to
+an individual callsign or to one of the 'bulletin' addresses.
+<P>SEND <call> on its own acts as though you had typed SEND PRIVATE, that is
+it will mark the message as personal and send it to the cluster node that
+that callsign is connected to.
+<P>You can have more than one callsign in all of the SEND commands.
+<P>You can have multiple qualifiers so that you can have for example:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ SEND RR COPY 123 PRIVATE G1TLH G0RDI
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>which should send a copy of message 123 to G1TLH and G0RDI and you will
+receive a read receipt when they have read the message.
+<P>SB is an alias for SEND NOPRIVATE (or send a bulletin in BBS speak)
+SP is an alias for SEND PRIVATE
+<P>
+<H2><A NAME="ss8.63">8.63 set/address (0)</A>
+</H2>
+
+<P><CODE><B>set/address <your_address></B> Record your postal address</CODE>
+<P>
+<P>Literally, record your address details on the cluster.
+<P>
+<H2><A NAME="ss8.64">8.64 set/announce (0)</A>
+</H2>
+
+<P><CODE><B>set/announce</B> Allow announce messages</CODE>
+<P>
+<P>Allow announce messages to arrive at your terminal.
+<P>
+<H2><A NAME="ss8.65">8.65 set/arcluster (5)</A>
+</H2>
+
+<P><CODE><B>set/arcluster <node_call> [<node_call> ...]</B> Make
+the node_call an AR-Cluster type node</CODE>
+<P>
+<P>Set the node_call as an AR-Cluster type node
+<P>
+<H2><A NAME="ss8.66">8.66 set/baddx (8)</A>
+</H2>
+
+<P><CODE><B>set/baddx <call></B> Stop words we do not wish to see in the callsign field
+of a dx spot being propagated</CODE>
+<P>
+<P>Setting a word as 'baddx' will prevent spots with that word in the callsign
+field of a DX spot from going any further. They will not be displayed and they
+will not be sent onto other nodes.
+<P>The word must be wriiten in full, no wild cards are allowed eg:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ set/baddx FORSALE VIDEO FR0G
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>To allow a word again, use the following command ...
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ unset/baddx VIDEO
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss8.67">8.67 set/badnode (6)</A>
+</H2>
+
+<P><CODE><B>set/badnode <node_call></B> Stop spots from this node_call
+being propagated</CODE>
+<P>
+<P>Setting a callsign as a 'badnode' will prevent spots from that node
+going any further. They will not be displayed and they will not be
+sent onto other nodes.
+<P>The call can be a full or partial call (or a prefix), eg:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ set/badnode K1TTT
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>will stop anything from K1TTT (including any SSID's)
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ unset/badnode K1TTT
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>will allow spots from him again.
+<P>Use with extreme care. This command may well be superceded by FILTERing.
+<P>
+<H2><A NAME="ss8.68">8.68 set/badspotter (8)</A>
+</H2>
+
+<P><CODE><B>set/badspotter <call></B> Stop spots from this callsign being propagated</CODE>
+<P>
+<P>Setting a callsign as a 'badspotter' will prevent spots from this callsign
+going any further. They will not be displayed and they will not be
+sent onto other nodes.
+<P>The call must be written in full, no wild cards are allowed eg:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ set/badspotter VE2STN
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>will stop anything from VE2STN. If you want SSIDs as well then you must
+enter them specifically.
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ unset/badspotter VE2STN
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>will allow spots from him again.
+<P>Use with extreme care. This command may well be superceded by FILTERing.
+<P>
+<H2><A NAME="ss8.69">8.69 set/beep (0)</A>
+</H2>
+
+<P><CODE><B>set/beep</B> Add beeps to terminal messages</CODE>
+<P>
+<P>Add a beep to DX and other terminal messages.
+<P>
+<H2><A NAME="ss8.70">8.70 set/clx (5)</A>
+</H2>
+
+<P><CODE><B>set/clx <node_call> [<node_call> ...]</B> Make
+the node_call a CLX type node</CODE>
+<P>
+<P>Set the node_call as a CLX type node
+<P>
+<H2><A NAME="ss8.71">8.71 set/debug (9)</A>
+</H2>
+
+<P><CODE><B>set/debug <name></B> Add a debug level to the debug set</CODE>
+<P>
+<P>You can choose to log several different levels. The levels are
+<P>chan
+state
+msg
+cron
+connect
+<P>You can show what levels you are logging with the <EM>show/debug</EM>
+command.
+<P>You can remove a debug level with unset/debug <name>
+<P>
+<H2><A NAME="ss8.72">8.72 set/dx (0)</A>
+</H2>
+
+<P><CODE><B>set/dx</B>Allow DX messages to arrive at your terminal</CODE>
+<P>
+<P>You can stop DX messages with the <EM>unset/dx</EM> command
+<P>
+<H2><A NAME="ss8.73">8.73 set/dxgrid (0)</A>
+</H2>
+
+<P><CODE><B>set/dxgrid</B>Allow grid squares on the end of DX messages</CODE>
+<P>
+<P>Some logging programs do not like the additional information at
+the end of a DX spot. If this is the case, use the <EM>unset/dxgrid</EM>
+command to remove the grid squares.
+<P>
+<H2><A NAME="ss8.74">8.74 set/dxnet (5)</A>
+</H2>
+
+<P><CODE><B>set/dxnet <node_call> [<node_call> ...]</B> Make
+the node_call a DXNet type node</CODE>
+<P>
+<P>Set the node_call as a DXNet type node
+<P>
+<H2><A NAME="ss8.75">8.75 set/echo (0)</A>
+</H2>
+
+<P><CODE><B>set/echo</B> Make the cluster echo your input</CODE>
+<P>
+<P>If you are connected via a telnet session, different implimentations
+of telnet handle echo differently depending on whether you are
+connected via port 23 or some other port. You can use this command
+to change the setting appropriately.
+<P>You can remove the echo with the <EM>unset/echo</EM> command
+<P>The setting is stored in your user profile.
+<P>YOU DO NOT NEED TO USE THIS COMMAND IF YOU ARE CONNECTED VIA AX25.
+<P>
+<H2><A NAME="ss8.76">8.76 set/here (0)</A>
+</H2>
+
+<P><CODE><B>set/here</B> Set the here flag</CODE>
+<P>
+<P>Let others on the cluster know you are here by only displaying your
+callsign. If you are away from your terminal you can use the <EM>unset/here</EM>
+command to let people know you are away. This simply puts brackets
+around your callsign to indicate you are not available.
+<P>
+<H2><A NAME="ss8.77">8.77 set/homenode (0)</A>
+</H2>
+
+<P><CODE><B>set/homenode <node_call></B> Set your home cluster</CODE>
+<P>
+<P>Tell the cluster system where you normally connect to. Any Messages sent
+to you will normally find their way there should you not be connected.
+eg:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ SET/HOMENODE gb7djk
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss8.78">8.78 set/hops (8)</A>
+</H2>
+
+<P><CODE><B>set/hops <node_call> ann|spots|wwv|wcy <n></B>
+Set hop count</CODE>
+<P>
+<P>Set the hop count for a particular type of broadcast for a node.
+<P>This command allows you to set up special hop counts for a node
+for currently: announce, spots, wwv and wcy broadcasts.
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+eg:
+ set/hops gb7djk ann 10
+ set/hops gb7mbc spots 20
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>Set SHOW/HOPS for information on what is already set. This command
+creates a filter and works in conjunction with the filter system.
+<P>
+<H2><A NAME="ss8.79">8.79 set/isolate (9)</A>
+</H2>
+
+<P><CODE><B>set/isolate <node call></B> Isolate a node from the rest of the network</CODE>
+<P>
+<P>Connect a node to your system in such a way that you are a full protocol
+member of its network and can see all spots on it, but nothing either leaks
+out from it nor goes back into from the rest of the nodes connected to you.
+<P>You can potentially connect several nodes in this way.
+<P>You can see which nodes are isolated with the show/isolate (1) command.
+<P>You can remove the isolation with the command unset/isolate.
+<P>
+<H2><A NAME="ss8.80">8.80 set/language (0)</A>
+</H2>
+
+<P><CODE><B>set/language <language></B> Set the language you wish to use</CODE>
+<P>
+<P>You can select the language that you want the cluster to use. Currently
+the languages available are <EM>en</EM> (English) and <EM>nl</EM> (Dutch).
+<P>
+<H2><A NAME="ss8.81">8.81 set/location (0)</A>
+</H2>
+
+<P><CODE><B>set/location <lat and long></B> Set your latitude and longitude</CODE>
+<P>
+<P>You can set your latitude and longitude manually or alternatively use the
+<EM>set/qra</EM> command which will do the conversion for you.
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ set/location 54 04 N 2 02 E
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<P>
+<H2><A NAME="ss8.82">8.82 set/sys_location (9)</A>
+</H2>
+
+<P><CODE><B>set/sys_location <lat & long></B> Set your cluster latitude and longitude</CODE>
+<P>
+<P>In order to get accurate headings and such like you must tell the system
+what your latitude and longitude is. If you have not yet done a SET/QRA
+then this command will set your QRA locator for you. For example:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ SET/LOCATION 52 22 N 0 57 E
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss8.83">8.83 set/logininfo (0)</A>
+</H2>
+
+<P><CODE><B>set/logininfo</B> Show logins and logouts of nodes and users</CODE>
+<P>
+<P>Show users and nodes when they log in and out of the local cluster. You
+can stop these messages by using the <EM>unset/logininfo</EM> command.
+<P>
+<P>
+<H2><A NAME="ss8.84">8.84 set/lockout (9)</A>
+</H2>
+
+<P><CODE><B>set/lockout <call></B> Stop a callsign connecting to the cluster</CODE>
+<P>
+<P>You can show who is locked out with the <EM>show/lockout</EM> command.
+To allow the user to connect again, use the <EM>unset/lockout</EM> command.
+<P>
+<H2><A NAME="ss8.85">8.85 set/name (0)</A>
+</H2>
+
+<P><CODE><B>set/name <your_name></B> Set your name</CODE>
+<P>
+<P>Tell the cluster what your name is, eg:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ set/name Dirk
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss8.86">8.86 set/node (9)</A>
+</H2>
+
+<P><CODE><B>set/node <call> [<call> ...]</B> Make the callsign an AK1A cluster</CODE>
+<P>
+<P>Tell the system that the call(s) are to be treated as AK1A cluster and
+fed PC Protocol rather normal user commands.
+<P>From version 1.41 you can also set the following types of cluster
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ set/spider
+ set/dxnet
+ set/clx
+ set/arcluster
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>To see what your nodes are set to, use the <EM>show/nodes</EM> command.
+<P>
+<H2><A NAME="ss8.87">8.87 set/obscount (9)</A>
+</H2>
+
+<P><CODE><B>set/obscount <count> <node call></B> Set the 'pump-up' obsolescence counter</CODE>
+<P>
+<P>From version 1.35 onwards neighbouring nodes are pinged at regular intervals (see
+SET/PINGINTERVAL), usually 300 seconds or 5 minutes. There is a 'pump-up'
+counter which is decremented on every outgoing ping and then reset to
+the 'obscount' value on every incoming ping. The default value of this
+parameter is 2.
+<P>What this means is that a neighbouring node will be pinged twice at
+(default) 300 second intervals and if no reply has been heard just before
+what would be the third attempt, that node is disconnected.
+<P>If a ping is heard then the obscount is reset to the full value. Using
+default values, if a node has not responded to a ping within 15 minutes,
+it is disconnected.
+<P>
+<H2><A NAME="ss8.88">8.88 set/page (0)</A>
+</H2>
+
+<P><CODE><B>set/page <n></B> Set the number of lines per page</CODE>
+<P>
+<P>Tell the system how many lines you wish on a page when the number of lines
+of output from a command is more than this. The default is 20. Setting it
+explicitly to 0 will disable paging.
<P>
-<P>DID I MENTION..... ONLY DO THIS IF YOU ARE WILLING TO ACCEPT THE
-CONSEQUENCES!!!
+<BLOCKQUOTE><CODE>
+<PRE>
+ SET/PAGE 30
+ SET/PAGE 0
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>The setting is stored in your user profile.
+<P>
+<P>
+<H2><A NAME="ss8.89">8.89 set/password (9)</A>
+</H2>
+
+<P><CODE><B>set/password <callsign> <string></B> Set a users password</CODE>
+<P>
+<P>The password for a user can only be set by a full sysop. The string
+can contain any characters but any spaces are removed (you can type in
+spaces - but they won't appear in the password). You can see the
+result with STAT/USER. The password is the usual 30 character baycom
+type password.
+<P>
+<H2><A NAME="ss8.90">8.90 set/pinginterval (9)</A>
+</H2>
+
+<P><CODE><B>set/pinginterval <time> <node call></B> Set the ping time to neighbouring nodes</CODE>
+<P>
+<P>As from version 1.35 all neighbouring nodes are pinged at regular intervals
+in order to determine the rolling quality of the link and, in future, to
+affect routing decisions. The default interval is 300 secs or 5 minutes.
+<P>You can use this command to set a different interval. Please don't.
+<P>But if you do the value you enter is treated as minutes up 60 and seconds
+for numbers greater than that.
+<P>This is used also to help determine when a link is down at the far end
+(as certain cluster software doesn't always notice), see SET/OBSCOUNT
+for more information.
+<P>
+<H2><A NAME="ss8.91">8.91 set/privilege (9)</A>
+</H2>
+
+<P><CODE><B>set/privilege <n> <call> [<call> ...]</B> Set the privilege level on a call</CODE>
+<P>
+<P>Set the privilege level on a callsign. The privilege levels that pertain
+to commands are as default:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ 0 - normal user
+ 1 - allow remote nodes normal user RCMDs
+ 5 - various privileged commands (including shutdown, but not disc-
+ connect), the normal level for another node.
+ 8 - more privileged commands (including disconnect)
+ 9 - local sysop privilege. DO NOT SET ANY REMOTE USER OR NODE TO THIS
+ LEVEL.
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>If you are a sysop and you come in as a normal user on a remote connection
+your privilege will automatically be set to 0.
+<P>
+<H2><A NAME="ss8.92">8.92 set/spider (5)</A>
+</H2>
+
+<P><CODE><B>set/spider <node_call> [<node_call> ...]</B> Make
+the node_call a DXSpider type node</CODE>
+<P>
+<P>Set the node_call as a DXSpider type node
+<P>
+<H2><A NAME="ss8.93">8.93 set/sys_qra (9)</A>
+</H2>
+
+<P><CODE><B>set/sys_qra <locator></B> Set your cluster QRA locator</CODE>
+<P>
+<H2><A NAME="ss8.94">8.94 set/qra (0)</A>
+</H2>
+
+<P><CODE><B>set/qra <locator></B> Set your QRA locator</CODE>
+<P>
+<P>Tell the system what your QRA (or Maidenhead) locator is. If you have not
+done a SET/LOCATION then your latitude and longitude will be set roughly
+correctly (assuming your locator is correct ;-). For example:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ SET/QRA JO02LQ
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss8.95">8.95 set/qth (0)</A>
+</H2>
+
+<P><CODE><B>set/qth <your QTH></B> Set your QTH</CODE>
+<P>
+<P>Tell the system where your are. For example:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ set/qth East Dereham, Norfolk
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss8.96">8.96 set/talk (0)</A>
+</H2>
+
+<P><CODE><B>set/talk</B> Allow talk messages to be seen at your console</CODE>
+<P>
+<P>Allow talk messages to arrive at your console. You can switch off
+talks with the <EM>unset/talk</EM> command.
+<P>
+<H2><A NAME="ss8.97">8.97 set/wcy (0)</A>
+</H2>
+
+<P><CODE><B>set/wcy</B> Allow WCY messages to be seen at your console</CODE>
+<P>
+<P>Allow WCY information to be seen at your console. You can switch off
+WCY messages with the <EM>unset/wcy</EM> command.
+<P>
+<H2><A NAME="ss8.98">8.98 set/wwv (0)</A>
+</H2>
+
+<P><CODE><B>set/wwv</B> Allow WWV messages to be seen at your console</CODE>
+<P>
+<P>Allow WWV information to be seen at your console. You can switch off
+WWV messages with the <EM>unset/wwv</EM> command.
+<P>
+<H2><A NAME="ss8.99">8.99 set/wx (0)</A>
+</H2>
+
+<P><CODE><B>set/wx</B> Allow WX messages to be seen at your console</CODE>
+<P>
+<P>Allow WX information to be seen at your console. You can switch off
+WX messages with the <EM>unset/wx</EM> command.
+<P>
+<H2><A NAME="ss8.100">8.100 show/baddx (1)</A>
+</H2>
+
+<P><CODE><B>show/baddx</B>Show all the bad dx calls in the system</CODE>
+<P>
+<P>Display all the bad dx callsigns in the system, see SET/BADDX
+for more information.
+<P>
+<H2><A NAME="ss8.101">8.101 show/badnode (6)</A>
+</H2>
+
+<P><CODE><B>show/badnode</B> Show all the bad nodes in the system</CODE>
+<P>
+<P>Display all the bad node callsigns in the system, see SET/BADNODE
+for more information.
+<P>
+<H2><A NAME="ss8.102">8.102 show/badspotter (1)</A>
+</H2>
+
+<P><CODE><B>show/badspotter</B> Show all the bad spotters in the system</CODE>
+<P>
+<P>Display all the bad spotter's callsigns in the system, see SET/BADSPOTTER
+for more information.
+<P>
+<H2><A NAME="ss8.103">8.103 show/configuration (0)</A>
+</H2>
+
+<P><CODE><B>show/configuration [<node>]</B> Show all visible nodes and their users</CODE>
+<P>
+<P>This command allows you to see all the users that can be seen
+and the nodes to which they are connected. With the optional <EM>node</EM>,
+you can specify a particular node to look at.
+<P>This command is normally abbreviated to: sh/c
+<P>BE WARNED: the list that is returned can be VERY long
+<P>
+<H2><A NAME="ss8.104">8.104 show/configuration/node (0)</A>
+</H2>
+
+<P><CODE><B>show/configuration/node</B> Show all the nodes connected</CODE>
+<P>
+<P>Show all the nodes connected locally and the nodes they have connected.
+<P>
+<H2><A NAME="ss8.105">8.105 show/connect (1)</A>
+</H2>
+
+<P><CODE><B>show/connect</B> Show all the active connections</CODE>
+<P>
+<P>This command shows information on all the active connections known to
+the node. This command gives slightly more information than WHO.
+<P>
+<H2><A NAME="ss8.106">8.106 show/date (0)</A>
+</H2>
+
+<P><CODE><B>show/date [<prefix>|<callsign>]</B> Show
+the local time</CODE>
+<P>
+<P>This is very nearly the same as SHOW/TIME, the only difference the format
+of the date string if no arguments are given.
+<P>If no prefixes or callsigns are given then this command returns the local
+time and UTC as the computer has it right now. If you give some prefixes
+then it will show UTC and UTC + the local offset (not including DST) at
+the prefixes or callsigns that you specify.
+<P>
+<H2><A NAME="ss8.107">8.107 show/debug (9)</A>
+</H2>
+
+<P><CODE><B>show/debug</B> Show what levels of debug you are logging</CODE>
+<P>
+<P>The levels can be set with <EM>set/debug</EM>
+<P>
+<H2><A NAME="ss8.108">8.108 show/dx (0)</A>
+</H2>
+
+<P><CODE><B>show/dx [options]</B> interrogate the spot database</CODE>
+<P>
+<P>If you just type SHOW/DX you will get the last so many spots
+(sysop configurable, but usually 10).
+<P>In addition you can add any number of these options in very nearly
+any order to the basic SHOW/DX command, they are:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+
+on <band> - eg 160m 20m 2m 23cm 6mm
+on <region> - eg hf vhf uhf shf (see SHOW/BANDS)
+
+<number> - the number of spots you want
+<from>-<to> - <from> spot no <to> spot no in
+ the selected list
+
+<prefix> - for a spotted callsign beginning with <prefix>
+*<suffix> - for a spotted callsign ending in <suffix>
+*<string>* - for a spotted callsign containing <string>
+
+day <number> - starting <number> days ago
+day <from>-<to> - <from> days <to> days ago
+
+info <text> - any spots containing <text> in the info or remarks
+
+by <call> - any spots spotted by <call> (spotter <call>
+ is the same).
+
+qsl - this automatically looks for any qsl info on the call
+ held in the spot database.
+
+iota [<iota>] - If the iota island number is missing it will
+ look for the string iota and anything which looks like
+ an iota island number. If you specify then it will look
+ for that island.
+
+qra [<locator>] - this will look for the specific locator if
+ you specify one or else anything that looks like a locator.
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>e.g.
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+
+ SH/DX 9m0
+ SH/DX on 20m info iota
+ SH/DX 9a on vhf day 30
+ SH/DX rf1p qsl
+ SH/DX iota
+ SH/DX iota eu-064
+ SH/DX qra jn86
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss8.109">8.109 show/dxcc (0)</A>
+</H2>
+
+<P><CODE><B>show/dxcc <prefix></B> Interrogate the spot database by country</CODE>
+<P>
+<P>This command takes the <prefix> (which can be a full or partial
+callsign if desired), looks up which internal country number it is
+and then displays all the spots as per SH/DX for that country.
+<P>The options for SHOW/DX also apply to this command.
+e.g.
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+
+ SH/DXCC G
+ SH/DXCC W on 20m info iota
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss8.110">8.110 show/files (0)</A>
+</H2>
+
+<P><CODE><B>show/files [<filearea> [<string>]]</B> List
+the contents of a filearea</CODE>
+<P>
+<P>SHOW/FILES on its own will show you a list of the various fileareas
+available on the system. To see the contents of a particular file
+area type:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ SH/FILES <filearea>
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>where <filearea> is the name of the filearea you want to see the
+contents of.
+<P>You can also use shell globbing characters like '*' and '?' in a
+string to see a selection of files in a filearea eg:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ SH/FILES bulletins arld*
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>See also TYPE - to see the contents of a file.
+<P>
+<H2><A NAME="ss8.111">8.111 show/filter (0)</A>
+</H2>
+
+<P><CODE><B>show/filter</B> Show the filters you have set</CODE>
+<P>
+<P>Show the contents of all the filters that are set by you. This command
+displays all the filters set - for all the various categories.
+<P>
+<H2><A NAME="ss8.112">8.112 show/filter (extended for sysops) (5)</A>
+</H2>
+
+<P><CODE><B>show/filter <callsign></B> Show the filters set by <callsign></CODE>
+<P>
+<P>A sysop can look at any filters that have been set.
+<P>
+<H2><A NAME="ss8.113">8.113 show/hops (8)</A>
+</H2>
+
+<P><CODE><B>show/hops <node_call> [ann|spots|wcy|wwv|]</B> Show the hop counts for a node</CODE>
+<P>
+<P>This command shows the hop counts set up for a node. You can specify
+which category you want to see. If you leave the category out then
+all the categories will be listed.
+<P>
+<H2><A NAME="ss8.114">8.114 show/isolate (1)</A>
+</H2>
+
+<P><CODE><B>show/isolate</B> Show a list of isolated nodes</CODE>
+<P>
+<P>Show which nodes are currently set to be isolated.
+<P>
+<H2><A NAME="ss8.115">8.115 show/lockout (9)</A>
+</H2>
+
+<P><CODE><B>show/lockout</B> Show a list of excluded callsigns</CODE>
+<P>
+<P>Show a list of callsigns that have been excluded (locked out) of the
+cluster locally with the <EM>set/lockout</EM> command
<P>
-<P>I am of course assuming that you have a machine with both DXSpider and
-Internet access running.
+<H2><A NAME="ss8.116">8.116 show/log (8)</A>
+</H2>
+
+<P><CODE><B>show/log [<callsign>]</B> Show excerpts from the system log</CODE>
+<P>
+<P>This command outputs a short section of the system log. On its own
+it will output a general logfile. With the optional callsign it will
+show output from the log associated with that callsign.
+<P>
+<H2><A NAME="ss8.117">8.117 show/moon (0)</A>
+</H2>
+
+<P><CODE><B>show/moon [<prefix>|<callsign>]</B> Show moon
+rise and set times</CODE>
+<P>
+<P>Show the Moon rise and set times for a (list of) prefixes or callsigns,
+together with the azimuth and elevation of the sun currently at those
+locations.
+<P>If you don't specify any prefixes or callsigns, it will show the times for
+your QTH (assuming you have set it with either SET/LOCATION or SET/QRA),
+together with the current azimuth and elevation.
+<P>In addition, it will show the gain or loss dB relative to the nominal
+distance of 385,000Km due to the ellipsoidal nature of the orbit.
+<P>If all else fails it will show the Moonrise and set times for the node
+that you are connected to.
+<P>For example:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ SH/MOON
+ SH/MOON G1TLH W5UN
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss8.118">8.118 show/muf (0)</A>
+</H2>
+
+<P><CODE><B>show/muf <prefix> [<hours>][long]</B> Show
+the likely propagation to <prefix></CODE>
+<P>
+<P>This command allow you to estimate the likelihood of you contacting
+a station with the prefix you have specified. The output assumes a modest
+power of 20dBW and receiver sensitivity of -123dBm (about 0.15muV/10dB SINAD)
+<P>The result predicts the most likely operating frequencies and signal
+levels for high frequency (shortwave) radio propagation paths on
+specified days of the year and hours of the day. It is most useful for
+paths between 250 km and 6000 km, but can be used with reduced accuracy
+for paths shorter or longer than this.
+<P>The command uses a routine MINIMUF 3.5 developed by the U.S. Navy and
+used to predict the MUF given the predicted flux, day of the year,
+hour of the day and geographic coordinates of the transmitter and
+receiver. This routine is reasonably accurate for the purposes here,
+with a claimed RMS error of 3.8 MHz, but much smaller and less complex
+than the programs used by major shortwave broadcasting organizations,
+such as the Voice of America.
+<P>The command will display some header information detailing its
+assumptions, together with the locations, latitude and longitudes and
+bearings. It will then show UTC (UT), local time at the other end
+(LT), calculate the MUFs, Sun zenith angle at the midpoint of the path
+(Zen) and the likely signal strengths. Then for each frequency for which
+the system thinks there is a likelihood of a circuit it prints a value.
+<P>The value is currently a likely S meter reading based on the conventional
+6dB / S point scale. If the value has a '+' appended it means that it is
+1/2 an S point stronger. If the value is preceeded by an 'm' it means that
+there is likely to be much fading and by an 's' that the signal is likely
+to be noisy.
+<P>By default SHOW/MUF will show the next two hours worth of data. You
+can specify anything up to 24 hours worth of data by appending the no of
+hours required after the prefix. For example:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ SH/MUF W
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>produces:
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ RxSens: -123 dBM SFI: 159 R: 193 Month: 10 Day: 21
+ Power : 20 dBW Distance: 6283 km Delay: 22.4 ms
+ Location Lat / Long Azim
+ East Dereham, Norfolk 52 41 N 0 57 E 47
+ United-States-W 43 0 N 87 54 W 299
+ UT LT MUF Zen 1.8 3.5 7.0 10.1 14.0 18.1 21.0 24.9 28.0 50.0
+ 18 23 11.5 -35 mS0+ mS2 S3
+ 19 0 11.2 -41 mS0+ mS2 S3
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>indicating that you will have weak, fading circuits on top band and
+80m but usable signals on 40m (about S3).
+<P>inputing:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ SH/MUF W 24
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>will get you the above display, but with the next 24 hours worth of
+propagation data.
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ SH/MUF W L 24
+ SH/MUF W 24 Long
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>Gives you an estimate of the long path propagation characterics. It
+should be noted that the figures will probably not be very useful, nor
+terrible accurate, but it is included for completeness.
+<P>
+<H2><A NAME="ss8.119">8.119 show/node (1)</A>
+</H2>
+
+<P><CODE><B>show/node [<node_call> ...]</B> Show the type and version
+number of nodes</CODE>
+<P>
+<P>Show the type and version (if connected) of the nodes specified on the
+command line. If no callsigns are specified then a sorted list of all
+the non-user callsigns known to the system will be displayed.
+<P>
+<H2><A NAME="ss8.120">8.120 show/prefix (0)</A>
+</H2>
+
+<P><CODE><B>show/prefix <callsign></B> Interrogate the prefix database</CODE>
+<P>
+<P>This command takes the <callsign> (which can be a full or partial
+callsign or a prefix), looks up which internal country number
+it is and then displays all the relevant prefixes for that country
+together with the internal country no, the CQ and ITU regions.
+<P>See also SHOW/DXCC
+<P>
+<P>
+<H2><A NAME="ss8.121">8.121 show/program (5)</A>
+</H2>
+
+<P><CODE><B>show/program</B> Show the locations of all the included program modules</CODE>
+<P>
+<P>Show the name and location where every program module was load from. This
+is useful for checking where you think you have loaded a .pm file from.
+<P>
+<H2><A NAME="ss8.122">8.122 show/qra (0)</A>
+</H2>
+
+<P><CODE><B>show/qra <locator> [<locator>]</B> Show the distance
+between locators<BR>
+<B>show/qra <lat> <long></B> Convert latitude and longitude to a locator</CODE>
+<P>
+<P>This is a multipurpose command that allows you either to calculate the
+distance and bearing between two locators or (if only one locator is
+given on the command line) the distance and beraing from your station
+to the locator. For example:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+SH/QRA IO92QL
+SH/QRA JN06 IN73
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>The first example will show the distance and bearing to the locator from
+yourself, the second example will calculate the distance and bearing from
+the first locator to the second. You can use 4 or 6 character locators.
+<P>It is also possible to convert a latitude and longitude to a locator by
+using this command with a latitude and longitude as an argument, for
+example:-
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+SH/QRA 52 41 N 0 58 E
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss8.123">8.123 show/qrz (0)</A>
+</H2>
+
+<P><CODE><B>show/qrz <callsign></B> Show any callbook details on a callsign</CODE>
+<P>
+<P>This command queries the QRZ callbook server on the internet
+and returns any information available for that callsign. This service
+is provided for users of this software by http://www.qrz.com
+<P>
+<H2><A NAME="ss8.124">8.124 show/route (0)</A>
+</H2>
+
+<P><CODE><B>show/route <callsign></B> Show the route to <callsign></CODE>
+<P>
+<P>This command allows you to see to which node the callsigns specified are
+connected. It is a sort of inverse sh/config.
+<P>
+<BLOCKQUOTE><CODE>
+<PRE>
+ sh/route n2tly
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss8.125">8.125 show/satellite (0)</A>
+</H2>
+
+<P><CODE><B>show/satellite <name> [<hours> <interval>]</B>
+Show satellite tracking data</CODE>
+<P>
+<P>Show the tracking data from your location to the satellite of your choice
+from now on for the next few hours.
+<P>If you use this command without a satellite name it will display a list
+of all the satellites known currently to the system.
+<P>If you give a name then you can obtain tracking data of all the passes
+that start and finish 5 degrees below the horizon. As default it will
+give information for the next three hours for every five minute period.
+<P>You can alter the number of hours and the step size, within certain
+limits.
+<P>Each pass in a period is separated with a row of '-----' characters
+<P>So for example:-
<P>
-<P>BEFORE YOU EVEN CONSIDER STARTING WITH THIS MAKE A BACKUP OF YOUR
-ENTIRE SPIDER TREE!!
+<BLOCKQUOTE><CODE>
+<PRE>
+SH/SAT AO-10
+SH/SAT FENGYUN1 12 2
+</PRE>
+</CODE></BLOCKQUOTE>
<P>
-<P>Assuming you are connected to the Internet, you need to login to the
-CVS repository and then update your Spider source. There are several
-steps which are listed below ...
+<H2><A NAME="ss8.126">8.126 show/sun (0)</A>
+</H2>
+
+<P><CODE><B>show/sun [<prefix>|<callsign>]</B> Show
+sun rise and set times</CODE>
<P>
-<P>First login as the user <EM>sysop</EM>. Next you need to connect to the CVS
-repository. You do this with the command below ...
+<P>Show the sun rise and set times for a (list of) prefixes or callsigns,
+together with the azimuth and elevation of the sun currently at those
+locations.
+<P>If you don't specify any prefixes or callsigns, it will show the times for
+your QTH (assuming you have set it with either SET/LOCATION or SET/QRA),
+together with the current azimuth and elevation.
+<P>If all else fails it will show the sunrise and set times for the node
+that you are connected to.
+<P>For example:-
<P>
+<BLOCKQUOTE><CODE>
<PRE>
-cvs -d:pserver:anonymous@cvs.DXSpider.sourceforge.net:/cvsroot/dxspider login
+ SH/SUN
+ SH/SUN G1TLH K9CW ZS
</PRE>
-<P>You will get a password prompt. Simply hit return here and your machine should
-return to a normal linux prompt.
+</CODE></BLOCKQUOTE>
+<P>
+<H2><A NAME="ss8.127">8.127 show/time (0)</A>
+</H2>
+
+<P><CODE><B>show/time [<prefix>|<callsign>]</B> Show
+the local time</CODE>
+<P>
+<P>If no prefixes or callsigns are given then this command returns the local
+time and UTC as the computer has it right now. If you give some prefixes
+then it will show UTC and UTC + the local offset (not including DST) at
+the prefixes or callsigns that you specify.
+<P>
+<H2><A NAME="ss8.128">8.128 show/wcy (0)</A>
+</H2>
+
+<P><CODE><B>show/wcy</B> Show the last 10 WCY broadcasts<BR>
+<B>show/wcy <n></B> Show the last <n> WCY broadcasts</CODE>
+<P>
+<P>Display the most recent WCY information that has been received by the system
+<P>
+<H2><A NAME="ss8.129">8.129 show/wwv (0)</A>
+</H2>
+
+<P><CODE><B>show/wwv</B> Show the last 10 WWV broadcasts<BR>
+<B>show/wwv <n></B> Show the last <n> WWV broadcasts</CODE>
+<P>
+<P>Display the most recent WWV information that has been received by the system
+<P>
+<P>
+<H2><A NAME="ss8.130">8.130 shutdown (5)</A>
+</H2>
+
+<P><CODE><B>shutdown</B> Shutdown the cluster</CODE>
+<P>
+<P>Shutdown the cluster and disconnect all the users. If you have Spider
+set to respawn in /etc/inittab it will of course restart.
+<P>
+<H2><A NAME="ss8.131">8.131 spoof (9)</A>
+</H2>
+
+<P><CODE><B>spoof <callsign> <command></B> Run commands as another user</CODE>
+<P>
+<P>This is a very simple yet powerful command for the sysop. It allows you to
+issue commands as if you were a different user. This is very useful for the
+kind of things that users seem to always get wrong.. like home_node for
+example.
+<P>
+<H2><A NAME="ss8.132">8.132 stat/db (5)</A>
+</H2>
+
+<P><CODE><B>stat/db <dbname></B> Show the status of a database</CODE>
+<P>
+<P>Show the internal status of a database descriptor.
+<P>Depending on your privilege level you will see more or less information.
+This command is unlikely to be of much use to anyone other than a sysop.
<P>
-<P>What happens next depends on whether you have an existing installation that
-you want to update with the latest and greatest or whether you just want
-to see what is there and/or run it on a new machine for testing.
-<P>If you are installing Spider from CVS then change directory to /home/sysop
-<P>If you are wanting to update Spider then cd to /tmp
+<H2><A NAME="ss8.133">8.133 stat/channel (5)</A>
+</H2>
+
+<P><CODE><B>stat/channel <callsign></B> Show the status of a channel on the cluster</CODE>
+<P>
+<P>Show the internal status of the channel object either for the channel that
+you are on or else for the callsign that you asked for.
+<P>Only the fields that are defined (in perl term) will be displayed.
+<P>
+<H2><A NAME="ss8.134">8.134 stat/msg (5)</A>
+</H2>
+
+<P><CODE><B>stat/msg <msgno></B> Show the status of a message</CODE>
+<P>
+<P>This command shows the internal status of a message and includes information
+such as to whom it has been forwarded, its size, origin etc etc.
+<P>
+<H2><A NAME="ss8.135">8.135 stat/user (5)</A>
+</H2>
+
+<P><CODE><B>stat/user <callsign></B> Show the full status of a user</CODE>
+<P>
+<P>Shows the full contents of a user record including all the secret flags
+and stuff.
+<P>Only the fields that are defined (in perl term) will be displayed.
<P>
-<P>The next step will create a brand new 'spider' directory in your current
-directory.
+<H2><A NAME="ss8.136">8.136 sysop (0)</A>
+</H2>
+
+<P><CODE><B>sysop</B> Regain your privileges if you login remotely</CODE>
+<P>
+<P>The system automatically reduces your privilege level to that of a
+normal user if you login in remotely. This command allows you to
+regain your normal privilege level. It uses the normal system: five
+numbers are returned that are indexes into the character array that is
+your assigned password (see SET/PASSWORD). The indexes start from
+zero.
+<P>You are expected to return a string which contains the characters
+required in the correct order. You may intersperse those characters
+with others to obscure your reply for any watchers. For example (and
+these values are for explanation :-):
<P>
+<BLOCKQUOTE><CODE>
<PRE>
-cvs -z3 -d:pserver:anonymous@cvs.DXSpider.sourceforge.net:/cvsroot/dxspider co spider
+ password = 012345678901234567890123456789
+ > sysop
+ 22 10 15 17 3
</PRE>
-<P>This command is all on one line.
+</CODE></BLOCKQUOTE>
+<P>you type:-
<P>
-<P>Hopefully your screen should show you downloading files. The -z3 simply compresses
-the download to improve speed.
-When this has finished, you will have exactly the same as if you had untarred a full
-tarball PLUS some extra directories and files that CVS needs to do the magic that
-it does.
+<BLOCKQUOTE><CODE>
+<PRE>
+ aa2bbbb0ccc5ddd7xxx3n
+ or 2 0 5 7 3
+ or 20573
+</PRE>
+</CODE></BLOCKQUOTE>
+<P>They will all match. If there is no password you will still be offered
+numbers but nothing will happen when you input a string. Any match is
+case sensitive.
<P>
-<P>Now if you are doing a new installation, that's it. Carry on as if you have
-just downloaded and untarred the lastest tarball.
+<H2><A NAME="ss8.137">8.137 talk (0)</A>
+</H2>
+
+<P><CODE><B>talk <callsign></B> Enter talk mode with <callsign><BR>
+<B>talk <callsign> <text></B> Send a text message to <callsign><BR>
+<B>talk <callsign> > <node_call> [<text>]</B>
+Send a text message to <callsign> via <node_call></CODE>
<P>
-<P>If you want to upgrade your current installation then do this ...
+<P>Send a short message to any other station that is visible on the cluster
+system. You can send it to anyone you can see with a SHOW/CONFIGURATION
+command, they don't have to be connected locally.
+<P>The second form of TALK is used when other cluster nodes are connected
+with restricted information. This usually means that they don't send
+the user information usually associated with logging on and off the cluster.
+<P>If you know that G3JNB is likely to be present on GB7TLH, but you can only
+see GB7TLH in the SH/C list but with no users, then you would use the
+second form of the talk message.
+<P>If you want to have a ragchew with someone you can leave the text message
+out and the system will go into 'Talk' mode. What this means is that a
+short message is sent to the recipient telling them that you are in a 'Talking'
+frame of mind and then you just type - everything you send will go to the
+station that you asked for.
+<P>All the usual announcements, spots and so on will still come out on your
+terminal.
+<P>If you want to do something (such as send a spot) you precede the normal
+command with a '/' character, eg:-
<P>
<BLOCKQUOTE><CODE>
<PRE>
-tar cvfz /tmp/s.tgz spider
-cd /
-tar xvfzp /tmp/s.tgz
+ /DX 14001 G1TLH What's a B class licensee doing on 20m CW?
+ /HELP talk
</PRE>
</CODE></BLOCKQUOTE>
-<P>This is assuming you downloaded to the /tmp directory of course.
+<P>To leave talk mode type:
<P>
-<P>NOTE: the 'p' on the end of the 'xvfz' is IMPORTANT! It keeps the permissions
-correct. YOU WERE LOGGED IN AS THE USER SYSOP WEREN'T YOU?????
-<P>Remember to recompile the C client (cd /spider/src; make)
+<BLOCKQUOTE><CODE>
+<PRE>
+ /EX
+</PRE>
+</CODE></BLOCKQUOTE>
<P>
-<P>At this point the files have been upgraded. You can (usually) restart the cluster
-in your own time. However, if you attempt to use any new commands or features
-expect it to be fatal! At least your cluster will have been restarted then so it
-will be too late to worry about it!
+<H2><A NAME="ss8.138">8.138 type (0)</A>
+</H2>
+
+<P><CODE><B>type <filearea>/<name></B> Look at a file in one of the fileareas</CODE>
<P>
-<P>Now the magic part! From now on when you want to update, simply connect to the
-Internet and then, as the user <EM>sysop</EM> ...
+<P>Type out the contents of a file in a filearea. So, for example, in
+filearea 'bulletins' you want to look at file 'arld051' you would
+enter:-
<P>
<BLOCKQUOTE><CODE>
<PRE>
-cd /spider
-cvs -z3 update -d
+ TYPE bulletins/arld051
</PRE>
</CODE></BLOCKQUOTE>
-<P>and your files will be updated. As above, remember to recompile the "C" client
-if it has been updated (CVS will tell you) and restart if any of the perl scripts
-have been altered or added, again, CVS will tell you.
+<P>See also SHOW/FILES to see what fileareas are available and a
+list of content.
+<P>
+<H2><A NAME="ss8.139">8.139 who (0)</A>
+</H2>
+
+<P><CODE><B>who</B> Show who is physically connected locally</CODE>
+<P>
+<P>This is a quick listing that shows which callsigns are connected and
+what sort of connection they have
+<P>
+<H2><A NAME="ss8.140">8.140 wx (0)</A>
+</H2>
+
+<P><CODE><B>wx <text></B> Send a weather message to local users<BR>
+<B>wx full <text> </B> Send a weather message to all cluster users</CODE>
+<P>
+<P>Weather messages can sometimes be useful if you are experiencing an extreme
+that may indicate enhanced conditions
+<P>
+<H2><A NAME="ss8.141">8.141 wx (enhanced for sysops) (5)</A>
+</H2>
+
+<P><CODE><B>wx sysop <text></B> Send a weather message to other clusters only</CODE>
+<P>
+<P>Send a weather message only to other cluster nodes and not to general users.
+<P>
<P>
-<P>You will find any changes documented in the /spider/Changes file.
<P>
<HR>
-<A HREF="adminmanual-9.html">Next</A>
+Next
<A HREF="adminmanual-7.html">Previous</A>
<A HREF="adminmanual.html#toc8">Contents</A>
</BODY>
<HTML>
<HEAD>
<META NAME="GENERATOR" CONTENT="SGML-Tools 1.0.9">
- <TITLE>The DXSpider Administration Manual v1.47</TITLE>
+ <TITLE>The DXSpider Administration Manual v1.48</TITLE>
<LINK HREF="adminmanual-1.html" REL=next>
Previous
Contents
<HR>
-<H1>The DXSpider Administration Manual v1.47</H1>
+<H1>The DXSpider Administration Manual v1.48</H1>
-<H2>Ian Maude, G0VGS, (ianmaude@btinternet.com)</H2>Version 1.47 April 2001 revision 1.0
+<H2>Ian Maude, G0VGS, (ianmaude@btinternet.com)</H2>Version 1.48 August 2001 revision 1.1
<P><HR>
<EM>A reference for SysOps of the DXSpider DXCluster program.</EM>
<HR>
<P>
-<H2><A NAME="toc1">1.</A> <A HREF="adminmanual-1.html">Hop control</A></H2>
+<H2><A NAME="toc1">1.</A> <A HREF="adminmanual-1.html">Routing and Filtering</A></H2>
<UL>
-<LI><A HREF="adminmanual-1.html#ss1.1">1.1 Basic hop control</A>
-<LI><A HREF="adminmanual-1.html#ss1.2">1.2 Isolating networks</A>
+<LI><A HREF="adminmanual-1.html#ss1.1">1.1 Introduction</A>
+<LI><A HREF="adminmanual-1.html#ss1.2">1.2 Route Filters</A>
+<LI><A HREF="adminmanual-1.html#ss1.3">1.3 The default_node filter</A>
+<LI><A HREF="adminmanual-1.html#ss1.4">1.4 General route filtering</A>
+<LI><A HREF="adminmanual-1.html#ss1.5">1.5 General filter rules</A>
+<LI><A HREF="adminmanual-1.html#ss1.6">1.6 Types of filter</A>
+<LI><A HREF="adminmanual-1.html#ss1.7">1.7 Filter options</A>
+<LI><A HREF="adminmanual-1.html#ss1.8">1.8 Default filters</A>
+<LI><A HREF="adminmanual-1.html#ss1.9">1.9 Advanced filtering</A>
+<LI><A HREF="adminmanual-1.html#ss1.10">1.10 Basic hop control</A>
+<LI><A HREF="adminmanual-1.html#ss1.11">1.11 Isolating networks</A>
</UL>
<P>
-<H2><A NAME="toc2">2.</A> <A HREF="adminmanual-2.html">Filtering (Old Style upto v1.44)</A></H2>
+<H2><A NAME="toc2">2.</A> <A HREF="adminmanual-2.html">Other filters</A></H2>
<UL>
-<LI><A HREF="adminmanual-2.html#ss2.1">2.1 Spots</A>
-<LI><A HREF="adminmanual-2.html#ss2.2">2.2 Announcements</A>
-<LI><A HREF="adminmanual-2.html#ss2.3">2.3 WWV</A>
+<LI><A HREF="adminmanual-2.html#ss2.1">2.1 Filtering Mail</A>
+<LI><A HREF="adminmanual-2.html#ss2.2">2.2 Filtering DX callouts (Depricated)</A>
+<LI><A HREF="adminmanual-2.html#ss2.3">2.3 Filtering words from text fields in Announce, Talk and DX spots</A>
</UL>
<P>
-<H2><A NAME="toc3">3.</A> <A HREF="adminmanual-3.html">Filtering (New Style v1.45 and later)</A></H2>
+<H2><A NAME="toc3">3.</A> <A HREF="adminmanual-3.html">Mail</A></H2>
<UL>
-<LI><A HREF="adminmanual-3.html#ss3.1">3.1 General filter rules</A>
-<LI><A HREF="adminmanual-3.html#ss3.2">3.2 Types of filter</A>
-<LI><A HREF="adminmanual-3.html#ss3.3">3.3 Filter options</A>
-<LI><A HREF="adminmanual-3.html#ss3.4">3.4 Default filters</A>
-<LI><A HREF="adminmanual-3.html#ss3.5">3.5 Advanced filtering</A>
+<LI><A HREF="adminmanual-3.html#ss3.1">3.1 Personal mail</A>
+<LI><A HREF="adminmanual-3.html#ss3.2">3.2 Bulletin mail</A>
+<LI><A HREF="adminmanual-3.html#ss3.3">3.3 Forward.pl</A>
+<LI><A HREF="adminmanual-3.html#ss3.4">3.4 The msg command</A>
+<LI><A HREF="adminmanual-3.html#ss3.5">3.5 Message status</A>
+<LI><A HREF="adminmanual-3.html#ss3.6">3.6 Filtering mail</A>
+<LI><A HREF="adminmanual-3.html#ss3.7">3.7 Distribution lists</A>
+<LI><A HREF="adminmanual-3.html#ss3.8">3.8 BBS interface</A>
</UL>
<P>
-<H2><A NAME="toc4">4.</A> <A HREF="adminmanual-4.html">Other filters</A></H2>
+<H2><A NAME="toc4">4.</A> <A HREF="adminmanual-4.html">Databases</A></H2>
<UL>
-<LI><A HREF="adminmanual-4.html#ss4.1">4.1 Filtering Mail</A>
-<LI><A HREF="adminmanual-4.html#ss4.2">4.2 Filtering DX callouts (Depricated)</A>
-<LI><A HREF="adminmanual-4.html#ss4.3">4.3 Filtering words from text fields in Announce, Talk and DX spots</A>
+<LI><A HREF="adminmanual-4.html#ss4.1">4.1 Creating databases</A>
+<LI><A HREF="adminmanual-4.html#ss4.2">4.2 Importing databases</A>
+<LI><A HREF="adminmanual-4.html#ss4.3">4.3 Checking available databases</A>
+<LI><A HREF="adminmanual-4.html#ss4.4">4.4 Looking up databases</A>
+<LI><A HREF="adminmanual-4.html#ss4.5">4.5 Removing databases</A>
</UL>
<P>
-<H2><A NAME="toc5">5.</A> <A HREF="adminmanual-5.html">Mail</A></H2>
+<H2><A NAME="toc5">5.</A> <A HREF="adminmanual-5.html">Information, files and useful programs</A></H2>
<UL>
-<LI><A HREF="adminmanual-5.html#ss5.1">5.1 Personal mail</A>
-<LI><A HREF="adminmanual-5.html#ss5.2">5.2 Bulletin mail</A>
-<LI><A HREF="adminmanual-5.html#ss5.3">5.3 Forward.pl</A>
-<LI><A HREF="adminmanual-5.html#ss5.4">5.4 The msg command</A>
-<LI><A HREF="adminmanual-5.html#ss5.5">5.5 Message status</A>
-<LI><A HREF="adminmanual-5.html#ss5.6">5.6 Filtering mail</A>
-<LI><A HREF="adminmanual-5.html#ss5.7">5.7 Distribution lists</A>
-<LI><A HREF="adminmanual-5.html#ss5.8">5.8 BBS interface</A>
+<LI><A HREF="adminmanual-5.html#ss5.1">5.1 MOTD</A>
+<LI><A HREF="adminmanual-5.html#ss5.2">5.2 Downtime message</A>
+<LI><A HREF="adminmanual-5.html#ss5.3">5.3 Other text messages</A>
+<LI><A HREF="adminmanual-5.html#ss5.4">5.4 The Aliases file</A>
+<LI><A HREF="adminmanual-5.html#ss5.5">5.5 Console.pl</A>
+<LI><A HREF="adminmanual-5.html#ss5.6">5.6 Updating kepler data</A>
+<LI><A HREF="adminmanual-5.html#ss5.7">5.7 The QRZ callbook</A>
</UL>
<P>
-<H2><A NAME="toc6">6.</A> <A HREF="adminmanual-6.html">Databases</A></H2>
-
-<UL>
-<LI><A HREF="adminmanual-6.html#ss6.1">6.1 Creating databases</A>
-<LI><A HREF="adminmanual-6.html#ss6.2">6.2 Importing databases</A>
-<LI><A HREF="adminmanual-6.html#ss6.3">6.3 Checking available databases</A>
-<LI><A HREF="adminmanual-6.html#ss6.4">6.4 Looking up databases</A>
-<LI><A HREF="adminmanual-6.html#ss6.5">6.5 Removing databases</A>
-</UL>
-<P>
-<H2><A NAME="toc7">7.</A> <A HREF="adminmanual-7.html">Information, files and useful programs</A></H2>
-
-<UL>
-<LI><A HREF="adminmanual-7.html#ss7.1">7.1 MOTD</A>
-<LI><A HREF="adminmanual-7.html#ss7.2">7.2 Downtime message</A>
-<LI><A HREF="adminmanual-7.html#ss7.3">7.3 Other text messages</A>
-<LI><A HREF="adminmanual-7.html#ss7.4">7.4 The Aliases file</A>
-<LI><A HREF="adminmanual-7.html#ss7.5">7.5 Console.pl</A>
-<LI><A HREF="adminmanual-7.html#ss7.6">7.6 Updating kepler data</A>
-<LI><A HREF="adminmanual-7.html#ss7.7">7.7 The QRZ callbook</A>
-</UL>
-<P>
-<H2><A NAME="toc8">8.</A> <A HREF="adminmanual-8.html">CVS</A></H2>
+<H2><A NAME="toc6">6.</A> <A HREF="adminmanual-6.html">CVS</A></H2>
<P>
-<H2><A NAME="toc9">9.</A> <A HREF="adminmanual-9.html">The DXSpider command set</A></H2>
+<H2><A NAME="toc7">7.</A> <A HREF="adminmanual-7.html">The DXSpider command set</A></H2>
<UL>
-<LI><A HREF="adminmanual-9.html#ss9.1">9.1 accept/announce (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.2">9.2 accept/announce (extended for sysops) (8)</A>
-<LI><A HREF="adminmanual-9.html#ss9.3">9.3 accept/spots (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.4">9.4 accept/spots (extended for sysops) (8)</A>
-<LI><A HREF="adminmanual-9.html#ss9.5">9.5 accept/wcy (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.6">9.6 accept/wcy (extended for sysops) (8)</A>
-<LI><A HREF="adminmanual-9.html#ss9.7">9.7 accept/wwv (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.8">9.8 accept/wwv (extended for sysops) (8)</A>
-<LI><A HREF="adminmanual-9.html#ss9.9">9.9 announce (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.10">9.10 announce full (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.11">9.11 announce sysop (5)</A>
-<LI><A HREF="adminmanual-9.html#ss9.12">9.12 apropos (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.13">9.13 bye (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.14">9.14 catchup (5)</A>
-<LI><A HREF="adminmanual-9.html#ss9.15">9.15 clear/spots (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.16">9.16 connect (5) </A>
-<LI><A HREF="adminmanual-9.html#ss9.17">9.17 dbavail (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.18">9.18 dbcreate (9)</A>
-<LI><A HREF="adminmanual-9.html#ss9.19">9.19 dbimport (9)</A>
-<LI><A HREF="adminmanual-9.html#ss9.20">9.20 dbremove (9)</A>
-<LI><A HREF="adminmanual-9.html#ss9.21">9.21 dbshow (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.22">9.22 debug (9)</A>
-<LI><A HREF="adminmanual-9.html#ss9.23">9.23 directory (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.24">9.24 directory (extended for sysops) (5)</A>
-<LI><A HREF="adminmanual-9.html#ss9.25">9.25 disconnect (8)</A>
-<LI><A HREF="adminmanual-9.html#ss9.26">9.26 dx (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.27">9.27 export (9)</A>
-<LI><A HREF="adminmanual-9.html#ss9.28">9.28 export_users (9)</A>
-<LI><A HREF="adminmanual-9.html#ss9.29">9.29 forward/latlong (8)</A>
-<LI><A HREF="adminmanual-9.html#ss9.30">9.30 forward/opername (1)</A>
-<LI><A HREF="adminmanual-9.html#ss9.31">9.31 help (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.32">9.32 init (5)</A>
-<LI><A HREF="adminmanual-9.html#ss9.33">9.33 kill (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.34">9.34 kill (5)</A>
-<LI><A HREF="adminmanual-9.html#ss9.35">9.35 kill full (5)</A>
-<LI><A HREF="adminmanual-9.html#ss9.36">9.36 links (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.37">9.37 load/aliases (9)</A>
-<LI><A HREF="adminmanual-9.html#ss9.38">9.38 load/baddx (9)</A>
-<LI><A HREF="adminmanual-9.html#ss9.39">9.39 load/badmsg (9)</A>
-<LI><A HREF="adminmanual-9.html#ss9.40">9.40 load/badwords (9)</A>
-<LI><A HREF="adminmanual-9.html#ss9.41">9.41 load/bands (9)</A>
-<LI><A HREF="adminmanual-9.html#ss9.42">9.42 load/cmd_cache (9)</A>
-<LI><A HREF="adminmanual-9.html#ss9.43">9.43 load/forward (9)</A>
-<LI><A HREF="adminmanual-9.html#ss9.44">9.44 load/messages (9)</A>
-<LI><A HREF="adminmanual-9.html#ss9.45">9.45 load/prefixes (9)</A>
-<LI><A HREF="adminmanual-9.html#ss9.46">9.46 merge (5)</A>
-<LI><A HREF="adminmanual-9.html#ss9.47">9.47 msg (9)</A>
-<LI><A HREF="adminmanual-9.html#ss9.48">9.48 pc (8)</A>
-<LI><A HREF="adminmanual-9.html#ss9.49">9.49 ping (1)</A>
-<LI><A HREF="adminmanual-9.html#ss9.50">9.50 rcmd (1)</A>
-<LI><A HREF="adminmanual-9.html#ss9.51">9.51 read (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.52">9.52 read (extended for sysops) (5) </A>
-<LI><A HREF="adminmanual-9.html#ss9.53">9.53 reject/announce</A>
-<LI><A HREF="adminmanual-9.html#ss9.54">9.54 reject/announce (extended for sysops) (8)</A>
-<LI><A HREF="adminmanual-9.html#ss9.55">9.55 reject/spots (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.56">9.56 reject/spots (extended for sysops) (8)</A>
-<LI><A HREF="adminmanual-9.html#ss9.57">9.57 reject/wcy (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.58">9.58 reject/wcy (extended for sysops) (8)</A>
-<LI><A HREF="adminmanual-9.html#ss9.59">9.59 reject/wwv (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.60">9.60 reject/wwv (extended for sysops) (8)</A>
-<LI><A HREF="adminmanual-9.html#ss9.61">9.61 reply (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.62">9.62 send (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.63">9.63 set/address (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.64">9.64 set/announce (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.65">9.65 set/arcluster (5)</A>
-<LI><A HREF="adminmanual-9.html#ss9.66">9.66 set/baddx (8)</A>
-<LI><A HREF="adminmanual-9.html#ss9.67">9.67 set/badnode (6)</A>
-<LI><A HREF="adminmanual-9.html#ss9.68">9.68 set/badspotter (8)</A>
-<LI><A HREF="adminmanual-9.html#ss9.69">9.69 set/beep (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.70">9.70 set/clx (5)</A>
-<LI><A HREF="adminmanual-9.html#ss9.71">9.71 set/debug (9)</A>
-<LI><A HREF="adminmanual-9.html#ss9.72">9.72 set/dx (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.73">9.73 set/dxgrid (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.74">9.74 set/dxnet (5)</A>
-<LI><A HREF="adminmanual-9.html#ss9.75">9.75 set/echo (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.76">9.76 set/here (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.77">9.77 set/homenode (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.78">9.78 set/hops (8)</A>
-<LI><A HREF="adminmanual-9.html#ss9.79">9.79 set/isolate (9)</A>
-<LI><A HREF="adminmanual-9.html#ss9.80">9.80 set/language (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.81">9.81 set/location (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.82">9.82 set/sys_location (9)</A>
-<LI><A HREF="adminmanual-9.html#ss9.83">9.83 set/logininfo (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.84">9.84 set/lockout (9)</A>
-<LI><A HREF="adminmanual-9.html#ss9.85">9.85 set/name (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.86">9.86 set/node (9)</A>
-<LI><A HREF="adminmanual-9.html#ss9.87">9.87 set/obscount (9)</A>
-<LI><A HREF="adminmanual-9.html#ss9.88">9.88 set/page (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.89">9.89 set/password (9)</A>
-<LI><A HREF="adminmanual-9.html#ss9.90">9.90 set/pinginterval (9)</A>
-<LI><A HREF="adminmanual-9.html#ss9.91">9.91 set/privilege (9)</A>
-<LI><A HREF="adminmanual-9.html#ss9.92">9.92 set/spider (5)</A>
-<LI><A HREF="adminmanual-9.html#ss9.93">9.93 set/sys_qra (9)</A>
-<LI><A HREF="adminmanual-9.html#ss9.94">9.94 set/qra (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.95">9.95 set/qth (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.96">9.96 set/talk (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.97">9.97 set/wcy (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.98">9.98 set/wwv (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.99">9.99 set/wx (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.100">9.100 show/baddx (1)</A>
-<LI><A HREF="adminmanual-9.html#ss9.101">9.101 show/badnode (6)</A>
-<LI><A HREF="adminmanual-9.html#ss9.102">9.102 show/badspotter (1)</A>
-<LI><A HREF="adminmanual-9.html#ss9.103">9.103 show/configuration (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.104">9.104 show/configuration/node (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.105">9.105 show/connect (1)</A>
-<LI><A HREF="adminmanual-9.html#ss9.106">9.106 show/date (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.107">9.107 show/debug (9)</A>
-<LI><A HREF="adminmanual-9.html#ss9.108">9.108 show/dx (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.109">9.109 show/dxcc (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.110">9.110 show/files (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.111">9.111 show/filter (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.112">9.112 show/filter (extended for sysops) (5)</A>
-<LI><A HREF="adminmanual-9.html#ss9.113">9.113 show/hops (8)</A>
-<LI><A HREF="adminmanual-9.html#ss9.114">9.114 show/isolate (1)</A>
-<LI><A HREF="adminmanual-9.html#ss9.115">9.115 show/lockout (9)</A>
-<LI><A HREF="adminmanual-9.html#ss9.116">9.116 show/log (8)</A>
-<LI><A HREF="adminmanual-9.html#ss9.117">9.117 show/moon (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.118">9.118 show/muf (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.119">9.119 show/node (1)</A>
-<LI><A HREF="adminmanual-9.html#ss9.120">9.120 show/prefix (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.121">9.121 show/program (5)</A>
-<LI><A HREF="adminmanual-9.html#ss9.122">9.122 show/qra (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.123">9.123 show/qrz (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.124">9.124 show/route (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.125">9.125 show/satellite (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.126">9.126 show/sun (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.127">9.127 show/time (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.128">9.128 show/wcy (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.129">9.129 show/wwv (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.130">9.130 shutdown (5)</A>
-<LI><A HREF="adminmanual-9.html#ss9.131">9.131 spoof (9)</A>
-<LI><A HREF="adminmanual-9.html#ss9.132">9.132 stat/db (5)</A>
-<LI><A HREF="adminmanual-9.html#ss9.133">9.133 stat/channel (5)</A>
-<LI><A HREF="adminmanual-9.html#ss9.134">9.134 stat/msg (5)</A>
-<LI><A HREF="adminmanual-9.html#ss9.135">9.135 stat/user (5)</A>
-<LI><A HREF="adminmanual-9.html#ss9.136">9.136 sysop (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.137">9.137 talk (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.138">9.138 type (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.139">9.139 who (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.140">9.140 wx (0)</A>
-<LI><A HREF="adminmanual-9.html#ss9.141">9.141 wx (enhanced for sysops) (5)</A>
+<LI><A HREF="adminmanual-7.html#ss7.1">7.1 accept/announce (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.2">7.2 accept/announce (extended for sysops) (8)</A>
+<LI><A HREF="adminmanual-7.html#ss7.3">7.3 accept/route (8)</A>
+<LI><A HREF="adminmanual-7.html#ss7.4">7.4 accept/spots (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.5">7.5 accept/spots (extended for sysops) (8)</A>
+<LI><A HREF="adminmanual-7.html#ss7.6">7.6 accept/wcy (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.7">7.7 accept/wcy (extended for sysops) (8)</A>
+<LI><A HREF="adminmanual-7.html#ss7.8">7.8 accept/wwv (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.9">7.9 accept/wwv (extended for sysops) (8)</A>
+<LI><A HREF="adminmanual-7.html#ss7.10">7.10 announce (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.11">7.11 announce full (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.12">7.12 announce sysop (5)</A>
+<LI><A HREF="adminmanual-7.html#ss7.13">7.13 apropos (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.14">7.14 bye (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.15">7.15 catchup (5)</A>
+<LI><A HREF="adminmanual-7.html#ss7.16">7.16 clear/spots (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.17">7.17 connect (5) </A>
+<LI><A HREF="adminmanual-7.html#ss7.18">7.18 dbavail (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.19">7.19 dbcreate (9)</A>
+<LI><A HREF="adminmanual-7.html#ss7.20">7.20 dbimport (9)</A>
+<LI><A HREF="adminmanual-7.html#ss7.21">7.21 dbremove (9)</A>
+<LI><A HREF="adminmanual-7.html#ss7.22">7.22 dbshow (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.23">7.23 debug (9)</A>
+<LI><A HREF="adminmanual-7.html#ss7.24">7.24 directory (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.25">7.25 directory (extended for sysops) (5)</A>
+<LI><A HREF="adminmanual-7.html#ss7.26">7.26 disconnect (8)</A>
+<LI><A HREF="adminmanual-7.html#ss7.27">7.27 dx (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.28">7.28 export (9)</A>
+<LI><A HREF="adminmanual-7.html#ss7.29">7.29 export_users (9)</A>
+<LI><A HREF="adminmanual-7.html#ss7.30">7.30 forward/latlong (8)</A>
+<LI><A HREF="adminmanual-7.html#ss7.31">7.31 forward/opername (1)</A>
+<LI><A HREF="adminmanual-7.html#ss7.32">7.32 help (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.33">7.33 init (5)</A>
+<LI><A HREF="adminmanual-7.html#ss7.34">7.34 kill (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.35">7.35 kill (5)</A>
+<LI><A HREF="adminmanual-7.html#ss7.36">7.36 kill full (5)</A>
+<LI><A HREF="adminmanual-7.html#ss7.37">7.37 links (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.38">7.38 load/aliases (9)</A>
+<LI><A HREF="adminmanual-7.html#ss7.39">7.39 load/baddx (9)</A>
+<LI><A HREF="adminmanual-7.html#ss7.40">7.40 load/badmsg (9)</A>
+<LI><A HREF="adminmanual-7.html#ss7.41">7.41 load/badwords (9)</A>
+<LI><A HREF="adminmanual-7.html#ss7.42">7.42 load/bands (9)</A>
+<LI><A HREF="adminmanual-7.html#ss7.43">7.43 load/cmd_cache (9)</A>
+<LI><A HREF="adminmanual-7.html#ss7.44">7.44 load/forward (9)</A>
+<LI><A HREF="adminmanual-7.html#ss7.45">7.45 load/messages (9)</A>
+<LI><A HREF="adminmanual-7.html#ss7.46">7.46 load/prefixes (9)</A>
+<LI><A HREF="adminmanual-7.html#ss7.47">7.47 merge (5)</A>
+<LI><A HREF="adminmanual-7.html#ss7.48">7.48 msg (9)</A>
+<LI><A HREF="adminmanual-7.html#ss7.49">7.49 pc (8)</A>
+<LI><A HREF="adminmanual-7.html#ss7.50">7.50 ping (1)</A>
+<LI><A HREF="adminmanual-7.html#ss7.51">7.51 rcmd (1)</A>
+<LI><A HREF="adminmanual-7.html#ss7.52">7.52 read (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.53">7.53 read (extended for sysops) (5) </A>
+<LI><A HREF="adminmanual-7.html#ss7.54">7.54 reject/announce</A>
+<LI><A HREF="adminmanual-7.html#ss7.55">7.55 reject/announce (extended for sysops) (8)</A>
+<LI><A HREF="adminmanual-7.html#ss7.56">7.56 reject/route (8)</A>
+<LI><A HREF="adminmanual-7.html#ss7.57">7.57 reject/spots (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.58">7.58 reject/spots (extended for sysops) (8)</A>
+<LI><A HREF="adminmanual-7.html#ss7.59">7.59 reject/wcy (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.60">7.60 reject/wcy (extended for sysops) (8)</A>
+<LI><A HREF="adminmanual-7.html#ss7.61">7.61 reject/wwv (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.62">7.62 reject/wwv (extended for sysops) (8)</A>
+<LI><A HREF="adminmanual-7.html#ss7.63">7.63 reply (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.64">7.64 send (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.65">7.65 set/address (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.66">7.66 set/announce (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.67">7.67 set/arcluster (5)</A>
+<LI><A HREF="adminmanual-7.html#ss7.68">7.68 set/baddx (8)</A>
+<LI><A HREF="adminmanual-7.html#ss7.69">7.69 set/badnode (6)</A>
+<LI><A HREF="adminmanual-7.html#ss7.70">7.70 set/badspotter (8)</A>
+<LI><A HREF="adminmanual-7.html#ss7.71">7.71 set/beep (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.72">7.72 set/bbs (5)</A>
+<LI><A HREF="adminmanual-7.html#ss7.73">7.73 set/clx (5)</A>
+<LI><A HREF="adminmanual-7.html#ss7.74">7.74 set/debug (9)</A>
+<LI><A HREF="adminmanual-7.html#ss7.75">7.75 set/dx (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.76">7.76 set/dxgrid (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.77">7.77 set/dxnet (5)</A>
+<LI><A HREF="adminmanual-7.html#ss7.78">7.78 set/echo (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.79">7.79 set/here (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.80">7.80 set/homenode (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.81">7.81 set/hops (8)</A>
+<LI><A HREF="adminmanual-7.html#ss7.82">7.82 set/isolate (9)</A>
+<LI><A HREF="adminmanual-7.html#ss7.83">7.83 set/language (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.84">7.84 set/location (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.85">7.85 set/sys_location (9)</A>
+<LI><A HREF="adminmanual-7.html#ss7.86">7.86 set/logininfo (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.87">7.87 set/lockout (9)</A>
+<LI><A HREF="adminmanual-7.html#ss7.88">7.88 set/name (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.89">7.89 set/node (9)</A>
+<LI><A HREF="adminmanual-7.html#ss7.90">7.90 set/obscount (9)</A>
+<LI><A HREF="adminmanual-7.html#ss7.91">7.91 set/page (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.92">7.92 set/password (9)</A>
+<LI><A HREF="adminmanual-7.html#ss7.93">7.93 set/pinginterval (9)</A>
+<LI><A HREF="adminmanual-7.html#ss7.94">7.94 set/privilege (9)</A>
+<LI><A HREF="adminmanual-7.html#ss7.95">7.95 set/spider (5)</A>
+<LI><A HREF="adminmanual-7.html#ss7.96">7.96 set/sys_qra (9)</A>
+<LI><A HREF="adminmanual-7.html#ss7.97">7.97 set/qra (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.98">7.98 set/qth (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.99">7.99 set/talk (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.100">7.100 set/wcy (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.101">7.101 set/wwv (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.102">7.102 set/wx (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.103">7.103 show/baddx (1)</A>
+<LI><A HREF="adminmanual-7.html#ss7.104">7.104 show/badnode (6)</A>
+<LI><A HREF="adminmanual-7.html#ss7.105">7.105 show/badspotter (1)</A>
+<LI><A HREF="adminmanual-7.html#ss7.106">7.106 show/configuration (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.107">7.107 show/configuration/node (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.108">7.108 show/connect (1)</A>
+<LI><A HREF="adminmanual-7.html#ss7.109">7.109 show/date (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.110">7.110 show/debug (9)</A>
+<LI><A HREF="adminmanual-7.html#ss7.111">7.111 show/dx (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.112">7.112 show/dxcc (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.113">7.113 show/files (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.114">7.114 show/filter (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.115">7.115 show/filter (extended for sysops) (5)</A>
+<LI><A HREF="adminmanual-7.html#ss7.116">7.116 show/hops (8)</A>
+<LI><A HREF="adminmanual-7.html#ss7.117">7.117 show/isolate (1)</A>
+<LI><A HREF="adminmanual-7.html#ss7.118">7.118 show/lockout (9)</A>
+<LI><A HREF="adminmanual-7.html#ss7.119">7.119 show/log (8)</A>
+<LI><A HREF="adminmanual-7.html#ss7.120">7.120 show/moon (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.121">7.121 show/muf (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.122">7.122 show/node (1)</A>
+<LI><A HREF="adminmanual-7.html#ss7.123">7.123 show/prefix (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.124">7.124 show/program (5)</A>
+<LI><A HREF="adminmanual-7.html#ss7.125">7.125 show/qra (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.126">7.126 show/qrz (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.127">7.127 show/route (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.128">7.128 show/satellite (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.129">7.129 show/sun (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.130">7.130 show/time (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.131">7.131 show/wcy (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.132">7.132 show/wwv (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.133">7.133 shutdown (5)</A>
+<LI><A HREF="adminmanual-7.html#ss7.134">7.134 spoof (9)</A>
+<LI><A HREF="adminmanual-7.html#ss7.135">7.135 stat/db (5)</A>
+<LI><A HREF="adminmanual-7.html#ss7.136">7.136 stat/channel (5)</A>
+<LI><A HREF="adminmanual-7.html#ss7.137">7.137 stat/msg (5)</A>
+<LI><A HREF="adminmanual-7.html#ss7.138">7.138 stat/route_node (5)</A>
+<LI><A HREF="adminmanual-7.html#ss7.139">7.139 stat/route_user (5)</A>
+<LI><A HREF="adminmanual-7.html#ss7.140">7.140 stat/user (5)</A>
+<LI><A HREF="adminmanual-7.html#ss7.141">7.141 sysop (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.142">7.142 talk (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.143">7.143 type (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.144">7.144 who (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.145">7.145 wx (0)</A>
+<LI><A HREF="adminmanual-7.html#ss7.146">7.146 wx (enhanced for sysops) (5)</A>
</UL>
<HR>
<A HREF="adminmanual-1.html">Next</A>
<HTML>
<HEAD>
<META NAME="GENERATOR" CONTENT="SGML-Tools 1.0.9">
- <TITLE>The DXSpider Installation Manual v1.47: Linux Installation </TITLE>
+ <TITLE>The DXSpider Installation Manual v1.48: Linux Installation </TITLE>
<LINK HREF="installation-2.html" REL=next>
<LINK HREF="installation.html#toc1" REL=contents>
<P>
<P>
<UL>
-<LI> Data-Dumper-2.101.tar.gz</LI>
-<LI> TimeDate-1.10.tar.gz</LI>
-<LI> IO-1.20.tar.gz (for perl 5.00403 and lower)</LI>
-<LI> Net-Telnet-3.02.tar.gz</LI>
-<LI> Curses-1.05.tar.gz</LI>
-<LI> Time-HiRes-01.20.tar.gz</LI>
+<LI>
+<A HREF="http://www.cpan.org/modules/by-module/Data/Data-Dumper-2.10.tar.gz">Data-Dumper-2.10.tar.gz</A></LI>
+<LI>
+<A HREF="http://www.cpan.org/modules/by-module/Date/TimeDate-1.10.tar.gz">TimeDate-1.10.tar.gz</A></LI>
+<LI>
+<A HREF="http://www.cpan.org/modules/by-module/IO/IO-1.20.tar.gz">IO-1.20.tar.gz (for perl 5.00403 and lower)</A></LI>
+<LI>
+<A HREF="http://www.cpan.org/modules/by-module/Net/Net-Telnet-3.02.tar.gz">Net-Telnet-3.02.tar.gz</A></LI>
+<LI>
+<A HREF="http://www.cpan.org/modules/by-module/Curses/Curses-1.05.tar.gz">Curses-1.05.tar.gz</A></LI>
+<LI>
+<A HREF="http://www.cpan.org/modules/by-module/Time/Time-HiRes-01.20.tar.gz">Time-HiRes-01.20.tar.gz</A></LI>
</UL>
<P>
-<P><EM>Do</EM> get the latest versions of these packages and install them
-but use the above list as the earliest versions usable.
+<P>Copy the CPAN modules listed above to a convenient place on your computer. One good place would be /usr/local/packages, and the instructions which follow will assume that that's where you have put them.
+<P>
+<P>Log in as 'root', and make sure you're at '/root' before you continue. Here are exactly the commands you must issue next: -
+<P>
+<PRE>
+# tar xvfz /usr/local/packages/Data-Dumper-2.10.tar.gz
+# cd Data-Dumper-2.10
+# perl Makefile.PL
+# make test
+# make install
+# cd ..
+#
+# tar xvfz /usr/local/packages/TimeDate-1.10.tar.gz
+# cd TimeDate-1.10
+# perl Makefile.PL
+# make test
+# make install
+# cd ..
+#
+# tar xvfz /usr/local/packages/IO-1.20.tar.gz
+# cd IO-1.20
+# perl Makefile.PL
+# make test
+# make install UNINST=1
+# cd ..
+#
+# tar xvfz /usr/local/packages/Net-Telnet-3.02.tar.gz
+# cd Net-Telnet-3.02
+# perl Makefile.PL
+# make test
+# make install
+# cd ..
+#
+# tar xvfz /usr/local/packages/Curses-1.05.tar.gz
+# cd Curses-1.05
+# perl Makefile.PL
+# make test
+# make install
+# cd ..
+#
+# tar xvfz /usr/local/packages/Time-HiRes-01.20.tar.gz
+# cd Time-HiRes-01.20
+# perl Makefile.PL
+# make test
+# make install
+# cd ..
+</PRE>
+<P>
+<P>Do not fall into the trap of thinking they're all the same, just because they nearly are! Pay particular attention to the instructions of IO, above.
+<P>
<P>
<H2><A NAME="ss1.2">1.2 Preparation</A>
</H2>
<HTML>
<HEAD>
<META NAME="GENERATOR" CONTENT="SGML-Tools 1.0.9">
- <TITLE>The DXSpider Installation Manual v1.47: Linux quick installation guide</TITLE>
+ <TITLE>The DXSpider Installation Manual v1.48: Linux quick installation guide</TITLE>
<LINK HREF="installation-3.html" REL=next>
<LINK HREF="installation-1.html" REL=previous>
<LINK HREF="installation.html#toc2" REL=contents>
<HTML>
<HEAD>
<META NAME="GENERATOR" CONTENT="SGML-Tools 1.0.9">
- <TITLE>The DXSpider Installation Manual v1.47: Configuration</TITLE>
+ <TITLE>The DXSpider Installation Manual v1.48: Configuration</TITLE>
<LINK HREF="installation-4.html" REL=next>
<LINK HREF="installation-2.html" REL=previous>
<LINK HREF="installation.html#toc3" REL=contents>
<HTML>
<HEAD>
<META NAME="GENERATOR" CONTENT="SGML-Tools 1.0.9">
- <TITLE>The DXSpider Installation Manual v1.47: Microsoft Windows Installation</TITLE>
+ <TITLE>The DXSpider Installation Manual v1.48: Microsoft Windows Installation</TITLE>
<LINK HREF="installation-5.html" REL=next>
<LINK HREF="installation-3.html" REL=previous>
<LINK HREF="installation.html#toc4" REL=contents>
<HTML>
<HEAD>
<META NAME="GENERATOR" CONTENT="SGML-Tools 1.0.9">
- <TITLE>The DXSpider Installation Manual v1.47: Installing the software</TITLE>
+ <TITLE>The DXSpider Installation Manual v1.48: Installing the software</TITLE>
<LINK HREF="installation-6.html" REL=next>
<LINK HREF="installation-4.html" REL=previous>
<LINK HREF="installation.html#toc5" REL=contents>
<HTML>
<HEAD>
<META NAME="GENERATOR" CONTENT="SGML-Tools 1.0.9">
- <TITLE>The DXSpider Installation Manual v1.47: General Information</TITLE>
+ <TITLE>The DXSpider Installation Manual v1.48: General Information</TITLE>
<LINK HREF="installation-5.html" REL=previous>
<LINK HREF="installation.html#toc6" REL=contents>
<link rel=stylesheet href="style.css" type="text/css" title="default stylesheet">
<HTML>
<HEAD>
<META NAME="GENERATOR" CONTENT="SGML-Tools 1.0.9">
- <TITLE>The DXSpider Installation Manual v1.47</TITLE>
+ <TITLE>The DXSpider Installation Manual v1.48</TITLE>
<LINK HREF="installation-1.html" REL=next>
Previous
Contents
<HR>
-<H1>The DXSpider Installation Manual v1.47</H1>
+<H1>The DXSpider Installation Manual v1.48</H1>
<H2>Iain Philipps, G0RDI (g0rdi@77hz.com) and
-Ian Maude, G0VGS, (ianmaude@btinternet.com)</H2>Version 1.47, April 2001 revision 1.0
+Ian Maude, G0VGS, (ianmaude@btinternet.com)</H2>Version 1.48, July 2001 revision 1.1
<P><HR>
<EM>A reference for SysOps of the DXSpider DXCluster program.</EM>
<HR>
$rproc = shift;
finish();
- dbg('err', "AGW initialising and connecting to $addr/$port ...");
+ dbg("AGW initialising and connecting to $addr/$port ...");
$sock = IO::Socket::INET->new(PeerAddr => $addr, PeerPort => $port, Proto=>'tcp', Timeout=>15);
unless ($sock) {
- dbg('err', "Cannot connect to AGW Engine at $addr/$port $!");
+ dbg("Cannot connect to AGW Engine at $addr/$port $!");
return;
}
Msg::blocking($sock, 0);
return if $finishing;
if ($sock) {
$finishing = 1;
- dbg('err', "AGW ending...");
+ dbg("AGW ending...");
for (values %circuit) {
&{$_->{eproc}}() if $_->{eproc};
$_->disconnect;
$len = length $data;
if ($sort eq 'y' || $sort eq 'H') {
- dbg('agwpoll', "AGW sendf: $sort '${from}'->'${to}' port: $port pid: $pid \"$data\"");
+ dbg("AGW sendf: $sort '${from}'->'${to}' port: $port pid: $pid \"$data\"") if isdbg('agwpoll');
} elsif ($sort eq 'D') {
if (isdbg('agw')) {
my $d = $data;
$d =~ s/\cM$//;
- dbg('agw', "AGW sendf: $sort '${from}'->'${to}' port: $port pid: $pid \"$d\"");
+ dbg("AGW sendf: $sort '${from}'->'${to}' port: $port pid: $pid \"$d\"") if isdbg('agw');
}
} else {
- dbg('agw', "AGW sendf: $sort '${from}'->'${to}' port: $port pid: $pid \"$data\"");
+ dbg("AGW sendf: $sort '${from}'->'${to}' port: $port pid: $pid \"$data\"") if isdbg('agw');
}
push @outqueue, pack('C x3 a1 x1 C x1 a10 a10 V x4 a*', $port, $sort, $pid, $from, $to, $len, $data);
Msg::set_event_handler($sock, write=>\&_send);
sub _error
{
- dbg('err', "error on AGW connection $addr/$port $!");
+ dbg("error on AGW connection $addr/$port $!");
Msg::set_event_handler($sock, read=>undef, write=>undef, error=>undef);
$sock = undef;
for (%circuit) {
# do a sanity check on the length
if ($len > 2000) {
- dbg('err', "AGW: invalid length $len > 2000 received ($sort $port $pid '$from'->'$to')");
+ dbg("AGW: invalid length $len > 2000 received ($sort $port $pid '$from'->'$to')");
finish();
return;
}
if ($sort eq 'D') {
my $d = unpack "Z*", $data;
$d =~ s/\cM$//;
- dbg('agw', "AGW Data In port: $port pid: $pid '$from'->'$to' length: $len \"$d\"");
+ dbg("AGW Data In port: $port pid: $pid '$from'->'$to' length: $len \"$d\"") if isdbg('agw');
my $conn = _find($from eq $main::mycall ? $to : $from);
if ($conn) {
if ($conn->{state} eq 'WC') {
if (exists $conn->{cmd}) {
if (@{$conn->{cmd}}) {
- dbg('connect', $d);
+ dbg($d) if isdbg('connect');
$conn->_docmd($d);
}
}
}
}
} else {
- dbg('err', "AGW error Unsolicited Data!");
+ dbg("AGW error Unsolicited Data!");
}
} elsif ($sort eq 'I' || $sort eq 'S' || $sort eq 'U' || $sort eq 'M' || $sort eq 'T') {
my $d = unpack "Z*", $data;
for (@lines) {
s/([\x00-\x1f\x7f-\xff])/sprintf("%%%02X", ord($1))/eg;
- dbg('agw', "AGW Monitor port: $port \"$_\"");
+ dbg("AGW Monitor port: $port \"$_\"") if isdbg('agw');
}
} elsif ($sort eq 'C') {
my $d = unpack "Z*", $data;
$d =~ s/\cM$//;
- dbg('agw', "AGW Connect port: $port pid: $pid '$from'->'$to' \"$d\"");
+ dbg("AGW Connect port: $port pid: $pid '$from'->'$to' \"$d\"") if isdbg('agw');
my $call = $from eq $main::mycall ? $to : $from;
my $conn = _find($call);
if ($conn) {
} elsif ($sort eq 'd') {
my $d = unpack "Z*", $data;
$d =~ s/\cM$//;
- dbg('agw', "AGW '$from'->'$to' port: $port Disconnected ($d)");
+ dbg("AGW '$from'->'$to' port: $port Disconnected ($d)") if isdbg('agw');
my $conn = _find($from eq $main::mycall ? $to : $from);
if ($conn) {
&{$conn->{eproc}}() if $conn->{eproc};
}
} elsif ($sort eq 'y') {
my ($frames) = unpack "V", $data;
- dbg('agwpollans', "AGW Frames Outstanding on port $port = $frames");
+ dbg("AGW Frames Outstanding on port $port = $frames") if isdbg('agwpollans');
my $conn = _find($from);
$conn->{oframes} = $frames if $conn;
} elsif ($sort eq 'Y') {
my ($frames) = unpack "V", $data;
- dbg('agw', "AGW Frames Outstanding on circuit '$from'->'$to' = $frames");
+ dbg("AGW Frames Outstanding on circuit '$from'->'$to' = $frames") if isdbg('agw');
my $conn = _find($from eq $main::mycall ? $to : $from);
$conn->{oframes} = $frames if $conn;
} elsif ($sort eq 'H') {
unless ($from =~ /^\s+$/) {
my $d = unpack "Z*", $data;
$d =~ s/\cM$//;
- dbg('agw', "AGW Heard port: $port \"$d\"");
+ dbg("AGW Heard port: $port \"$d\"") if isdbg('agw');
}
} elsif ($sort eq 'X') {
my ($r) = unpack "C", $data;
$r = $r ? "Successful" : "Failed";
- dbg('err', "AGW Register $from $r");
+ dbg("AGW Register $from $r");
finish() unless $r;
} elsif ($sort eq 'R') {
my ($major, $minor) = unpack "v x2 v x2", $data;
- dbg('agw', "AGW Version $major.$minor");
+ dbg("AGW Version $major.$minor") if isdbg('agw');
} elsif ($sort eq 'G') {
my @ports = split /;/, $data;
$noports = shift @ports || '0';
- dbg('agw', "AGW $noports Ports available");
+ dbg("AGW $noports Ports available") if isdbg('agw');
pop @ports while @ports > $noports;
for (@ports) {
next unless $_;
- dbg('agw', "AGW Port: $_");
+ dbg("AGW Port: $_") if isdbg('agw');
}
for (my $i = 0; $i < $noports; $i++) {
_sendf('y', undef, undef, $i);
}
} else {
my $d = unpack "Z*", $data;
- dbg('agw', "AGW decode $sort port: $port pid: $pid '$from'->'$to' length: $len \"$d\"");
+ dbg("AGW decode $sort port: $port pid: $pid '$from'->'$to' length: $len \"$d\"") if isdbg('agw');
}
}
}
# _sendf('Y', $main::mycall, $conn->{call}, $conn->{agwport}, $conn->{agwpid});
_sendf('D', $main::mycall, $conn->{agwcall}, $conn->{agwport}, $conn->{agwpid}, $msg . $conn->{lineend});
my $len = length($msg) + 1;
- dbg('agw', "AGW Data Out port: $conn->{agwport} pid: $conn->{agwpid} '$main::mycall'->'$conn->{agwcall}' length: $len \"$msg\"");
+ dbg("AGW Data Out port: $conn->{agwport} pid: $conn->{agwpid} '$main::mycall'->'$conn->{agwcall}' length: $len \"$msg\"") if isdbg('agw');
}
}
['by_dxcc', 'n', 7],
['by_itu', 'n', 8],
['by_zone', 'n', 9],
- ['origin_dxcc', 'c', 10],
- ['origin_itu', 'c', 11],
- ['origin_itu', 'c', 12],
+ ['origin_dxcc', 'n', 10],
+ ['origin_itu', 'n', 11],
+ ['origin_itu', 'n', 12],
], 'Filter::Cmd');
use DXVars;
use DXDebug;
use Filter;
+use Prefix;
use strict;
use vars qw(%channels %valid @ISA $count);
talk => '0,Want Talk,yesno',
ann => '0,Want Announce,yesno',
here => '0,Here?,yesno',
- confmode => '0,In Conference?,yesno',
+ conf => '0,In Conference?,yesno',
dx => '0,DX Spots,yesno',
redirect => '0,Redirect messages to',
lang => '0,Language',
wwvfilter => '5,WWV Filter',
wcyfilter => '5,WCY Filter',
spotsfilter => '5,Spot Filter',
+ routefilter => '5,route Filter',
inannfilter => '5,Input Ann Filter',
inwwvfilter => '5,Input WWV Filter',
inwcyfilter => '5,Input WCY Filter',
inspotsfilter => '5,Input Spot Filter',
+ inroutefilter => '5,Input Route Filter',
passwd => '9,Passwd List,parray',
pingint => '5,Ping Interval ',
nopings => '5,Ping Obs Count',
isbasic => '9,Internal Connection',
errors => '9,Errors',
route => '9,Route Data',
+ dxcc => '0,Country Code',
+ itu => '0,ITU Zone',
+ cq => '0,CQ Zone',
+ enhanced => '5,Enhanced Client,yesno',
+ senddbg => '8,Sending Debug,yesno',
);
# object destruction
delete $self->{$_};
}
}
- dbg('chan', "DXChannel $self->{call} destroyed ($count)");
+ dbg("DXChannel $self->{call} destroyed ($count)") if isdbg('chan');
$count--;
}
$self->{lang} = $main::lang if !$self->{lang};
$self->{func} = "";
+ # add in all the dxcc, itu, zone info
+ my @dxcc = Prefix::extract($call);
+ if (@dxcc > 0) {
+ $self->{dxcc} = $dxcc[1]->dxcc;
+ $self->{itu} = $dxcc[1]->itu;
+ $self->{cq} = $dxcc[1]->cq;
+ }
+
$count++;
- dbg('chan', "DXChannel $self->{call} created ($count)");
+ dbg("DXChannel $self->{call} created ($count)") if isdbg('chan');
bless $self, $pkg;
return $channels{$call} = $self;
}
my @lines = split /\n/;
for (@lines) {
$conn->send_now("$sort$call|$_");
- dbg('chan', "-> $sort $call $_");
+ dbg("-> $sort $call $_") if isdbg('chan');
+ }
+ }
+ $self->{t} = time;
+}
+
+#
+# send later with letter (more control)
+#
+
+sub send_later
+{
+ my $self = shift;
+ my $conn = $self->{conn};
+ return unless $conn;
+ my $sort = shift;
+ my $call = $self->{call};
+
+ for (@_) {
+# chomp;
+ my @lines = split /\n/;
+ for (@lines) {
+ $conn->send_later("$sort$call|$_");
+ dbg("-> $sort $call $_") if isdbg('chan');
}
}
$self->{t} = time;
my @lines = split /\n/;
for (@lines) {
$conn->send_later("D$call|$_");
- dbg('chan', "-> D $call $_");
+ dbg("-> D $call $_") if isdbg('chan');
}
}
$self->{t} = time;
$self->{oldstate} = $self->{state};
$self->{state} = shift;
$self->{func} = '' unless defined $self->{func};
- dbg('state', "$self->{call} channel func $self->{func} state $self->{oldstate} -> $self->{state}\n");
+ dbg("$self->{call} channel func $self->{func} state $self->{oldstate} -> $self->{state}\n") if isdbg('state');
# if there is any queued up broadcasts then splurge them out here
if ($self->{delayed} && ($self->{state} eq 'prompt' || $self->{state} eq 'talk')) {
# the above regexp must work
unless (defined $sort && defined $call && defined $line) {
# $data =~ s/([\x00-\x1f\x7f-\xff])/uc sprintf("%%%02x",ord($1))/eg;
- dbg('err', "DUFF Line on $chcall: $data");
+ dbg("DUFF Line on $chcall: $data") if isdbg('err');
return ();
}
if(ref($dxchan) && $call ne $chcall) {
- dbg('err', "DUFF Line come in for $call on wrong channel $chcall" );
+ dbg("DUFF Line come in for $call on wrong channel $chcall") if isdbg('err');
return();
}
unless ($noderef) {
my $mynode = $self->{mynode};
my $call = $self->{call};
- dbg('err', "parent node $mynode has disappeared from $call" );
+ dbg("parent node $mynode has disappeared from $call") if isdbg('err');
}
}
return $noderef;
unless ($dxchan) {
my $dxcall = $self->{dxchancall};
my $call = $self->{call};
- dbg('err', "parent dxchan $dxcall has disappeared from $call" );
+ dbg("parent dxchan $dxcall has disappeared from $call") if isdbg('err');
}
}
return $dxchan;
my $self = $pkg->alloc($dxchan, $call, $confmode, $here);
$self->{mynode} = $node->call;
$node->add_user($call, $self);
- dbg('cluster', "allocating user $call to $node->{call} in cluster\n");
+ dbg("allocating user $call to $node->{call} in cluster\n") if isdbg('cluster');
return $self;
}
my $node = $self->mynode;
$node->del_user($call);
- dbg('cluster', "deleting user $call from $node->{call} in cluster\n");
+ dbg("deleting user $call from $node->{call} in cluster\n") if isdbg('cluster');
}
sub count
$self->{mynode} = $self->call; # for sh/station
$self->{users} = 0;
$nodes++;
- dbg('cluster', "allocating node $call to cluster\n");
+ dbg("allocating node $call to cluster\n") if isdbg('cluster');
return $self;
}
$ref->del(); # this also takes them out of this list
}
delete $DXCluster::cluster{$call}; # remove me from the cluster table
- dbg('cluster', "deleting node $call from cluster\n");
+ dbg("deleting node $call from cluster\n") if isdbg('cluster');
$users -= $self->{users}; # it may be PC50 updated only therefore > 0
$users = 0 if $users < 0;
$nodes--;
use Internet;
use strict;
-use vars qw(%Cache %cmd_cache $errstr %aliases $scriptbase $maxerrors);
+use vars qw(%Cache %cmd_cache $errstr %aliases $scriptbase $maxerrors %nothereslug);
%Cache = (); # cache of dynamically loaded routine's mod times
%cmd_cache = (); # cache of short names
sub new
{
my $self = DXChannel::alloc(@_);
+
+ # routing, this must go out here to prevent race condx
+ my $pkg = shift;
+ my $call = shift;
+ my @rout = $main::routeroot->add_user($call, Route::here(1));
+ DXProt::route_pc16($DXProt::me, $main::routeroot, @rout) if @rout;
+
return $self;
}
$user->qra(DXBearing::lltoqra($lat, $long)) if (defined $lat && defined $long);
}
- # add yourself to the database
- my $node = DXNode->get($main::mycall) or die "$main::mycall not allocated in DXNode database";
- my $cuser = DXNodeuser->new($self, $node, $call, 0, 1);
- $node->dxchan($self) if $call eq $main::myalias; # send all output for mycall to myalias
-
- # routing version
- my $pref = Route::Node::get($main::mycall) or die "$main::mycall not allocated in Route database";
- $pref->add_user($call, Route::here($self->{here}));
- dbg('route', "B/C PC16 on $main::mycall for: $call");
-
- # issue a pc16 to everybody interested
- my $nchan = DXChannel->get($main::mycall);
- my @pc16 = DXProt::pc16($nchan, $cuser);
- for (@pc16) {
- DXProt::broadcast_all_ak1a($_);
- }
Log('DXCommand', "$call connected");
# send prompts and things
- my $info = DXCluster::cluster();
+ my $info = Route::cluster();
$self->send("Cluster:$info");
$self->send($self->msg('namee1')) if !$user->name;
$self->send($self->msg('qthe1')) if !$user->qth;
my ($to, $via) = $ent =~ /(\S+)>(\S+)/;
$to = $ent unless $to;
my $call = $via ? $via : $to;
- my $clref = DXCluster->get_exact($call);
+ my $clref = Route::get($call);
my $dxchan = $clref->dxchan if $clref;
if ($dxchan) {
$dxchan->talk($self->{call}, $to, $via, $line);
$self->send($self->msg('page', scalar @_));
} else {
for (@_) {
- $self->send($_) if $_;
+ if (defined $_) {
+ $self->send($_);
+ } else {
+ $self->send('');
+ }
}
}
}
if ($self->{func}) {
my $c = qq{ \@ans = $self->{func}(\$self, \$cmdline) };
- dbg('eval', "stored func cmd = $c\n");
+ dbg("stored func cmd = $c\n") if isdbg('eval');
eval $c;
if ($@) {
return ("Syserr: Eval err $errstr on stored func $self->{func}", $@);
my ($path, $fcmd);
- dbg('command', "cmd: $cmd");
+ dbg("cmd: $cmd") if isdbg('command');
# alias it if possible
my $acmd = CmdAlias::get_cmd($cmd);
if ($acmd) {
($cmd, $args) = split /\s+/, "$acmd $args", 2;
$args = "" unless defined $args;
- dbg('command', "aliased cmd: $cmd $args");
+ dbg("aliased cmd: $cmd $args") if isdbg('command');
}
# first expand out the entry to a command
($path, $fcmd) = search($main::cmd, $cmd, "pl") if !$path || !$fcmd;
if ($path && $cmd) {
- dbg('command', "path: $cmd cmd: $fcmd");
+ dbg("path: $cmd cmd: $fcmd") if isdbg('command');
my $package = find_cmd_name($path, $fcmd);
@ans = (0) if !$package ;
if ($package) {
- dbg('command', "package: $package");
+ dbg("package: $package") if isdbg('command');
my $c;
unless (exists $Cache{$package}->{'sub'}) {
$c = eval $Cache{$package}->{'eval'};
};
}
} else {
- dbg('command', "cmd: $cmd not found");
+ dbg("cmd: $cmd not found") if isdbg('command');
if (++$self->{errors} > $maxerrors) {
$self->send($self->msg('e26'));
$self->disconnect;
$dxchan->t($t);
}
}
+
+ while (my ($k, $v) = each %nothereslug) {
+ if ($main::systime >= $v + 300) {
+ delete $nothereslug{$k};
+ }
+ }
}
#
{
my $self = shift;
my $call = $self->call;
-
- # reset the redirection of messages back to 'normal' if we are the sysop
- if ($call eq $main::myalias) {
- my $node = DXNode->get($main::mycall) or die "$main::mycall not allocated in DXNode database";
- $node->dxchan($DXProt::me);
- }
+ delete $self->{senddbg};
my @rout = $main::routeroot->del_user($call);
- dbg('route', "B/C PC17 on $main::mycall for: $call");
+ dbg("B/C PC17 on $main::mycall for: $call") if isdbg('route');
+
+ # issue a pc17 to everybody interested
+ DXProt::route_pc17($DXProt::me, $main::routeroot, @rout) if @rout;
# I was the last node visited
$self->user->node($main::mycall);
- # issue a pc17 to everybody interested
- my $nchan = DXChannel->get($main::mycall);
- my $pc17 = $nchan->pc17($self);
- DXProt::broadcast_all_ak1a($pc17);
-
# send info to all logged in thingies
$self->tell_login('logoutu');
Log('DXCommand', "$call disconnected");
- my $ref = DXCluster->get_exact($call);
- $ref->del() if $ref;
$self->SUPER::disconnect;
}
{
my $pkg = shift; # ignored
my $s = shift; # the line to be rebroadcast
- my @except = @_; # to all channels EXCEPT these (dxchannel refs)
- my @list = DXChannel->get_all(); # just in case we are called from some funny object
- my ($dxchan, $except);
- L: foreach $dxchan (@list) {
- next if !$dxchan->sort eq 'U'; # only interested in user channels
- foreach $except (@except) {
- next L if $except == $dxchan; # ignore channels in the 'except' list
- }
+ foreach my $dxchan (DXChannel->get_all()) {
+ next unless $dxchan->{sort} eq 'U'; # only interested in user channels
+ next if grep $dxchan == $_, @_;
$dxchan->send($s); # send it
}
}
# gimme all the users
sub get_all
{
- my @list = DXChannel->get_all();
- my $ref;
- my @out;
- foreach $ref (@list) {
- push @out, $ref if $ref->sort eq 'U';
- }
- return @out;
+ return grep {$_->{sort} eq 'U'} DXChannel->get_all();
}
# run a script for this user
# commands are lower case
$short_cmd = lc $short_cmd;
- dbg('command', "command: $path $short_cmd\n");
+ dbg("command: $path $short_cmd\n") if isdbg('command');
# do some checking for funny characters
return () if $short_cmd =~ /\/$/;
# return immediately if we have it
($apath, $acmd) = split ',', $cmd_cache{$short_cmd} if $cmd_cache{$short_cmd};
if ($apath && $acmd) {
- dbg('command', "cached $short_cmd = ($apath, $acmd)\n");
+ dbg("cached $short_cmd = ($apath, $acmd)\n") if isdbg('command');
return ($apath, $acmd);
}
next if $l =~ /^\./;
if ($i < $#parts) { # we are dealing with directories
if ((-d "$curdir/$l") && $p eq substr($l, 0, length $p)) {
- dbg('command', "got dir: $curdir/$l\n");
+ dbg("got dir: $curdir/$l\n") if isdbg('command');
$dirfn .= "$l/";
$curdir .= "/$l";
last;
# chop $dirfn; # remove trailing /
$dirfn = "" unless $dirfn;
$cmd_cache{"$short_cmd"} = join(',', ($path, "$dirfn$l")); # cache it
- dbg('command', "got path: $path cmd: $dirfn$l\n");
+ dbg("got path: $path cmd: $dirfn$l\n") if isdbg('command');
return ($path, "$dirfn$l");
}
}
my @list = split /\n/, $eval;
my $line;
for (@list) {
- dbg('eval', $_, "\n");
+ dbg($_ . "\n") if isdbg('eval');
}
}
return $package;
}
+sub local_send
+{
+ my ($self, $let, $buf) = @_;
+ if ($self->{state} eq 'prompt' || $self->{state} eq 'talk') {
+ if ($self->{enhanced}) {
+ $self->send_later($let, $buf);
+ } else {
+ $self->send($buf);
+ }
+ } else {
+ $self->delay($buf);
+ }
+}
+
# send a talk message here
sub talk
{
my ($self, $from, $to, $via, $line) = @_;
$line =~ s/\\5E/\^/g;
- $self->send("$to de $from: $line") if $self->{talk};
+ $self->send_later('T', "$to de $from: $line") if $self->{talk};
Log('talk', $to, $from, $main::mycall, $line);
+ # send a 'not here' message if required
+ unless ($self->{here} && $from ne $to) {
+ my $key = "$to$from";
+ unless (exists $nothereslug{$key}) {
+ my ($ref, $dxchan);
+ if (($ref = Route::get($from)) && ($dxchan = $ref->dxchan)) {
+ my $name = $self->user->name || $to;
+ my $s = $self->user->nothere || $dxchan->msg('nothere', $name);
+ $nothereslug{$key} = $main::systime;
+ $dxchan->talk($to, $from, undef, $s);
+ }
+ }
+ }
}
# send an announce
sub announce
{
+ my $self = shift;
+ my $line = shift;
+ my $isolate = shift;
+ my $to = shift;
+ my $target = shift;
+ my $text = shift;
+ my ($filter, $hops);
+
+ if ($self->{annfilter}) {
+ ($filter, $hops) = $self->{annfilter}->it(@_ );
+ return unless $filter;
+ }
+ unless ($self->{ann}) {
+ return if $_[0] ne $main::myalias && $_[0] ne $main::mycall;
+ }
+ return if $target eq 'SYSOP' && $self->{priv} < 5;
+ my $buf = "$to$target de $_[0]: $text";
+ $buf =~ s/\%5E/^/g;
+ $buf .= "\a\a" if $self->{beep};
+ $self->local_send($target eq 'WX' ? 'W' : 'N', $buf);
}
# send a dx spot
sub dx_spot
{
+ my $self = shift;
+ my $line = shift;
+ my $isolate = shift;
+ my ($filter, $hops);
+
+ return unless $self->{dx};
+ if ($self->{spotsfilter}) {
+ ($filter, $hops) = $self->{spotsfilter}->it(@_ );
+ return unless $filter;
+ }
+
+ my $buf = Spot::formatb($self->{user}->wantgrid, $_[0], $_[1], $_[2], $_[3], $_[4]);
+ $buf .= "\a\a" if $self->{beep};
+ $buf =~ s/\%5E/^/g;
+ $self->local_send('X', $buf);
}
+sub wwv
+{
+ my $self = shift;
+ my $line = shift;
+ my $isolate = shift;
+ my ($filter, $hops);
+
+ return unless $self->{wwv};
+
+ if ($self->{wwvfilter}) {
+ ($filter, $hops) = $self->{wwvfilter}->it(@_ );
+ return unless $filter;
+ }
+
+ my $buf = "WWV de $_[6] <$_[1]>: SFI=$_[2], A=$_[3], K=$_[4], $_[5]";
+ $buf .= "\a\a" if $self->{beep};
+ $self->local_send('V', $buf);
+}
+
+sub wcy
+{
+ my $self = shift;
+ my $line = shift;
+ my $isolate = shift;
+ my ($filter, $hops);
+
+ return unless $self->{wcy};
+
+ if ($self->{wcyfilter}) {
+ ($filter, $hops) = $self->{wcyfilter}->it(@_ );
+ return unless $filter;
+ }
+
+ my $buf = "WCY de $_[10] <$_[1]> : K=$_[4] expK=$_[5] A=$_[3] R=$_[6] SFI=$_[2] SA=$_[7] GMF=$_[8] Au=$_[9]";
+ $buf .= "\a\a" if $self->{beep};
+ $self->local_send('Y', $buf);
+}
+
+# broadcast debug stuff to all interested parties
+sub broadcast_debug
+{
+ my $s = shift; # the line to be rebroadcast
+
+ foreach my $dxchan (DXChannel->get_all) {
+ next unless $dxchan->{enhanced} && $dxchan->{senddbg};
+ $dxchan->send_later('L', $s);
+ }
+}
+
+
1;
__END__
use strict;
-use vars qw{@crontab $mtime $lasttime $lastmin};
+use vars qw{@crontab @lcrontab @scrontab $mtime $lasttime $lastmin};
-@crontab = ();
$mtime = 0;
$lasttime = 0;
$lastmin = 0;
if ((-e $localfn && -M $localfn < $mtime) || (-e $fn && -M $fn < $mtime) || $mtime == 0) {
my $t;
- @crontab = ();
-
# first read in the standard one
if (-e $fn) {
$t = -M $fn;
- cread($fn);
+ @scrontab = cread($fn);
$mtime = $t if !$mtime || $t <= $mtime;
}
if (-e $localfn) {
$t = -M $localfn;
- cread($localfn);
+ @lcrontab = cread($localfn);
$mtime = $t if $t <= $mtime;
}
+ @crontab = (@scrontab, @lcrontab);
}
}
my $fn = shift;
my $fh = new IO::File;
my $line = 0;
+ my @out;
- dbg('cron', "cron: reading $fn\n");
+ dbg("cron: reading $fn\n") if isdbg('cron');
open($fh, $fn) or confess("cron: can't open $fn $!");
while (<$fh>) {
$line++;
chomp;
next if /^\s*#/o or /^\s*$/o;
my ($min, $hour, $mday, $month, $wday, $cmd) = /^\s*(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(.+)$/o;
- next if !$min;
+ next unless defined $min;
my $ref = bless {};
my $err;
$err |= parse($ref, 'wday', $wday, 0, 6, "sun", "mon", "tue", "wed", "thu", "fri", "sat");
if (!$err) {
$ref->{cmd} = $cmd;
- push @crontab, $ref;
- dbg('cron', "cron: adding $_\n");
+ push @out, $ref;
+ dbg("cron: adding $_\n") if isdbg('cron');
} else {
- dbg('cron', "cron: error on line $line '$_'\n");
+ dbg("cron: error on line $line '$_'\n") if isdbg('cron');
}
}
close($fh);
+ return @out;
}
sub parse
(!$cron->{wday} || grep $_ eq $wday, @{$cron->{wday}}) ){
if ($cron->{cmd}) {
- dbg('cron', "cron: $min $hour $mday $mon $wday -> doing '$cron->{cmd}'");
+ dbg("cron: $min $hour $mday $mon $wday -> doing '$cron->{cmd}'") if isdbg('cron');
eval "$cron->{cmd}";
- dbg('cron', "cron: cmd error $@") if $@;
+ dbg("cron: cmd error $@") if $@ && isdbg('cron');
}
}
}
sub present
{
my $call = uc shift;
- return DXCluster->get_exact($call);
+ return Route::get($call);
}
# is it remotely connected anywhere (ignoring SSIDS)?
sub presentish
{
my $call = uc shift;
- return DXCluster->get($call);
+ my $c = Route::get($call);
+ unless ($c) {
+ for (1..15) {
+ $c = Route::get("$call-$_");
+ last if $c;
+ }
+ }
+ return $c;
}
# is it remotely connected anywhere (with exact callsign) and on node?
sub present_on
{
my $call = uc shift;
- my $node = uc shift;
- my $ref = DXCluster->get_exact($call);
- return ($ref && $ref->mynode) ? $ref->mynode->call eq $node : undef;
+ my $ncall = uc shift;
+ my $node = Route::Node::get($ncall);
+ return ($node) ? grep $call eq $_, $node->users : undef;
}
-# is it remotely connected anywhere (ignoring SSIDS) and on node?
+# is it remotely connected (ignoring SSIDS) and on node?
sub presentish_on
{
my $call = uc shift;
- my $node = uc shift;
- my $ref = DXCluster->get($call);
- return ($ref && $ref->mynode) ? $ref->mynode->call eq $node : undef;
+ my $ncall = uc shift;
+ my $node = Route::Node::get($ncall);
+ my $present;
+ if ($node) {
+ $present = grep {/^$call/ } $node->users;
+ }
+ return $present;
}
# last time this thing was connected
$SIG{CHLD} = $SIG{TERM} = $SIG{INT} = $SIG{__WARN__} = 'DEFAULT';
alarm(0);
}
- exec "$line" or dbg('cron', "exec '$line' failed $!");
+ exec "$line" or dbg("exec '$line' failed $!") if isdbg('cron');
}
- dbg('cron', "spawn of $line started");
+ dbg("spawn of $line started") if isdbg('cron');
} else {
- dbg('cron', "can't fork for $line $!");
+ dbg("can't fork for $line $!") if isdbg('cron');
}
# coordinate
my $line = shift;
# can we see it? Is it a node?
- my $noderef = DXCluster->get_exact($call);
- return if !$noderef || !$noderef->pcversion;
+ my $noderef = Route::Node::get($call);
+ return unless $noderef && $noderef->version;
# send it
DXProt::addrcmd($DXProt::me, $call, $line);
{
my $line = shift;
my @in = DXCommandmode::run_cmd($DXProt::me, $line);
- dbg('cron', "cmd run: $line");
+ dbg("cmd run: $line") if isdbg('cron');
for (@in) {
s/\s*$//og;
- dbg('cron', "cmd out: $_");
+ dbg("cmd out: $_") if isdbg('cron');
}
}
1;
require Exporter;
@ISA = qw(Exporter);
-@EXPORT = qw(dbginit dbgstore dbg dbgadd dbgsub dbglist dbgdump isdbg dbgclose confess croak cluck);
+@EXPORT = qw(dbginit dbg dbgadd dbgsub dbglist dbgdump isdbg dbgclose confess croak cluck);
use strict;
-use vars qw(%dbglevel $fp);
+use vars qw(%dbglevel $fp $callback);
use DXUtil;
use DXLog ();
%dbglevel = ();
$fp = undef;
+$callback = undef;
# Avoid generating "subroutine redefined" warnings with the following
# hack (from CGI::Carp):
local $^W=0;
eval qq( sub confess {
\$SIG{__DIE__} = 'DEFAULT';
- DXDebug::dbgstore(\$@, Carp::shortmess(\@_));
+ DXDebug::dbg(\$@);
+ DXDebug::dbg(Carp::shortmess(\@_));
exit(-1);
}
sub croak {
\$SIG{__DIE__} = 'DEFAULT';
- DXDebug::dbgstore(\$@, Carp::longmess(\@_));
+ DXDebug::dbg(\$@);
+ DXDebug::dbg(Carp::longmess(\@_));
exit(-1);
}
- sub carp { DXDebug::dbgstore(Carp::shortmess(\@_)); }
- sub cluck { DXDebug::dbgstore(Carp::longmess(\@_)); }
+ sub carp { DXDebug::dbg(Carp::shortmess(\@_)); }
+ sub cluck { DXDebug::dbg(Carp::longmess(\@_)); }
);
CORE::die(Carp::shortmess($@)) if $@;
} else {
- eval qq( sub confess { Carp::confess(\@_); };
- sub croak { Carp::croak(\@_); };
- sub cluck { Carp::cluck(\@_); };
+ eval qq( sub confess { die Carp::longmess(\@_); };
+ sub croak { die Carp::shortmess(\@_); };
+ sub cluck { warn Carp::longmess(\@_); };
+ sub carp { warn Carp::shortmess(\@_); };
);
}
-sub dbgstore
+sub dbg($)
{
+ return unless $fp;
my $t = time;
for (@_) {
my $r = $_;
for (@l) {
s/([\x00-\x08\x0B-\x1f\x7f-\xff])/uc sprintf("%%%02x",ord($1))/eg;
print "$_\n" if defined \*STDOUT;
- $fp->writeunix($t, "$t^$_");
+ my $str = "$t^$_";
+ &$callback($str) if $callback;
+ $fp->writeunix($t, $str);
}
}
}
sub dbginit
{
+ $callback = shift;
+
# add sig{__DIE__} handling
if (!defined $DB::VERSION) {
- $SIG{__WARN__} = sub { dbgstore($@, Carp::shortmess(@_)); };
- $SIG{__DIE__} = sub { dbgstore($@, Carp::longmess(@_)); };
+ $SIG{__WARN__} = sub {
+ if ($_[0] =~ /Deep\s+recursion/i) {
+ dbg($@);
+ dbg(Carp::longmess(@_));
+ CORE::die;
+ } else {
+ dbg($@);
+ dbg(Carp::shortmess(@_));
+ }
+ };
+
+ $SIG{__DIE__} = sub { dbg($@); dbg(Carp::longmess(@_)); };
}
$fp = DXLog::new('debug', 'dat', 'd');
undef $fp;
}
-sub dbg
-{
- my $l = shift;
- if ($fp && ($dbglevel{$l} || $l eq 'err')) {
- dbgstore(@_);
- }
-}
-
sub dbgdump
{
my $l = shift;
$c =~ s/[\x00-\x1f\x7f-\xff]/./g;
my $left = 16 - length $c;
$h .= ' ' x (2 * $left) if $left > 0;
- dbgstore($m . sprintf("%4d:", $o) . "$h $c");
+ dbg($m . sprintf("%4d:", $o) . "$h $c");
$m = ' ' x (length $m);
}
}
return keys (%dbglevel);
}
-sub isdbg
+sub isdbg($)
{
- my $s = shift;
- return $dbglevel{$s};
+ return unless $fp;
+ return $dbglevel{$_[0]};
}
sub shortmess
my ($pkg, $name) = @_;
my $s = readfilestr($main::data, $name);
my $self = eval $s if $s;
- dbg('err', "error in reading $name in DXHash $@") if $@;
+ dbg("error in reading $name in DXHash $@") if $@;
$self = bless {name => $name}, $pkg unless $self;
return $self;
}
$self->{year} = $year;
$self->{thing} = $thing;
-# DXDebug::dbg("dxlog", "opening $self->{fn}\n");
+# DXDebug::dbg("opening $self->{fn}\n") if isdbg("dxlog");
return $self->{fh};
}
+sub mtime
+{
+ my ($self, $year, $thing) = @_;
+
+ my $fn = sprintf "$self->{prefix}/$year/%02d", $thing if $self->{'sort'} eq 'm';
+ $fn = sprintf "$self->{prefix}/$year/%03d", $thing if $self->{'sort'} eq 'd';
+ $fn .= ".$self->{suffix}" if $self->{suffix};
+ return (stat $fn)[9];
+}
+
# open the previous log file in sequence
sub openprev
{
use DXChannel;
use DXUser;
use DXM;
-use DXCluster;
use DXProtVars;
use DXProtout;
use DXDebug;
if (exists $busy{$fromnode}) {
my $ref = $busy{$fromnode};
my $tonode = $ref->{tonode};
- dbg('msg', "Busy, stopping msgno: $ref->{msgno} -> $fromnode");
+ dbg("Busy, stopping msgno: $ref->{msgno} -> $fromnode") if isdbg('msg');
$ref->stop_msg($self->call);
}
$ref->{linesreq} = $f[10];
$ref->{stream} = $stream;
$ref->{count} = 0; # no of lines between PC31s
- dbg('msg', "new message from $f[4] to $f[3] '$f[8]' stream $stream\n");
+ dbg("new message from $f[4] to $f[3] '$f[8]' stream $fromnode/$stream\n") if isdbg('msg');
Log('msg', "Incoming message $f[4] to $f[3] '$f[8]'" );
$work{"$fromnode$stream"} = $ref; # store in work
$busy{$fromnode} = $ref; # set interlock
my $uref = DXUser->get_current($ref->{to});
if (is_callsign($ref->{to}) && !$ref->{private} && $uref && $uref->homenode) {
$ref->{private} = 1;
- dbg('msg', "set bull to $ref->{to} to private");
+ dbg("set bull to $ref->{to} to private") if isdbg('msg');
}
last SWITCH;
}
$ref->{count}++;
if ($ref->{count} >= $ref->{linesreq}) {
$self->send(DXProt::pc31($f[2], $f[1], $f[3]));
- dbg('msg', "stream $f[3]: $ref->{count} lines received\n");
+ dbg("stream $f[3]: $ref->{count} lines received\n") if isdbg('msg');
$ref->{count} = 0;
}
$ref->{lastt} = $main::systime;
} else {
- dbg('msg', "PC29 from unknown stream $f[3] from $f[2]" );
+ dbg("PC29 from unknown stream $f[3] from $f[2]") if isdbg('msg');
$self->send(DXProt::pc42($f[2], $f[1], $f[3])); # unknown stream
}
last SWITCH;
$ref->{count} = 0;
$ref->{linesreq} = 5;
$work{"$f[2]$f[3]"} = $ref; # new ref
- dbg('msg', "incoming subject ack stream $f[3]\n");
+ dbg("incoming subject ack stream $f[3]\n") if isdbg('msg');
$busy{$f[2]} = $ref; # interlock
push @{$ref->{lines}}, ($ref->read_msg_body);
$ref->send_tranche($self);
$ref->{lastt} = $main::systime;
} else {
- dbg('msg', "PC30 from unknown stream $f[3] from $f[2]" );
+ dbg("PC30 from unknown stream $f[3] from $f[2]") if isdbg('msg');
$self->send(DXProt::pc42($f[2], $f[1], $f[3])); # unknown stream
}
last SWITCH;
if ($pcno == 31) { # acknowledge a tranche of lines
my $ref = $work{"$f[2]$f[3]"};
if ($ref) {
- dbg('msg', "tranche ack stream $f[3]\n");
+ dbg("tranche ack stream $f[3]\n") if isdbg('msg');
$ref->send_tranche($self);
$ref->{lastt} = $main::systime;
} else {
- dbg('msg', "PC31 from unknown stream $f[3] from $f[2]" );
+ dbg("PC31 from unknown stream $f[3] from $f[2]") if isdbg('msg');
$self->send(DXProt::pc42($f[2], $f[1], $f[3])); # unknown stream
}
last SWITCH;
}
if ($pcno == 32) { # incoming EOM
- dbg('msg', "stream $f[3]: EOM received\n");
+ dbg("stream $f[3]: EOM received\n") if isdbg('msg');
my $ref = $work{"$f[2]$f[3]"};
if ($ref) {
$self->send(DXProt::pc33($f[2], $f[1], $f[3])); # acknowledge it
if ($ref->{subject} eq $m->{subject} && $ref->{t} == $m->{t} && $ref->{from} eq $m->{from} && $ref->{to} eq $m->{to}) {
$ref->stop_msg($self->call);
my $msgno = $m->{msgno};
- dbg('msg', "duplicate message from $ref->{from} -> $ref->{to} to $msgno");
+ dbg("duplicate message from $ref->{from} -> $ref->{to} to $msgno") if isdbg('msg');
Log('msg', "duplicate message from $ref->{from} -> $ref->{to} to $msgno");
return;
}
# look for 'bad' to addresses
if ($ref->dump_it) {
$ref->stop_msg($self->call);
- dbg('msg', "'Bad' message $ref->{to}");
+ dbg("'Bad' message $ref->{to}") if isdbg('msg');
Log('msg', "'Bad' message $ref->{to}");
return;
}
}
$ref->stop_msg($self->call);
} else {
- dbg('msg', "PC32 from unknown stream $f[3] from $f[2]" );
+ dbg("PC32 from unknown stream $f[3] from $f[2]") if isdbg('msg');
$self->send(DXProt::pc42($f[2], $f[1], $f[3])); # unknown stream
}
# queue_msg(0);
}
$ref->stop_msg($self->call);
} else {
- dbg('msg', "PC33 from unknown stream $f[3] from $f[2]" );
+ dbg("PC33 from unknown stream $f[3] from $f[2]") if isdbg('msg');
$self->send(DXProt::pc42($f[2], $f[1], $f[3])); # unknown stream
}
$f[3] =~ s/\.//og; # remove dots
$f[3] =~ s/^\///o; # remove the leading /
$f[3] = lc $f[3]; # to lower case;
- dbg('msg', "incoming file $f[3]\n");
+ dbg("incoming file $f[3]\n") if isdbg('msg');
$f[3] = 'packclus/' . $f[3] unless $f[3] =~ /^packclus\//o;
# create any directories
$fn .= "/$part";
next if -e $fn;
last SWITCH if !mkdir $fn, 0777;
- dbg('msg', "created directory $fn\n");
+ dbg("created directory $fn\n") if isdbg('msg');
}
my $stream = next_transno($f[2]);
my $ref = DXMsg->alloc($stream, "$main::root/$f[3]", $self->call, time, !$f[4], $f[3], ' ', '0', '0');
}
if ($pcno == 42) { # abort transfer
- dbg('msg', "stream $f[3]: abort received\n");
+ dbg("stream $f[3]: abort received\n") if isdbg('msg');
my $ref = $work{"$f[2]$f[3]"};
if ($ref) {
$ref->stop_msg($self->call);
my $lines = shift;
if ($ref->{file}) { # a file
- dbg('msg', "To be stored in $ref->{to}\n");
+ dbg("To be stored in $ref->{to}\n") if isdbg('msg');
my $fh = new IO::File "$ref->{to}", "w";
if (defined $fh) {
print $fh "$line\n";
}
$fh->close;
- dbg('msg', "file $ref->{to} stored\n");
+ dbg("file $ref->{to} stored\n") if isdbg('msg');
Log('msg', "file $ref->{to} from $ref->{from} stored" );
} else {
confess "can't open file $ref->{to} $!";
# attempt to open the message file
my $fn = filename($ref->{msgno});
- dbg('msg', "To be stored in $fn\n");
+ dbg("To be stored in $fn\n") if isdbg('msg');
# now save the file, overwriting what's there, YES I KNOW OK! (I will change it if it's a problem)
my $fh = new IO::File "$fn", "w";
print $fh "$line\n";
}
$fh->close;
- dbg('msg', "msg $ref->{msgno} stored\n");
+ dbg("msg $ref->{msgno} stored\n") if isdbg('msg');
Log('msg', "msg $ref->{msgno} from $ref->{from} to $ref->{to} stored" );
} else {
confess "can't open msg file $fn $!";
my $self = shift;
# remove it from the active message list
- dbg('msg', "\@msg = " . scalar @msg . " before delete");
+ dbg("\@msg = " . scalar @msg . " before delete") if isdbg('msg');
@msg = grep { $_ != $self } @msg;
# remove the file
unlink filename($self->{msgno});
- dbg('msg', "deleting $self->{msgno}\n");
- dbg('msg', "\@msg = " . scalar @msg . " after delete");
+ dbg("deleting $self->{msgno}\n") if isdbg('msg');
+ dbg("\@msg = " . scalar @msg . " after delete") if isdbg('msg');
}
# clean out old messages from the message queue
my $ref;
# mark old messages for deletion
- dbg('msg', "\@msg = " . scalar @msg . " before delete");
+ dbg("\@msg = " . scalar @msg . " before delete") if isdbg('msg');
foreach $ref (@msg) {
if (ref($ref) && !$ref->{keep} && $ref->{t} < $main::systime - $maxage) {
$ref->{deleteme} = 1;
unlink filename($ref->{msgno});
- dbg('msg', "deleting old $ref->{msgno}\n");
+ dbg("deleting old $ref->{msgno}\n") if isdbg('msg');
}
}
# remove them all from the active message list
@msg = grep { !$_->{deleteme} } @msg;
- dbg('msg', "\@msg = " . scalar @msg . " after delete");
+ dbg("\@msg = " . scalar @msg . " after delete") if isdbg('msg');
$last_clean = $main::systime;
}
$file = new IO::File "$fn";
if (!$file) {
- dbg('err', "Error reading $fn $!");
+ dbg("Error reading $fn $!");
Log('err', "Error reading $fn $!");
return undef;
}
$size = -s $fn;
$line = <$file>; # first line
if ($size == 0 || !$line) {
- dbg('err', "Empty $fn $!");
+ dbg("Empty $fn $!");
Log('err', "Empty $fn $!");
return undef;
}
chomp $line;
$size -= length $line;
if (! $line =~ /^===/o) {
- dbg('err', "corrupt first line in $fn ($line)");
+ dbg("corrupt first line in $fn ($line)");
Log('err', "corrupt first line in $fn ($line)");
return undef;
}
chomp $line;
$size -= length $line;
if (! $line =~ /^===/o) {
- dbg('err', "corrupt second line in $fn ($line)");
+ dbg("corrupt second line in $fn ($line)");
Log('err', "corrupt second line in $fn ($line)");
return undef;
}
$file = new IO::File;
if (!open($file, $fn)) {
- dbg('err' ,"Error reading $fn $!");
+ dbg("Error reading $fn $!");
Log('err' ,"Error reading $fn $!");
return undef;
}
# bat down the message list looking for one that needs to go off site and whose
# nearest node is not busy.
- dbg('msg', "queue msg ($sort)\n");
+ dbg("queue msg ($sort)\n") if isdbg('msg');
my @nodelist = DXChannel::get_all_nodes;
foreach $ref (@msg) {
# any time outs?
if (exists $ref->{lastt} && $main::systime >= $ref->{lastt} + $timeout) {
my $node = $ref->{tonode};
- dbg('msg', "Timeout, stopping msgno: $ref->{msgno} -> $node");
+ dbg("Timeout, stopping msgno: $ref->{msgno} -> $node") if isdbg('msg');
Log('msg', "Timeout, stopping msgno: $ref->{msgno} -> $node");
$ref->stop_msg($node);
my $dxchan;
if ($ref->{private}) {
next if $ref->{'read'}; # if it is read, it is stuck here
- $clref = DXCluster->get_exact($ref->{to});
- unless ($clref) { # otherwise look for a homenode
- my $uref = DXUser->get_current($ref->{to});
- my $hnode = $uref->homenode if $uref;
- $clref = DXCluster->get_exact($hnode) if $hnode;
- }
- if ($clref && !grep { $clref->dxchan == $_ } DXCommandmode::get_all()) {
- next if $clref->call eq $main::mycall; # i.e. it lives here
+ $clref = Route::get($ref->{to});
+# unless ($clref) { # otherwise look for a homenode
+# my $uref = DXUser->get_current($ref->{to});
+# my $hnode = $uref->homenode if $uref;
+# $clref = Route::Node::get($hnode) if $hnode;
+# }
+ if ($clref) {
$dxchan = $clref->dxchan;
- $ref->start_msg($dxchan) if $dxchan && !get_busy($dxchan->call) && $dxchan->state eq 'normal';
+ if ($dxchan) {
+ if ($dxchan->is_node) {
+ next if $clref->call eq $main::mycall; # i.e. it lives here
+ $ref->start_msg($dxchan) if !get_busy($dxchan->call) && $dxchan->state eq 'normal';
+ }
+ } else {
+ dbg("Route: No dxchan for $ref->{to} " . ref($clref) ) if isdbg('msg');
+ }
}
}
{
my ($self, $dxchan) = @_;
- dbg('msg', "start msg $self->{msgno}\n");
+ dbg("start msg $self->{msgno}\n") if isdbg('msg');
$self->{linesreq} = 10;
$self->{count} = 0;
$self->{tonode} = $dxchan->call;
my $stream = $self->{stream} if exists $self->{stream};
- dbg('msg', "stop msg $self->{msgno} -> node $node\n");
+ dbg("stop msg $self->{msgno} -> node $node\n") if isdbg('msg');
delete $work{$node};
delete $work{"$node$stream"} if $stream;
$self->workclean;
my $fh = new IO::File;
if (sysopen($fh, $fn, O_RDWR|O_CREAT, 0666)) {
$fh->autoflush(1);
- $msgno = $fh->getline;
+ $msgno = $fh->getline || '0';
chomp $msgno;
$msgno++;
seek $fh, 0, 0;
$fh->print("$msgno\n");
- dbg('msg', "msgno $msgno allocated for $name\n");
+ dbg("msgno $msgno allocated for $name\n") if isdbg('msg');
$fh->close;
} else {
confess "can't open $fn $!";
my $ref;
# load various control files
- dbg('err', "load badmsg: " . (load_badmsg() or "Ok"));
- dbg('err', "load forward: " . (load_forward() or "Ok"));
- dbg('err', "load swop: " . (load_swop() or "Ok"));
+ dbg("load badmsg: " . (load_badmsg() or "Ok"));
+ dbg("load forward: " . (load_forward() or "Ok"));
+ dbg("load swop: " . (load_swop() or "Ok"));
# read in the directory
opendir($dir, $msgdir) or confess "can't open $msgdir $!";
$ref = read_msg_header("$msgdir/$_");
unless ($ref) {
- dbg('err', "Deleting $_");
+ dbg("Deleting $_");
Log('err', "Deleting $_");
unlink "$msgdir/$_";
next;
# delete any messages to 'badmsg.pl' places
if ($ref->dump_it) {
- dbg('msg', "'Bad' TO address $ref->{to}");
+ dbg("'Bad' TO address $ref->{to}") if isdbg('msg');
Log('msg', "'Bad' TO address $ref->{to}");
$ref->del_msg;
next;
# are there any to do in this directory?
return unless -d $importfn;
unless (opendir(DIR, $importfn)) {
- dbg('msg', "can\'t open $importfn $!");
+ dbg("can\'t open $importfn $!") if isdbg('msg');
Log('msg', "can\'t open $importfn $!");
return;
}
my $fn = "$importfn/$name";
next unless -f $fn;
unless (open(MSG, $fn)) {
- dbg('msg', "can\'t open import file $fn $!");
+ dbg("can\'t open import file $fn $!") if isdbg('msg');
Log('msg', "can\'t open import file $fn $!");
unlink($fn);
next;
my @f = split /\s+/, $line;
unless (@f && $f[0] =~ /^(:?S|SP|SB|SEND)$/ ) {
my $m = "invalid first line in import '$line'";
- dbg('MSG', $m );
+ dbg($m) if isdbg('msg');
return (1, $m);
}
while (@f) {
use DXChannel;
use DXUser;
use DXM;
-use DXCluster;
use DXProtVars;
use DXCommandmode;
use DXLog;
use strict;
use vars qw($me $pc11_max_age $pc23_max_age
- $last_hour %pings %rcmds
+ $last_hour $last10 %eph %pings %rcmds
%nodehops $baddx $badspotter $badnode $censorpc
$allowzero $decode_dk0wcy $send_opernam @checklist);
$baddx = new DXHash "baddx";
$badspotter = new DXHash "badspotter";
$badnode = new DXHash "badnode";
+$last10 = time;
@checklist =
(
sub new
{
my $self = DXChannel::alloc(@_);
+
+ # add this node to the table, the values get filled in later
+ my $pkg = shift;
+ my $call = shift;
+ $main::routeroot->add($call, '0000', Route::here(1)) if $call ne $main::mycall;
+
return $self;
}
$self->{wwvfilter} = Filter::read_in('wwv', $call, 0) || Filter::read_in('wwv', 'node_default', 0);
$self->{wcyfilter} = Filter::read_in('wcy', $call, 0) || Filter::read_in('wcy', 'node_default', 0);
$self->{annfilter} = Filter::read_in('ann', $call, 0) || Filter::read_in('ann', 'node_default', 0) ;
+ $self->{routefilter} = Filter::read_in('route', $call, 0) || Filter::read_in('route', 'node_default', 0) ;
# get the INPUT filters (these only pertain to Clusters)
$self->{inwwvfilter} = Filter::read_in('wwv', $call, 1) || Filter::read_in('wwv', 'node_default', 1);
$self->{inwcyfilter} = Filter::read_in('wcy', $call, 1) || Filter::read_in('wcy', 'node_default', 1);
$self->{inannfilter} = Filter::read_in('ann', $call, 1) || Filter::read_in('ann', 'node_default', 1);
+ $self->{inroutefilter} = Filter::read_in('route', $call, 1) || Filter::read_in('route', 'node_default', 1);
# set unbuffered and no echo
$self->send_now('B',"0");
# send info to all logged in thingies
$self->tell_login('loginn');
- $main::routeroot->add($call);
Log('DXProt', "$call connected");
}
# print join(',', @field), "\n";
- # ignore any lines that don't start with PC
- return if !$field[0] =~ /^PC/;
- # process PC frames
+ # process PC frames, this will fail unless the frame starts PCnn
my ($pcno) = $field[0] =~ /^PC(\d\d)/; # just get the number
return unless $pcno;
return if $pcno < 10 || $pcno > 99;
# check for and dump bad protocol messages
my $n = check($pcno, @field);
if ($n) {
- dbg('chan', "PCPROT: bad field $n, dumped (" . parray($checklist[$pcno-10]) . ")");
+ dbg("PCPROT: bad field $n, dumped (" . parray($checklist[$pcno-10]) . ")") if isdbg('chanerr');
return;
}
eval {
$pcr = Local::pcprot($self, $pcno, @field);
};
-# dbg('local', "Local::pcprot error $@") if $@;
+# dbg("Local::pcprot error $@") if isdbg('local') if $@;
return if $pcr;
SWITCH: {
if ($censorpc) {
my @bad;
if (@bad = BadWords::check($field[3])) {
- dbg('chan', "PCPROT: Bad words: @bad, dropped" );
+ dbg("PCPROT: Bad words: @bad, dropped") if isdbg('chanerr');
return;
}
}
} else {
$call = $to = $field[2];
}
- $dxchan = DXChannel->get($call);
+ $dxchan = DXChannel->get($main::myalias) if $call eq $main::mycall;
+ $dxchan = DXChannel->get($call) unless $dxchan;
if ($dxchan && $dxchan->is_user) {
$field[3] =~ s/\%5E/^/g;
$dxchan->talk($field[1], $to, $via, $field[3]);
# if this is a 'nodx' node then ignore it
if ($badnode->in($field[7])) {
- dbg('chan', "PCPROT: Bad Node, dropped");
+ dbg("PCPROT: Bad Node, dropped") if isdbg('chanerr');
return;
}
# if this is a 'bad spotter' user then ignore it
if ($badspotter->in($field[6])) {
- dbg('chan', "PCPROT: Bad Spotter, dropped");
+ dbg("PCPROT: Bad Spotter, dropped") if isdbg('chanerr');
return;
}
my $d = cltounix($field[3], $field[4]);
# bang out (and don't pass on) if date is invalid or the spot is too old (or too young)
if (!$d || ($pcno == 11 && ($d < $main::systime - $pc11_max_age || $d > $main::systime + 900))) {
- dbg('chan', "PCPROT: Spot ignored, invalid date or out of range ($field[3] $field[4])\n");
+ dbg("PCPROT: Spot ignored, invalid date or out of range ($field[3] $field[4])\n") if isdbg('chanerr');
return;
}
# is it 'baddx'
if ($baddx->in($field[2])) {
- dbg('chan', "PCPROT: Bad DX spot, ignored");
+ dbg("PCPROT: Bad DX spot, ignored") if isdbg('chanerr');
return;
}
$field[5] =~ s/^\s+//; # take any leading blanks off
$field[2] = unpad($field[2]); # take off leading and trailing blanks from spotted callsign
if ($field[2] =~ /BUST\w*$/) {
- dbg('chan', "PCPROT: useless 'BUSTED' spot");
+ dbg("PCPROT: useless 'BUSTED' spot") if isdbg('chanerr');
return;
}
if (Spot::dup($field[1], $field[2], $d, $field[5])) {
- dbg('chan', "PCPROT: Duplicate Spot ignored\n");
+ dbg("PCPROT: Duplicate Spot ignored\n") if isdbg('chanerr');
return;
}
if ($censorpc) {
my @bad;
if (@bad = BadWords::check($field[5])) {
- dbg('chan', "PCPROT: Bad words: @bad, dropped" );
+ dbg("PCPROT: Bad words: @bad, dropped") if isdbg('chanerr');
return;
}
}
if ($self->{inspotsfilter}) {
my ($filter, $hops) = $self->{inspotsfilter}->it(@spot);
unless ($filter) {
- dbg('chan', "PCPROT: Rejected by filter");
+ dbg("PCPROT: Rejected by input spot filter") if isdbg('chanerr');
return;
}
}
my $node;
my $to = $user->homenode;
my $last = $user->lastoper || 0;
- if ($send_opernam && $main::systime > $last + $DXUser::lastoperinterval && $to && ($node = DXCluster->get_exact($to)) ) {
+ if ($to ne $main::mycall && $send_opernam && $main::systime > $last + $DXUser::lastoperinterval && $to && ($node = Route::Node::get($to)) ) {
my $cmd = "forward/opernam $spot[4]";
# send the rcmd but we aren't interested in the replies...
- if ($node && $node->dxchan && $node->dxchan->is_clx) {
+ my $dxchan = $node->dxchan;
+ if ($dxchan && $dxchan->is_clx) {
route(undef, $to, pc84($main::mycall, $to, $main::mycall, $cmd));
} else {
route(undef, $to, pc34($main::mycall, $to, $cmd));
}
if ($to ne $field[7]) {
$to = $field[7];
- $node = DXCluster->get_exact($to);
- if ($node && $node->dxchan && $node->dxchan->is_clx) {
- route(undef, $to, pc84($main::mycall, $to, $main::mycall, $cmd));
- } else {
- route(undef, $to, pc34($main::mycall, $to, $cmd));
+ $node = Route::Node::get($to);
+ if ($node) {
+ $dxchan = $node->dxchan;
+ if ($dxchan && $dxchan->is_clx) {
+ route(undef, $to, pc84($main::mycall, $to, $main::mycall, $cmd));
+ } else {
+ route(undef, $to, pc34($main::mycall, $to, $cmd));
+ }
}
}
$user->lastoper($main::systime);
eval {
$r = Local::spot($self, @spot);
};
-# dbg('local', "Local::spot1 error $@") if $@;
+# dbg("Local::spot1 error $@") if isdbg('local') if $@;
return if $r;
# DON'T be silly and send on PC26s!
# announce duplicate checking
$field[3] =~ s/^\s+//; # remove leading blanks
if (AnnTalk::dup($field[1], $field[2], $field[3])) {
- dbg('chan', "PCPROT: Duplicate Announce ignored");
+ dbg("PCPROT: Duplicate Announce ignored") if isdbg('chanerr');
return;
}
if ($censorpc) {
my @bad;
if (@bad = BadWords::check($field[3])) {
- dbg('chan', "PCPROT: Bad words: @bad, dropped" );
+ dbg("PCPROT: Bad words: @bad, dropped") if isdbg('chanerr');
return;
}
}
my ($filter, $hops) = $self->{inannfilter}->it(@field[1..6], $self->{call},
$ann_dxcc, $ann_itu, $ann_cq, $org_dxcc, $org_itu, $org_cq);
unless ($filter) {
- dbg('chan', "PCPROT: Rejected by filter");
+ dbg("PCPROT: Rejected by input announce filter") if isdbg('chanerr');
return;
}
}
# general checks
my $dxchan;
- if ($field[1] eq $main::mycall || $field[2] eq $main::mycall) {
- dbg('chan', "PCPROT: trying to alter config on this node from outside!");
- return;
- }
- if ($field[2] eq $main::myalias && DXChannel->get($field[1])) {
- dbg('chan', "PCPROT: trying to connect sysop from outside!");
- return;
- }
- if (($dxchan = DXChannel->get($field[1])) && $dxchan != $self) {
- dbg('chan', "PCPROT: $field[1] connected locally");
+ my $ncall = $field[1];
+ my $newline = "PC16^";
+
+ if ($ncall eq $main::mycall) {
+ dbg("PCPROT: trying to alter config on this node from outside!") if isdbg('chanerr');
return;
}
-
- my $node = DXCluster->get_exact($field[1]);
- unless ($node) {
- dbg('chan', "PCPROT: Node $field[1] not in config");
+ $dxchan = DXChannel->get($ncall);
+ if ($dxchan && $dxchan ne $self) {
+ dbg("PCPROT: PC16 from $self->{call} trying to alter locally connected $ncall, ignored!") if isdbg('chanerr');
return;
}
- my $pref = Route::Node::get($field[1]);
- unless ($pref) {
- dbg('chan', "PCPROT: Route::Node $field[1] not in config");
+ my $parent = Route::Node::get($ncall);
+ unless ($parent) {
+ dbg("PCPROT: Node $ncall not in config") if isdbg('chanerr');
return;
}
- my $wrong;
- unless ($node->isa('DXNode')) {
- dbg('chan', "PCPROT: $field[1] is not a node");
- $wrong = 1;
- }
- if ($node->dxchan != $self) {
- dbg('chan', "PCPROT: $field[1] came in on wrong channel");
- $wrong = 1;
- }
+
+ # input filter if required
+ return unless $self->in_filter_route($parent);
+
my $i;
my @rout;
for ($i = 2; $i < $#field; $i++) {
- my ($call, $confmode, $here) = $field[$i] =~ /^(\S+) (\S) (\d)/o;
- next unless $call && $confmode && defined $here && is_callsign($call);
- $confmode = $confmode eq '*';
+ my ($call, $conf, $here) = $field[$i] =~ /^(\S+) (\S) (\d)/o;
+ next unless $call && $conf && defined $here && is_callsign($call);
+ next if $call eq $main::mycall;
+
+ $conf = $conf eq '*';
- push @rout, $pref->add_user($call, Route::here($here)|Route::conf($confmode));
+ my $r = Route::User::get($call);
+ my $flags = Route::here($here)|Route::conf($conf);
- unless ($wrong) {
- my $ref = DXCluster->get_exact($call);
- if ($ref) {
- if ($ref->isa('DXNode')) {
- dbg('chan', "PCPROT: $call is a node");
- next;
- }
- my $rcall = $ref->mynode->call;
- dbg('chan', "PCPROT: already have $call on $rcall");
- next;
+ if ($r) {
+ if ($r->flags != $flags) {
+ $r->flags($flags);
+ push @rout, $r;
}
-
- DXNodeuser->new($self, $node, $call, $confmode, $here);
-
- # add this station to the user database, if required
- $call =~ s/-\d+$//o; # remove ssid for users
- my $user = DXUser->get_current($call);
- $user = DXUser->new($call) if !$user;
- $user->homenode($node->call) if !$user->homenode;
- $user->node($node->call);
- $user->lastin($main::systime) unless DXChannel->get($call);
- $user->put;
+ $r->addparent($ncall);
+ } else {
+ push @rout, $parent->add_user($call, $flags);
}
+
+ # add this station to the user database, if required
+ $call =~ s/-\d+$//o; # remove ssid for users
+ my $user = DXUser->get_current($call);
+ $user = DXUser->new($call) if !$user;
+ $user->homenode($parent->call) if !$user->homenode;
+ $user->node($parent->call);
+ $user->lastin($main::systime) unless DXChannel->get($call);
+ $user->put;
}
- dbg('route', "B/C PC16 on $field[1] for: " . join(',', map{$_->call} @rout)) if @rout;
-
- # all these 'wrong' is just while we are swopping over to the Route stuff
- return if $wrong;
# queue up any messages (look for privates only)
DXMsg::queue_msg(1) if $self->state eq 'normal';
-# broadcast_route($line, $self, $field[1]);
-# return;
- last SWITCH;
+
+ $self->route_pc16($parent, @rout) if @rout;
+ return;
}
if ($pcno == 17) { # remove a user
my $dxchan;
- if ($field[1] eq $main::mycall || $field[2] eq $main::mycall) {
- dbg('chan', "PCPROT: trying to alter config on this node from outside!");
+ my $ncall = $field[2];
+ my $ucall = $field[1];
+ if ($ncall eq $main::mycall) {
+ dbg("PCPROT: trying to alter config on this node from outside!") if isdbg('chanerr');
return;
}
- if ($field[1] eq $main::myalias && DXChannel->get($field[1])) {
- dbg('chan', "PCPROT: trying to disconnect sysop from outside!");
+ $dxchan = DXChannel->get($ncall);
+ if ($dxchan && $dxchan ne $self) {
+ dbg("PCPROT: PC17 from $self->{call} trying to alter locally connected $ncall, ignored!") if isdbg('chanerr');
return;
}
- if ($dxchan = DXChannel->get($field[1])) {
- dbg('chan', "PCPROT: $field[1] connected locally");
+ my $parent = Route::Node::get($ncall);
+ unless ($parent) {
+ dbg("PCPROT: Route::Node $ncall not in config") if isdbg('chanerr');
return;
}
- my $pref = Route::Node::get($field[2]);
- unless ($pref) {
- dbg('chan', "PCPROT: Route::Node $field[2] not in config");
- return;
- }
- $pref->del_user($field[1]);
- dbg('route', "B/C PC17 on $field[2] for: $field[1]");
-
- my $node = DXCluster->get_exact($field[2]);
- unless ($node) {
- dbg('chan', "PCPROT: Node $field[2] not in config");
- return;
- }
- unless ($node->isa('DXNode')) {
- dbg('chan', "PCPROT: $field[2] is not a node");
- return;
- }
- if ($node->dxchan != $self) {
- dbg('chan', "PCPROT: $field[2] came in on wrong channel");
- return;
- }
- my $ref = DXCluster->get_exact($field[1]);
- if ($ref) {
- if ($ref->mynode != $node) {
- dbg('chan', "PCPROT: $field[1] came in from wrong node $field[2]");
- return;
- }
- $ref->del;
- } else {
- dbg('chan', "PCPROT: $field[1] not known" );
- return;
- }
-# broadcast_route($line, $self, $field[2]);
-# return;
- last SWITCH;
+ # input filter if required
+ return unless $self->in_filter_route($parent);
+
+ my @rout = $parent->del_user($ucall);
+ $self->route_pc17($parent, @rout) if @rout;
+ return;
}
if ($pcno == 18) { # link request
$self->state('init');
# first clear out any nodes on this dxchannel
- my @gonenodes = map { $_->dxchan == $self ? $_ : () } DXNode::get_all();
- foreach my $node (@gonenodes) {
- next if $node->dxchan == $DXProt::me;
- broadcast_ak1a(pc21($node->call, 'Gone, re-init') , $self) unless $self->{isolate};
- $node->del();
- }
+ my $parent = Route::Node::get($self->{call});
+ my @rout = $parent->del_nodes;
+ $self->route_pc21(@rout, $parent);
$self->send_local_config();
$self->send(pc20());
return; # we don't pass these on
# new routing list
my @rout;
- my $pref = Route::Node::get($self->{call});
+ my $parent = Route::Node::get($self->{call});
+ unless ($parent) {
+ dbg("DXPROT: my parent $self->{call} has disappeared");
+ $self->disconnect;
+ return;
+ }
# parse the PC19
for ($i = 1; $i < $#field-1; $i += 4) {
my $here = $field[$i];
my $call = uc $field[$i+1];
- my $confmode = $field[$i+2];
+ my $conf = $field[$i+2];
my $ver = $field[$i+3];
- next unless defined $here && defined $confmode && is_callsign($call);
+ next unless defined $here && defined $conf && is_callsign($call);
# check for sane parameters
$ver = 5000 if $ver eq '0000';
next if $ver < 5000; # only works with version 5 software
next if length $call < 3; # min 3 letter callsigns
-
-
- # now check the call over
- my $node = DXCluster->get_exact($call);
- if ($node) {
- my $dxchan;
- if ((my $dxchan = DXChannel->get($call)) && $dxchan != $self) {
- dbg('chan', "PCPROT: $call connected locally");
+ next if $call eq $main::mycall;
+
+ # update it if required
+ my $r = Route::Node::get($call);
+ my $flags = Route::here($here)|Route::conf($conf);
+ if ($r) {
+ my $ar;
+ if ($call ne $parent->call) {
+ if ($self->in_filter_route($r)) {
+ $ar = $parent->add($call, $ver, $flags);
+ push @rout, $ar if $ar;
+ } else {
+ next;
+ }
}
- if ($node->dxchan != $self) {
- dbg('chan', "PCPROT: $call come in on wrong channel");
- next;
+ if ($r->version ne $ver || $r->flags != $flags) {
+ $r->version($ver);
+ $r->flags($flags);
+ push @rout, $r unless $ar;
}
-
- # add a route object
- if ($call eq $pref->call && !$pref->version) {
- $pref->version($ver);
- $pref->flags(Route::here($here)|Route::conf($confmode));
+ } else {
+ if ($call eq $self->{call}) {
+ dbg("DXPROT: my channel route for $call has disappeared");
+ next;
+ };
+
+ my $new = Route->new($call); # throw away
+ if ($self->in_filter_route($new)) {
+ my $r = $parent->add($call, $ver, $flags);
+ push @rout, $r;
} else {
- my $r = $pref->add($call, $ver, Route::here($here)|Route::conf($confmode));
- push @rout, $r if $r;
+ next;
}
-
- my $rcall = $node->mynode->call;
- dbg('chan', "PCPROT: already have $call on $rcall");
- next;
- }
-
- # add a route object
- if ($call eq $pref->call && !$pref->version) {
- $pref->version($ver);
- $pref->flags(Route::here($here)|Route::conf($confmode));
- } else {
- my $r = $pref->add($call, $ver, Route::here($here)|Route::conf($confmode));
- push @rout, $r if $r;
}
- # add it to the nodes table and outgoing line
- $newline .= "$here^$call^$confmode^$ver^";
- DXNode->new($self, $call, $confmode, $here, $ver);
-
# unbusy and stop and outgoing mail (ie if somehow we receive another PC19 without a disconnect)
my $mref = DXMsg::get_busy($call);
$mref->stop_msg($call) if $mref;
$user->put;
}
- dbg('route', "B/C PC19 for: " . join(',', map{$_->call} @rout)) if @rout;
-
- return if $newline eq "PC19^";
-
- # add hop count
- $newline .= get_hops(19) . "^";
- $line = $newline;
- last SWITCH;
+ $self->route_pc19(@rout) if @rout;
+ return;
}
if ($pcno == 20) { # send local configuration
if ($pcno == 21) { # delete a cluster from the list
my $call = uc $field[1];
my @rout;
- my $pref = Route::Node::get($call);
-
+ my $parent = Route::Node::get($self->{call});
+ unless ($parent) {
+ dbg("DXPROT: my parent $self->{call} has disappeared");
+ $self->disconnect;
+ return;
+ }
+ my $node = Route::Node::get($call);
if ($call ne $main::mycall) { # don't allow malicious buggers to disconnect me!
if ($call eq $self->{call}) {
- dbg('chan', "PCPROT: Trying to disconnect myself with PC21");
- return;
- }
- if (my $dxchan = DXChannel->get($call)) {
- dbg('chan', "PCPROT: $call connected locally");
+ dbg("PCPROT: Trying to disconnect myself with PC21") if isdbg('chanerr');
return;
}
- # routing objects
- if ($pref) {
- push @rout, $pref->del_node($call);
- } else {
- dbg('chan', "PCPROT: Route::Node $call not in config");
- }
-
- my $node = DXCluster->get_exact($call);
if ($node) {
- unless ($node->isa('DXNode')) {
- dbg('chan', "PCPROT: $call is not a node");
- return;
- }
- if ($node->dxchan != $self) {
- dbg('chan', "PCPROT: $call come in on wrong channel");
- return;
- }
- $node->del();
- } else {
- dbg('chan', "PCPROT: $call not in table, dropped");
- return;
+ # input filter it
+ return unless $self->in_filter_route($node);
+
+ # routing objects
+ push @rout, $node->del($parent);
}
} else {
- dbg('chan', "PCPROT: I WILL _NOT_ be disconnected!");
+ dbg("PCPROT: I WILL _NOT_ be disconnected!") if isdbg('chanerr');
return;
}
- dbg('route', "B/C PC21 for: " . join(',', (map{$_->call} @rout))) if @rout;
-
-# broadcast_route($line, $self, $call);
-# return;
- last SWITCH;
+ $self->route_pc21(@rout) if @rout;
+ return;
}
if ($pcno == 22) {
my ($r) = $field[6] =~ /R=(\d+)/;
$r = 0 unless $r;
if (($pcno == 23 && $d < $main::systime - $pc23_max_age) || $d > $main::systime + 1500 || $field[2] < 0 || $field[2] > 23) {
- dbg('chan', "PCPROT: WWV Date ($field[1] $field[2]) out of range");
+ dbg("PCPROT: WWV Date ($field[1] $field[2]) out of range") if isdbg('chanerr');
return;
}
if (Geomag::dup($d,$sfi,$k,$i,$field[6])) {
- dbg('chan', "PCPROT: Dup WWV Spot ignored\n");
+ dbg("PCPROT: Dup WWV Spot ignored\n") if isdbg('chanerr');
return;
}
$field[7] =~ s/-\d+$//o; # remove spotter's ssid
eval {
$rep = Local::wwv($self, $field[1], $field[2], $sfi, $k, $i, @field[6..8], $r);
};
-# dbg('local', "Local::wwv2 error $@") if $@;
+# dbg("Local::wwv2 error $@") if isdbg('local') if $@;
return if $rep;
# DON'T be silly and send on PC27s!
if ($pcno == 24) { # set here status
my $call = uc $field[1];
- my $ref = DXCluster->get_exact($call);
- $ref->here($field[2]) if $ref;
- last SWITCH;
+ my ($nref, $uref);
+ $nref = Route::Node::get($call);
+ $uref = Route::User::get($call);
+ return unless $nref || $uref; # if we don't know where they are, it's pointless sending it on
+
+ unless (eph_dup($line)) {
+ $nref->here($field[2]) if $nref;
+ $uref->here($field[2]) if $uref;
+ my $ref = $nref || $uref;
+ return unless $self->in_filter_route($ref);
+ $self->route_pc24($ref, $field[3]);
+ }
+ return;
}
if ($pcno == 25) { # merge request
return;
}
if ($field[2] eq $main::mycall) {
- dbg('chan', "PCPROT: Trying to merge to myself, ignored");
+ dbg("PCPROT: Trying to merge to myself, ignored") if isdbg('chanerr');
return;
}
if ($pcno == 34 || $pcno == 36) { # remote commands (incoming)
if ($field[1] eq $main::mycall) {
my $ref = DXUser->get_current($field[2]);
- my $cref = DXCluster->get($field[2]);
+ my $cref = Route::Node::get($field[2]);
Log('rcmd', 'in', $ref->{priv}, $field[2], $field[3]);
- unless (!$cref || !$ref || $cref->mynode->call ne $ref->homenode) { # not allowed to relay RCMDS!
+ unless (!$cref || !$ref || $cref->call ne $ref->homenode) { # not allowed to relay RCMDS!
if ($ref->{priv}) { # you have to have SOME privilege, the commands have further filtering
$self->{remotecmd} = 1; # for the benefit of any command that needs to know
my $oldpriv = $self->{priv};
if ($field[1] eq $self->{call}) {
$self->disconnect(1);
} else {
- dbg('chan', "PCPROT: came in on wrong channel");
+ dbg("PCPROT: came in on wrong channel") if isdbg('chanerr');
}
return;
}
if ($pcno == 41) { # user info
# add this station to the user database, if required
- my $user = DXUser->get_current($field[1]);
- $user = DXUser->new($field[1]) if !$user;
+ my $call = $field[1];
+ my $user = DXUser->get_current($call);
+ $user = DXUser->new($call) if !$user;
if ($field[2] == 1) {
$user->name($field[3]);
}
$user->lastoper($main::systime); # to cut down on excessive for/opers being generated
$user->put;
- last SWITCH;
+ my $ref = Route::get($call) || Route->new($call);
+
+ # input filter if required
+ return unless $self->in_filter_route($ref);
+
+ $self->route_pc41($ref, $call, $field[2], $field[3], $field[4]) if $ref && !eph_dup($line);
+ return;
}
+
if ($pcno == 43) {
last SWITCH;
}
+
if ($pcno == 37 || $pcno == 44 || $pcno == 45 || $pcno == 46 || $pcno == 47 || $pcno == 48) {
DXDb::process($self, $line);
return;
}
if ($pcno == 50) { # keep alive/user list
- my $node = DXCluster->get_exact($field[1]);
+ my $call = $field[1];
+ my $node = Route::Node::get($call);
if ($node) {
- return unless $node->isa('DXNode');
- return unless $node->dxchan == $self;
- $node->update_users($field[2]);
+ return unless $node->call eq $self->{call};
+ $node->usercount($field[2]);
+
+ # input filter if required
+ return unless $self->in_filter_route($node);
+
+ $self->route_pc50($node, $field[2], $field[3]) unless eph_dup($line);
}
- last SWITCH;
+ return;
}
if ($pcno == 51) { # incoming ping requests/answers
+ my $to = $field[1];
+ my $from = $field[2];
+ my $flag = $field[3];
# is it for us?
- if ($field[1] eq $main::mycall) {
- my $flag = $field[3];
+ if ($to eq $main::mycall) {
if ($flag == 1) {
- $self->send(pc51($field[2], $field[1], '0'));
+ $self->send(pc51($from, $to, '0'));
} else {
# it's a reply, look in the ping list for this one
- my $ref = $pings{$field[2]};
+ my $ref = $pings{$from};
if ($ref) {
- my $tochan = DXChannel->get($field[2]);
+ my $tochan = DXChannel->get($from);
while (@$ref) {
my $r = shift @$ref;
my $dxchan = DXChannel->get($r->{call});
if ($dxchan->is_user) {
my $s = sprintf "%.2f", $t;
my $ave = sprintf "%.2f", $tochan ? ($tochan->{pingave} || $t) : $t;
- $dxchan->send($dxchan->msg('pingi', $field[2], $s, $ave))
+ $dxchan->send($dxchan->msg('pingi', $from, $s, $ave))
} elsif ($dxchan->is_node) {
if ($tochan) {
$tochan->{nopings} = $tochan->user->nopings || 2; # pump up the timer
}
} else {
# route down an appropriate thingy
- $self->route($field[1], $line);
+ $self->route($to, $line);
}
return;
}
if ($pcno == 75) { # dunno but route it
- if ($field[1] ne $main::mycall) {
- $self->route($field[1], $line);
+ my $call = $field[1];
+ if ($call ne $main::mycall) {
+ $self->route($call, $line);
}
return;
}
if ($pcno == 73) { # WCY broadcasts
+ my $call = $field[1];
# do some de-duping
- my $d = cltounix($field[1], sprintf("%02d18Z", $field[2]));
+ my $d = cltounix($call, sprintf("%02d18Z", $field[2]));
if (($pcno == 23 && $d < $main::systime - $pc23_max_age) || $d > $main::systime + 1500 || $field[2] < 0 || $field[2] > 23) {
- dbg('chan', "PCPROT: WCY Date ($field[1] $field[2]) out of range");
+ dbg("PCPROT: WCY Date ($call $field[2]) out of range") if isdbg('chanerr');
return;
}
@field = map { unpad($_) } @field;
if (WCY::dup($d,@field[3..7])) {
- dbg('chan', "PCPROT: Dup WCY Spot ignored\n");
+ dbg("PCPROT: Dup WCY Spot ignored\n") if isdbg('chanerr');
return;
}
eval {
$rep = Local::wwv($self, @field[1..12]);
};
- # dbg('local', "Local::wcy error $@") if $@;
+ # dbg("Local::wcy error $@") if isdbg('local') if $@;
return if $rep;
# broadcast to the eager world
}
if ($pcno == 84) { # remote commands (incoming)
- if ($field[1] eq $main::mycall) {
+ my $call = $field[1];
+ if ($call eq $main::mycall) {
my $ref = DXUser->get_current($field[2]);
- my $cref = DXCluster->get($field[2]);
+ my $cref = Route::Node::get($field[2]);
Log('rcmd', 'in', $ref->{priv}, $field[2], $field[4]);
- unless ($field[4] =~ /rcmd/i || !$cref || !$ref || $cref->mynode->call ne $ref->homenode) { # not allowed to relay RCMDS!
+ unless ($field[4] =~ /rcmd/i || !$cref || !$ref || $cref->call ne $ref->homenode) { # not allowed to relay RCMDS!
if ($ref->{priv}) { # you have to have SOME privilege, the commands have further filtering
$self->{remotecmd} = 1; # for the benefit of any command that needs to know
my $oldpriv = $self->{priv};
$self->send(pc85($main::mycall, $field[2], $field[3],"$main::mycall:your attempt is logged, Tut tut tut...!"));
}
} else {
- my $ref = DXUser->get_current($field[1]);
+ my $ref = DXUser->get_current($call);
if ($ref && $ref->is_clx) {
- $self->route($field[1], $line);
+ $self->route($call, $line);
} else {
- $self->route($field[1], pc34($field[2], $field[1], $field[4]));
+ $self->route($call, pc34($field[2], $call, $field[4]));
}
}
return;
}
if ($pcno == 85) { # remote command replies
- if ($field[1] eq $main::mycall) {
+ my $call = $field[1];
+ if ($call eq $main::mycall) {
my $dxchan = DXChannel->get($field[3]);
if ($dxchan) {
$dxchan->send($field[4]);
}
}
} else {
- my $ref = DXUser->get_current($field[1]);
+ my $ref = DXUser->get_current($call);
if ($ref && $ref->is_clx) {
- $self->route($field[1], $line);
+ $self->route($call, $line);
} else {
- $self->route($field[1], pc35($field[2], $field[1], $field[4]));
+ $self->route($call, pc35($field[2], $call, $field[4]));
}
}
return;
# NOTE - don't arrive here UNLESS YOU WANT this lump of protocol to be
# REBROADCAST!!!!
#
-
- unless ($self->{isolate}) {
- broadcast_ak1a($line, $self); # send it to everyone but me
+
+ if (eph_dup($line)) {
+ dbg("PCPROT: Ephemeral dup, dropped") if isdbg('chanerr');
+ } else {
+ unless ($self->{isolate}) {
+ broadcast_ak1a($line, $self); # send it to everyone but me
+ }
}
}
# send a pc50 out on this channel
$dxchan->{pc50_t} = $main::systime unless exists $dxchan->{pc50_t};
if ($t >= $dxchan->{pc50_t} + $DXProt::pc50_interval) {
- $dxchan->send(pc50(scalar DXChannel::get_all_users));
+ my $s = pc50($me, scalar DXChannel::get_all_users);
+ eph_dup($s);
+ $dxchan->send($s);
$dxchan->{pc50_t} = $t;
}
}
}
}
+
+ # every ten seconds
+ if ($t - $last10 >= 10) {
+ # clean out ephemera
+
+ eph_clean();
+
+ $last10 = $t;
+ }
- my $key;
- my $val;
- my $cutoff;
if ($main::systime - 3600 > $last_hour) {
-# Spot::process;
-# Geomag::process;
-# AnnTalk::process;
$last_hour = $main::systime;
}
}
#
# some active measures
#
-sub send_route
+
+sub send_dx_spot
{
my $self = shift;
my $line = shift;
- my @dxchan = DXChannel::get_all_nodes();
+ my @dxchan = DXChannel->get_all();
my $dxchan;
# send it if it isn't the except list and isn't isolated and still has a hop count
# taking into account filtering and so on
foreach $dxchan (@dxchan) {
- my $routeit;
- my ($filter, $hops);
-
- if ($dxchan->{routefilter}) {
- ($filter, $hops) = $dxchan->{routefilter}->it($self->{call}, @_);
- next unless $filter;
- }
+ next if $dxchan == $me;
next if $dxchan == $self;
- if ($hops) {
- $routeit = $line;
- $routeit =~ s/\^H\d+\^\~$/\^H$hops\^\~/;
- } else {
- $routeit = adjust_hops($dxchan, $line); # adjust its hop count by node name
- next unless $routeit;
- }
- if ($filter) {
- $dxchan->send($routeit) if $routeit;
- } else {
- $dxchan->send($routeit) unless $dxchan->{isolate} || $self->{isolate};
- }
+ $dxchan->dx_spot($line, $self->{isolate}, @_, $self->{call});
}
}
-sub send_dx_spot
+sub dx_spot
{
my $self = shift;
my $line = shift;
- my @dxchan = DXChannel->get_all();
- my $dxchan;
-
- # send it if it isn't the except list and isn't isolated and still has a hop count
- # taking into account filtering and so on
- foreach $dxchan (@dxchan) {
- my $routeit;
- my ($filter, $hops);
+ my $isolate = shift;
+ my ($filter, $hops);
- if ($dxchan->{spotsfilter}) {
- ($filter, $hops) = $dxchan->{spotsfilter}->it(@_, $self->{call} );
- next unless $filter;
- }
-
- if ($dxchan->is_node) {
- next if $dxchan == $self;
- if ($hops) {
- $routeit = $line;
- $routeit =~ s/\^H\d+\^\~$/\^H$hops\^\~/;
- } else {
- $routeit = adjust_hops($dxchan, $line); # adjust its hop count by node name
- next unless $routeit;
- }
- if ($filter) {
- $dxchan->send($routeit) if $routeit;
- } else {
- $dxchan->send($routeit) unless $dxchan->{isolate} || $self->{isolate};
- }
- } elsif ($dxchan->is_user && $dxchan->{dx}) {
- my $buf = Spot::formatb($dxchan->{user}->wantgrid, $_[0], $_[1], $_[2], $_[3], $_[4]);
- $buf .= "\a\a" if $dxchan->{beep};
- $buf =~ s/\%5E/^/g;
- if ($dxchan->{state} eq 'prompt' || $dxchan->{state} eq 'talk') {
- $dxchan->send($buf);
- } else {
- $dxchan->delay($buf);
- }
- }
+ if ($self->{spotsfilter}) {
+ ($filter, $hops) = $self->{spotsfilter}->it(@_);
+ return unless $filter;
}
+ send_prot_line($self, $filter, $hops, $isolate, $line)
}
+sub send_prot_line
+{
+ my ($self, $filter, $hops, $isolate, $line) = @_;
+ my $routeit;
+
+ if ($hops) {
+ $routeit = $line;
+ $routeit =~ s/\^H\d+\^\~$/\^H$hops\^\~/;
+ } else {
+ $routeit = adjust_hops($self, $line); # adjust its hop count by node name
+ next unless $routeit;
+ }
+ if ($filter) {
+ $self->send($routeit) if $routeit;
+ } else {
+ $self->send($routeit) unless $self->{isolate} || $isolate;
+ }
+}
+
+
sub send_wwv_spot
{
my $self = shift;
# send it if it isn't the except list and isn't isolated and still has a hop count
# taking into account filtering and so on
foreach $dxchan (@dxchan) {
+ next if $dxchan == $self;
+ next if $dxchan == $me;
my $routeit;
my ($filter, $hops);
- if ($dxchan->{wwvfilter}) {
- ($filter, $hops) = $dxchan->{wwvfilter}->it(@_, $self->{call}, $wwv_dxcc, $wwv_itu, $wwv_cq, $org_dxcc, $org_itu, $org_cq);
- next unless $filter;
- }
- if ($dxchan->is_node) {
- next if $dxchan == $self;
- if ($hops) {
- $routeit = $line;
- $routeit =~ s/\^H\d+\^\~$/\^H$hops\^\~/;
- } else {
- $routeit = adjust_hops($dxchan, $line); # adjust its hop count by node name
- next unless $routeit;
- }
- if ($filter) {
- $dxchan->send($routeit) if $routeit;
- } else {
- $dxchan->send($routeit) unless $dxchan->{isolate} || $self->{isolate};
-
- }
- } elsif ($dxchan->is_user && $dxchan->{wwv}) {
- my $buf = "WWV de $_[6] <$_[1]>: SFI=$_[2], A=$_[3], K=$_[4], $_[5]";
- $buf .= "\a\a" if $dxchan->{beep};
- if ($dxchan->{state} eq 'prompt' || $dxchan->{state} eq 'talk') {
- $dxchan->send($buf);
- } else {
- $dxchan->delay($buf);
- }
- }
+ $dxchan->wwv($line, $self->{isolate}, @_, $self->{call}, $wwv_dxcc, $wwv_itu, $wwv_cq, $org_dxcc, $org_itu, $org_cq);
+ }
+
+}
+
+sub wwv
+{
+ my $self = shift;
+ my $line = shift;
+ my $isolate = shift;
+ my ($filter, $hops);
+
+ if ($self->{wwvfilter}) {
+ ($filter, $hops) = $self->{wwvfilter}->it(@_);
+ return unless $filter;
}
+ send_prot_line($self, $filter, $hops, $isolate, $line)
}
sub send_wcy_spot
# send it if it isn't the except list and isn't isolated and still has a hop count
# taking into account filtering and so on
foreach $dxchan (@dxchan) {
- my $routeit;
- my ($filter, $hops);
+ next if $dxchan == $me;
+ next if $dxchan == $self;
- if ($dxchan->{wcyfilter}) {
- ($filter, $hops) = $dxchan->{wcyfilter}->it(@_, $self->{call}, $wcy_dxcc, $wcy_itu, $wcy_cq, $org_dxcc, $org_itu, $org_cq);
- next unless $filter;
- }
- if ($dxchan->is_clx || $dxchan->is_spider || $dxchan->is_dxnet) {
- next if $dxchan == $self;
- if ($hops) {
- $routeit = $line;
- $routeit =~ s/\^H\d+\^\~$/\^H$hops\^\~/;
- } else {
- $routeit = adjust_hops($dxchan, $line); # adjust its hop count by node name
- next unless $routeit;
- }
- if ($filter) {
- $dxchan->send($routeit) if $routeit;
- } else {
- $dxchan->send($routeit) unless $dxchan->{isolate} || $self->{isolate};
- }
- } elsif ($dxchan->is_user && $dxchan->{wcy}) {
- my $buf = "WCY de $_[10] <$_[1]> : K=$_[4] expK=$_[5] A=$_[3] R=$_[6] SFI=$_[2] SA=$_[7] GMF=$_[8] Au=$_[9]";
- $buf .= "\a\a" if $dxchan->{beep};
- if ($dxchan->{state} eq 'prompt' || $dxchan->{state} eq 'talk') {
- $dxchan->send($buf);
- } else {
- $dxchan->delay($buf);
- }
- }
+ $dxchan->wcy($line, $self->{isolate}, @_, $self->{call}, $wcy_dxcc, $wcy_itu, $wcy_cq, $org_dxcc, $org_itu, $org_cq);
+ }
+}
+
+sub wcy
+{
+ my $self = shift;
+ my $line = shift;
+ my $isolate = shift;
+ my ($filter, $hops);
+
+ if ($self->{wcyfilter}) {
+ ($filter, $hops) = $self->{wcyfilter}->it(@_);
+ return unless $filter;
}
+ send_prot_line($self, $filter, $hops, $isolate, $line) if $self->is_clx || $self->is_spider || $self->is_dxnet;
}
# send an announce
my $line = shift;
my @dxchan = DXChannel->get_all();
my $dxchan;
- my $text = unpad($_[2]);
my $target;
my $to = 'To ';
+ my $text = unpad($_[2]);
if ($_[3] eq '*') { # sysops
$target = "SYSOP";
# send it if it isn't the except list and isn't isolated and still has a hop count
# taking into account filtering and so on
foreach $dxchan (@dxchan) {
+ next if $dxchan == $self;
+ next if $dxchan == $me;
my $routeit;
my ($filter, $hops);
- if ($dxchan->{annfilter}) {
- ($filter, $hops) = $dxchan->{annfilter}->it(@_, $self->{call}, $ann_dxcc, $ann_itu, $ann_cq, $org_dxcc, $org_itu, $org_cq);
- next unless $filter;
- }
- if ($dxchan->is_node && $_[1] ne $main::mycall) { # i.e not specifically routed to me
- next if $dxchan == $self;
- if ($hops) {
- $routeit = $line;
- $routeit =~ s/\^H\d+\^\~$/\^H$hops\^\~/;
- } else {
- $routeit = adjust_hops($dxchan, $line); # adjust its hop count by node name
- next unless $routeit;
- }
- if ($filter) {
- $dxchan->send($routeit) if $routeit;
- } else {
- $dxchan->send($routeit) unless $dxchan->{isolate} || $self->{isolate};
-
- }
- } elsif ($dxchan->is_user) {
- unless ($dxchan->{ann}) {
- next if $_[0] ne $main::myalias && $_[0] ne $main::mycall;
- }
- next if $target eq 'SYSOP' && $dxchan->{priv} < 5;
- my $buf = "$to$target de $_[0]: $text";
- $buf =~ s/\%5E/^/g;
- $buf .= "\a\a" if $dxchan->{beep};
- if ($dxchan->{state} eq 'prompt' || $dxchan->{state} eq 'talk') {
- $dxchan->send($buf);
- } else {
- $dxchan->delay($buf);
- }
- }
+ $dxchan->announce($line, $self->{isolate}, $to, $target, $text, @_, $self->{call}, $ann_dxcc, $ann_itu, $ann_cq, $org_dxcc, $org_itu, $org_cq)
+ }
+}
+
+sub announce
+{
+ my $self = shift;
+ my $line = shift;
+ my $isolate = shift;
+ my $to = shift;
+ my $target = shift;
+ my ($filter, $hops);
+
+ if ($self->{annfilter}) {
+ ($filter, $hops) = $self->{annfilter}->it(@_);
+ return unless $filter;
}
+ send_prot_line($self, $filter, $hops, $isolate, $line) unless $_[1] eq $main::mycall;
}
+
sub send_local_config
{
my $self = shift;
my @nodes;
my @localnodes;
my @remotenodes;
-
+
+ dbg('DXProt::send_local_config') if isdbg('trace');
+
# send our nodes
if ($self->{isolate}) {
- @localnodes = (DXCluster->get_exact($main::mycall));
+ @localnodes = ( $main::routeroot );
} else {
# create a list of all the nodes that are not connected to this connection
# and are not themselves isolated, this to make sure that isolated nodes
# don't appear outside of this node
- @nodes = DXNode::get_all();
- @nodes = grep { $_->{call} ne $main::mycall } @nodes;
- @nodes = grep { $_->dxchan != $self } @nodes if @nodes;
- @nodes = grep { !$_->dxchan->{isolate} } @nodes if @nodes;
- @localnodes = grep { $_->dxchan->{call} eq $_->{call} } @nodes if @nodes;
- unshift @localnodes, DXCluster->get_exact($main::mycall);
- @remotenodes = grep { $_->dxchan->{call} ne $_->{call} } @nodes if @nodes;
- }
-
- my @s = $me->pc19(@localnodes, @remotenodes);
- for (@s) {
- my $routeit = adjust_hops($self, $_);
- $self->send($routeit) if $routeit;
+ my @dxchan = grep { $_->call ne $main::mycall && $_->call ne $self->{call} } DXChannel::get_all_nodes();
+ @localnodes = map { my $r = Route::Node::get($_->{call}); $r ? $r : () } @dxchan if @dxchan;
+ my @intcalls = map { $_->nodes } @localnodes if @localnodes;
+ my $ref = Route::Node::get($self->{call});
+ my @rnodes = $ref->nodes;
+ for my $n (@intcalls) {
+ push @remotenodes, Route::Node::get($n) unless grep $n eq $_, @rnodes;
+ }
+ unshift @localnodes, $main::routeroot;
}
+ send_route($self, \&pc19, scalar(@localnodes)+scalar(@remotenodes), @localnodes, @remotenodes);
+
# get all the users connected on the above nodes and send them out
foreach $n (@localnodes, @remotenodes) {
- my @users = values %{$n->list};
- my @s = pc16($n, @users);
- for (@s) {
- my $routeit = adjust_hops($self, $_);
- $self->send($routeit) if $routeit;
+ if ($n) {
+ send_route($self, \&pc16, 1, $n, map {my $r = Route::User::get($_); $r ? ($r) : ()} $n->users);
+ } else {
+ dbg("sent a null value") if isdbg('chanerr');
}
}
}
my ($self, $call, $line) = @_;
if (ref $self && $call eq $self->{call}) {
- dbg('chan', "PCPROT: Trying to route back to source, dropped");
+ dbg("PCPROT: Trying to route back to source, dropped") if isdbg('chanerr');
return;
}
# always send it down the local interface if available
my $dxchan = DXChannel->get($call);
unless ($dxchan) {
- my $cl = DXCluster->get_exact($call);
+ my $cl = Route::get($call);
$dxchan = $cl->dxchan if $cl;
if (ref $dxchan) {
if (ref $self && $dxchan eq $self) {
- dbg('chan', "PCPROT: Trying to route back to source, dropped");
+ dbg("PCPROT: Trying to route back to source, dropped") if isdbg('chanerr');
return;
}
}
if ($dxchan) {
my $routeit = adjust_hops($dxchan, $line); # adjust its hop count by node name
if ($routeit) {
- $dxchan->send($routeit);
+ $dxchan->send($routeit) unless $dxchan == $me;
}
} else {
- dbg('chan', "PCPROT: No route available, dropped");
+ dbg("PCPROT: No route available, dropped") if isdbg('chanerr');
}
}
($filter) = $dxchan->{spotsfilter}->it(@{$fref}) if ref $fref;
next unless $filter;
}
- next if $sort eq 'ann' && !$dxchan->{ann};
+ next if $sort eq 'ann' && !$dxchan->{ann} && $s !~ /^To\s+LOCAL\s+de\s+(?:$main::myalias|$main::mycall)/i;
next if $sort eq 'wwv' && !$dxchan->{wwv};
next if $sort eq 'wcy' && !$dxchan->{wcy};
next if $sort eq 'wx' && !$dxchan->{wx};
$r->{t} = $main::systime;
$r->{cmd} = $cmd;
$rcmds{$to} = $r;
-
- my $ref = DXCluster->get_exact($to);
- if ($ref && $ref->dxchan && $ref->dxchan->is_clx) {
+
+ my $ref = Route::Node::get($to);
+ my $dxchan = $ref->dxchan;
+ if ($dxchan && $dxchan->is_clx) {
route(undef, $to, pc84($main::mycall, $to, $self->{call}, $cmd));
} else {
route(undef, $to, pc34($main::mycall, $to, $cmd));
}
# do routing stuff
- my $pref = Route::Node::get($self->{call});
- my @rout = $pref->del_nodes if $pref;
- push @rout, $main::routeroot->del_node($call);
- dbg('route', "B/C PC21 (from PC39) for: " . join(',', (map{ $_->call } @rout))) if @rout;
+ my $node = Route::Node::get($call);
+ my @rout;
+ if ($node) {
+ @rout = $node->del_nodes; # at the next level
+ @rout = $node->del($main::routeroot);
+ }
# unbusy and stop and outgoing mail
my $mref = DXMsg::get_busy($call);
$mref->stop_msg($call) if $mref;
- # create a list of all the nodes that have gone and delete them from the table
- my @nodes;
- foreach my $node (grep { $_->dxchancall eq $call } DXNode::get_all) {
- next if $node->call eq $call;
- next if $node->call eq $main::mycall;
- push @nodes, $node->call;
- $node->del;
- }
-
# broadcast to all other nodes that all the nodes connected to via me are gone
unless ($pc39flag && $pc39flag == 2) {
- unless ($self->{isolate}) {
- push @nodes, $call;
- for (@nodes) {
- broadcast_ak1a(pc21($_, 'Gone.'), $self);
- }
- }
+ $self->route_pc21(@rout) if @rout;
}
- # remove this node from the tables
- my $node = DXCluster->get_exact($call);
- $node->del if $node;
-
# remove outstanding pings
delete $pings{$call};
$self->send(DXProt::pc10($from, $to, $via, $line));
Log('talk', $self->call, $from, $via?$via:$main::mycall, $line);
}
+
+# send it if it isn't the except list and isn't isolated and still has a hop count
+# taking into account filtering and so on
+sub send_route
+{
+ my $self = shift;
+ my $generate = shift;
+ my $no = shift; # the no of things to filter on
+ my $routeit;
+ my ($filter, $hops);
+ my @rin;
+
+ for (; @_ && $no; $no--) {
+ my $r = shift;
+
+ if ($self->{routefilter}) {
+ $filter = undef;
+ if ($r) {
+ ($filter, $hops) = $self->{routefilter}->it($self->{call}, $self->{dxcc}, $self->{itu}, $self->{cq}, $r->call, $r->dxcc, $r->itu, $r->cq);
+ if ($filter) {
+ push @rin, $r;
+ } else {
+ dbg("DXPROT: $self->{call}/" . $r->call . " rejected by output filter") if isdbg('chanerr');
+ }
+ } else {
+ dbg("was sent a null value") if isdbg('chanerr');
+ }
+ } else {
+ push @rin, $r;
+ }
+ }
+ if (@rin) {
+ foreach my $line (&$generate(@rin, @_)) {
+ if ($hops) {
+ $routeit = $line;
+ $routeit =~ s/\^H\d+\^\~$/\^H$hops\^\~/;
+ } else {
+ $routeit = adjust_hops($self, $line); # adjust its hop count by node name
+ next unless $routeit;
+ }
+ $self->send($routeit) if $self->{routefilter} || !$self->{isolate};
+ }
+ }
+}
+
+sub broadcast_route
+{
+ my $self = shift;
+ my $generate = shift;
+ my @dxchan = DXChannel::get_all_nodes();
+ my $dxchan;
+ my $line;
+
+ foreach $dxchan (@dxchan) {
+ next if $dxchan == $self;
+ next if $dxchan == $me;
+ if ($dxchan->{routefilter} || !$self->{isolate}) {
+ $dxchan->send_route($generate, @_)
+ } else {
+ dbg('DXPROT: isolated') if isdbg('chanerr');
+ }
+ }
+}
+
+sub route_pc16
+{
+ my $self = shift;
+ broadcast_route($self, \&pc16, 1, @_);
+}
+
+sub route_pc17
+{
+ my $self = shift;
+ broadcast_route($self, \&pc17, 1, @_);
+}
+
+sub route_pc19
+{
+ my $self = shift;
+ broadcast_route($self, \&pc19, scalar @_, @_);
+}
+
+sub route_pc21
+{
+ my $self = shift;
+ broadcast_route($self, \&pc21, scalar @_, @_);
+}
+
+sub route_pc24
+{
+ my $self = shift;
+ broadcast_route($self, \&pc24, 1, @_);
+}
+
+sub route_pc41
+{
+ my $self = shift;
+ broadcast_route($self, \&pc41, 1, @_);
+}
+
+sub route_pc50
+{
+ my $self = shift;
+ broadcast_route($self, \&pc50, 1, @_);
+}
+
+sub in_filter_route
+{
+ my $self = shift;
+ my $r = shift;
+ my ($filter, $hops) = (1, 1);
+
+ if ($self->{inroutefilter}) {
+ ($filter, $hops) = $self->{inroutefilter}->it($self->{call}, $self->{dxcc}, $self->{itu}, $self->{cq}, $r->call, $r->dxcc, $r->itu, $r->cq);
+ dbg("PCPROT: $self->{call}/" . $r->call . ' rejected by in_filter_route') if !$filter && isdbg('chanerr');
+ }
+ return $filter;
+}
+
+sub eph_dup
+{
+ my $s = shift;
+
+ # chop the end off
+ $s =~ s/\^H\d\d?\^?~?$//;
+ return 1 if exists $eph{$s};
+ $eph{$s} = $main::systime;
+ return undef;
+}
+
+sub eph_clean
+{
+ my ($key, $val);
+
+ while (($key, $val) = each %eph) {
+ if ($main::systime - $val > 90) {
+ delete $eph{$key};
+ }
+ }
+}
+
1;
__END__
#
# add one or more users (I am expecting references that have 'call',
-# 'confmode' & 'here' method)
+# 'conf' & 'here' method)
#
# this will create a list of PC16 with up pc16_max_users in each
# called $self->pc16(..)
#
sub pc16
{
- my $self = shift;
+ my $node = shift;
+ my $ncall = $node->call;
my @out;
- my $i;
- for ($i = 0; @_; ) {
- my $str = "PC16^$self->{call}";
- for ( ; @_ && length $str < 200; $i++) {
+ while (@_) {
+ my $str = "PC16^$ncall";
+ for ( ; @_ && length $str < 200; ) {
my $ref = shift;
- $str .= sprintf "^%s %s %d", $ref->call, $ref->confmode ? '*' : '-', $ref->here;
+ $str .= sprintf "^%s %s %d", $ref->call, $ref->conf ? '*' : '-', $ref->here;
}
$str .= sprintf "^%s^", get_hops(16);
push @out, $str;
- $i = 0;
}
- return (@out);
+ return @out;
}
# remove a local user
sub pc17
{
- my ($self, $ref) = @_;
- my $hops = get_hops(17);
- return "PC17^$ref->{call}^$self->{call}^$hops^";
+ my @out;
+ while (@_) {
+ my $node = shift;
+ my $ref = shift;
+ my $hops = get_hops(17);
+ my $ncall = $node->call;
+ my $ucall = $ref->call;
+ push @out, "PC17^$ucall^$ncall^$hops^";
+ }
+ return @out;
}
# Request init string
#
sub pc19
{
- my $self = shift;
my @out;
- my $i;
-
- for ($i = 0; @_; ) {
+ while(@_) {
my $str = "PC19";
- for (; @_ && length $str < 200; $i++) {
+ for (; @_ && length $str < 200;) {
my $ref = shift;
- my $here = $ref->{here} ? '1' : '0';
- my $confmode = $ref->{confmode} ? '1' : '0';
- $str .= "^$here^$ref->{call}^$confmode^$ref->{pcversion}";
+ my $call = $ref->call;
+ my $here = $ref->here;
+ my $conf = $ref->conf;
+ my $version = $ref->version;
+ $str .= "^$here^$call^$conf^$version";
}
$str .= sprintf "^%s^", get_hops(19);
push @out, $str;
- $i = 0;
}
return @out;
}
# delete a node
sub pc21
{
- my ($call, $reason) = @_;
- my $hops = get_hops(21);
- $reason = "Gone." if !$reason;
- return "PC21^$call^$reason^$hops^";
+ my @out;
+ while (@_) {
+ my $node = shift;
+ my $hops = get_hops(21);
+ my $call = $node->call;
+ push @out, "PC21^$call^Gone^$hops^";
+ }
+ return @out;
}
# end of init phase
my $self = shift;
my $call = $self->call;
my $flag = $self->here ? '1' : '0';
- my $hops = get_hops(24);
+ my $hops = shift || get_hops(24);
return "PC24^$call^$flag^$hops^";
}
my $time = ztime($t);
$private = $private ? '1' : '0';
$rr = $rr ? '1' : '0';
+ $subject ||= ' ';
return "PC28^$tonode^$fromnode^$to^$from^$date^$time^$private^$subject^ ^5^$rr^ ^$origin^~";
}
# send all the DX clusters I reckon are connected
sub pc38
{
- my @nodes = map { ($_->dxchan && $_->dxchan->isolate) ? () : $_->call } DXNode->get_all();
- return "PC38^" . join(',', @nodes) . "^~";
+ return join '^', "PC38", map {$_->call} Route::Node::get_all();
}
# tell the local node to discconnect
# user info
sub pc41
{
- my ($call, $sort, $info) = @_;
- my $hops = get_hops(41);
- $sort = $sort ? "$sort" : '0';
+ my $call = shift;
+ $call = shift if ref $call;
+
+ my $sort = shift || '0';
+ my $info = shift || ' ';
+ my $hops = shift || get_hops(41);
return "PC41^$call^$sort^$info^$hops^~";
}
# periodic update of users, plus keep link alive device (always H99)
sub pc50
{
- my $n = shift;
- $n = 0 unless $n >= 0;
- return "PC50^$main::mycall^$n^H99^";
+ my $self = shift;
+ my $call = $self->call;
+ my $n = shift || '0';
+ my $hops = shift || 'H99';
+ return "PC50^$call^$n^$hops^";
}
# generate pings
pingint => '9,Node Ping interval',
nopings => '9,Ping Obs Count',
wantlogininfo => '9,Login info req,yesno',
- wantgrid => '0,DX Grid Info,yesno',
+ wantgrid => '0,DX Grid Info,yesno',
lastoper => '9,Last for/oper,cldatetime',
+ nothere => '0,Not Here Text',
);
no strict;
my $ref;
eval '$ref = ' . $s;
if ($@) {
- dbg('err', $@) if $@;
- Log('err', $@) if $@;
+ dbg($@);
+ Log('err', $@);
$ref = undef;
}
return $ref;
my $sock = $conn->{sock};
return unless defined($sock);
push (@{$conn->{outqueue}}, $msg);
- dbg('connect', "connect $conn->{cnum}: $msg") unless $conn->{state} eq 'C';
+ dbg("connect $conn->{cnum}: $msg") if $conn->{state} ne 'C' && isdbg('connect');
Msg::set_event_handler ($sock, "write" => sub {$conn->_send(0)});
}
if ($conn->{state} eq 'WC') {
if (exists $conn->{cmd}) {
if (@{$conn->{cmd}}) {
- dbg('connect', "connect $conn->{cnum}: $conn->{msg}");
+ dbg("connect $conn->{cnum}: $conn->{msg}") if isdbg('connect');
$conn->_docmd($conn->{msg});
}
}
$conn->{msg} = pop @lines;
}
while (defined ($msg = shift @lines)) {
- dbg('connect', "connect $conn->{cnum}: $msg") unless $conn->{state} eq 'C';
+ dbg("connect $conn->{cnum}: $msg") if $conn->{state} ne 'C' && isdbg('connect');
$msg =~ s/\xff\xfa.*\xff\xf0|\xff[\xf0-\xfe].//g; # remove telnet options
$msg =~ s/[\x00-\x08\x0a-\x19\x1b-\x1f\x80-\x9f]/./g; # immutable CSI sequence + control characters
$conn->{timeout}->del if $conn->{timeout};
delete $conn->{timeout};
&{$conn->{rproc}}($conn, "$dir$call|$sort");
- $conn->_send_file("$main::data/connected");
+ $conn->_send_file("$main::data/connected") unless $conn->{outgoing};
}
sub new_client {
$conn->{blocking} = 0;
eval {$conn->{peerhost} = $sock->peerhost};
if ($@) {
- dbg('conn', $@);
+ dbg($@) if isdbg('connll');
$conn->disconnect;
} else {
eval {$conn->{peerport} = $sock->peerport};
$conn->{peerport} = 0 if $@;
my ($rproc, $eproc) = &{$server_conn->{rproc}} ($conn, $conn->{peerhost}, $conn->{peerport});
- dbg('connll', "accept $conn->{cnum} from $conn->{peerhost} $conn->{peerport}");
+ dbg("accept $conn->{cnum} from $conn->{peerhost} $conn->{peerport}") if isdbg('connll');
if ($eproc) {
$conn->{eproc} = $eproc;
Msg::set_event_handler ($sock, "error" => $eproc);
}
}
} else {
- dbg('err', "ExtMsg: error on accept ($!)");
+ dbg("ExtMsg: error on accept ($!)") if isdbg('err');
}
}
my $call = shift;
my $fn = shift;
my $conn = ExtMsg->new(\&main::new_channel);
+ $conn->{outgoing} = 1;
$conn->conns($call);
my $f = new IO::File $fn;
my $r;
$sort = lc $sort;
- dbg('connect', "CONNECT $conn->{cnum} sort: $sort command: $line");
+ dbg("CONNECT $conn->{cnum} sort: $sort command: $line") if isdbg('connect');
if ($sort eq 'telnet') {
# this is a straight network connect
my ($host, $port) = split /\s+/, $line;
$port = 23 if !$port;
$r = $conn->connect($host, $port);
if ($r) {
- dbg('connect', "Connected $conn->{cnum} to $host $port");
+ dbg("Connected $conn->{cnum} to $host $port") if isdbg('connect');
} else {
- dbg('connect', "***Connect $conn->{cnum} Failed to $host $port $!");
+ dbg("***Connect $conn->{cnum} Failed to $host $port $!") if isdbg('connect');
}
} elsif ($sort eq 'agw') {
# turn it into an AGW object
my $callback = sub {$conn->_rcv};
Msg::set_event_handler ($a, read => $callback);
}
- dbg('connect', "connect $conn->{cnum}: started pid: $conn->{pid} as $line");
+ dbg("connect $conn->{cnum}: started pid: $conn->{pid} as $line") if isdbg('connect');
} else {
$^W = 0;
dbgclose();
$SIG{HUP} = $SIG{CHLD} = $SIG{TERM} = $SIG{INT} = 'DEFAULT';
alarm(0);
}
- exec "$line" or dbg('err', "exec '$line' failed $!");
+ exec "$line" or dbg("exec '$line' failed $!");
}
} else {
- dbg('err', "cannot fork");
+ dbg("cannot fork");
$r = undef;
}
} else {
- dbg('err', "no socket pair $!");
+ dbg("no socket pair $!");
}
} else {
- dbg('err', "invalid type of connection ($sort)");
+ dbg("invalid type of connection ($sort)");
}
$conn->disconnect unless $r;
return $r;
{
my $conn = shift;
my $string = shift;
- dbg('connect', "connect $conn->{cnum}: abort $string");
+ dbg("connect $conn->{cnum}: abort $string") if isdbg('connect');
$conn->{abort} = $string;
}
{
my $conn = shift;
my $val = shift;
- dbg('connect', "connect $conn->{cnum}: timeout set to $val");
+ dbg("connect $conn->{cnum}: timeout set to $val") if isdbg('connect');
$conn->{timeout}->del if $conn->{timeout};
$conn->{timeval} = $val;
$conn->{timeout} = Timer->new($val, sub{ &_timedout($conn) });
{
my $conn = shift;
my $val = shift;
- dbg('connect', "connect $conn->{cnum}: lineend set to $val ");
+ dbg("connect $conn->{cnum}: lineend set to $val ") if isdbg('connect');
$val =~ s/\\r/\r/g;
$val =~ s/\\n/\n/g;
$conn->{lineend} = $val;
if ($line) {
my ($expect, $send) = $cmd =~ /^\s*\'(.*)\'\s+\'(.*)\'/;
if ($expect) {
- dbg('connect', "connect $conn->{cnum}: expecting: \"$expect\" received: \"$line\"");
+ dbg("connect $conn->{cnum}: expecting: \"$expect\" received: \"$line\"") if isdbg('connect');
if ($conn->{abort} && $line =~ /\Q$conn->{abort}/i) {
- dbg('connect', "connect $conn->{cnum}: aborted on /$conn->{abort}/");
+ dbg("connect $conn->{cnum}: aborted on /$conn->{abort}/") if isdbg('connect');
$conn->disconnect;
delete $conn->{cmd};
return;
}
if ($line =~ /\Q$expect/i) {
if (length $send) {
- dbg('connect', "connect $conn->{cnum}: got: \"$expect\" sending: \"$send\"");
+ dbg("connect $conn->{cnum}: got: \"$expect\" sending: \"$send\"") if isdbg('connect');
$conn->send_later("D$conn->{call}|$send");
}
delete $conn->{msg}; # get rid any input if a match
sub _timedout
{
my $conn = shift;
- dbg('connect', "connect $conn->{cnum}: timed out after $conn->{timeval} seconds");
+ dbg("connect $conn->{cnum}: timed out after $conn->{timeval} seconds") if isdbg('connect');
$conn->disconnect;
}
while (<$f>) {
chomp;
my $l = $_;
- dbg('connll', "connect $conn->{cnum}: $l");
+ dbg("connect $conn->{cnum}: $l") if isdbg('connll');
$conn->send_raw($l . $conn->{lineend});
}
$f->close;
if ($@) {
my $sort = $ref->{sort};
my $name = $ref->{name};
- dbg('err', "Error compiling $ar $sort $name: $@");
+ dbg("Error compiling $ar $sort $name: $@");
Log('err', "Error compiling $ar $sort $name: $@");
}
$rr = $@;
$in = undef;
my $s = readfilestr($fn);
my $newin = eval $s;
- dbg('conn', "$@") if $@;
+ dbg($@) if $@;
if ($in) {
$newin = new('Filter::Old', $sort, $call, $flag);
$newin->{filter} = $in;
my $filter;
my @keys = sort $self->getfilkeys;
my $key;
+ my $type = 'Dunno';
+ my $asc = '?';
+
my $r = @keys > 0 ? 0 : 1;
foreach $key (@keys) {
$filter = $self->{$key};
if ($filter->{reject} && exists $filter->{reject}->{code}) {
+ $type = 'reject';
+ $asc = $filter->{reject}->{user};
if (&{$filter->{reject}->{code}}(\@_)) {
$r = 0;
last;
}
}
if ($filter->{accept} && exists $filter->{accept}->{code}) {
+ $type = 'accept';
+ $asc = $filter->{accept}->{user};
if (&{$filter->{accept}->{code}}(\@_)) {
$r = 1;
last;
# hops are done differently (simply)
my $hops = $self->{hops} if exists $self->{hops};
+ if (isdbg('filter')) {
+ my $args = join '\',\'', @_;
+ my $true = $r ? "OK " : "REJ";
+ my $sort = $self->{sort};
+ my $dir = $self->{name} =~ /^in_/i ? "IN " : "OUT";
+
+ my $h = $hops || '';
+ dbg("$true $dir: $type/$sort with $asc on '$args' $h") if isdbg('filter');
+ }
return ($r, $hops);
}
my $remove = shift;
my $name = uc $self->{name};
my $sort = $self->{sort};
- my $in = "in" if $name =~ s/^IN_//;
+ my $in = "";
+ $in = "in" if $name =~ s/^IN_//;
$name =~ s/.PL$//;
my $dxchan = DXChannel->get($name);
$qrz_pw = undef;
+#
+# the address of any HTTP proxy you might be using
+#
+# leave as is unless you need one
+#
+# eg: $http_proxy = 'wwwcache.demon.co.uk';
+#
+
+$http_proxy = undef;
+
+#
+# HTTP proxy port - again leave alone unless you need this
+#
+# eg: $http_proxy_port = 8080;
+#
+
+$http_proxy_port = undef;
+
+
#
# end
#
nodeu => '$_[0] set back as a User',
nodee1 => 'You cannot use this command whilst your target ($_[0]) is on-line',
notdone => 'NOT Done',
+ nothere => 'Sorry, but $_[0] isn\'t here at the moment, please try later',
obscount => 'Ping obsolescence count on $_[0] set to $_[1]',
ok => 'Operation successful',
outconn => 'Outstanding connect to $_[0]',
$noconns++;
- dbg('connll', "Connection created ($noconns)");
+ dbg("Connection created ($noconns)") if isdbg('connll');
return bless $conn, $class;
}
if (ref $pkg) {
$call = $pkg->{call} unless $call;
return undef unless $call;
- dbg('connll', "changing $pkg->{call} to $call") if exists $pkg->{call} && $call ne $pkg->{call};
+ dbg("changing $pkg->{call} to $call") if isdbg('connll') && exists $pkg->{call} && $call ne $pkg->{call};
delete $conns{$pkg->{call}} if exists $pkg->{call} && exists $conns{$pkg->{call}} && $pkg->{call} ne $call;
$pkg->{call} = $call;
$ref = $conns{$call} = $pkg;
- dbg('connll', "Connection $pkg->{cnum} $call stored");
+ dbg("Connection $pkg->{cnum} $call stored") if isdbg('connll');
} else {
$ref = $conns{$call};
}
delete $conns{$call} if $ref && $ref == $conn;
}
$call ||= 'unallocated';
- dbg('connll', "Connection $conn->{cnum} $call disconnected");
+ dbg("Connection $conn->{cnum} $call disconnected") if isdbg('connll');
unless ($main::is_win) {
kill 'TERM', $conn->{pid} if exists $conn->{pid};
$conn->disconnect();
}
} else {
- dbg('err', "Msg: error on accept ($!)");
+ dbg("Msg: error on accept ($!)") if isdbg('err');
}
}
my $call = $conn->{call} || 'unallocated';
my $host = $conn->{peerhost} || '';
my $port = $conn->{peerport} || '';
- dbg('connll', "Connection $conn->{cnum} $call [$host $port] being destroyed");
+ dbg("Connection $conn->{cnum} $call [$host $port] being destroyed") if isdbg('connll');
$noconns--;
}
package Route;
use DXDebug;
+use DXChannel;
+use Prefix;
use strict;
-use vars qw(%list %valid);
+use vars qw(%list %valid $filterdef);
%valid = (
call => "0,Callsign",
flags => "0,Flags,phex",
+ dxcc => '0,Country Code',
+ itu => '0,ITU Zone',
+ cq => '0,CQ Zone',
);
+$filterdef = bless ([
+ # tag, sort, field, priv, special parser
+ ['channel', 'c', 0],
+ ['channel_dxcc', 'n', 1],
+ ['channel_itu', 'n', 2],
+ ['channel_zone', 'n', 3],
+ ['call', 'c', 4],
+ ['call_dxcc', 'n', 5],
+ ['call_itu', 'n', 6],
+ ['call_zone', 'n', 7],
+ ], 'Filter::Cmd');
+
+
sub new
{
my ($pkg, $call) = @_;
+ $pkg = ref $pkg if ref $pkg;
- dbg('routelow', "create " . (ref($pkg) || $pkg) ." with $call");
+ my $self = bless {call => $call}, $pkg;
+ dbg("create $pkg with $call") if isdbg('routelow');
+
+ # add in all the dxcc, itu, zone info
+ my @dxcc = Prefix::extract($call);
+ if (@dxcc > 0) {
+ $self->{dxcc} = $dxcc[1]->dxcc;
+ $self->{itu} = $dxcc[1]->itu;
+ $self->{cq} = $dxcc[1]->cq;
+ }
+ $self->{flags} = here(1);
- return bless {call => $call}, (ref $pkg || $pkg);
+ return $self;
}
#
my $call = _getcall($c);
unless (grep {$_ eq $call} @{$self->{$field}}) {
push @{$self->{$field}}, $call;
- dbg('routelow', ref($self) . " adding $call to " . $self->{call} . "->\{$field\}");
+ dbg(ref($self) . " adding $call to " . $self->{call} . "->\{$field\}") if isdbg('routelow');
}
}
return $self->{$field};
my $call = _getcall($c);
if (grep {$_ eq $call} @{$self->{$field}}) {
$self->{$field} = [ grep {$_ ne $call} @{$self->{$field}} ];
- dbg('routelow', ref($self) . " deleting $call from " . $self->{call} . "->\{$field\}");
+ dbg(ref($self) . " deleting $call from " . $self->{call} . "->\{$field\}") if isdbg('routelow');
}
}
return $self->{$field};
#
# flag field constructors/enquirers
#
+# These can be called in various ways:-
+#
+# Route::here or $ref->here returns 1 or 0 depending on value of the here flag
+# Route::here(1) returns 2 (the bit value of the here flag)
+# $ref->here(1) or $ref->here(0) sets the here flag
+#
sub here
{
my $self = shift;
my $r = shift;
return $self ? 2 : 0 unless ref $self;
- return $self->{flags} & 2 unless $r;
+ return ($self->{flags} & 2) ? 1 : 0 unless defined $r;
$self->{flags} = (($self->{flags} & ~2) | ($r ? 2 : 0));
- return $r;
+ return $r ? 1 : 0;
}
sub conf
my $self = shift;
my $r = shift;
return $self ? 1 : 0 unless ref $self;
- return $self->{flags} & 1 unless $r;
+ return ($self->{flags} & 1) ? 1 : 0 unless defined $r;
$self->{flags} = (($self->{flags} & ~1) | ($r ? 1 : 0));
- return $r;
+ return $r ? 1 : 0;
+}
+
+sub parents
+{
+ my $self = shift;
+ return @{$self->{parent}};
}
#
my $self = shift;
my $nodes_only = shift;
my $level = shift;
+ my $seen = shift;
my @out;
my $line;
my $call = $self->user_call;
if ($printit) {
$line = ' ' x ($level*2) . "$call";
$call = ' ' x length $call;
+
+ # recursion detector
+ if ((DXChannel->get($self->{call}) && $level > 1) || grep $self->{call} eq $_, @$seen) {
+ $line .= ' ...';
+ push @out, $line;
+ return @out;
+ }
+ push @$seen, $self->{call};
+
+ # print users
unless ($nodes_only) {
if (@{$self->{users}}) {
$line .= '->';
} else {
$line =~ s/\s+$//;
push @out, $line;
- $line = ' ' x ($level*2) . "$call->";
+ $line = ' ' x ($level*2) . "$call->$c ";
}
}
}
push @out, $line if length $line;
}
+ # deal with more nodes
foreach my $ncall (sort @{$self->{nodes}}) {
my $nref = Route::Node::get($ncall);
if ($nref) {
my $c = $nref->user_call;
- push @out, $nref->config($nodes_only, $level+1, @_);
+# dbg("recursing from $call -> $c") if isdbg('routec');
+ push @out, $nref->config($nodes_only, $level+1, $seen, @_);
} else {
push @out, ' ' x (($level+1)*2) . "$ncall?" if @_ == 0 || (@_ && grep $ncall =~ m|$_|, @_);
}
return @out;
}
+sub cluster
+{
+ my $nodes = Route::Node::count();
+ my $tot = Route::User::count();
+ my $users = scalar DXCommandmode::get_all();
+ my $maxusers = Route::User::max();
+ my $uptime = main::uptime();
+
+ return " $nodes nodes, $users local / $tot total users Max users $maxusers Uptime $uptime";
+}
+
#
# routing things
#
+sub get
+{
+ my $call = shift;
+ return Route::Node::get($call) || Route::User::get($call);
+}
+
+# find all the possible dxchannels which this object might be on
+sub alldxchan
+{
+ my $self = shift;
+ my @dxchan;
+# dbg("Trying node $self->{call}") if isdbg('routech');
+ my $dxchan = DXChannel->get($self->{call});
+ push @dxchan, $dxchan if $dxchan;
+
+ # it isn't, build up a list of dxchannels and possible ping times
+ # for all the candidates.
+ unless (@dxchan) {
+ foreach my $p (@{$self->{parent}}) {
+# dbg("Trying parent $p") if isdbg('routech');
+ next if $p eq $main::mycall; # the root
+ my $dxchan = DXChannel->get($p);
+ if ($dxchan) {
+ push @dxchan, $dxchan unless grep $dxchan == $_, @dxchan;
+ } else {
+ next if grep $p eq $_, @_;
+ my $ref = Route::Node::get($p);
+# dbg("Next node $p " . ($ref ? 'Found' : 'NOT Found') if isdbg('routech') );
+ push @dxchan, $ref->alldxchan($self->{call}, @_) if $ref;
+ }
+ }
+ }
+# dbg('routech', "Got dxchan: " . join(',', (map{ $_->call } @dxchan)) );
+ return @dxchan;
+}
+
+sub dxchan
+{
+ my $self = shift;
+ my @dxchan = $self->alldxchan;
+ return undef unless @dxchan;
+
+ # determine the minimum ping channel
+ my $minping = 99999999;
+ my $dxchan;
+ foreach my $dxc (@dxchan) {
+ my $p = $dxc->pingave;
+ if (defined $p && $p < $minping) {
+ $minping = $p;
+ $dxchan = $dxc;
+ }
+ }
+ $dxchan = shift @dxchan unless $dxchan;
+ return $dxchan;
+}
#
# track destruction
my $self = shift;
my $pkg = ref $self;
- dbg('routelow', "$pkg $self->{call} destroyed");
+ dbg("$pkg $self->{call} destroyed") if isdbg('routelow');
}
no strict;
use strict;
-use vars qw(%list %valid @ISA $max);
+use vars qw(%list %valid @ISA $max $filterdef);
@ISA = qw(Route);
%valid = (
parent => '0,Parent Calls,parray',
nodes => '0,Nodes,parray',
users => '0,Users,parray',
+ usercount => '0,User Count',
version => '0,Version',
);
+$filterdef = $Route::filterdef;
%list = ();
$max = 0;
sub count
{
- my $n = scalar %list;
+ my $n = scalar (keys %list);
$max = $n if $n > $max;
return $n;
}
{
my $parent = shift;
my $call = uc shift;
+ confess "Route::add trying to add $call to myself" if $call eq $parent->{call};
my $self = get($call);
if ($self) {
$self->_addparent($parent->{call});
+ $parent->_addnode($call);
return undef;
}
$parent->_addnode($call);
# delete parent from this call's parent list
my $pcall = $pref->{call};
+ my $ncall = $self->{call};
+ $pref->_delnode($ncall);;
my $ref = $self->_delparent($pcall);
my @nodes;
- # is this the last connection?
- $self->_del_users;
+ # is this the last connection, I have no parents anymore?
unless (@$ref) {
- push @nodes, $self->del_nodes;
+ foreach my $rcall (@{$self->{nodes}}) {
+ next if grep $rcall eq $_, @_;
+ my $r = Route::Node::get($rcall);
+ push @nodes, $r->del($self, $ncall, @_) if $r;
+ }
+ $self->_del_users;
delete $list{$self->{call}};
+ push @nodes, $self;
}
- push @nodes, $self;
return @nodes;
}
+sub del_nodes
+{
+ my $parent = shift;
+ my @out;
+ foreach my $rcall (@{$parent->{nodes}}) {
+ my $r = get($rcall);
+ push @out, $r->del($parent, $parent->{call}, @_) if $r;
+ }
+ return @out;
+}
sub _del_users
{
$self->{users} = [];
}
-# remove all sub nodes from this parent
-sub del_nodes
-{
- my $self = shift;
- my @nodes;
-
- for (@{$self->{nodes}}) {
- next if $self->{call} eq $_;
- push @nodes, $self->del_node($_);
- }
- return @nodes;
-}
-
# add a user to this node
sub add_user
{
my $self = shift;
my $ucall = shift;
+
+ confess "Trying to add NULL User call to routing tables" unless $ucall;
+
$self->_adduser($ucall);
-
+
+ $self->{usercount} = scalar @{$self->{users}};
my $uref = Route::User::get($ucall);
- return $uref ? () : (Route::User->new($ucall, $self->{call}, @_));
+ my @out;
+ if ($uref) {
+ $uref->addparent($self->{call});
+ } else {
+ @out = Route::User->new($ucall, $self->{call}, @_);
+ }
+ return @out;
}
# delete a user from this node
my $ucall = shift;
my $ref = Route::User::get($ucall);
$self->_deluser($ucall);
- return ($ref->del($self)) if $ref;
- return ();
+ my @out = $ref->del($self) if $ref;
+ return @out;
}
-# delete a node from this node (ie I am a parent)
-sub del_node
+sub usercount
{
my $self = shift;
- my $ncall = shift;
- $self->_delnode($ncall);
- my $ref = get($ncall);
- return ($ref->del($self)) if $ref;
- return ();
+ if (@_ && @{$self->{users}} == 0) {
+ $self->{usercount} = shift;
+ }
+ return $self->{usercount};
+}
+
+sub users
+{
+ my $self = shift;
+ return @{$self->{users}};
+}
+
+sub nodes
+{
+ my $self = shift;
+ return @{$self->{nodes}};
}
+sub rnodes
+{
+ my $self = shift;
+ my @out;
+ foreach my $call (@{$self->{nodes}}) {
+ next if grep $call eq $_, @_;
+ push @out, $call;
+ my $r = get($call);
+ push @out, $r->rnodes($call, @_) if $r;
+ }
+ return @out;
+}
+
+
sub new
{
my $pkg = shift;
{
my $call = shift;
$call = shift if ref $call;
- return $list{uc $call};
+ my $ref = $list{uc $call};
+ dbg("Failed to get Node $call" ) if !$ref && isdbg('routerr');
+ return $ref;
+}
+
+sub get_all
+{
+ return values %list;
}
sub _addparent
my $pkg = ref $self;
my $call = $self->{call} || "Unknown";
- dbg('route', "destroying $pkg with $call");
+ dbg("destroying $pkg with $call") if isdbg('routelow');
}
#
use strict;
-use vars qw(%list %valid @ISA $max);
+use vars qw(%list %valid @ISA $max $filterdef);
@ISA = qw(Route);
%valid = (
parent => '0,Parent Calls,parray',
);
+$filterdef = $Route::filterdef;
%list = ();
$max = 0;
sub count
{
- my $n = scalar %list;
+ my $n = scalar(keys %list);
$max = $n if $n > $max;
return $n;
}
my $pref = shift;
my $ref = $self->delparent($pref->{call});
return () if @$ref;
- delete $list{$self->{call}};
- return ($ref);
+ my @out = delete $list{$self->{call}};
+ return @out;
}
sub get
{
my $call = shift;
$call = shift if ref $call;
- return $list{uc $call};
+ my $ref = $list{uc $call};
+ dbg("Failed to get User $call" ) if !$ref && isdbg('routerr');
+ return $ref;
}
sub addparent
use Julian;
use Prefix;
use DXDupe;
+use Data::Dumper;
use strict;
-use vars qw($fp $maxspots $defaultspots $maxdays $dirprefix $duplth $dupage $filterdef);
+use vars qw($fp $statp $maxspots $defaultspots $maxdays $dirprefix $duplth $dupage $filterdef);
$fp = undef;
+$statp = undef;
$maxspots = 50; # maximum spots to return
$defaultspots = 10; # normal number of spots to return
$maxdays = 100; # normal maximum no of days to go back
{
mkdir "$dirprefix", 0777 if !-e "$dirprefix";
$fp = DXLog::new($dirprefix, "dat", 'd');
+ $statp = DXLog::new($dirprefix, "bys", 'd');
}
sub prefix
$expr =~ s/\$f(\d)/\$ref->[$1]/g; # swap the letter n for the correct field name
# $expr =~ s/\$f(\d)/\$spots[$1]/g; # swap the letter n for the correct field name
- dbg("search", "hint='$hint', expr='$expr', spotno=$from-$to, day=$dayfrom-$dayto\n");
+ dbg("hint='$hint', expr='$expr', spotno=$from-$to, day=$dayfrom-$dayto\n") if isdbg('search');
# build up eval to execute
$eval = qq(
{
return DXDupe::listdups('X', $dupage, @_);
}
+
+sub genstats
+{
+ my @date = @_;
+ my $in = $fp->open(@date);
+ my $out = $statp->open(@date, 'w');
+ my @freq = (
+ [0, Bands::get_freq('160m')],
+ [1, Bands::get_freq('80m')],
+ [2, Bands::get_freq('40m')],
+ [3, Bands::get_freq('30m')],
+ [4, Bands::get_freq('20m')],
+ [5, Bands::get_freq('17m')],
+ [6, Bands::get_freq('15m')],
+ [7, Bands::get_freq('12m')],
+ [8, Bands::get_freq('10m')],
+ [9, Bands::get_freq('6m')],
+ [10, Bands::get_freq('4m')],
+ [11, Bands::get_freq('2m')],
+ [12, Bands::get_freq('70cm')],
+ [13, Bands::get_freq('13cm')],
+ [14, Bands::get_freq('9cm')],
+ [15, Bands::get_freq('6cm')],
+ [16, Bands::get_freq('3cm')],
+ [17, Bands::get_freq('12mm')],
+ [18, Bands::get_freq('6cm')],
+ );
+ my %list;
+ my @tot;
+
+ if ($in && $out) {
+ while (<$in>) {
+ chomp;
+ my ($freq, $by, $dxcc) = (split /\^/)[0,4,6];
+ my $ref = $list{$by} || [0, $dxcc];
+ for (@freq) {
+ if ($freq >= $_->[1] && $freq <= $_->[2]) {
+ $$ref[$_->[0]+2]++;
+ $tot[$_->[0]+2]++;
+ $$ref[0]++;
+ $tot[0]++;
+ $list{$by} = $ref;
+ last;
+ }
+ }
+ }
+
+ my $i;
+ for ($i = 0; $i < @freq+2; $i++) {
+ $tot[$i] ||= 0;
+ }
+ $out->write(join('^', 'TOTALS', @tot) . "\n");
+
+ for (sort {$list{$b}->[0] <=> $list{$a}->[0]} keys %list) {
+ my $ref = $list{$_};
+ my $call = $_;
+ for ($i = 0; $i < @freq+2; ++$i) {
+ $ref->[$i] ||= 0;
+ }
+ $out->write(join('^', $call, @$ref) . "\n");
+ }
+ $out->close;
+ }
+}
+
+# return true if the stat file is newer than than the spot file
+sub checkstats
+{
+ my @date = @_;
+ my $in = $fp->mtime(@date);
+ my $out = $statp->mtime(@date);
+ return defined $out && defined $in && $out >= $in;
+}
+
+# daily processing
+sub daily
+{
+ my @date = Julian::unixtoj($main::systime);
+ @date = Julian::sub(@date, 1);
+ genstats(@date) unless checkstats(@date);
+}
1;
$self->{interval} = $time if $recur;
push @timerchain, $self;
$notimers++;
- dbg('connll', "Timer created ($notimers)");
+ dbg("Timer created ($notimers)") if isdbg('connll');
return $self;
}
sub DESTROY
{
- dbg('connll', "timer destroyed ($Timer::notimers)");
+ dbg("timer destroyed ($Timer::notimers)") if isdbg('connll');
$Timer::notimers--;
}
1;
use DXProtout;
use DXProt;
use DXMsg;
-use DXCluster;
use DXCron;
use DXConnect;
use DXBearing;
my ($conn, $call, $mess) = @_;
$conn->disable_read(1);
- dbg('chan', "-> D $call $mess\n");
+ dbg("-> D $call $mess\n") if isdbg('chan');
$conn->send_now("D$call|$mess");
sleep(2);
$conn->disconnect;
return;
}
- # is there one already connected elsewhere in the cluster?
if ($user) {
- if (($user->is_node || $call eq $myalias) && !DXCluster->get_exact($call)) {
- ;
- } else {
- if (my $ref = DXCluster->get_exact($call)) {
- my $mess = DXM::msg($lang, 'concluster', $call, $ref->mynode->dxchancall);
- already_conn($conn, $call, $mess);
- return;
- }
- }
$user->{lang} = $main::lang if !$user->{lang}; # to autoupdate old systems
} else {
- if (my $ref = DXCluster->get_exact($call)) {
- my $mess = DXM::msg($lang, 'concluster', $call, $ref->mynode->dxchancall);
- already_conn($conn, $call, $mess);
- return;
- }
$user = DXUser->new($call);
}
eval {
Local::finish(); # end local processing
};
- dbg('local', "Local::finish error $@") if $@;
+ dbg("Local::finish error $@") if $@;
# disconnect nodes
foreach $dxchan (DXChannel->get_all_nodes) {
$l->close_server;
}
- dbg('chan', "DXSpider version $version, build $build ended");
+ dbg("DXSpider version $version, build $build ended") if isdbg('chan');
Log('cluster', "DXSpider V$version, build $build ended");
dbgclose();
Logclose();
{
my $cpid;
while (($cpid = waitpid(-1, WNOHANG)) > 0) {
- dbg('reap', "cpid: $cpid");
+ dbg("cpid: $cpid") if isdbg('reap');
# Msg->pid_gone($cpid);
$zombies-- if $zombies > 0;
}
- dbg('reap', "cpid: $cpid");
+ dbg("cpid: $cpid") if isdbg('reap');
}
# this is where the input queue is dealt with and things are dispatched off to other parts of
return unless defined $sort;
# do the really sexy console interface bit! (Who is going to do the TK interface then?)
- dbg('chan', "<- $sort $call $line\n") unless $sort eq 'D';
+ dbg("<- $sort $call $line\n") if $sort ne 'D' && isdbg('chan');
# handle A records
my $user = $dxchan->user;
$dxchan->disconnect;
} elsif ($sort eq 'D') {
; # ignored (an echo)
+ } elsif ($sort eq 'G') {
+ $dxchan->enhanced($line);
} else {
print STDERR atime, " Unknown command letter ($sort) received from $call\n";
}
$lang = 'en' unless $lang;
# open the debug file, set various FHs to be unbuffered
-dbginit();
+dbginit(\&DXCommandmode::broadcast_debug);
foreach (@debug) {
dbgadd($_);
}
push @fn, $1;
}
close CL;
+my $subbuild;
foreach my $fn (@fn) {
$fn =~ s|::|/|g;
open(CL, "$main::root/perl/${fn}.pm") or next;
while (<CL>) {
- if (/^#\s+\$Id:\s+[\w\._]+,v\s+(\d+\.\d+)/ ) {
+ if (/^#\s+\$Id:\s+[\w\._]+,v\s+(\d+\.\d+)\.?(\d+.\d+)?/ ) {
$build += $1;
+ $subbuild += $2 if $2;
last;
}
}
close CL;
}
+$build = "$build.$subbuild" if $subbuild;
Log('cluster', "DXSpider V$version, build $build started");
# banner
-dbg('err', "DXSpider Version $version, build $build started", "Copyright (c) 1998-2001 Dirk Koopman G1TLH");
+dbg("Copyright (c) 1998-2001 Dirk Koopman G1TLH");
+dbg("DXSpider Version $version, build $build started");
# load Prefixes
-dbg('err', "loading prefixes ...");
+dbg("loading prefixes ...");
Prefix::load();
# load band data
-dbg('err', "loading band data ...");
+dbg("loading band data ...");
Bands::load();
# initialise User file system
-dbg('err', "loading user file system ...");
+dbg("loading user file system ...");
DXUser->init($userfn, 1);
# start listening for incoming messages/connects
-dbg('err', "starting listeners ...");
+dbg("starting listeners ...");
my $conn = IntMsg->new_server($clusteraddr, $clusterport, \&login);
$conn->conns("Server $clusteraddr/$clusterport");
push @listeners, $conn;
-dbg('err', "Internal port: $clusteraddr $clusterport");
+dbg("Internal port: $clusteraddr $clusterport");
foreach my $l (@main::listen) {
$conn = ExtMsg->new_server($l->[0], $l->[1], \&login);
$conn->conns("Server $l->[0]/$l->[1]");
push @listeners, $conn;
- dbg('err', "External Port: $l->[0] $l->[1]");
+ dbg("External Port: $l->[0] $l->[1]");
}
AGWrestart();
# load bad words
-dbg('err', "load badwords: " . (BadWords::load or "Ok"));
+dbg("load badwords: " . (BadWords::load or "Ok"));
# prime some signals
unless ($DB::VERSION) {
$SIG{HUP} = 'IGNORE';
$SIG{CHLD} = sub { $zombies++ };
- $SIG{PIPE} = sub { dbg('err', "Broken PIPE signal received"); };
- $SIG{IO} = sub { dbg('err', "SIGIO received"); };
+ $SIG{PIPE} = sub { dbg("Broken PIPE signal received"); };
+ $SIG{IO} = sub { dbg("SIGIO received"); };
$SIG{WINCH} = $SIG{STOP} = $SIG{CONT} = 'IGNORE';
$SIG{KILL} = 'DEFAULT'; # as if it matters....
# catch the rest with a hopeful message
for (keys %SIG) {
if (!$SIG{$_}) {
- # dbg('chan', "Catching SIG $_");
+ # dbg("Catching SIG $_") if isdbg('chan');
$SIG{$_} = sub { my $sig = shift; DXDebug::confess("Caught signal $sig"); };
}
}
Spot->init();
# initialise the protocol engine
-dbg('err', "reading in duplicate spot and WWV info ...");
+dbg("reading in duplicate spot and WWV info ...");
DXProt->init();
# put in a DXCluster node for us here so we can add users and take them away
-DXNode->new($DXProt::me, $mycall, 0, 1, $DXProt::myprot_version);
-$routeroot = Route::Node->new($mycall, $version, Route::here($DXProt::me->here)|Route::conf($DXProt::me->confmode));
+$routeroot = Route::Node->new($mycall, $version*100+5300, Route::here($DXProt::me->here)|Route::conf($DXProt::me->conf));
+
+# make sure that there is a routing OUTPUT node default file
+#unless (Filter::read_in('route', 'node_default', 0)) {
+# my $dxcc = $DXProt::me->dxcc;
+# $Route::filterdef->cmd($DXProt::me, 'route', 'accept', "node_default call $mycall" );
+#}
# read in any existing message headers and clean out old crap
-dbg('err', "reading existing message headers ...");
+dbg("reading existing message headers ...");
DXMsg->init();
DXMsg::clean_old();
# read in any cron jobs
-dbg('err', "reading cron jobs ...");
+dbg("reading cron jobs ...");
DXCron->init();
# read in database descriptors
-dbg('err', "reading database descriptors ...");
+dbg("reading database descriptors ...");
DXDb::load();
# starting local stuff
-dbg('err', "doing local initialisation ...");
+dbg("doing local initialisation ...");
eval {
Local::init();
};
-dbg('local', "Local::init error $@") if $@;
+dbg("Local::init error $@") if $@;
# print various flags
-#dbg('err', "seful info - \$^D: $^D \$^W: $^W \$^S: $^S \$^P: $^P");
+#dbg("seful info - \$^D: $^D \$^W: $^W \$^S: $^S \$^P: $^P");
# this, such as it is, is the main loop!
-dbg('err', "orft we jolly well go ...");
+dbg("orft we jolly well go ...");
#open(DB::OUT, "|tee /tmp/aa");
eval {
Local::process(); # do any localised processing
};
- dbg('local', "Local::process error $@") if $@;
+ dbg("Local::process error $@") if $@;
}
if ($decease) {
last if --$decease <= 0;
sub doconnect
{
my ($sort, $line) = @_;
- dbg('connect', "CONNECT sort: $sort command: $line");
+ dbg("CONNECT sort: $sort command: $line") if isdbg('connect');
if ($sort eq 'net') {
# this is a straight network connect
my ($host) = $line =~ /host\s+(\w+)/o;
} elsif ($sort eq 'ax25') {
my @args = split /\s+/, $line;
$pid = open2(\*R, \*W, "$line") or die "can't do $line $!";
- dbg('connect', "got pid $pid");
+ dbg("got pid $pid") if isdbg('connect');
W->autoflush(1);
} else {
die "can't get here";
sub doabort
{
my $string = shift;
- dbg('connect', "abort $string");
+ dbg("abort $string") if isdbg('connect');
$abort = $string;
}
sub dotimeout
{
my $val = shift;
- dbg('connect', "timeout set to $val");
+ dbg("timeout set to $val") if isdbg('connect');
alarm($timeout = $val);
}
sub dochat
{
my ($expect, $send) = @_;
- dbg('connect', "CHAT \"$expect\" -> \"$send\"");
+ dbg("CHAT \"$expect\" -> \"$send\"") if isdbg('connect');
my $line;
alarm($timeout);
$line = <R>;
$line =~ s/\r//og;
}
- dbg('connect', "received \"$line\"");
+ dbg("received \"$line\"") if isdbg('connect');
if ($abort && $line =~ /$abort/i) {
- dbg('connect', "aborted on /$abort/");
+ dbg("aborted on /$abort/") if isdbg('connect');
exit(11);
}
}
local $\ = "\r";
W->print("$send\r");
}
- dbg('connect', "sent \"$send\"");
+ dbg("sent \"$send\"") if isdbg('connect');
}
}
sub doclient
{
my ($cl, $args) = @_;
- dbg('connect', "client: $cl args: $args");
+ dbg("client: $cl args: $args") if isdbg('connect');
my @args = split /\s+/, $args;
# if (!defined ($pid = fork())) {
-# dbg('connect', "can't fork");
+# dbg("can't fork") if isdbg('connect');
# exit(13);
# }
# if ($pid) {
open STDOUT, ">&W";
exec $cl, @args;
} else {
- dbg('connect', "client can't get here");
+ dbg("client can't get here") if isdbg('connect');
exit(13);
}
# }
sub timeout
{
- dbg('connect', "timed out after $timeout seconds");
+ dbg("timed out after $timeout seconds") if isdbg('connect');
exit(10);
}
sub term
{
- dbg('connect', "caught INT or TERM signal");
+ dbg("caught INT or TERM signal") if isdbg('connect');
kill $pid if $pid;
sleep(2);
exit(12);
sub reap
{
my $wpid = wait;
- dbg('connect', "pid $wpid has died");
+ dbg("pid $wpid has died") if isdbg('connect');
}
<!-- Title information -->
-<title>The DXSpider Administration Manual v1.47</title>
+<title>The DXSpider Administration Manual v1.48</title>
<author>Ian Maude, G0VGS, (ianmaude@btinternet.com)</author>
-<date>Version 1.47 April 2001 revision 1.0</date>
+<date>Version 1.48 August 2001 revision 1.1</date>
<abstract>
A reference for SysOps of the DXSpider DXCluster program.
<!-- Begin the document -->
-<sect>Hop control
+<sect>Routing and Filtering
-<P>
-Starting with version 1.13 there is simple hop control available on a per
-node basis. Also it is possible to isolate a network completely so that you
-get all the benefits of being on that network, but can't pass on information
-from it to any other networks you may be connected to (or vice versa).
-
-<sect1>Basic hop control
-
-<P>
-In /spider/data you will find a file called hop_table.pl. This is the file
-that controls your hop count settings. It has a set of default hops on the
-various PC frames and also a set for each node you want to alter the hops for.
-You may be happy with the default settings of course, but this powerful tool
-can help to protect and improve the network. The file will look something
-like this ...
-
-<tscreen><verb>
-#
-# hop table construction
-#
-
-package DXProt;
-
-# default hopcount to use
-$def_hopcount = 5;
-
-# some variable hop counts based on message type
-%hopcount =
-(
- 11 => 10,
- 16 => 10,
- 17 => 10,
- 19 => 10,
- 21 => 10,
-);
-
-
-# the per node hop control thingy
-
-
-%nodehops =
-
- GB7ADX => { 11 => 8,
- 12 => 8,
- 16 => 8,
- 17 => 8,
- 19 => 8,
- 21 => 8,
- },
-
- GB7UDX => { 11 => 8,
- 12 => 8,
- 16 => 8,
- 17 => 8,
- 19 => 8,
- 21 => 8,
- },
- GB7BAA => {
- 11 => 5,
- 12 => 8,
- 16 => 8,
- 17 => 8,
- 19 => 8,
- 21 => 8,
- },
-};
-</verb></tscreen>
-
-<P>
-Each set of hops is contained within a pair of curly braces and contains a
-series of PC frame types. PC11 for example is a DX spot. The figures here
-are not exhaustive but should give you a good idea of how the file works.
-
-<P>
-You can alter this file at any time, including whilst the cluster is running.
-If you alter the file during runtime, the command <em>load/hops</em> will
-bring your changes into effect.
-
-<sect1>Isolating networks
-
-<P>
-It is possible to isolate networks from each other on a "gateway" node using the
- <em>set/isolate <node_call></em> command.
-
-<P>
-The effect of this is to partition an isolated network completely from another
-nodes connected to your node. Your node will appear on and otherwise behave
-normally on every network to which you are connected, but data from an isolated
-network will not cross onto any other network or vice versa. However all the
-spot, announce and WWV traffic and personal messages will still be handled
-locally (because you are a real node on all connected networks), that is locally
-connected users will appear on all networks and will be able to access and
-receive information from all networks transparently. All routed messages will
-be sent as normal, so if a user on one network knows that you are a gateway for
-another network, he can still still send a talk/announce etc message via your
-node and it will be routed across.
+<sect1>Introduction
<P>
-The only limitation currently is that non-private messages cannot be passed down
-isolated links regardless of whether they are generated locally. This will change
-when the bulletin routing facility is added.
+From DXSpider version 1.48, major changes were introduced to the way
+node connections are treated. This is part of an ongoing process to
+remove problems with loops and to enable talk and other functions to
+propagate across the whole of the worldwide cluster network. In fact,
+in a Spider network, it would be useful, perhaps even necessary to
+have loops. This would give real resilience to the network, meaning
+that if a link dropped, the information flow would simply come in and
+go out via a different route. Of course, we do not have a complete
+network of Spider nodes, there are other programs out there. Some of
+these do not have any protection from loops. Certainly AK1A does not
+handle loops well at all. It is therefore necessary to have some form
+of protection for these nodes.
<P>
-If you use isolate on a node connection you will continue to receive all
-information from the isolated partner, however you will not pass any information
-back to the isolated node. There are times when you would like to forward only
-spots across a link (maybe during a contest for example). To do this, isolate
-the node in the normal way and put in a filter in the /spider/filter/spots
-directory to override the isolate. This filter can be very simple and consists
-of just one line ....
+This is achieved by using filtering on a route basis. There is a
+default setting to help to protect the network, especially useful for new
+and inexperienced SysOps. The idea is simple. When Spider is started
+for the first time and a connection is made to or from another node,
+the default is to only send the nodes you already have that are in your
+own zone. For example, in the UK the default setting would be to send
+only UK nodes to any connection. This can be filtered further (down to
+a single node if needed) or expanded as required.
-<tscreen><verb>
-$in = [
- [ 1, 0, 'd', 0, 3] # The last figure (3) is the hop count
-];
-</verb></tscreen>
-
-<P>
-There is a lot more on filtering in the next section.
-<sect>Filtering (Old Style upto v1.44)
+<sect1>Route Filters
<P>
-Filters can be set for spots, announcements and WWV. You will find the
-directories for these under /spider/filter. You will find some examples in
-the directories with the suffix <em>.issue</em>. There are two types of
-filter, one for incoming information and one for outgoing information.
-Outgoing filters are in the form <em>CALLSIGN.pl</em> and incoming filters
-are in the form <em>in_CALLSIGN.pl</em>. Filters can be set for both nodes
-and users.
+As mentioned in the introduction, a default setting exists. If this is
+all you want to use then that is fine, you have nothing else to do.
+However, if you want to make any alterations then you need to know
+a bit about filters.
<P>
-All filters work in basically the same way. There are several elements
-delimited by commas. There can be many lines in the filter and they are
-read from the top by the program. When writing a filter you need to think
-carefully about just what you want to achieve. You are either going to write
-a filter to <em>accept</em> or to <em>reject</em>. Think of a filter as
-having 2 main elements. For a reject filter, you would have a line or multiple
-lines rejecting the things you do not wish to receive and then a default line
-accepting everything else that is not included in the filter. Likewise, for an
-accept filter, you would have a line or multiple lines accepting the things you
-wish to receive and a default line rejecting everthing else.
+It is possible to reset the default setting for node connections should
+you wish to do so, however this can be dangerous to the network unless
+you have some experience in how all this works.... be careful! It is
+also possible to change settings for one connection only. You can,
+therefore, have many different filters set dependent on the amount of
+node links you have.
<P>
-In the example below, a user requires a filter that would only return SSB spots
-posted in Europe on the HF bands. This is achieved by first rejecting the CW
-section of each HF band and rejecting all of VHF, UHF etc based on frequency.
-Secondly, a filter rule is set based on CQ zones to only accept spots posted in
-Europe. Lastly, a default filter rule is set to reject anything outside the filter.
+I should at this stage give a little bit of background on filters. All
+the filters in Spider work in basically the same way. You can either
+accept or reject various options in order to create the filter rules
+you wish to achieve. Some filters are user settable, others can only
+be altered by the sysop. Route filtering can only be done by the sysop.
-<tscreen><verb>
-$in = [
- [ 0, 0, 'r', # reject all CW spots
- [
- 1800.0, 1850.0,
- 3500.0, 3600.0,
- 7000.0, 7040.0,
- 14000.0, 14100.0,
- 18068.0, 18110.0,
- 21000.0, 21150.0,
- 24890.0, 24930.0,
- 28000.0, 28180.0,
- 30000.0, 49000000000.0,
- ] ,1 ],
- [ 1, 11, 'n', [ 14, 15, 16, 20, 33, ], 15 ], #accept EU
- [ 0, 0, 'd', 0, 1 ], # 1 = want, 'd' = everything else
-];
-</verb></tscreen>
+<sect1>The default_node filter
<P>
-The actual elements of each filter are described more fully in the following
-sections.
-
-<sect1>Spots
-
-<P>
-The elements of the Spot filter are ....
+As discussed previously, a default setting exists that only sends nodes
+from your own zone. This can be overridden by using the default_node
+filter option like this ...
<tscreen><verb>
-[action, field_no, sort, possible_values, hops]
-</verb></tscreen>
+reject/route default_node <filter_option>
-<P>
-There are 3 elements here to look at. Firstly, the action element. This is
-very simple and only 2 possible states exist, accept (1) or drop (0).
-
-<P>
-The second element is the field_no. There are 13 possiblities to choose from
-here ....
+or
-<tscreen><verb>
- 0 = frequency
- 1 = call
- 2 = date in unix format
- 3 = comment
- 4 = spotter
- 5 = spotted dxcc country
- 6 = spotter's dxcc country
- 7 = origin
- 8 = spotted itu
- 9 = spotted cq
- 10 = spotter's itu
- 11 = spotter's cq
- 12 = callsign of the channel on which the spot has appeared
+accept/route default_node <filter_option>
</verb></tscreen>
<P>
-The third element tells us what to expect in the fourth element. There are
-4 possibilities ....
+where filter_option is one of the following ...
<tscreen><verb>
- n - numeric list of numbers e.g. [ 1,2,3 ]
- r - ranges of pairs of numbers e.g. between 2 and 4 or 10 to 17 - [ 2,4, 10,17 ]
- a - an alphanumeric regex
- d - the default rule
+call <prefixes>
+call_dxcc <numbers>
+call_itu <numbers>
+call_zone <numbers>
+origin <prefixes>
+origin_dxcc <numbers>
+origin_itu <numbers>
+origin_zone <numbers>
</verb></tscreen>
<P>
-The fifth element is simply the hops to set in this filter. This would only
-be used if the filter was for a node of course and overrides the hop count in
-hop_table.pl.
-
-<P>
-So, let's look at an example spot filter. It does not matter in the example
-who the filter is to be used for. So, what do we need in the filter? We need
-to filter the spots the user/node requires and also set a default rule for
-anything else outside the filter. Below is a simple filter that stops spots
-arriving from outside Europe.
-
-<tscreen><verb>$in = [
- [ 0, 4, 'a', '^(K|N|A|W|VE|VA|J)'], # 0 = drop, 'a' = alphanumeric
- [ 1, 0, 'd', 0, 1 ], # 1 = want, 'd' = everything else
- ];
-</verb></tscreen>
+Please be careful if you alter this setting, it will affect
+<bf><it>ALL</it></bf> your links!
-<P>
-So the filter is wrapped in between a pair of square brackets. This tells
-Spider to look in between these limits. Then each line is contained within
-its own square brackets and ends with a comma. Lets look carefully at the first
-line. The first element is 0 (drop). Therefore anything we put on this line
-will not be accepted. The next element is 4. This means we are filtering by
-the spotter. The third element is the letter "a" which tells the program to
-expect an alphanumeric expression in the fourth element. The fourth element
-is a list of letters separated by the pipe symbol.
+<sect1>General route filtering
<P>
-What this line does is tell the program to drop any spots posted by anyone in
-the USA, Canada or Japan.
+Exactly the same rules apply for general route filtering. You would
+use either an accept filter or a reject filter like this ...
-<P>
-The second line is the default rule for anything else. The "d" tells us this
-and the line simply reads... accept anything else.
+<tscreen><verb>
+reject/route <node_call> <filter_option>
-<P>
-You can add as many lines as you need to complete the filter but if there are
-several lines of the same type it is neater to enclose them all as one line.
-An example of this is where specific bands are set. We could write this like
-this ....
+or
-<tscreen><verb>
-[ 0,0,'r',[1800.0, 2000.0], 1],
-[ 0,0,'r',[10100.0, 10150.0], 1],
-[ 0,0,'r',[14000.0, 14350.0], 1],
-[ 0,0,'r',[18000.0, 18200.0], 1],
+accept/route <node_call> <filter_option>
</verb></tscreen>
<P>
-But the line below achieves the same thing and is more efficient ....
+where filter_option is one of the following ...
<tscreen><verb>
- [ 0, 0, 'r',
- [
- 1800.0, 2000.0, # top band
- 10100.0, 10150.0, # WARC
- 14000.0, 14350.0, # 20m
- 18000.0, 18200.0, # WARC
- [ ,1 ],
+call <prefixes>
+call_dxcc <numbers>
+call_itu <numbers>
+call_zone <numbers>
+origin <prefixes>
+origin_dxcc <numbers>
+origin_itu <numbers>
+origin_zone <numbers>
</verb></tscreen>
-
-<sect1>Announcements
-
<P>
-<tscreen><verb>
-
-# This is an example announce or filter allowing only West EU announces
-#
-# The element list is:-
-# 0 - callsign of announcer
-# 1 - destination * = all, <callsign> = routed to the node
-# 2 - text
-# 3 - * - sysop, <some text> - special list eg 6MUK, ' ', normal announce
-# 4 - origin
-# 5 - 0 - announce, 1 - wx
-# 6 - channel callsign (the interface from which this spot came)
-
-$in = [
- [ 1, 0, 'a', '^(P[ABCDE]|DK0WCY|G|M|2|EI|F|ON)' ],
- [ 0, 0, 'd', 0 ]
-];
-</verb></tscreen>
+Here are some examples of route filters ...
-In this example, only the prefixes listed will be allowed. It is possible to
-be quite specific. The Dutch prefix "P" is followed by several secondary
-identifiers which are allowed. So, in the example, "PA" or "PE" would be ok
-but not "PG". It is even possible to allow information from a single callsign.
-In the example this is DK0WCY, to allow the posting of his Aurora Beacon.
-
-<sect1>WWV
-
-<P>
<tscreen><verb>
-
-# This is an example WWV filter
-#
-# The element list is:-
-# 0 - nominal unix date of spot (ie the day + hour:13)
-# 1 - the hour
-# 2 - SFI
-# 3 - K
-# 4 - I
-# 5 - text
-# 6 - spotter
-# 7 - origin
-# 8 - incoming interface callsign
-
-# this one doesn't filter, it just sets the hop count to 6 and is
-# used mainly just to override any isolation from WWV coming from
-# the internet.
-
-$in = [
- [ 1, 0, 'd', 0, 6 ]
-];
-
+rej/route gb7djk call_dxcc 61,38 (everything except UK+EIRE nodes)
+rej/route all (equiv to [very] restricted mode)
+acc/route gb7djk call_dxcc 61,38 (send only UK+EIRE nodes)
+acc/route gb7djk call gb7djk (equiv to SET/ISOLATE)
</verb></tscreen>
-<P>
-It should be noted that the filter will start to be used only once a user/node
-has logged out and back in again.
-<P>
-I am not going to spend any more time on these filters now as they will become
-more "comprehensive" in the near future.
-
-<sect>Filtering (New Style v1.45 and later)
-
<sect1>General filter rules
<P>
to the accept line, which lets through everything else on HF. The next filter line
lets through just VHF/UHF spots from EU.
+<sect1>Basic hop control
+
+<P>
+In /spider/data you will find a file called hop_table.pl. This is the file
+that controls your hop count settings. It has a set of default hops on the
+various PC frames and also a set for each node you want to alter the hops for.
+You may be happy with the default settings of course, but this powerful tool
+can help to protect and improve the network. The file will look something
+like this ...
+
+<tscreen><verb>
+#
+# hop table construction
+#
+
+package DXProt;
+
+# default hopcount to use
+$def_hopcount = 5;
+
+# some variable hop counts based on message type
+%hopcount =
+(
+ 11 => 10,
+ 16 => 10,
+ 17 => 10,
+ 19 => 10,
+ 21 => 10,
+);
+
+
+# the per node hop control thingy
+
+
+%nodehops =
+
+ GB7ADX => { 11 => 8,
+ 12 => 8,
+ 16 => 8,
+ 17 => 8,
+ 19 => 8,
+ 21 => 8,
+ },
+
+ GB7UDX => { 11 => 8,
+ 12 => 8,
+ 16 => 8,
+ 17 => 8,
+ 19 => 8,
+ 21 => 8,
+ },
+ GB7BAA => {
+ 11 => 5,
+ 12 => 8,
+ 16 => 8,
+ 17 => 8,
+ 19 => 8,
+ 21 => 8,
+ },
+};
+</verb></tscreen>
+
+<P>
+Each set of hops is contained within a pair of curly braces and contains a
+series of PC frame types. PC11 for example is a DX spot. The figures here
+are not exhaustive but should give you a good idea of how the file works.
+
+<P>
+You can alter this file at any time, including whilst the cluster is running.
+If you alter the file during runtime, the command <em>load/hops</em> will
+bring your changes into effect.
+
+<sect1>Isolating networks
+
+<P>
+It is possible to isolate networks from each other on a "gateway" node using the
+ <em>set/isolate <node_call></em> command.
+
+<P>
+The effect of this is to partition an isolated network completely from another
+node connected to your node. Your node will appear on and otherwise behave
+normally on every network to which you are connected, but data from an isolated
+network will not cross onto any other network or vice versa. However all the
+spot, announce and WWV traffic and personal messages will still be handled
+locally (because you are a real node on all connected networks), that is locally
+connected users will appear on all networks and will be able to access and
+receive information from all networks transparently. All routed messages will
+be sent as normal, so if a user on one network knows that you are a gateway for
+another network, he can still still send a talk/announce etc message via your
+node and it will be routed across.
+
+<P>
+The only limitation currently is that non-private messages cannot be passed down
+isolated links regardless of whether they are generated locally. This will change
+when the bulletin routing facility is added.
+
+<P>
+If you use isolate on a node connection you will continue to receive all
+information from the isolated partner, however you will not pass any information
+back to the isolated node. There are times when you would like to forward only
+spots across a link (maybe during a contest for example). To do this, isolate
+the node in the normal way and put in a filter in the /spider/filter/spots
+directory to override the isolate. This filter can be very simple and consists
+of just one line ....
+
+<tscreen><verb>
+$in = [
+ [ 1, 0, 'd', 0, 3] # The last figure (3) is the hop count
+];
+</verb></tscreen>
<sect>Other filters
accept/ann user_default by G,M,2
</verb></tscreen>
+<sect1>accept/route (8)
+
+<P>
+<tt>
+<bf>accept/route <call> [0-9] <pattern></bf> Set an 'accept' filter line for routing
+</tt>
+
+<P>
+Create an 'accept this routing PC Protocol' line for a filter.
+
+<P>
+An accept filter line means that if a PC16/17/19/21/24/41/50 matches this filter
+it is passed thru that interface. See HELP FILTERING for more info. Please read this
+to understand how filters work - it will save a lot of grief later on.
+
+<P>
+You can use any of the following things in this line:-
+
+<tscreen><verb>
+ call <prefixes> the callsign of the thingy
+ call_dxcc <numbers> eg: 61,62 (from eg: sh/pre G)
+ call_itu <numbers>
+ call_zone <numbers>
+ origin <prefixes> really the interface it came in on
+ origin_dxcc <numbers> eg: 61,62 (from eg: sh/pre G)
+ origin_itu <numbers>
+ origin_zone <numbers>
+</verb></tscreen>
+
+<P>
+some examples:-
+
+<tscreen><verb>
+ acc/route gb7djk call_dxcc 61,38 (send only UK+EIRE nodes)
+ acc/route gb7djk call gb7djk (equiv to SET/ISOLATE)
+</verb></tscreen>
+
+<P>
+You can use the tag 'all' to accept everything eg:
+
+<tscreen><verb>
+ acc/route all
+</verb></tscreen>
+
<sect1>accept/spots (0)
<P>
<P>
Send an announcement to LOCAL users only, where <text> is the text
-of the announcement you wish to broadcast
+of the announcement you wish to broadcast. If you do not wish to receive
+announces, use the <em>set/noannounce</em> command. Any announces made by
+a sysop will override set/noannounce.
<sect1>announce full (0)
reject/ann user_default by G,M,2
</verb></tscreen>
+<sect1>reject/route (8)
+
+<P>
+<tt>
+<bf>reject/route <call> [0-9] <pattern></bf> Set an 'reject' filter line for routing
+</tt>
+
+<P>
+Create an 'reject this routing PC Protocol' line for a filter.
+
+<P>
+An reject filter line means that if a PC16/17/19/21/24/41/50 matches this filter
+it is NOT passed thru that interface. See HELP FILTERING for more info. Please
+read this to understand how filters work - it will save a lot of grief later on.
+You can use any of the following things in this line:-
+
+<tscreen><verb>
+ call <prefixes> the callsign of the thingy
+ call_dxcc <numbers> eg: 61,62 (from eg: sh/pre G)
+ call_itu <numbers>
+ call_zone <numbers>
+ origin <prefixes> really the interface it came in on
+ origin_dxcc <numbers> eg: 61,62 (from eg: sh/pre G)
+ origin_itu <numbers>
+ origin_zone <numbers>
+</verb></tscreen>
+
+<P>
+some examples:-
+
+<tscreen><verb>
+ rej/route gb7djk call_dxcc 61,38 (everything except UK+EIRE nodes)
+</verb></tscreen>
+
+<P>
+You can use the tag 'all' to reject everything eg:
+
+<tscreen><verb>
+ rej/route all (equiv to [very] restricted mode)
+</verb></tscreen>
+
<sect1>reject/spots (0)
<P>
<P>
Add a beep to DX and other terminal messages.
+<sect1>set/bbs (5)
+
+<P>
+<tt>
+<bf>set/bbs <call> [<call>..]</bf>Make <call> a BBS
+</tt>
+
<sect1>set/clx (5)
<P>
This command shows the internal status of a message and includes information
such as to whom it has been forwarded, its size, origin etc etc.
+<P>
+If no message number is given then the status of the message system is
+displayed.
+
+<sect1>stat/route_node (5)
+
+<P>
+<tt>
+<bf>stat/route_node <callsign></bf> Show the data in a Route::Node object
+</tt>
+
+<sect1>stat/route_user (5)
+
+<P>
+<tt>
+<bf>stat/route_user <callsign></bf> Show the data in a Route::User object
+</tt>
+
<sect1>stat/user (5)
<P>
<!-- Title information -->
-<title>The DXSpider Installation Manual v1.47</title>
+<title>The DXSpider Installation Manual v1.48</title>
<author>Iain Philipps, G0RDI (g0rdi@77hz.com) and
Ian Maude, G0VGS, (ianmaude@btinternet.com)</author>
-<date>Version 1.47, April 2001 revision 1.0</date>
+<date>Version 1.48, July 2001 revision 1.1</date>
<abstract>
A reference for SysOps of the DXSpider DXCluster program.
<P>
<itemize>
-<item> Data-Dumper-2.101.tar.gz
-<item> TimeDate-1.10.tar.gz
-<item> IO-1.20.tar.gz (for perl 5.00403 and lower)
-<item> Net-Telnet-3.02.tar.gz
-<item> Curses-1.05.tar.gz
-<item> Time-HiRes-01.20.tar.gz
+<item> <htmlurl url="http://www.cpan.org/modules/by-module/Data/Data-Dumper-2.10.tar.gz" name="Data-Dumper-2.10.tar.gz">
+<item> <htmlurl url="http://www.cpan.org/modules/by-module/Date/TimeDate-1.10.tar.gz" name="TimeDate-1.10.tar.gz">
+<item> <htmlurl url="http://www.cpan.org/modules/by-module/IO/IO-1.20.tar.gz" name="IO-1.20.tar.gz (for perl 5.00403 and lower)">
+<item> <htmlurl url="http://www.cpan.org/modules/by-module/Net/Net-Telnet-3.02.tar.gz" name="Net-Telnet-3.02.tar.gz">
+<item> <htmlurl url="http://www.cpan.org/modules/by-module/Curses/Curses-1.05.tar.gz" name="Curses-1.05.tar.gz">
+<item> <htmlurl url="http://www.cpan.org/modules/by-module/Time/Time-HiRes-01.20.tar.gz" name="Time-HiRes-01.20.tar.gz">
</itemize>
<P>
-<em>Do</em> get the latest versions of these packages and install them
-but use the above list as the earliest versions usable.
+Copy the CPAN modules listed above to a convenient place on your computer. One good place would be /usr/local/packages, and the instructions which follow will assume that that's where you have put them.
+
+<P>
+Log in as 'root', and make sure you're at '/root' before you continue. Here are exactly the commands you must issue next: -
+
+<verb>
+# tar xvfz /usr/local/packages/Data-Dumper-2.10.tar.gz
+# cd Data-Dumper-2.10
+# perl Makefile.PL
+# make test
+# make install
+# cd ..
+#
+# tar xvfz /usr/local/packages/TimeDate-1.10.tar.gz
+# cd TimeDate-1.10
+# perl Makefile.PL
+# make test
+# make install
+# cd ..
+#
+# tar xvfz /usr/local/packages/IO-1.20.tar.gz
+# cd IO-1.20
+# perl Makefile.PL
+# make test
+# make install UNINST=1
+# cd ..
+#
+# tar xvfz /usr/local/packages/Net-Telnet-3.02.tar.gz
+# cd Net-Telnet-3.02
+# perl Makefile.PL
+# make test
+# make install
+# cd ..
+#
+# tar xvfz /usr/local/packages/Curses-1.05.tar.gz
+# cd Curses-1.05
+# perl Makefile.PL
+# make test
+# make install
+# cd ..
+#
+# tar xvfz /usr/local/packages/Time-HiRes-01.20.tar.gz
+# cd Time-HiRes-01.20
+# perl Makefile.PL
+# make test
+# make install
+# cd ..
+</verb>
+
+<P>
+Do not fall into the trap of thinking they're all the same, just because they nearly are! Pay particular attention to the instructions of IO, above.
+
<sect1>Preparation
-#! /bin/sh
-#
-###################################################
-#
-# Edit the following lines
-#
-#
-portnumber=$"1407"
-tempdir=$"/usr/local/httpd/spider/client/"
-clustercall=$"PA4AB-15"
-#
-#
-#
-# End of configurable part
-#
-####################################################
-hostname=$"localhost"
-
-echo "Content-type: text/html"
-echo
-echo "<HTML><HEAD>"
-echo "<TITLE>Spider DX Cluster</TITLE>"
-echo "</HEAD><BODY>"
-echo '<BODY BGCOLOR="#d8d0c8">'
-echo "<PRE>"
-
-pattern=$(echo ${QUERY_STRING} | sed -e s,'call=',, | sed -e s/"&passwd="/" "/)
-call=$(echo $pattern | cut -d' ' -f1)
-passwd=$(echo $pattern | cut -s -d' ' -f2)
-
-
-if [ ${call} = ""] ; then
- echo "<BR>"
- echo "<CENTER>"
- echo "<STRONG><FONT SIZE=5>Welcome to the Spider DX Cluster</FONT></STRONG>"
- echo "<STRONG><FONT SIZE=5>"
- echo ${clustercall}
- echo "</FONT></STRONG>"
- echo "<P> </P>"
- echo '<FORM action="/cgi-bin/spider.cgi" method=get>'
- echo "<STRONG>Your Call Please: </STRONG> "
- echo '<INPUT name="call" size=10> '
- echo '<INPUT type=submit value="Click here to Login">'
- echo "</CENTER>"
- echo "<BR>"
+#!/usr/bin/perl
+# cluster-web.pl - perl login script for cluster web interface.
+# @author Ian Norton
+# - Based on clx-web by DL6DBH (ftp://clx.muc.de/pub/clx/clx-java_10130001.tgz)
+# - Modified by PA4AB
+# @version 0.1 beta. 20010610.
+
+# Work out the hostname of this server.
+use Sys::Hostname;
+my $HOSTNAME = hostname();
+
+# Set the hostname manually here if the above fails.
+# $HOSTNAME = "gb7mbc.spoo.org" ;
+$PORT = "8000" ;
+
+# Send text/html header to the browser.
+print "Content-type: text/html\n\n";
+
+# Get the parameters passed to the script.
+read (STDIN, $post_data, $ENV{CONTENT_LENGTH});
+@call = split (/=/, $post_data) ;
+
+# Print the page header.
+
+print <<'EOF';
+
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
+<HTML LANG="EN">
+ <HEAD>
+ <TITLE>Cluster Web - DX Cluster Web Interface.</TITLE>
+ <META HTTP-EQUIV="content-type" CONTENT="text/html; charset=ISO-8859-1">
+ <META NAME="Author" CONTENT="Ian Norton.">
+ <META NAME="DESCRIPTION" CONTENT="DX Cluster web interface">
+ </HEAD>
+
+<BODY BGCOLOR="#FFFFFF" LINK="#008080" ALINK="#000099" VLINK="#000099">
+
+ <H1>
+ <CENTER>
+ <FONT FACE="arial, helvicta" COLOR="#008080" SIZE=+2>
+ <B><BR>Cluster Web - DX Cluster Web Interface.</B><BR>
+EOF
+
+ print("Welcome to $HOSTNAME<BR>") ;
+
+print <<'EOF';
+ </FONT>
+ </CENTER>
+ </H1>
+
+<BR CLEAR="ALL">
+
+<HR>
+EOF
+
+if($ENV{CONTENT_LENGTH} > 0)
+ {
+ # Callsign is set - print the whole <APPLET> stuff....
+ # print("Callsign is $call[1]<BR>\n") ;
+
+ print("<CENTER>\n") ;
+ print(" <APPLET CODE=\"spiderclient.class\" CODEBASE=\"/client/\" width=800 height=130>\n") ;
+ print(" <PARAM NAME=\"CALL\" VALUE=\"$call[1]\">\n") ;
+ print(" <PARAM NAME=\"HOSTNAME\" VALUE=\"$HOSTNAME\">\n") ;
+ print(" <PARAM NAME=\"PORT\" VALUE=\"$PORT\">\n") ;
+ print(" </APPLET>\n") ;
+ print("</CENTER>\n") ;
+ }
else
- echo "<HTML>" > ${tempfile}${call}.html
- echo "<HEAD>" >> ${tempfile}${call}.html
- echo "</HEAD>" >> ${tempfile}${call}.html
- echo "<BODY>" >> ${tempfile}${call}.html
- echo '<APPLET code="spiderclient.class" width=800 height=130>' >> ${tempdir}${call}.html
- echo '<PARAM NAME="CALL" VALUE=' >> ${tempdir}${call}.html
- echo ${call} >> ${tempdir}${call}.html
- echo ">" >> ${tempdir}${call}.html
- echo ">" >> ${tempdir}${call}.html
- echo '<PARAM NAME="HOSTNAME" VALUE="' >> ${tempdir}${call}.html
- echo ${hostname} >> ${tempdir}${call}.html
- echo '">' >> ${tempdir}${call}.html
- echo '<PARAM NAME="PORT" VALUE="' >> ${tempdir}${call}.html
- echo ${portnumber} >> ${tempdir}${call}.html
- echo '">' >> ${tempdir}${call}.html
- echo "</APPLET>" >> ${tempdir}${call}.html
- echo "</BODY>" >> ${tempdir}${call}.html
- echo "</HTML>" >> ${tempdir}${call}.html
- GOTO='<meta http-equiv="refresh"content="0;URL=http://'${hostname}'/client/'
- GOTO=$GOTO$call.html
- GOTO=$GOTO'">'
- echo ${GOTO}
-
-fi
- echo "</PRE>"
- echo "</BODY></HTML>"
-
-# all *.html tempory files remove older than 10 min
-#
-cd ${tempdir}
-files=$(find *.html -mmin +10)
-rm ${files}
+ {
+ # Callsign isn't set - print the login page.
+ print <<'EOF';
+ <CENTER>
+ <FORM METHOD=POST>
+ <STRONG>Please enter your callsign: </STRONG><BR>
+ <INPUT name="call" size=10><BR>
+ <INPUT type=submit value="Click here to Login">
+ </FORM>
+ </CENTER>
+EOF
+ }
+
+print <<'EOF';
+<HR>
+
+<ADDRESS>
+<A HREF="http://www.dxcluster.org/">Spider Homepage</A>.
+</HTML>
+
+EOF
- The DXSpider Administration Manual v1.47
+ The DXSpider Administration Manual v1.48
Ian Maude, G0VGS, (ianmaude@btinternet.com)
- Version 1.47 April 2001 revision 1.0
+ Version 1.48 August 2001 revision 1.1
A reference for SysOps of the DXSpider DXCluster program.
______________________________________________________________________
- 1. Hop control
+ 1. Routing and Filtering
- 1.1 Basic hop control
- 1.2 Isolating networks
+ 1.1 Introduction
+ 1.2 Route Filters
+ 1.3 The default_node filter
+ 1.4 General route filtering
+ 1.5 General filter rules
+ 1.6 Types of filter
+ 1.7 Filter options
+ 1.8 Default filters
+ 1.9 Advanced filtering
+ 1.10 Basic hop control
+ 1.11 Isolating networks
- 2. Filtering (Old Style upto v1.44)
+ 2. Other filters
- 2.1 Spots
- 2.2 Announcements
- 2.3 WWV
+ 2.1 Filtering Mail
+ 2.2 Filtering DX callouts (Depricated)
+ 2.3 Filtering words from text fields in Announce, Talk and DX spots
- 3. Filtering (New Style v1.45 and later)
+ 3. Mail
- 3.1 General filter rules
- 3.2 Types of filter
- 3.3 Filter options
- 3.4 Default filters
- 3.5 Advanced filtering
+ 3.1 Personal mail
+ 3.2 Bulletin mail
+ 3.3 Forward.pl
+ 3.4 The msg command
+ 3.5 Message status
+ 3.6 Filtering mail
+ 3.7 Distribution lists
+ 3.8 BBS interface
- 4. Other filters
+ 4. Databases
- 4.1 Filtering Mail
- 4.2 Filtering DX callouts (Depricated)
- 4.3 Filtering words from text fields in Announce, Talk and DX spots
+ 4.1 Creating databases
+ 4.2 Importing databases
+ 4.3 Checking available databases
+ 4.4 Looking up databases
+ 4.5 Removing databases
- 5. Mail
+ 5. Information, files and useful programs
- 5.1 Personal mail
- 5.2 Bulletin mail
- 5.3 Forward.pl
- 5.4 The msg command
- 5.5 Message status
- 5.6 Filtering mail
- 5.7 Distribution lists
- 5.8 BBS interface
+ 5.1 MOTD
+ 5.2 Downtime message
+ 5.3 Other text messages
+ 5.4 The Aliases file
+ 5.5 Console.pl
+ 5.6 Updating kepler data
+ 5.7 The QRZ callbook
- 6. Databases
+ 6. CVS
- 6.1 Creating databases
- 6.2 Importing databases
- 6.3 Checking available databases
- 6.4 Looking up databases
- 6.5 Removing databases
+ 7. The DXSpider command set
- 7. Information, files and useful programs
-
- 7.1 MOTD
- 7.2 Downtime message
- 7.3 Other text messages
- 7.4 The Aliases file
- 7.5 Console.pl
- 7.6 Updating kepler data
- 7.7 The QRZ callbook
-
- 8. CVS
-
- 9. The DXSpider command set
-
- 9.1 accept/announce (0)
- 9.2 accept/announce (extended for sysops) (8)
- 9.3 accept/spots (0)
- 9.4 accept/spots (extended for sysops) (8)
- 9.5 accept/wcy (0)
- 9.6 accept/wcy (extended for sysops) (8)
- 9.7 accept/wwv (0)
- 9.8 accept/wwv (extended for sysops) (8)
- 9.9 announce (0)
- 9.10 announce full (0)
- 9.11 announce sysop (5)
- 9.12 apropos (0)
- 9.13 bye (0)
- 9.14 catchup (5)
- 9.15 clear/spots (0)
- 9.16 connect (5)
- 9.17 dbavail (0)
- 9.18 dbcreate (9)
- 9.19 dbimport (9)
- 9.20 dbremove (9)
- 9.21 dbshow (0)
- 9.22 debug (9)
- 9.23 directory (0)
- 9.24 directory (extended for sysops) (5)
- 9.25 disconnect (8)
- 9.26 dx (0)
- 9.27 export (9)
- 9.28 export_users (9)
- 9.29 forward/latlong (8)
- 9.30 forward/opername (1)
- 9.31 help (0)
- 9.32 init (5)
- 9.33 kill (0)
- 9.34 kill (5)
- 9.35 kill full (5)
- 9.36 links (0)
- 9.37 load/aliases (9)
- 9.38 load/baddx (9)
- 9.39 load/badmsg (9)
- 9.40 load/badwords (9)
- 9.41 load/bands (9)
- 9.42 load/cmd_cache (9)
- 9.43 load/forward (9)
- 9.44 load/messages (9)
- 9.45 load/prefixes (9)
- 9.46 merge (5)
- 9.47 msg (9)
- 9.48 pc (8)
- 9.49 ping (1)
- 9.50 rcmd (1)
- 9.51 read (0)
- 9.52 read (extended for sysops) (5)
- 9.53 reject/announce
- 9.54 reject/announce (extended for sysops) (8)
- 9.55 reject/spots (0)
- 9.56 reject/spots (extended for sysops) (8)
- 9.57 reject/wcy (0)
- 9.58 reject/wcy (extended for sysops) (8)
- 9.59 reject/wwv (0)
- 9.60 reject/wwv (extended for sysops) (8)
- 9.61 reply (0)
- 9.62 send (0)
- 9.63 set/address (0)
- 9.64 set/announce (0)
- 9.65 set/arcluster (5)
- 9.66 set/baddx (8)
- 9.67 set/badnode (6)
- 9.68 set/badspotter (8)
- 9.69 set/beep (0)
- 9.70 set/clx (5)
- 9.71 set/debug (9)
- 9.72 set/dx (0)
- 9.73 set/dxgrid (0)
- 9.74 set/dxnet (5)
- 9.75 set/echo (0)
- 9.76 set/here (0)
- 9.77 set/homenode (0)
- 9.78 set/hops (8)
- 9.79 set/isolate (9)
- 9.80 set/language (0)
- 9.81 set/location (0)
- 9.82 set/sys_location (9)
- 9.83 set/logininfo (0)
- 9.84 set/lockout (9)
- 9.85 set/name (0)
- 9.86 set/node (9)
- 9.87 set/obscount (9)
- 9.88 set/page (0)
- 9.89 set/password (9)
- 9.90 set/pinginterval (9)
- 9.91 set/privilege (9)
- 9.92 set/spider (5)
- 9.93 set/sys_qra (9)
- 9.94 set/qra (0)
- 9.95 set/qth (0)
- 9.96 set/talk (0)
- 9.97 set/wcy (0)
- 9.98 set/wwv (0)
- 9.99 set/wx (0)
- 9.100 show/baddx (1)
- 9.101 show/badnode (6)
- 9.102 show/badspotter (1)
- 9.103 show/configuration (0)
- 9.104 show/configuration/node (0)
- 9.105 show/connect (1)
- 9.106 show/date (0)
- 9.107 show/debug (9)
- 9.108 show/dx (0)
- 9.109 show/dxcc (0)
- 9.110 show/files (0)
- 9.111 show/filter (0)
- 9.112 show/filter (extended for sysops) (5)
- 9.113 show/hops (8)
- 9.114 show/isolate (1)
- 9.115 show/lockout (9)
- 9.116 show/log (8)
- 9.117 show/moon (0)
- 9.118 show/muf (0)
- 9.119 show/node (1)
- 9.120 show/prefix (0)
- 9.121 show/program (5)
- 9.122 show/qra (0)
- 9.123 show/qrz (0)
- 9.124 show/route (0)
- 9.125 show/satellite (0)
- 9.126 show/sun (0)
- 9.127 show/time (0)
- 9.128 show/wcy (0)
- 9.129 show/wwv (0)
- 9.130 shutdown (5)
- 9.131 spoof (9)
- 9.132 stat/db (5)
- 9.133 stat/channel (5)
- 9.134 stat/msg (5)
- 9.135 stat/user (5)
- 9.136 sysop (0)
- 9.137 talk (0)
- 9.138 type (0)
- 9.139 who (0)
- 9.140 wx (0)
- 9.141 wx (enhanced for sysops) (5)
+ 7.1 accept/announce (0)
+ 7.2 accept/announce (extended for sysops) (8)
+ 7.3 accept/route (8)
+ 7.4 accept/spots (0)
+ 7.5 accept/spots (extended for sysops) (8)
+ 7.6 accept/wcy (0)
+ 7.7 accept/wcy (extended for sysops) (8)
+ 7.8 accept/wwv (0)
+ 7.9 accept/wwv (extended for sysops) (8)
+ 7.10 announce (0)
+ 7.11 announce full (0)
+ 7.12 announce sysop (5)
+ 7.13 apropos (0)
+ 7.14 bye (0)
+ 7.15 catchup (5)
+ 7.16 clear/spots (0)
+ 7.17 connect (5)
+ 7.18 dbavail (0)
+ 7.19 dbcreate (9)
+ 7.20 dbimport (9)
+ 7.21 dbremove (9)
+ 7.22 dbshow (0)
+ 7.23 debug (9)
+ 7.24 directory (0)
+ 7.25 directory (extended for sysops) (5)
+ 7.26 disconnect (8)
+ 7.27 dx (0)
+ 7.28 export (9)
+ 7.29 export_users (9)
+ 7.30 forward/latlong (8)
+ 7.31 forward/opername (1)
+ 7.32 help (0)
+ 7.33 init (5)
+ 7.34 kill (0)
+ 7.35 kill (5)
+ 7.36 kill full (5)
+ 7.37 links (0)
+ 7.38 load/aliases (9)
+ 7.39 load/baddx (9)
+ 7.40 load/badmsg (9)
+ 7.41 load/badwords (9)
+ 7.42 load/bands (9)
+ 7.43 load/cmd_cache (9)
+ 7.44 load/forward (9)
+ 7.45 load/messages (9)
+ 7.46 load/prefixes (9)
+ 7.47 merge (5)
+ 7.48 msg (9)
+ 7.49 pc (8)
+ 7.50 ping (1)
+ 7.51 rcmd (1)
+ 7.52 read (0)
+ 7.53 read (extended for sysops) (5)
+ 7.54 reject/announce
+ 7.55 reject/announce (extended for sysops) (8)
+ 7.56 reject/route (8)
+ 7.57 reject/spots (0)
+ 7.58 reject/spots (extended for sysops) (8)
+ 7.59 reject/wcy (0)
+ 7.60 reject/wcy (extended for sysops) (8)
+ 7.61 reject/wwv (0)
+ 7.62 reject/wwv (extended for sysops) (8)
+ 7.63 reply (0)
+ 7.64 send (0)
+ 7.65 set/address (0)
+ 7.66 set/announce (0)
+ 7.67 set/arcluster (5)
+ 7.68 set/baddx (8)
+ 7.69 set/badnode (6)
+ 7.70 set/badspotter (8)
+ 7.71 set/beep (0)
+ 7.72 set/bbs (5)
+ 7.73 set/clx (5)
+ 7.74 set/debug (9)
+ 7.75 set/dx (0)
+ 7.76 set/dxgrid (0)
+ 7.77 set/dxnet (5)
+ 7.78 set/echo (0)
+ 7.79 set/here (0)
+ 7.80 set/homenode (0)
+ 7.81 set/hops (8)
+ 7.82 set/isolate (9)
+ 7.83 set/language (0)
+ 7.84 set/location (0)
+ 7.85 set/sys_location (9)
+ 7.86 set/logininfo (0)
+ 7.87 set/lockout (9)
+ 7.88 set/name (0)
+ 7.89 set/node (9)
+ 7.90 set/obscount (9)
+ 7.91 set/page (0)
+ 7.92 set/password (9)
+ 7.93 set/pinginterval (9)
+ 7.94 set/privilege (9)
+ 7.95 set/spider (5)
+ 7.96 set/sys_qra (9)
+ 7.97 set/qra (0)
+ 7.98 set/qth (0)
+ 7.99 set/talk (0)
+ 7.100 set/wcy (0)
+ 7.101 set/wwv (0)
+ 7.102 set/wx (0)
+ 7.103 show/baddx (1)
+ 7.104 show/badnode (6)
+ 7.105 show/badspotter (1)
+ 7.106 show/configuration (0)
+ 7.107 show/configuration/node (0)
+ 7.108 show/connect (1)
+ 7.109 show/date (0)
+ 7.110 show/debug (9)
+ 7.111 show/dx (0)
+ 7.112 show/dxcc (0)
+ 7.113 show/files (0)
+ 7.114 show/filter (0)
+ 7.115 show/filter (extended for sysops) (5)
+ 7.116 show/hops (8)
+ 7.117 show/isolate (1)
+ 7.118 show/lockout (9)
+ 7.119 show/log (8)
+ 7.120 show/moon (0)
+ 7.121 show/muf (0)
+ 7.122 show/node (1)
+ 7.123 show/prefix (0)
+ 7.124 show/program (5)
+ 7.125 show/qra (0)
+ 7.126 show/qrz (0)
+ 7.127 show/route (0)
+ 7.128 show/satellite (0)
+ 7.129 show/sun (0)
+ 7.130 show/time (0)
+ 7.131 show/wcy (0)
+ 7.132 show/wwv (0)
+ 7.133 shutdown (5)
+ 7.134 spoof (9)
+ 7.135 stat/db (5)
+ 7.136 stat/channel (5)
+ 7.137 stat/msg (5)
+ 7.138 stat/route_node (5)
+ 7.139 stat/route_user (5)
+ 7.140 stat/user (5)
+ 7.141 sysop (0)
+ 7.142 talk (0)
+ 7.143 type (0)
+ 7.144 who (0)
+ 7.145 wx (0)
+ 7.146 wx (enhanced for sysops) (5)
______________________________________________________________________
- 1. Hop control
-
- Starting with version 1.13 there is simple hop control available on a
- per node basis. Also it is possible to isolate a network completely so
- that you get all the benefits of being on that network, but can't pass
- on information from it to any other networks you may be connected to
- (or vice versa).
-
-
- 1.1. Basic hop control
-
- In /spider/data you will find a file called hop_table.pl. This is the
- file that controls your hop count settings. It has a set of default
- hops on the various PC frames and also a set for each node you want to
- alter the hops for. You may be happy with the default settings of
- course, but this powerful tool can help to protect and improve the
- network. The file will look something like this ...
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- #
- # hop table construction
- #
-
- package DXProt;
-
- # default hopcount to use
- $def_hopcount = 5;
-
- # some variable hop counts based on message type
- %hopcount =
- (
- 11 => 10,
- 16 => 10,
- 17 => 10,
- 19 => 10,
- 21 => 10,
- );
-
-
- # the per node hop control thingy
-
-
- %nodehops =
-
- GB7ADX => { 11 => 8,
- 12 => 8,
- 16 => 8,
- 17 => 8,
- 19 => 8,
- 21 => 8,
- },
-
- GB7UDX => { 11 => 8,
- 12 => 8,
- 16 => 8,
- 17 => 8,
- 19 => 8,
- 21 => 8,
- },
- GB7BAA => {
- 11 => 5,
- 12 => 8,
- 16 => 8,
- 17 => 8,
- 19 => 8,
- 21 => 8,
- },
- };
-
-
-
-
-
- Each set of hops is contained within a pair of curly braces and
- contains a series of PC frame types. PC11 for example is a DX spot.
- The figures here are not exhaustive but should give you a good idea of
- how the file works.
-
-
- You can alter this file at any time, including whilst the cluster is
- running. If you alter the file during runtime, the command load/hops
- will bring your changes into effect.
-
-
-
- 1.2. Isolating networks
-
- It is possible to isolate networks from each other on a "gateway" node
- using the set/isolate <node_call> command.
-
-
- The effect of this is to partition an isolated network completely from
- another nodes connected to your node. Your node will appear on and
- otherwise behave normally on every network to which you are connected,
- but data from an isolated network will not cross onto any other
- network or vice versa. However all the spot, announce and WWV traffic
- and personal messages will still be handled locally (because you are a
- real node on all connected networks), that is locally connected users
- will appear on all networks and will be able to access and receive
- information from all networks transparently. All routed messages will
- be sent as normal, so if a user on one network knows that you are a
- gateway for another network, he can still still send a talk/announce
- etc message via your node and it will be routed across.
-
-
- The only limitation currently is that non-private messages cannot be
- passed down isolated links regardless of whether they are generated
- locally. This will change when the bulletin routing facility is added.
-
-
- If you use isolate on a node connection you will continue to receive
- all information from the isolated partner, however you will not pass
- any information back to the isolated node. There are times when you
- would like to forward only spots across a link (maybe during a contest
- for example). To do this, isolate the node in the normal way and put
- in a filter in the /spider/filter/spots directory to override the
- isolate. This filter can be very simple and consists of just one line
- ....
-
-
-
- $in = [
- [ 1, 0, 'd', 0, 3] # The last figure (3) is the hop count
- ];
-
-
-
-
-
- There is a lot more on filtering in the next section.
-
-
- 2. Filtering (Old Style upto v1.44)
-
- Filters can be set for spots, announcements and WWV. You will find
- the directories for these under /spider/filter. You will find some
- examples in the directories with the suffix .issue. There are two
- types of filter, one for incoming information and one for outgoing
- information. Outgoing filters are in the form CALLSIGN.pl and
- incoming filters are in the form in_CALLSIGN.pl. Filters can be set
- for both nodes and users.
-
-
- All filters work in basically the same way. There are several
- elements delimited by commas. There can be many lines in the filter
- and they are read from the top by the program. When writing a filter
- you need to think carefully about just what you want to achieve. You
- are either going to write a filter to accept or to reject. Think of a
- filter as having 2 main elements. For a reject filter, you would have
- a line or multiple lines rejecting the things you do not wish to
- receive and then a default line accepting everything else that is not
- included in the filter. Likewise, for an accept filter, you would
- have a line or multiple lines accepting the things you wish to receive
- and a default line rejecting everthing else.
-
-
- In the example below, a user requires a filter that would only return
- SSB spots posted in Europe on the HF bands. This is achieved by first
- rejecting the CW section of each HF band and rejecting all of VHF, UHF
- etc based on frequency. Secondly, a filter rule is set based on CQ
- zones to only accept spots posted in Europe. Lastly, a default filter
- rule is set to reject anything outside the filter.
-
-
-
- $in = [
- [ 0, 0, 'r', # reject all CW spots
- [
- 1800.0, 1850.0,
- 3500.0, 3600.0,
- 7000.0, 7040.0,
- 14000.0, 14100.0,
- 18068.0, 18110.0,
- 21000.0, 21150.0,
- 24890.0, 24930.0,
- 28000.0, 28180.0,
- 30000.0, 49000000000.0,
- ] ,1 ],
- [ 1, 11, 'n', [ 14, 15, 16, 20, 33, ], 15 ], #accept EU
- [ 0, 0, 'd', 0, 1 ], # 1 = want, 'd' = everything else
- ];
-
-
-
-
-
- The actual elements of each filter are described more fully in the
- following sections.
-
-
- 2.1. Spots
-
- The elements of the Spot filter are ....
-
-
-
- [action, field_no, sort, possible_values, hops]
-
-
-
-
-
- There are 3 elements here to look at. Firstly, the action element.
- This is very simple and only 2 possible states exist, accept (1) or
- drop (0).
-
+ 1. Routing and Filtering
- The second element is the field_no. There are 13 possiblities to
- choose from here ....
+ 1.1. Introduction
+ From DXSpider version 1.48, major changes were introduced to the way
+ node connections are treated. This is part of an ongoing process to
+ remove problems with loops and to enable talk and other functions to
+ propagate across the whole of the worldwide cluster network. In fact,
+ in a Spider network, it would be useful, perhaps even necessary to
+ have loops. This would give real resilience to the network, meaning
+ that if a link dropped, the information flow would simply come in and
+ go out via a different route. Of course, we do not have a complete
+ network of Spider nodes, there are other programs out there. Some of
+ these do not have any protection from loops. Certainly AK1A does not
+ handle loops well at all. It is therefore necessary to have some form
+ of protection for these nodes.
+ This is achieved by using filtering on a route basis. There is a
+ default setting to help to protect the network, especially useful for
+ new and inexperienced SysOps. The idea is simple. When Spider is
+ started for the first time and a connection is made to or from another
+ node, the default is to only send the nodes you already have that are
+ in your own zone. For example, in the UK the default setting would be
+ to send only UK nodes to any connection. This can be filtered further
+ (down to a single node if needed) or expanded as required.
+ 1.2. Route Filters
+ As mentioned in the introduction, a default setting exists. If this
+ is all you want to use then that is fine, you have nothing else to do.
+ However, if you want to make any alterations then you need to know a
+ bit about filters.
- 0 = frequency
- 1 = call
- 2 = date in unix format
- 3 = comment
- 4 = spotter
- 5 = spotted dxcc country
- 6 = spotter's dxcc country
- 7 = origin
- 8 = spotted itu
- 9 = spotted cq
- 10 = spotter's itu
- 11 = spotter's cq
- 12 = callsign of the channel on which the spot has appeared
+ It is possible to reset the default setting for node connections
+ should you wish to do so, however this can be dangerous to the network
+ unless you have some experience in how all this works.... be careful!
+ It is also possible to change settings for one connection only. You
+ can, therefore, have many different filters set dependent on the
+ amount of node links you have.
+ I should at this stage give a little bit of background on filters.
+ All the filters in Spider work in basically the same way. You can
+ either accept or reject various options in order to create the filter
+ rules you wish to achieve. Some filters are user settable, others can
+ only be altered by the sysop. Route filtering can only be done by the
+ sysop.
- The third element tells us what to expect in the fourth element.
- There are 4 possibilities ....
+ 1.3. The default_node filter
+ As discussed previously, a default setting exists that only sends
+ nodes from your own zone. This can be overridden by using the
+ default_node filter option like this ...
- n - numeric list of numbers e.g. [ 1,2,3 ]
- r - ranges of pairs of numbers e.g. between 2 and 4 or 10 to 17 - [ 2,4, 10,17 ]
- a - an alphanumeric regex
- d - the default rule
+ reject/route default_node <filter_option>
+ or
+ accept/route default_node <filter_option>
- The fifth element is simply the hops to set in this filter. This
- would only be used if the filter was for a node of course and
- overrides the hop count in hop_table.pl.
-
-
- So, let's look at an example spot filter. It does not matter in the
- example who the filter is to be used for. So, what do we need in the
- filter? We need to filter the spots the user/node requires and also
- set a default rule for anything else outside the filter. Below is a
- simple filter that stops spots arriving from outside Europe.
-
-
-
- $in = [
- [ 0, 4, 'a', '^(K|N|A|W|VE|VA|J)'], # 0 = drop, 'a' = alphanumeric
- [ 1, 0, 'd', 0, 1 ], # 1 = want, 'd' = everything else
- ];
-
-
-
-
-
- So the filter is wrapped in between a pair of square brackets. This
- tells Spider to look in between these limits. Then each line is
- contained within its own square brackets and ends with a comma. Lets
- look carefully at the first line. The first element is 0 (drop).
- Therefore anything we put on this line will not be accepted. The next
- element is 4. This means we are filtering by the spotter. The third
- element is the letter "a" which tells the program to expect an
- alphanumeric expression in the fourth element. The fourth element is
- a list of letters separated by the pipe symbol.
-
-
-
- What this line does is tell the program to drop any spots posted by
- anyone in the USA, Canada or Japan.
-
-
- The second line is the default rule for anything else. The "d" tells
- us this and the line simply reads... accept anything else.
-
-
- You can add as many lines as you need to complete the filter but if
- there are several lines of the same type it is neater to enclose them
- all as one line. An example of this is where specific bands are set.
- We could write this like this ....
-
- [ 0,0,'r',[1800.0, 2000.0], 1],
- [ 0,0,'r',[10100.0, 10150.0], 1],
- [ 0,0,'r',[14000.0, 14350.0], 1],
- [ 0,0,'r',[18000.0, 18200.0], 1],
+ where filter_option is one of the following ...
+ call <prefixes>
+ call_dxcc <numbers>
+ call_itu <numbers>
+ call_zone <numbers>
+ origin <prefixes>
+ origin_dxcc <numbers>
+ origin_itu <numbers>
+ origin_zone <numbers>
- But the line below achieves the same thing and is more efficient ....
- [ 0, 0, 'r',
- [
- 1800.0, 2000.0, # top band
- 10100.0, 10150.0, # WARC
- 14000.0, 14350.0, # 20m
- 18000.0, 18200.0, # WARC
- [ ,1 ],
+ Please be careful if you alter this setting, it will affect ALL your
+ links!
+ 1.4. General route filtering
+ Exactly the same rules apply for general route filtering. You would
+ use either an accept filter or a reject filter like this ...
- 2.2. Announcements
+ reject/route <node_call> <filter_option>
+ or
+ accept/route <node_call> <filter_option>
- # This is an example announce or filter allowing only West EU announces
- #
- # The element list is:-
- # 0 - callsign of announcer
- # 1 - destination * = all, <callsign> = routed to the node
- # 2 - text
- # 3 - * - sysop, <some text> - special list eg 6MUK, ' ', normal announce
- # 4 - origin
- # 5 - 0 - announce, 1 - wx
- # 6 - channel callsign (the interface from which this spot came)
- $in = [
- [ 1, 0, 'a', '^(P[ABCDE]|DK0WCY|G|M|2|EI|F|ON)' ],
- [ 0, 0, 'd', 0 ]
- ];
+ where filter_option is one of the following ...
- In this example, only the prefixes listed will be allowed. It is
- possible to be quite specific. The Dutch prefix "P" is followed by
- several secondary identifiers which are allowed. So, in the example,
- "PA" or "PE" would be ok but not "PG". It is even possible to allow
- information from a single callsign. In the example this is DK0WCY, to
- allow the posting of his Aurora Beacon.
+ call <prefixes>
+ call_dxcc <numbers>
+ call_itu <numbers>
+ call_zone <numbers>
+ origin <prefixes>
+ origin_dxcc <numbers>
+ origin_itu <numbers>
+ origin_zone <numbers>
- 2.3. WWV
- # This is an example WWV filter
- #
- # The element list is:-
- # 0 - nominal unix date of spot (ie the day + hour:13)
- # 1 - the hour
- # 2 - SFI
- # 3 - K
- # 4 - I
- # 5 - text
- # 6 - spotter
- # 7 - origin
- # 8 - incoming interface callsign
- # this one doesn't filter, it just sets the hop count to 6 and is
- # used mainly just to override any isolation from WWV coming from
- # the internet.
+ Here are some examples of route filters ...
- $in = [
- [ 1, 0, 'd', 0, 6 ]
- ];
+ rej/route gb7djk call_dxcc 61,38 (everything except UK+EIRE nodes)
+ rej/route all (equiv to [very] restricted mode)
+ acc/route gb7djk call_dxcc 61,38 (send only UK+EIRE nodes)
+ acc/route gb7djk call gb7djk (equiv to SET/ISOLATE)
- It should be noted that the filter will start to be used only once a
- user/node has logged out and back in again.
- I am not going to spend any more time on these filters now as they
- will become more "comprehensive" in the near future.
-
- 3. Filtering (New Style v1.45 and later)
-
- 3.1. General filter rules
+ 1.5. General filter rules
Upto v1.44 it was not possible for the user to set their own filters.
From v1.45 though that has all changed. It is now possible to set
In general terms you can create a 'reject' or an 'accept' filter which
can have up to 10 lines in it. You do this using, for example ...
+
+
+
accept/spots .....
reject/spots .....
- show/filter
+
+ show/filter
the same principles to all types of filter.
- 3.2. Types of filter
+ 1.6. Types of filter
There are two main types of filter, accept or reject. You can use
either to achieve the result you want dependent on your own preference
then you will ONLY get VHF spots from or to CQ zones 14, 15 and 16.
+
If you set a reject filter like this ...
-
which achieves exactly the same thing. You should choose one or the
other until you are comfortable with the way it works. You can mix
them if you wish (actually you can have an accept AND a reject on the
originated there). If you did not have the brackets to separate the 2
sections, then Spider would read it logically from the front and see a
different expression entirely ...
+
+
+
(on 50000/1400000 and by_zone 14,15,16) or call_zone 14,15,16
clear/spots 1
-
-
-
To remove all the filter lines in the spot filter ...
- 3.3. Filter options
+ 1.7. Filter options
You can filter in several different ways. The options are listed in
the various helpfiles for accept, reject and filter.
- 3.4. Default filters
+ 1.8. Default filters
Sometimes all that is needed is a general rule for node connects.
This can be done with a node_default filter. This rule will always be
to add a rule for the hops for spots also.
- 3.5. Advanced filtering
+ 1.9. Advanced filtering
Once you are happy with the results you get, you may like to
experiment.
VHF/UHF spots from EU.
+ 1.10. Basic hop control
+
+ In /spider/data you will find a file called hop_table.pl. This is the
+ file that controls your hop count settings. It has a set of default
+ hops on the various PC frames and also a set for each node you want to
+ alter the hops for. You may be happy with the default settings of
+ course, but this powerful tool can help to protect and improve the
+ network. The file will look something like this ...
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ #
+ # hop table construction
+ #
+
+ package DXProt;
+
+ # default hopcount to use
+ $def_hopcount = 5;
+
+ # some variable hop counts based on message type
+ %hopcount =
+ (
+ 11 => 10,
+ 16 => 10,
+ 17 => 10,
+ 19 => 10,
+ 21 => 10,
+ );
+
+
+ # the per node hop control thingy
+
+
+ %nodehops =
+
+ GB7ADX => { 11 => 8,
+ 12 => 8,
+ 16 => 8,
+ 17 => 8,
+ 19 => 8,
+ 21 => 8,
+ },
+
+ GB7UDX => { 11 => 8,
+ 12 => 8,
+ 16 => 8,
+ 17 => 8,
+ 19 => 8,
+ 21 => 8,
+ },
+ GB7BAA => {
+ 11 => 5,
+ 12 => 8,
+ 16 => 8,
+ 17 => 8,
+ 19 => 8,
+ 21 => 8,
+ },
+ };
+
+
+
+
+
+ Each set of hops is contained within a pair of curly braces and
+ contains a series of PC frame types. PC11 for example is a DX spot.
+ The figures here are not exhaustive but should give you a good idea of
+ how the file works.
+
+
+ You can alter this file at any time, including whilst the cluster is
+ running. If you alter the file during runtime, the command load/hops
+ will bring your changes into effect.
+
+
+
+ 1.11. Isolating networks
+
+ It is possible to isolate networks from each other on a "gateway" node
+ using the set/isolate <node_call> command.
+
+
+ The effect of this is to partition an isolated network completely from
+ another node connected to your node. Your node will appear on and
+ otherwise behave normally on every network to which you are connected,
+ but data from an isolated network will not cross onto any other
+ network or vice versa. However all the spot, announce and WWV traffic
+ and personal messages will still be handled locally (because you are a
+ real node on all connected networks), that is locally connected users
+ will appear on all networks and will be able to access and receive
+ information from all networks transparently. All routed messages will
+ be sent as normal, so if a user on one network knows that you are a
+ gateway for another network, he can still still send a talk/announce
+ etc message via your node and it will be routed across.
+
+
+ The only limitation currently is that non-private messages cannot be
+ passed down isolated links regardless of whether they are generated
+ locally. This will change when the bulletin routing facility is added.
+
+
+ If you use isolate on a node connection you will continue to receive
+ all information from the isolated partner, however you will not pass
+ any information back to the isolated node. There are times when you
+ would like to forward only spots across a link (maybe during a contest
+ for example). To do this, isolate the node in the normal way and put
+ in a filter in the /spider/filter/spots directory to override the
+ isolate. This filter can be very simple and consists of just one line
+ ....
+
+
+
+ $in = [
+ [ 1, 0, 'd', 0, 3] # The last figure (3) is the hop count
+ ];
+
+
+
- 4. Other filters
- 4.1. Filtering Mail
+ 2. Other filters
+
+ 2.1. Filtering Mail
In the /spider/msg directory you will find a file called
badmsg.pl.issue. Rename this to badmsg.pl and edit the file. The
-
-
# the list of regexes for messages that we won't store having
# received them (bear in mind that we must receive them fully before
# we can bin them)
etc in a particular country.
- 4.2. Filtering DX callouts (Depricated)
+ 2.2. Filtering DX callouts (Depricated)
From version 1.47, this method is replaced by the command set/baddx
- 4.3. Filtering words from text fields in Announce, Talk and DX spots
+ 2.3. Filtering words from text fields in Announce, Talk and DX spots
Create a file in /spider/data called badwords. The format is quite
simple. Lines beginning with # are ignored so comments can be added.
load/badwords.
- 5. Mail
+ 3. Mail
DXSpider deals seamlessly with standard AK1A type mail. It supports
both personal and bulletin mail and the sysop has additional commands
The cluster mail is automatically deleted after 30 days unless the
sysop sets the "keep" flag using the msg command.
- 5.1. Personal mail
+ 3.1. Personal mail
Personal mail is sent using the sp command. This is actually the
default method of sending mail and so a simple s for send will do. A
section, so I will not duplicate them here.
- 5.2. Bulletin mail
+ 3.2. Bulletin mail
Bulletin mail is sent by using the sb command. This is one of the
most common mistakes users make when sending mail. They send a
Bulletin addresses can be set using the Forward.pl file.
- 5.3. Forward.pl
+ 3.3. Forward.pl
DXSpider receives all and any mail sent to it without any alterations
needed in files. Because personal and bulletin mail are treated
- 5.4. The msg command
+ 3.4. The msg command
The msg command is a very powerful and flexible tool for the sysop.
It allows the sysop to alter to and from fields and make other changes
user.
- 5.5. Message status
+ 3.5. Message status
You can check on a message from within the cluster by using the
command stat/msg. This will give you additional information on the
- 5.6. Filtering mail
+ 3.6. Filtering mail
This is described in the section on Other filters so I will not
duplicate it here.
- 5.7. Distribution lists
+ 3.7. Distribution lists
Distribution lists are simply a list of users to send certain types of
mail to. An example of this is mail you only wish to send to other
list.
- 5.8. BBS interface
+ 3.8. BBS interface
Spider provides a simple BBS interface. No input is required from the
sysop of the cluster at all. The BBS simply sets the cluster as a BBS
using the Forward.pl file very carefully.
- 6. Databases
+ 4. Databases
Spider allows the creation of local or remote databases. It supports
chained databases, allowing several different databases to be scanned
database but will expand with time.
- 6.1. Creating databases
+ 4.1. Creating databases
Creating a database could not be more simple. All the commands are
sent from the cluster prompt as the sysop user.
chain can be a remote database.
- 6.2. Importing databases
+ 4.2. Importing databases
The only databases that Spider can currently import are the standard
AK1A databases such as OBLAST or the DB0SDX qsl and address database.
does not exist.
- 6.3. Checking available databases
+ 4.3. Checking available databases
Once a database is created, you will want to check that it has been
added. To do this use the dbavail command. This will output the
- 6.4. Looking up databases
+ 4.4. Looking up databases
To look for information in a defined database, simply use the dbshow
command, for example ...
Now you can simply use show/buckmaster or an abreviation.
- 6.5. Removing databases
+ 4.5. Removing databases
To delete an existing database you use the dbremove command. For
example ...
created from scratch if you still required it.
- 7. Information, files and useful programs
+ 5. Information, files and useful programs
- 7.1. MOTD
+ 5.1. MOTD
One of the more important things a cluster sysop needs to do is to get
information to his users. The simplest way to do this is to have a
to the cluster.
- 7.2. Downtime message
+ 5.2. Downtime message
If for any reason the cluster is down, maybe for upgrade or
maintenance but the machine is still running, a message can be sent to
actually running.
- 7.3. Other text messages
+ 5.3. Other text messages
You can set other text messages to be read by the user if they input
the file name. This could be for news items or maybe information for
The page length will of course depend on what you have it set to!
- 7.4. The Aliases file
+ 5.4. The Aliases file
You will find a file in /spider/cmd/ called Aliases. First, copy this
file to /spider/local_cmd/Aliases and edit this file. You will see
the results once you have set an alias.
- 7.5. Console.pl
+ 5.5. Console.pl
In later versions of Spider a simple console program is provided for
the sysop. This has a type ahead buffer with line editing facilities
edit the file with your favourite editor.
- 7.6. Updating kepler data
+ 5.6. Updating kepler data
Spider has a powerful and flexible show/satellite command. In order
for this to be accurate, the kepler data has to be updated regularly.
- 7.7. The QRZ callbook
+ 5.7. The QRZ callbook
The command sh/qrz will only work once you have followed a few simple
steps. First you need to get a user ID and password from qrz.com.
proprieter of qrz.com for allowing this access.
- 8. CVS
+ 6. CVS
CVS stands for "Concurrent Versions System" and the CVS for DXSpider
is held at Sourceforge. This means that it is possible to update your
You will find any changes documented in the /spider/Changes file.
- 9. The DXSpider command set
+ 7. The DXSpider command set
Below is a complete list of commands available from the cluster
prompt. Most maintenance tasks are automatic but there are some
is the permissions level needed to use the command.
- 9.1. accept/announce (0)
+ 7.1. accept/announce (0)
accept/announce [0-9] <pattern> Set an accept filter line for announce
but this probably for advanced users...
- 9.2. accept/announce (extended for sysops) (8)
+ 7.2. accept/announce (extended for sysops) (8)
accept/announce <call> [input] [0-9]<pattern> Announce filter sysop
version
- 9.3. accept/spots (0)
+ 7.3. accept/route (8)
+
+ accept/route <call> [0-9] <pattern> Set an 'accept' filter line for
+ routing
+
+
+ Create an 'accept this routing PC Protocol' line for a filter.
+
+
+ An accept filter line means that if a PC16/17/19/21/24/41/50 matches
+ this filter it is passed thru that interface. See HELP FILTERING for
+ more info. Please read this to understand how filters work - it will
+ save a lot of grief later on.
+
+
+ You can use any of the following things in this line:-
+
+
+
+ call <prefixes> the callsign of the thingy
+ call_dxcc <numbers> eg: 61,62 (from eg: sh/pre G)
+ call_itu <numbers>
+ call_zone <numbers>
+ origin <prefixes> really the interface it came in on
+ origin_dxcc <numbers> eg: 61,62 (from eg: sh/pre G)
+ origin_itu <numbers>
+ origin_zone <numbers>
+
+
+
+
+
+ some examples:-
+
+
+
+ acc/route gb7djk call_dxcc 61,38 (send only UK+EIRE nodes)
+ acc/route gb7djk call gb7djk (equiv to SET/ISOLATE)
+
+ You can use the tag 'all' to accept everything eg:
+
+
+
+ acc/route all
+
+
+
+
+
+ 7.4. accept/spots (0)
accept/announce [0-9] <pattern> Set an accept filter line for spots
thus: hf/ssb. You can also just have a simple range like: 0/30000 -
this is more efficient than saying simply: freq HF (but don't get too
hung up about that)
+
some examples:-
acc/spot 3 all
-
-
-
but this probably for advanced users...
- 9.4. accept/spots (extended for sysops) (8)
+ 7.5. accept/spots (extended for sysops) (8)
accept/spots <call> [input] [0-9] <pattern> Spot filter sysop version
- 9.5. accept/wcy (0)
+ 7.6. accept/wcy (0)
accept/wcy [0-9] <pattern> set an accept WCY filter
See HELP FILTER for information.
- 9.6. accept/wcy (extended for sysops) (8)
+ 7.7. accept/wcy (extended for sysops) (8)
accept/wcy <call> [input] [0-9] <pattern> WCY filter sysop version
- accept/wcy node_default all
- set/hops node_default 10
+ accept/wcy node_default all
+ set/hops node_default 10
- 9.7. accept/wwv (0)
+ 7.8. accept/wwv (0)
accept/wwv [0-9] <pattern> Set an accept WWV filter
See HELP FILTER for information.
-
-
- 9.8. accept/wwv (extended for sysops) (8)
+ 7.9. accept/wwv (extended for sysops) (8)
accept/wwv <call> [input] [0-9] <pattern> WWV filter sysop version
- 9.9. announce (0)
+
+ 7.10. announce (0)
announce <text> Send an announcement to local users
Send an announcement to LOCAL users only, where <text> is the text of
- the announcement you wish to broadcast
+ the announcement you wish to broadcast. If you do not wish to receive
+ announces, use the set/noannounce command. Any announces made by a
+ sysop will override set/noannounce.
- 9.10. announce full (0)
+ 7.11. announce full (0)
announce full <text> Send an announcement cluster wide
- 9.11. announce sysop (5)
+ 7.12. announce sysop (5)
announce sysop <text>
Send an announcement to Sysops only
- 9.12. apropos (0)
+ 7.13. apropos (0)
apropos <string> Search the help database
print the names of all the commands that may be relevant.
- 9.13. bye (0)
+ 7.14. bye (0)
bye Exit from the cluster
This will disconnect you from the cluster
-
-
- 9.14. catchup (5)
+ 7.15. catchup (5)
catchup <node_call> All|[<msgno> ...] Mark a message as sent
Order is not important.
- 9.15. clear/spots (0)
+ 7.16. clear/spots (0)
clear/spots [1|all] Clear a spot filter line
- acc/spot 2 on vhf and (by_zone 14,15,16 or call_zone 14,15,16)
+ acc/spot 2 on vhf and (by_zone 14,15,16 or call_zone 14,15,16)
- 9.16. connect (5)
+
+
+ 7.17. connect (5)
connect <callsign> Start a connection to another DX Cluster
cluster <callsign>.
- 9.17. dbavail (0)
+ 7.18. dbavail (0)
dbavail Show a list of all the databases in the system
defined in the system. It is also aliased to SHOW/COMMAND.
- 9.18. dbcreate (9)
+ 7.19. dbcreate (9)
dbcreate <name> Create a database entry
dbcreate <name> chain <name> [<name>..] Create a chained database
No checking is done to see if the any of the chained databases exist,
in fact it is usually better to do the above statement first then do
each of the chained databases.
+
Databases can exist offsite. To define a database that lives on
another node do:
It would be normal for you to add an entry into your local Aliases
file to allow people to use the 'SHOW/<dbname>' style syntax. So you
would need to add a line like:-
-
-
-
's' => [
..
..
databases. See DBSHOW for generic database enquiry
- 9.19. dbimport (9)
+ 7.20. dbimport (9)
dbimport <dbname> Import AK1A data into a database
oblast database held locally.
- 9.20. dbremove (9)
+ 7.21. dbremove (9)
dbremove <dbname> Delete a database
You have been warned.
- 9.21. dbshow (0)
+ 7.22. dbshow (0)
dbshow <dbname> <key> Display an entry, if it exists, in a database
+
This is the generic user interface to the database to the database
system. It is expected that the sysop will add an entry to the local
Aliases file so that users can use the more familiar AK1A style of
- 9.22. debug (9)
+ 7.23. debug (9)
debug Set the cluster program into debug mode
finished.
- 9.23. directory (0)
+ 7.24. directory (0)
directory List messages
directory own List your own messages
You can combine some of the various directory commands together eg:-
-
DIR TO G1TLH 5
or
DIR SUBJECT IOTA 200-250
- 9.24. directory (extended for sysops) (5)
+ 7.25. directory (extended for sysops) (5)
Works just like the user command except that sysops can see ALL
messages.
- 9.25. disconnect (8)
+ 7.26. disconnect (8)
disconnect <call> [<call> ...] Disconnect a user or node
Disconnect any <call> connected locally
- 9.26. dx (0)
+ 7.27. dx (0)
dx [by <call>] <freq> <call> <remarks> Send a DX spot
-
-
- DX FR0G 144.600
- DX 144.600 FR0G
- DX 144600 FR0G
+ DX FR0G 144.600
+ DX 144.600 FR0G
+ DX 144600 FR0G
- DX by G1TLH FR0G 144.600 he isn't on the cluster
+
+ DX by G1TLH FR0G 144.600 he isn't on the cluster
cluster. See SHOW/BANDS for more information.
- 9.27. export (9)
+ 7.28. export (9)
export <msgno> <filename> Export a message to a file
EXPORT 2345 /tmp/a
- 9.28. export_users (9)
+ 7.29. export_users (9)
export_users [<filename>] Export the users database to ascii
check is made on the filename (if any) that you specify.
-
-
- 9.29. forward/latlong (8)
+ 7.30. forward/latlong (8)
forward/latlong <node_call> Send latitude and longitude information to
another cluster
so it is not recommended on slow links.
- 9.30. forward/opername (1)
+ 7.31. forward/opername (1)
forward/opername <call> Send out information on this <call> to all
clusters
available.
- 9.31. help (0)
+ 7.32. help (0)
help <cmd> Get help on a command
commands to look at with HELP.
- 9.32. init (5)
+ 7.33. init (5)
init <node call> Re-initialise a link to an AK1A compatible node
Best of luck - you will need it.
- 9.33. kill (0)
+ 7.34. kill (0)
kill <msgno> [<msgno> ..] Delete a message from the local system
the sysop).
-
-
-
- 9.34. kill (5)
+ 7.35. kill (5)
kill <msgno> [<msgno> ...] Remove or erase a message from the system
kill from <call> Remove all messages from a callsign
As a sysop you can kill any message on the system.
- 9.35. kill full (5)
+ 7.36. kill full (5)
kill full <msgno> [<msgno>] Delete a message from the whole cluster
same subject will be deleted. Beware!
- 9.36. links (0)
+
+
+ 7.37. links (0)
links Show which nodes are physically connected
- 9.37. load/aliases (9)
+ 7.38. load/aliases (9)
load/aliases Reload the command alias table
- 9.38. load/baddx (9)
+ 7.39. load/baddx (9)
load/baddx Reload the bad DX table
if spotted, will not be passed on. FR0G and TEST are classic examples.
- 9.39. load/badmsg (9)
+ 7.40. load/badmsg (9)
load/badmsg Reload the bad message table
each message. If any of them match then that message is immediately
deleted on receipt.
- 9.40. load/badwords (9)
+
+ 7.41. load/badwords (9)
load/badwords Reload the badwords file
ignored.
- 9.41. load/bands (9)
+ 7.42. load/bands (9)
load/bands Reload the band limits table
whilst the cluster is running.
- 9.42. load/cmd_cache (9)
+ 7.43. load/cmd_cache (9)
load/cmd_cache Reload the automatic command cache
was just after a cluster restart.
- 9.43. load/forward (9)
+ 7.44. load/forward (9)
load/forward Reload the msg forwarding routing table
whilst the cluster is running.
- 9.44. load/messages (9)
+ 7.45. load/messages (9)
load/messages Reload the system messages file
unknown message 'xxxx' in lang 'en'
- 9.45. load/prefixes (9)
+ 7.46. load/prefixes (9)
load/prefixes Reload the prefix table
manually whilst the cluster is running.
- 9.46. merge (5)
+ 7.47. merge (5)
merge <node> [<no spots>/<no wwv>] Ask for the latest spots and WWV
data).
- 9.47. msg (9)
+ 7.48. msg (9)
msg <cmd> <msgno> [data ...] Alter various message parameters
Alter message parameters like To, From, Subject, whether private or
bulletin or return receipt (RR) is required or whether to keep this
message from timing out.
-
-
-
MSG TO <msgno> <call> - change TO callsign to <call>
MSG FRom <msgno> <call> - change FROM callsign to <call>
MSG PRrivate <msgno> - set private flag
This will display more information on the message than DIR does.
- 9.48. pc (8)
+ 7.49. pc (8)
pc <call> <text> Send text (eg PC Protocol) to <call>
You can also use in the same way as a talk command to a connected user
but without any processing, added of "from <blah> to <blah>" or
whatever.
+
pc G1TLH Try doing that properly!!!
- 9.49. ping (1)
+ 7.50. ping (1)
ping <node> Check the link quality between nodes
- 9.50. rcmd (1)
+ 7.51. rcmd (1)
rcmd <node call> <cmd> Send a command to another DX cluster
This command allows you to send nearly any command to another DX
Cluster node that is connected to the system.
+
Whether you get any output is dependant on a) whether the other system
knows that the node callsign of this cluster is in fact a node b)
whether the other system is allowing RCMDs from this node and c)
whether you have permission to send this command at all.
- 9.51. read (0)
+ 7.52. read (0)
read Read the next unread personal message addressed to you
read <msgno> Read the specified message
- 9.52. read (extended for sysops) (5)
+ 7.53. read (extended for sysops) (5)
read <msgno> Read a message on the system
As a sysop you may read any message on the system
- 9.53. reject/announce
+ 7.54. reject/announce
reject/announce [0-9] <pattern> Set a reject filter for announce
-
- info <string> eg: iota or qsl
- by <prefixes> eg: G,M,2
- origin <prefixes>
- origin_dxcc <numbers> eg: 61,62 (from eg: sh/pre G)
- origin_itu <numbers>
- origin_zone <numbers>
- by_dxcc <numbers>
- by_itu <numbers>
- by_zone <numbers>
- channel <prefixes>
- wx 1 filter WX announces
- dest <prefixes> eg: 6MUK,WDX (distros)
+ info <string> eg: iota or qsl
+ by <prefixes> eg: G,M,2
+ origin <prefixes>
+ origin_dxcc <numbers> eg: 61,62 (from eg: sh/pre G)
+ origin_itu <numbers>
+ origin_zone <numbers>
+ by_dxcc <numbers>
+ by_itu <numbers>
+ by_zone <numbers>
+ channel <prefixes>
+ wx 1 filter WX announces
+ dest <prefixes> eg: 6MUK,WDX (distros)
but this probably for advanced users...
- 9.54. reject/announce (extended for sysops) (8)
+ 7.55. reject/announce (extended for sysops) (8)
reject/announce <call> [input] [0-9] <pattern> Announce filter sysop
version
- 9.55. reject/spots (0)
+ 7.56. reject/route (8)
+
+ reject/route <call> [0-9] <pattern> Set an 'reject' filter line for
+ routing
+
+
+ Create an 'reject this routing PC Protocol' line for a filter.
+
+
+ An reject filter line means that if a PC16/17/19/21/24/41/50 matches
+ this filter it is NOT passed thru that interface. See HELP FILTERING
+ for more info. Please read this to understand how filters work - it
+ will save a lot of grief later on. You can use any of the following
+ things in this line:-
+
+
+
+ call <prefixes> the callsign of the thingy
+ call_dxcc <numbers> eg: 61,62 (from eg: sh/pre G)
+ call_itu <numbers>
+ call_zone <numbers>
+ origin <prefixes> really the interface it came in on
+ origin_dxcc <numbers> eg: 61,62 (from eg: sh/pre G)
+ origin_itu <numbers>
+ origin_zone <numbers>
+
+
+
+
+
+ some examples:-
+
+
+
+
+ rej/route gb7djk call_dxcc 61,38 (everything except UK+EIRE nodes)
+
+
+
+
+
+ You can use the tag 'all' to reject everything eg:
+
+
+
+ rej/route all (equiv to [very] restricted mode)
+
+
+
+
+
+ 7.57. reject/spots (0)
reject/spots [0-9] <pattern> Set a reject filter line for spots
+
You can use the tag 'all' to reject everything eg:
but this probably for advanced users...
- 9.56. reject/spots (extended for sysops) (8)
+ 7.58. reject/spots (extended for sysops) (8)
reject/spots <call> [input] [0-9] <pattern> Reject spot filter sysop
version
+ reject/spot db0sue-7 1 by_zone 14,15,16
+ reject/spot node_default all
+ set/hops node_default 10
-
-
-
- reject/spot db0sue-7 1 by_zone 14,15,16
- reject/spot node_default all
- set/hops node_default 10
-
- reject/spot user_default by G,M,2
+ reject/spot user_default by G,M,2
- 9.57. reject/wcy (0)
+ 7.59. reject/wcy (0)
reject/wcy [0-9] <pattern> Set a reject WCY filter
See HELP FILTER for information.
- 9.58. reject/wcy (extended for sysops) (8)
+
+ 7.60. reject/wcy (extended for sysops) (8)
reject/wcy <call> [input] [0-9] <pattern> WCY reject filter sysop
version
reject/wcy gb7djk all
- 9.59. reject/wwv (0)
+ 7.61. reject/wwv (0)
reject/wwv [0-9] <pattern> Set a reject WWV filter
-
-
- by <prefixes> eg: G,M,2
- origin <prefixes>
- origin_dxcc <numbers> eg: 61,62 (from eg: sh/pre G)
- origin_itu <numbers>
- origin_zone <numbers>
- by_dxcc <numbers>
- by_itu <numbers>
- by_zone <numbers>
- channel <prefixes>
+ by <prefixes> eg: G,M,2
+ origin <prefixes>
+ origin_dxcc <numbers> eg: 61,62 (from eg: sh/pre G)
+ origin_itu <numbers>
+ origin_zone <numbers>
+ by_dxcc <numbers>
+ by_itu <numbers>
+ by_zone <numbers>
+ channel <prefixes>
See HELP FILTER for information.
- 9.60. reject/wwv (extended for sysops) (8)
+ 7.62. reject/wwv (extended for sysops) (8)
reject/wwv <call> [input] [0-9] <pattern> WWV reject filter sysop
version
reject/wwv user_default by W
-
-
-
-
- 9.61. reply (0)
+ 7.63. reply (0)
reply Reply (privately) to the last message that you have read
reply <msgno> Reply (privately) to the specified message
further details)
-
- 9.62. send (0)
+ 7.64. send (0)
send <call> [<call> ...] Send a message to one or more callsigns
send RR <call> Send a message and ask for a read receipt
is an alias for SEND PRIVATE
- 9.63. set/address (0)
+ 7.65. set/address (0)
set/address <your_address> Record your postal address
Literally, record your address details on the cluster.
- 9.64. set/announce (0)
+ 7.66. set/announce (0)
set/announce Allow announce messages
Allow announce messages to arrive at your terminal.
-
- 9.65. set/arcluster (5)
+ 7.67. set/arcluster (5)
set/arcluster <node_call> [<node_call> ...] Make the node_call an AR-
Cluster type node
Set the node_call as an AR-Cluster type node
- 9.66. set/baddx (8)
+ 7.68. set/baddx (8)
set/baddx <call> Stop words we do not wish to see in the callsign
field of a dx spot being propagated
-
Setting a word as 'baddx' will prevent spots with that word in the
callsign field of a DX spot from going any further. They will not be
displayed and they will not be sent onto other nodes.
- 9.67. set/badnode (6)
+ 7.69. set/badnode (6)
set/badnode <node_call> Stop spots from this node_call being
propagated
FILTERing.
- 9.68. set/badspotter (8)
+ 7.70. set/badspotter (8)
set/badspotter <call> Stop spots from this callsign being propagated
FILTERing.
- 9.69. set/beep (0)
+ 7.71. set/beep (0)
set/beep Add beeps to terminal messages
Add a beep to DX and other terminal messages.
- 9.70. set/clx (5)
+ 7.72. set/bbs (5)
+
+ set/bbs <call> [<call>..]Make <call> a BBS
+
+
+ 7.73. set/clx (5)
set/clx <node_call> [<node_call> ...] Make the node_call a CLX type
node
Set the node_call as a CLX type node
- 9.71. set/debug (9)
+ 7.74. set/debug (9)
set/debug <name> Add a debug level to the debug set
-
You can choose to log several different levels. The levels are
chan state msg cron connect
You can remove a debug level with unset/debug <name>
- 9.72. set/dx (0)
+ 7.75. set/dx (0)
set/dxAllow DX messages to arrive at your terminal
You can stop DX messages with the unset/dx command
-
-
- 9.73. set/dxgrid (0)
+ 7.76. set/dxgrid (0)
set/dxgridAllow grid squares on the end of DX messages
to remove the grid squares.
- 9.74. set/dxnet (5)
+ 7.77. set/dxnet (5)
set/dxnet <node_call> [<node_call> ...] Make the node_call a DXNet
type node
Set the node_call as a DXNet type node
- 9.75. set/echo (0)
+ 7.78. set/echo (0)
set/echo Make the cluster echo your input
YOU DO NOT NEED TO USE THIS COMMAND IF YOU ARE CONNECTED VIA AX25.
- 9.76. set/here (0)
+ 7.79. set/here (0)
set/here Set the here flag
brackets around your callsign to indicate you are not available.
- 9.77. set/homenode (0)
+
+
+ 7.80. set/homenode (0)
set/homenode <node_call> Set your home cluster
-
-
- 9.78. set/hops (8)
+ 7.81. set/hops (8)
set/hops <node_call> ann|spots|wwv|wcy <n> Set hop count
creates a filter and works in conjunction with the filter system.
- 9.79. set/isolate (9)
+ 7.82. set/isolate (9)
set/isolate <node call> Isolate a node from the rest of the network
You can remove the isolation with the command unset/isolate.
- 9.80. set/language (0)
+ 7.83. set/language (0)
set/language <language> Set the language you wish to use
You can select the language that you want the cluster to use.
Currently the languages available are en (English) and nl (Dutch).
-
- 9.81. set/location (0)
+ 7.84. set/location (0)
set/location <lat and long> Set your latitude and longitude
- 9.82. set/sys_location (9)
+
+ 7.85. set/sys_location (9)
set/sys_location <lat & long> Set your cluster latitude and longitude
- 9.83. set/logininfo (0)
+ 7.86. set/logininfo (0)
set/logininfo Show logins and logouts of nodes and users
- 9.84. set/lockout (9)
+ 7.87. set/lockout (9)
set/lockout <call> Stop a callsign connecting to the cluster
allow the user to connect again, use the unset/lockout command.
- 9.85. set/name (0)
+ 7.88. set/name (0)
set/name <your_name> Set your name
set/name Dirk
-
-
-
- 9.86. set/node (9)
+ 7.89. set/node (9)
set/node <call> [<call> ...] Make the callsign an AK1A cluster
-
-
- set/spider
- set/dxnet
- set/clx
- set/arcluster
+ set/spider
+ set/dxnet
+ set/clx
+ set/arcluster
To see what your nodes are set to, use the show/nodes command.
- 9.87. set/obscount (9)
+ 7.90. set/obscount (9)
set/obscount <count> <node call> Set the 'pump-up' obsolescence
counter
minutes, it is disconnected.
- 9.88. set/page (0)
+ 7.91. set/page (0)
set/page <n> Set the number of lines per page
- 9.89. set/password (9)
+
+ 7.92. set/password (9)
set/password <callsign> <string> Set a users password
type password.
-
- 9.90. set/pinginterval (9)
+ 7.93. set/pinginterval (9)
set/pinginterval <time> <node call> Set the ping time to neighbouring
nodes
for more information.
- 9.91. set/privilege (9)
+ 7.94. set/privilege (9)
set/privilege <n> <call> [<call> ...] Set the privilege level on a
call
connection your privilege will automatically be set to 0.
- 9.92. set/spider (5)
+ 7.95. set/spider (5)
set/spider <node_call> [<node_call> ...] Make the node_call a DXSpider
type node
+
Set the node_call as a DXSpider type node
- 9.93. set/sys_qra (9)
+ 7.96. set/sys_qra (9)
set/sys_qra <locator> Set your cluster QRA locator
- 9.94. set/qra (0)
+ 7.97. set/qra (0)
set/qra <locator> Set your QRA locator
- 9.95. set/qth (0)
+ 7.98. set/qth (0)
set/qth <your QTH> Set your QTH
- 9.96. set/talk (0)
+ 7.99. set/talk (0)
set/talk Allow talk messages to be seen at your console
talks with the unset/talk command.
- 9.97. set/wcy (0)
+ 7.100. set/wcy (0)
set/wcy Allow WCY messages to be seen at your console
WCY messages with the unset/wcy command.
- 9.98. set/wwv (0)
+ 7.101. set/wwv (0)
set/wwv Allow WWV messages to be seen at your console
Allow WWV information to be seen at your console. You can switch off
WWV messages with the unset/wwv command.
-
- 9.99. set/wx (0)
+ 7.102. set/wx (0)
set/wx Allow WX messages to be seen at your console
WX messages with the unset/wx command.
-
-
-
- 9.100. show/baddx (1)
+ 7.103. show/baddx (1)
show/baddxShow all the bad dx calls in the system
information.
- 9.101. show/badnode (6)
+ 7.104. show/badnode (6)
show/badnode Show all the bad nodes in the system
more information.
- 9.102. show/badspotter (1)
+ 7.105. show/badspotter (1)
show/badspotter Show all the bad spotters in the system
SET/BADSPOTTER for more information.
- 9.103. show/configuration (0)
+ 7.106. show/configuration (0)
show/configuration [<node>] Show all visible nodes and their users
BE WARNED: the list that is returned can be VERY long
- 9.104. show/configuration/node (0)
+ 7.107. show/configuration/node (0)
show/configuration/node Show all the nodes connected
connected.
- 9.105. show/connect (1)
+ 7.108. show/connect (1)
show/connect Show all the active connections
This command shows information on all the active connections known to
the node. This command gives slightly more information than WHO.
-
-
- 9.106. show/date (0)
+ 7.109. show/date (0)
show/date [<prefix>|<callsign>] Show the local time
This is very nearly the same as SHOW/TIME, the only difference the
format of the date string if no arguments are given.
+
If no prefixes or callsigns are given then this command returns the
local time and UTC as the computer has it right now. If you give some
prefixes then it will show UTC and UTC + the local offset (not
including DST) at the prefixes or callsigns that you specify.
- 9.107. show/debug (9)
+ 7.110. show/debug (9)
show/debug Show what levels of debug you are logging
The levels can be set with set/debug
- 9.108. show/dx (0)
+ 7.111. show/dx (0)
show/dx [options] interrogate the spot database
qra [<locator>] - this will look for the specific locator if
you specify one or else anything that looks like a locator.
-
-
-
e.g.
- SH/DX 9m0
- SH/DX on 20m info iota
- SH/DX 9a on vhf day 30
- SH/DX rf1p qsl
- SH/DX iota
- SH/DX iota eu-064
- SH/DX qra jn86
+ SH/DX 9m0
+ SH/DX on 20m info iota
+ SH/DX 9a on vhf day 30
+ SH/DX rf1p qsl
+ SH/DX iota
+ SH/DX iota eu-064
+ SH/DX qra jn86
- 9.109. show/dxcc (0)
+ 7.112. show/dxcc (0)
show/dxcc <prefix> Interrogate the spot database by country
- 9.110. show/files (0)
+ 7.113. show/files (0)
show/files [<filearea> [<string>]] List the contents of a filearea
-
See also TYPE - to see the contents of a file.
-
- 9.111. show/filter (0)
+ 7.114. show/filter (0)
show/filter Show the filters you have set
displays all the filters set - for all the various categories.
- 9.112. show/filter (extended for sysops) (5)
+ 7.115. show/filter (extended for sysops) (5)
show/filter <callsign> Show the filters set by <callsign>
A sysop can look at any filters that have been set.
- 9.113. show/hops (8)
+ 7.116. show/hops (8)
show/hops <node_call> [ann|spots|wcy|wwv|] Show the hop counts for a
node
the categories will be listed.
- 9.114. show/isolate (1)
+ 7.117. show/isolate (1)
show/isolate Show a list of isolated nodes
Show which nodes are currently set to be isolated.
- 9.115. show/lockout (9)
+ 7.118. show/lockout (9)
show/lockout Show a list of excluded callsigns
cluster locally with the set/lockout command
- 9.116. show/log (8)
+ 7.119. show/log (8)
show/log [<callsign>] Show excerpts from the system log
show output from the log associated with that callsign.
- 9.117. show/moon (0)
+ 7.120. show/moon (0)
show/moon [<prefix>|<callsign>] Show moon rise and set times
Show the Moon rise and set times for a (list of) prefixes or
callsigns, together with the azimuth and elevation of the sun
currently at those locations.
-
If you don't specify any prefixes or callsigns, it will show the times
for your QTH (assuming you have set it with either SET/LOCATION or
SET/QRA), together with the current azimuth and elevation.
- 9.118. show/muf (0)
+ 7.121. show/muf (0)
show/muf <prefix> [<hours>][long] Show the likely propagation to
<prefix>
- SH/MUF W
+ SH/MUF W
+
+
+
produces:
terrible accurate, but it is included for completeness.
- 9.119. show/node (1)
+ 7.122. show/node (1)
show/node [<node_call> ...] Show the type and version number of nodes
the non-user callsigns known to the system will be displayed.
- 9.120. show/prefix (0)
+ 7.123. show/prefix (0)
show/prefix <callsign> Interrogate the prefix database
See also SHOW/DXCC
- 9.121. show/program (5)
+
+
+ 7.124. show/program (5)
show/program Show the locations of all the included program modules
from.
- 9.122. show/qra (0)
+ 7.125. show/qra (0)
show/qra <locator> [<locator>] Show the distance between locators
show/qra <lat> <long> Convert latitude and longitude to a locator
- 9.123. show/qrz (0)
+ 7.126. show/qrz (0)
show/qrz <callsign> Show any callbook details on a callsign
provided for users of this software by http://www.qrz.com
- 9.124. show/route (0)
+
+
+
+ 7.127. show/route (0)
show/route <callsign> Show the route to <callsign>
- sh/route n2tly
+ sh/route n2tly
- 9.125. show/satellite (0)
+ 7.128. show/satellite (0)
show/satellite <name> [<hours> <interval>] Show satellite tracking
data
- 9.126. show/sun (0)
+ 7.129. show/sun (0)
show/sun [<prefix>|<callsign>] Show sun rise and set times
If all else fails it will show the sunrise and set times for the node
that you are connected to.
+
For example:-
- 9.127. show/time (0)
+ 7.130. show/time (0)
show/time [<prefix>|<callsign>] Show the local time
including DST) at the prefixes or callsigns that you specify.
- 9.128. show/wcy (0)
+ 7.131. show/wcy (0)
show/wcy Show the last 10 WCY broadcasts
show/wcy <n> Show the last <n> WCY broadcasts
system
- 9.129. show/wwv (0)
+ 7.132. show/wwv (0)
show/wwv Show the last 10 WWV broadcasts
show/wwv <n> Show the last <n> WWV broadcasts
- 9.130. shutdown (5)
+ 7.133. shutdown (5)
shutdown Shutdown the cluster
set to respawn in /etc/inittab it will of course restart.
- 9.131. spoof (9)
+ 7.134. spoof (9)
spoof <callsign> <command> Run commands as another user
like home_node for example.
- 9.132. stat/db (5)
+
+
+
+ 7.135. stat/db (5)
stat/db <dbname> Show the status of a database
other than a sysop.
-
-
- 9.133. stat/channel (5)
+ 7.136. stat/channel (5)
stat/channel <callsign> Show the status of a channel on the cluster
Only the fields that are defined (in perl term) will be displayed.
- 9.134. stat/msg (5)
+ 7.137. stat/msg (5)
stat/msg <msgno> Show the status of a message
etc etc.
- 9.135. stat/user (5)
+ If no message number is given then the status of the message system is
+ displayed.
+
+
+ 7.138. stat/route_node (5)
+
+ stat/route_node <callsign> Show the data in a Route::Node object
+
+
+ 7.139. stat/route_user (5)
+
+ stat/route_user <callsign> Show the data in a Route::User object
+
+
+ 7.140. stat/user (5)
stat/user <callsign> Show the full status of a user
Only the fields that are defined (in perl term) will be displayed.
- 9.136. sysop (0)
+ 7.141. sysop (0)
sysop Regain your privileges if you login remotely
or 2 0 5 7 3
or 20573
+
+
+
They will all match. If there is no password you will still be offered
numbers but nothing will happen when you input a string. Any match is
case sensitive.
- 9.137. talk (0)
+ 7.142. talk (0)
talk <callsign> Enter talk mode with <callsign>
talk <callsign> <text> Send a text message to <callsign>
If you want to do something (such as send a spot) you precede the
normal command with a '/' character, eg:-
-
-
-
/DX 14001 G1TLH What's a B class licensee doing on 20m CW?
/HELP talk
- 9.138. type (0)
+ 7.143. type (0)
type <filearea>/<name> Look at a file in one of the fileareas
enter:-
+
TYPE bulletins/arld051
content.
- 9.139. who (0)
+ 7.144. who (0)
who Show who is physically connected locally
what sort of connection they have
- 9.140. wx (0)
+ 7.145. wx (0)
wx <text> Send a weather message to local users
wx full <text> Send a weather message to all cluster users
extreme that may indicate enhanced conditions
- 9.141. wx (enhanced for sysops) (5)
+ 7.146. wx (enhanced for sysops) (5)
wx sysop <text> Send a weather message to other clusters only
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
- The DXSpider Installation Manual v1.47
+ The DXSpider Installation Manual v1.48
Iain Philipps, G0RDI (g0rdi@77hz.com) and Ian Maude, G0VGS,
(ianmaude@btinternet.com)
- Version 1.47, April 2001 revision 1.0
+ Version 1.48, July 2001 revision 1.1
A reference for SysOps of the DXSpider DXCluster program.
______________________________________________________________________
- o Data-Dumper-2.101.tar.gz
+ o Data-Dumper-2.10.tar.gz
o TimeDate-1.10.tar.gz
o Time-HiRes-01.20.tar.gz
- Do get the latest versions of these packages and install them but use
- the above list as the earliest versions usable.
+ Copy the CPAN modules listed above to a convenient place on your
+ computer. One good place would be /usr/local/packages, and the
+ instructions which follow will assume that that's where you have put
+ them.
+
+
+ Log in as 'root', and make sure you're at '/root' before you continue.
+ Here are exactly the commands you must issue next: -
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ # tar xvfz /usr/local/packages/Data-Dumper-2.10.tar.gz
+ # cd Data-Dumper-2.10
+ # perl Makefile.PL
+ # make test
+ # make install
+ # cd ..
+ #
+ # tar xvfz /usr/local/packages/TimeDate-1.10.tar.gz
+ # cd TimeDate-1.10
+ # perl Makefile.PL
+ # make test
+ # make install
+ # cd ..
+ #
+ # tar xvfz /usr/local/packages/IO-1.20.tar.gz
+ # cd IO-1.20
+ # perl Makefile.PL
+ # make test
+ # make install UNINST=1
+ # cd ..
+ #
+ # tar xvfz /usr/local/packages/Net-Telnet-3.02.tar.gz
+ # cd Net-Telnet-3.02
+ # perl Makefile.PL
+ # make test
+ # make install
+ # cd ..
+ #
+ # tar xvfz /usr/local/packages/Curses-1.05.tar.gz
+ # cd Curses-1.05
+ # perl Makefile.PL
+ # make test
+ # make install
+ # cd ..
+ #
+ # tar xvfz /usr/local/packages/Time-HiRes-01.20.tar.gz
+ # cd Time-HiRes-01.20
+ # perl Makefile.PL
+ # make test
+ # make install
+ # cd ..
+
+
+
+
+ Do not fall into the trap of thinking they're all the same, just
+ because they nearly are! Pay particular attention to the instructions
+ of IO, above.
+
1.2. Preparation
your own choice.
-
-
# adduser -m sysop
-
-
-
- # passwd sysop
- # New UNIX password:
- # Retype new UNIX password:
- passwd: all authentication tokens updated successfully
+ # passwd sysop
+ # New UNIX password:
+ # Retype new UNIX password:
+ passwd: all authentication tokens updated successfully
-
- # chown root ax25_call netrom_call
- # chmod 4775 ax25_call netrom_call
+ # chown root ax25_call netrom_call
+ # chmod 4775 ax25_call netrom_call
$ cd ../perl
-
-
-
Now type the following command which creates the basic user file with
you as the sysop.
-
- $ ./create_sysop.pl
+ $ ./create_sysop.pl
shutdown
-
-
-
and both the cluster and the client should return to Linux prompts.
+
1.6. The Client program
In earlier versions of Spider, all the processes were Perl scripts.
o Login as root
+
o Enter the correct line in ax25d.conf (root)
o Enter the correct line in /etc/services (root)
- GB7DJK-2 * * * * * * - sysop /spider/src/client client gb7djk-2 ax25
- default * * * * * * - sysop /spider/src/client client %u ax25
+
+ GB7DJK-2 * * * * * * - sysop /spider/src/client client gb7djk-2 ax25
+ default * * * * * * - sysop /spider/src/client client %u ax25
+
+
Assuming all is well, then try a telnet from your linux console ....
-
telnet localhost 8000
an AK1A type node.
+
Start up the cluster as you did before and login as the sysop with
client. The cluster node I am wanting to make a connection to is
GB7BAA but you would obviously use whatever callsign you required. At
- set/node gb7baa
+ set/node gb7baa
connections is therefore relatively simple.
+
The connect scripts consist of lines which start with the following
keywords or symbols:-
# All lines starting with a # are ignored, as are completely blank
lines.
+
timeout
timeout followed by a number is the number of seconds to wait
for a command to complete. If there is no timeout specified in
- timeout 60
- abort (Busy|Sorry|Fail)
- # don't forget to chmod 4775 netrom_call!
- connect ax25 /usr/sbin/netrom_call bbs gb7djk g1tlh
- # you can leave this out if you call the script 'gb7dxm'
- client gb7dxm ax25
-
-
-
timeout 60
abort (Busy|Sorry|Fail)
- # this does exactly the same as the previous example
- # the '1' is the AGW port number to connect thru for g1tlh
- connect agw 1 g1tlh
+ # don't forget to chmod 4775 netrom_call!
+ connect ax25 /usr/sbin/netrom_call bbs gb7djk g1tlh
# you can leave this out if you call the script 'gb7dxm'
client gb7dxm ax25
+ timeout 60
+ abort (Busy|Sorry|Fail)
+ # this does exactly the same as the previous example
+ # the '1' is the AGW port number to connect thru for g1tlh
+ connect agw 1 g1tlh
+ # you can leave this out if you call the script 'gb7dxm'
+ client gb7dxm ax25
+
+
+
+
+
+
+
+
timeout 15
connect telnet dirkl.tobit.co.uk
# tell GB7DJK-1 that it is connected to GB7DJK
-
-
-
-
-
-
-
-
-
-
-
-
-
-
<- D G1TLH connect gb7djk-1
-> D G1TLH connection to GB7DJK-1 started
-> D G1TLH G1TLH de GB7DJK 13-Dec-1998 2046Z >
projects / spider.git / commitdiff