michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-09-15 10:00:40 +01:00
Code Issues Actions 3 Packages Projects Releases Wiki Activity

Allow callers to specify an IP for remote call

Browse Source
This commit is contained in:
Jamie Cameron
2009-09-14 16:59:43 -07:00
parent 0de69542d6
commit b2e0ac70de
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
web-lib-funcs.pl
View File

@@ -5459,6 +5459,7 @@ elsif ($_[0]) {
$serv->{'user'} || return &$main::remote_error_handler(
"No login set for server $_[0]");
}
my $ip = $serv->{'ip'} || $serv->{'host'};
# Work out the username and password
my ($user, $pass);
@@ -5478,7 +5479,7 @@ if ($serv->{'fast'} || !$sn) {
if (!$fast_fh_cache{$sn} && $sn) {
# Need to open the connection
my $con = &make_http_connection(
$serv->{'host'}, $serv->{'port'}, $serv->{'ssl'},
$ip, $serv->{'port'}, $serv->{'ssl'},
"POST", "/fastrpc.cgi");
return &$main::remote_error_handler(
"Failed to connect to $serv->{'host'} : $con")
@@ -5514,7 +5515,7 @@ if ($serv->{'fast'} || !$sn) {
# Started ok .. connect and save SID
&close_http_connection($con);
my ($port, $sid, $version, $error) = ($1, $2, $3);
&open_socket($serv->{'host'}, $port, $sid, \$error);
&open_socket($ip, $port, $sid, \$error);
return &$main::remote_error_handler("Failed to connect to fastrpc.cgi : $error")
if ($error);
$fast_fh_cache{$sn} = $sid;
@@ -5610,7 +5611,7 @@ else {
# Call rpc.cgi on remote server
my $tostr = &serialise_variable($_[1]);
my $error = 0;
my $con = &make_http_connection($serv->{'host'}, $serv->{'port'},
my $con = &make_http_connection($ip, $serv->{'port'},
$serv->{'ssl'}, "POST", "/rpc.cgi");
return &$main::remote_error_handler("Failed to connect to $serv->{'host'} : $con") if (!ref($con));