projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
set DXVar.pm defaults into console.pl
[spider.git]
/
perl
/
rbn.pl
diff --git
a/perl/rbn.pl
b/perl/rbn.pl
index 773564c2946c5d2d58212ed725293db093f43326..ee8f0ed3b2852753f01413dab09badcb25e5519c 100755
(executable)
--- a/
perl/rbn.pl
+++ b/
perl/rbn.pl
@@
-93,8
+93,8
@@
while (<$sock>) {
say "RAW,$_" if $wantraw;
if (/call:/) {
say "RAW,$_" if $wantraw;
if (/call:/) {
-print $sock "$mycall\r\n";
-say "ADMIN,call $mycall sent" if $dbg;
+
print $sock "$mycall\r\n";
+
say "ADMIN,call $mycall sent" if $dbg;
}
my (undef, undef, $origin, $qrg, $call, $mode, $s, $m, $spd, $u, $sort, $t, $tx) = split /[:\s]+/;
}
my (undef, undef, $origin, $qrg, $call, $mode, $s, $m, $spd, $u, $sort, $t, $tx) = split /[:\s]+/;