+ my ($info) = $conn->{sdxin} =~ m|<qslinfoResult>([^<]*)</qslinfoResult>|;
+# dbg("db0sdx info: $info");
+ my $prefix = $conn->{prefix} || '';
+
+ my @in = split /[\r\n]/, $info if $info;
+ if (@in && $in[0]) {
+# dbg("db0sdx: in qsl");
+ push @out, map {"$prefix$_"} @in;
+ } else {
+# dbg("db0sdx: in fault");
+ ($info) = $conn->{sdxin} =~ m|<faultstring>([^<]*)</faultstring>|;
+ push @out, "$prefix$info" if $info;
+ push @out, $dxchan->msg('e3', 'DB0SDX', $conn->{sdxline}) unless @out;
+ }
+ $dxchan->send(@out);
+}
+
+sub process
+{
+ my $conn = shift;
+ my $msg = shift;
+
+# $DB::single = 1;
+
+ $conn->{sdxin} .= "$msg\n";
+
+ dbg("db0sdx in: $conn->{sdxin}") if isdbg('db0sdx');
+}