fix various cmds using AsyncMsg

diff --git a/cmd/show/425.pl b/cmd/show/425.pl
index 86e66554181c82dcbbf8aadf39a101e07ded6794..0b41d3bc048d74378ddf6d29887e41b04552336e 100644 (file)
--- a/cmd/show/425.pl
+++ b/cmd/show/425.pl
@@ -32,7 +32,7 @@ sub handle
        my $path = "/425dxn/spider.php?$op";
        
        Log('call', "$call: show/425 \U$op");
-       my $conn = AsyncMsg->get($self, $target, $port, $path, prefix=>'425> ', 'User-Agent' => qq{DxSpider;$main::version;$main::build;$^O;$main::mycall;$call;$list[0]});
+       my $conn = AsyncMsg->get($self, $target, $path, prefix=>'425> ', 'User-Agent' => qq{DxSpider;$main::version;$main::build;$^O;$main::mycall;$call;$list[0]});
        
        if ($conn) {
                push @out, $self->msg('m21', "show/425");

diff --git a/cmd/show/contest.pl b/cmd/show/contest.pl
index 524f6b86c84995e6e8e7af5530408e901df222b3..a9db4ea7329ae7b2d3f827ad543c3f09ecc9337e 100644 (file)
--- a/cmd/show/contest.pl
+++ b/cmd/show/contest.pl
@@ -52,7 +52,7 @@ sub handle
 
        dbg("sh/contest: url=$url") if isdbg("contest");
 
-       my $r = AsyncMsg->get($self->call, $host, $port, $url, prefix=>'ctst> ');
+       my $r = AsyncMsg->get($self->call, $host, $url, prefix=>'ctst> ');
        if ($r) {
                push @out, $self->msg('m21', "show/contest");
        }

diff --git a/cmd/show/ik3qar.pl b/cmd/show/ik3qar.pl
index eed4ecf03814afbc94d09dc8ea5413ed9cda8e34..71f1e735c1d7fa4f2d5324fd866b3adbde986b3c 100644 (file)
--- a/cmd/show/ik3qar.pl
+++ b/cmd/show/ik3qar.pl
@@ -27,7 +27,7 @@ sub handle
        dbg("IK3QAR: url=$path") if isdbg('ik3qar');
        Log('call', "$call: SH/IK3QAR $line");
        
-       my $r = AsyncMsg->get($self, $target, $port, $path, prefix=>'qar> ',
+       my $r = AsyncMsg->get($self, $target, $path, prefix=>'qar> ',
                                                  'User-Agent' => "DxSpider;$main::version;$main::build;$^O;$main::mycall;$call");
        if ($r) {
                push @out, $self->msg('m21', "show/ik3qar");

diff --git a/perl/AsyncMsg.pm b/perl/AsyncMsg.pm
index b1875d97bb8fa9d5698e30a1f5efcfa547cee159..95c5e8f67c974d8eace5f0e5ba9b7fbf69ef42f1 100644 (file)
--- a/perl/AsyncMsg.pm
+++ b/perl/AsyncMsg.pm
@@ -118,6 +118,8 @@ sub _getpost
        $conn->{_assort} = $sort;
        $conn->{csort} = 'http';
 
+       my $data = delete $args{data};
+
        my $ua =  Mojo::UserAgent->new;
        my $s;
        $s .= $host;
@@ -132,7 +134,6 @@ sub _getpost
 
        $ua->on(start => sub {
                                my ($ua, $tx) = @_;
-                               my $data = delete $args{data};
                                while (my ($k, $v) = each %args) {
                                        dbg("AsyncMsg: attaching header $k: $v") if isdbg('async');
                                        $tx->req->headers->header($k => $v);