summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
8e45a3d)
6. SEND now displays a message if you try to do it in not prompt mode.
7. stopped a few more things being done by rcmd (eg send, talk, ann, dx)
+30Jul00=======================================================================
+1. Added talk mode so that I don't have to keep typing T <call> all the time.
+2. fiddled around with storing of Debug messages a bit more.
+3. bomb proofed the type command.
+4. started the objectifying for talk, dx and announcements.
+5. fix talkmode so that it only does 'via' PC10s when it really needs to.
+6. SEND now displays a message if you try to do it in not prompt mode.
+7. stopped a few more things being done by rcmd (eg send, talk, ann, dx)
29Jul00=======================================================================
1. added forward/latlong which will forward ALL the users that have a latitude
and longitude set on them to one or more locally connected nodes - with a hop
29Jul00=======================================================================
1. added forward/latlong which will forward ALL the users that have a latitude
and longitude set on them to one or more locally connected nodes - with a hop
sequentially reading the data directly and only 'get'ting the ones that are
nodes.
3. did the same for show/isolate and show/lockout.
sequentially reading the data directly and only 'get'ting the ones that are
nodes.
3. did the same for show/isolate and show/lockout.
-4. Added talk mode so that I don't have to keep typing T <call> all the time.
-5. fiddled around with storing of Debug messages a bit more.
-6. bomb proofed the type command.
28Jul00=======================================================================
1. fixed watchdbg midnight rollover loop and removed the date part of the
date/time translation to leave just the time.
28Jul00=======================================================================
1. fixed watchdbg midnight rollover loop and removed the date part of the
date/time translation to leave just the time.
=== 0^SET/ANNOUNCE^Allow announce messages to come out on your terminal
=== 0^UNSET/ANNOUNCE^Stop announce messages coming out on your terminal
=== 0^SET/ANNOUNCE^Allow announce messages to come out on your terminal
=== 0^UNSET/ANNOUNCE^Stop announce messages coming out on your terminal
+=== 5^SET/ARCLUSTER <call> [<call>..]^Make the callsign an AR-Cluster node
+
=== 0^SET/BEEP^Add a beep to DX and other messages on your terminal
=== 0^UNSET/BEEP^Stop beeps for DX and other messages on your terminal
=== 0^SET/BEEP^Add a beep to DX and other messages on your terminal
=== 0^UNSET/BEEP^Stop beeps for DX and other messages on your terminal
+=== 5^SET/CLX <call> [<call>..]^Make the callsign an CLX node
+
=== 9^SET/DEBUG <name>^Add a debug level to the debug set
=== 9^UNSET/DEBUG <name>^Remove a debug level from the debug set
=== 9^SET/DEBUG <name>^Add a debug level to the debug set
=== 9^UNSET/DEBUG <name>^Remove a debug level from the debug set
cannot cope with this. You can use this command to reset (or set)
this feature.
cannot cope with this. You can use this command to reset (or set)
this feature.
+=== 5^SET/DXNET <call> [<call>..]^Make the callsign an DXNet node
+
=== 0^SET/ECHO^Make the cluster echo your input
=== 0^UNSET/ECHO^Stop the cluster echoing your input
If you are connected via a telnet session, different implimentations
=== 0^SET/ECHO^Make the cluster echo your input
=== 0^UNSET/ECHO^Stop the cluster echoing your input
If you are connected via a telnet session, different implimentations
Tell the system what your name is eg:-
SET/NAME Dirk
Tell the system what your name is eg:-
SET/NAME Dirk
-=== 9^SET/NODE <call> [<call>..]^Make the callsign an AK1A cluster
+=== 5^SET/NODE <call> [<call>..]^Make the callsign an AK1A cluster
Tell the system that the call(s) are to be treated as AK1A cluster and
fed PC Protocol rather normal user commands.
Tell the system that the call(s) are to be treated as AK1A cluster and
fed PC Protocol rather normal user commands.
-=== 9^SET/OBSCOUNT <count> <nodecall>^Set the 'pump-up' obscelence counter
+=== 8^SET/OBSCOUNT <count> <nodecall>^Set the 'pump-up' obscelence counter
From 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
From 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
spaces - but they won't appear in the password). You can see the
result with STAT/USER.
spaces - but they won't appear in the password). You can see the
result with STAT/USER.
-=== 9^SET/SPIDER <call> [<call>..]^Make the callsign an DXSpider node
+=== 5^SET/SPIDER <call> [<call>..]^Make the callsign an DXSpider node
Tell the system that the call(s) are to be treated as DXSpider node and
fed new style DX Protocol rather normal user commands.
Tell the system that the call(s) are to be treated as DXSpider node and
fed new style DX Protocol rather normal user commands.
my ($self, $line) = @_;
my @f = split /\s+/, $line;
my ($self, $line) = @_;
my @f = split /\s+/, $line;
+return (1, $self->msg('e5')) if $self->remotecmd;
return (1, $self->msg('e9')) if !@f;
my $sort = uc $f[0];
return (1, $self->msg('e9')) if !@f;
my $sort = uc $f[0];
my $freq;
my @out;
my $valid = 0;
my $freq;
my @out;
my $valid = 0;
+return (1, $self->msg('e5')) if $self->remotecmd;
# do we have at least two args?
return (1, $self->msg('dx2')) unless @f >= 2;
# do we have at least two args?
return (1, $self->msg('dx2')) unless @f >= 2;
my $self = shift;
my $line = shift;
my ($call) = $line =~ /^\s*(\S+)/;
my $self = shift;
my $line = shift;
my ($call) = $line =~ /^\s*(\S+)/;
+return (1, $self->msg('e5')) if $self->remotecmd;
# are we permitted?
return (1, $self->msg('e5')) if $self->priv < 6;
# are we permitted?
return (1, $self->msg('e5')) if $self->priv < 6;
$self->func("DXMsg::do_send_stuff");
$self->state('send1');
push @out, $self->msg('m1');
$self->func("DXMsg::do_send_stuff");
$self->state('send1');
push @out, $self->msg('m1');
+} else {
+ push @out, $self->msg('m17', $self->state);
my $line;
my $from = $self->call;
my @out;
my $line;
my $from = $self->call;
my @out;
+return (1, $self->msg('e5')) if $self->remotecmd;
# analyse the line there are four situations...
# 1) talk call
# analyse the line there are four situations...
# 1) talk call
if ($line) {
$dxchan->talk($self->call, $to, $via, $line) if $dxchan;
} else {
if ($line) {
$dxchan->talk($self->call, $to, $via, $line) if $dxchan;
} else {
- my $s = "$to>" . $dxchan->call;
+ my $s = $to;
+ $s .= ">$via" if $via;
my $ref = $self->talklist;
if ($ref) {
unless (grep { $_ eq $s } @$ref) {
my $ref = $self->talklist;
if ($ref) {
unless (grep { $_ eq $s } @$ref) {