sh/qrz now working correctly with mojo

[spider.git] / cmd / show / db0sdx.pl

diff --git a/cmd/show/db0sdx.pl b/cmd/show/db0sdx.pl
index 5132b2f9fd3a8c1c0e97f522497a2b71180473d0..b7574761512fd430a9cad9ded5ed6f9558bafb3a 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);
@@ -71,7 +72,7 @@ sub handle
        my $lth = length($s)+1;
        
        Log('call', "$call: show/db0sdx $line");
-       my $conn = AsyncMsg->post($self, $target, $port, "$path$suffix", prefix => 'sdx> ', filter => \&process,
+       my $conn = AsyncMsg->post($self, $target, "$path$suffix", prefix => 'sdx> ', filter => \&process,
                                                         'Content-Type' => 'text/xml; charset=utf-8',
                                                         'Content-Length' => $lth,
                                                          Connection => 'Close',