projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add convert-users-v3-to-v4.pl
[spider.git]
/
cmd
/
show
/
db0sdx.pl
diff --git
a/cmd/show/db0sdx.pl
b/cmd/show/db0sdx.pl
index 5132b2f9fd3a8c1c0e97f522497a2b71180473d0..370b0b7fc3bad1965538df2b1bfd7ebd16132348 100644
(file)
--- a/
cmd/show/db0sdx.pl
+++ b/
cmd/show/db0sdx.pl
@@
-19,15
+19,16
@@
sub on_disc
my ($info) = $conn->{sdxin} =~ m|<qslinfoResult>([^<]*)</qslinfoResult>|;
dbg("info: $info");
my ($info) = $conn->{sdxin} =~ m|<qslinfoResult>([^<]*)</qslinfoResult>|;
dbg("info: $info");
+ my $prefix = $conn->{prefix} || '';
my @in = split /[\r\n]/, $info if $info;
if (@in && $in[0]) {
dbg("in qsl");
my @in = split /[\r\n]/, $info if $info;
if (@in && $in[0]) {
dbg("in qsl");
- push @out, @in;
+ push @out,
map {"$prefix$_"}
@in;
} else {
dbg("in fault");
($info) = $conn->{sdxin} =~ m|<faultstring>([^<]*)</faultstring>|;
} else {
dbg("in fault");
($info) = $conn->{sdxin} =~ m|<faultstring>([^<]*)</faultstring>|;
- push @out,
$info
if $info;
+ push @out,
"$prefix$info"
if $info;
push @out, $dxchan->msg('e3', 'DB0SDX', $conn->{sdxline}) unless @out;
}
$dxchan->send(@out);
push @out, $dxchan->msg('e3', 'DB0SDX', $conn->{sdxline}) unless @out;
}
$dxchan->send(@out);