fix AsyncMsg state handling and sh/qrz

[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 $prefix = $conn->{prefix} || '';
        
        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>|;
-               push @out, $info if $info;
+               push @out, "$prefix$info" if $info;
                push @out, $dxchan->msg('e3', 'DB0SDX', $conn->{sdxline}) unless @out;          
        }
        $dxchan->send(@out);