projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e07645c
)
add ak1a compat changes to chat
author
minima
<minima>
Wed, 26 Mar 2003 11:18:36 +0000
(11:18 +0000)
committer
minima
<minima>
Wed, 26 Mar 2003 11:18:36 +0000
(11:18 +0000)
Changes
patch
|
blob
|
history
perl/DXProt.pm
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index 04705508be46171e51d69f76cda6462705dea2d6..722529e8a3def4cd54173f497ed66b85a3210bf4 100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-1,3
+1,5
@@
+26Mar03=======================================================================
+1. add some ak1a compatibility changes to chat
18Mar03=======================================================================
1. minor corrections to manuals (g0vgs)
17Mar03=======================================================================
18Mar03=======================================================================
1. minor corrections to manuals (g0vgs)
17Mar03=======================================================================
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index deda8f45c2abdd8c5b8aaa6d5c69d39ab98d2bb4..d2cf9b8a61d7f1487ff971a94571ef7e48a594b1 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-607,7
+607,7
@@
sub handle_12
my $dxchan;
my $dxchan;
- if ((($dxchan = DXChannel->get($_[2])) && $dxchan->is_user) || $_[4] =~ /^[\#\w]+$/){
+ if ((($dxchan = DXChannel->get($_[2])) && $dxchan->is_user) || $_[4] =~ /^[\#\w
.
]+$/){
$self->send_chat($line, @_[1..6]);
} elsif ($_[2] eq '*' || $_[2] eq $main::mycall) {
$self->send_chat($line, @_[1..6]);
} elsif ($_[2] eq '*' || $_[2] eq $main::mycall) {
@@
-1798,7
+1798,13
@@
sub send_chat
my $dxchan;
my $target = $_[3];
my $text = unpad($_[2]);
my $dxchan;
my $target = $_[3];
my $text = unpad($_[2]);
+ my $ak1a_line;
+ # munge the group and recast the line if required
+ if ($target =~ s/\.LST$//) {
+ $ak1a_line = $line;
+ }
+
# obtain country codes etc
my ($ann_dxcc, $ann_itu, $ann_cq, $org_dxcc, $org_itu, $org_cq) = (0..0);
my ($ann_state, $org_state) = ("", "");
# obtain country codes etc
my ($ann_dxcc, $ann_itu, $ann_cq, $org_dxcc, $org_itu, $org_cq) = (0..0);
my ($ann_state, $org_state) = ("", "");
@@
-1839,14
+1845,19
@@
sub send_chat
# 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) {
# 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 $is_ak1a = $dxchan->is_ak1a;
+
if ($dxchan->is_node) {
next if $dxchan == $main::me;
next if $dxchan == $self;
if ($dxchan->is_node) {
next if $dxchan == $main::me;
next if $dxchan == $self;
- next unless $dxchan->is_spider || $
dxchan->
is_ak1a;
+ next unless $dxchan->is_spider || $is_ak1a;
next if $target eq 'LOCAL';
next if $target eq 'LOCAL';
+ if (!$ak1a_line && $is_ak1a) {
+ $ak1a_line = DXProt::pc12($_[0], $text, $_[1], "$target.LST");
+ }
}
}
- $dxchan->chat($line, $self->{isolate}, $target, $_[1], $text, @_, $self->{call}, $ann_dxcc, $ann_itu, $ann_cq, $org_dxcc, $org_itu, $org_cq);
+ $dxchan->chat($
is_ak1a ? $ak1a_line : $
line, $self->{isolate}, $target, $_[1], $text, @_, $self->{call}, $ann_dxcc, $ann_itu, $ann_cq, $org_dxcc, $org_itu, $org_cq);
}
}
}
}