fix AsyncMsg.pm + clusteraddr issues

[spider.git] / perl / DXCommandmode.pm

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index d6319f3f6f30fee73a0b34a431f2ce41b7d0a406..35c92341d17cbc896a0a64d6941e9a3d156dea77 100644 (file)
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -36,7 +36,7 @@ use QSL;
 use DB_File;
 use VE7CC;
 use DXXml;
-use HTTPMsg;
+use AsyncMsg;
 
 use strict;
 use vars qw(%Cache %cmd_cache $errstr %aliases $scriptbase %nothereslug
@@ -803,7 +803,7 @@ sub find_cmd_name {
                };
                
                #wrap the code into a subroutine inside our unique package
-               my $eval = qq(package DXCommandmode::$package; use POSIX qw{:math_h}; use DXLog; use DXDebug; use DXUser; use DXUtil; use Minimuf; use Sun; use HTTPMsg; our \@ISA = qw{DXCommandmode}; );
+               my $eval = qq(package DXCommandmode::$package; use POSIX qw{:math_h}; use DXLog; use DXDebug; use DXUser; use DXUtil; our \@ISA = qw{DXCommandmode}; );
 
 
                if ($sub =~ m|\s*sub\s+handle\n|) {
@@ -1194,7 +1194,7 @@ sub import_cmd
                                                $dxchan->{priv} = $u->priv;
                                                $dxchan->{user} = $u;
                                                @out = $s->run($dxchan, 1);
-                                               $dxchan->{call} = $call;
+                                               $dxchan->{call} = $old;
                                                $dxchan->{priv} = $priv;
                                                $dxchan->{user} = $user;
                                        } else {