projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
made local aliases additive to the standard ones. Locals override standard
[spider.git]
/
perl
/
DXProtout.pm
diff --git
a/perl/DXProtout.pm
b/perl/DXProtout.pm
index 7afb0e92af1241c134908c04348bbfb857a581d7..c49f953aec4b1327ef889ae28aeeec6c1b10a69c 100644
(file)
--- a/
perl/DXProtout.pm
+++ b/
perl/DXProtout.pm
@@
-186,7
+186,7
@@
sub pc29
{
my ($fromnode, $tonode, $stream, $text) = @_;
$text =~ s/\^/:/og; # remove ^
{
my ($fromnode, $tonode, $stream, $text) = @_;
$text =~ s/\^/:/og; # remove ^
-
$text =~ s/\~/S/og;
+
#
$text =~ s/\~/S/og;
return "PC29^$fromnode^$tonode^$stream^$text^~";
}
return "PC29^$fromnode^$tonode^$stream^$text^~";
}
@@
-235,13
+235,7
@@
sub pc35
# send all the DX clusters I reckon are connected
sub pc38
{
# send all the DX clusters I reckon are connected
sub pc38
{
- my @list = DXNode->get_all();
- my $list;
- my @nodes;
-
- foreach $list (@list) {
- push @nodes, $list->call;
- }
+ my @nodes = map { ($_->dxchan && $_->dxchan->isolate) ? () : $_->call } DXNode->get_all();
return "PC38^" . join(',', @nodes) . "^~";
}
return "PC38^" . join(',', @nodes) . "^~";
}