-
- my $lth = length($s)+7;
-
- dbg("db0sdx out: $s") if isdbg('db0sdx');
-
- $t->print("POST /qslinfo/qslinfo.asmx HTTP/1.0");
- $t->print("Host: dotnet.grossmann.com");
- $t->print("Content-Type: text/xml; charset=utf-8");
- $t->print("Content-Length: $lth");
- $t->print("Connection: Close");
- $t->print("SOAPAction: \"http://dotnet.grossmann.com/qslinfo/qslinfo\"");
- $t->print("");
- $t->put($s);
-
- my $in;
-
- while (my $result = eval { $t->getline(Timeout => 30) } || $@) {
- if ($@) {
- push @out, $self->msg('e18', 'DB0SDX Server');
- last;
- } else {
- $in .= $result;
- }
- }
-
- dbg("db0sdx in: $in") if isdbg('db0sdx');
-
- # Log the lookup