Detect invalid Webmin server object

This commit is contained in:
Jamie Cameron
2009-07-20 05:22:17 +00:00
parent d9205d4ae0
commit 98131232af

View File

@@ -5419,12 +5419,13 @@ and is called by the other remote_* functions.
sub remote_rpc_call
{
my $serv;
my $sn = &remote_session_name($_[0]);
my $sn = &remote_session_name($_[0]); # Will be undef for local connection
if (ref($_[0])) {
# Server structure was given
$serv = $_[0];
$serv->{'user'} || !$sn || return &$main::remote_error_handler(
"No login set for server");
$serv->{'user'} || $serv->{'id'} == 0 ||
return &$main::remote_error_handler(
"No Webmin login set for server");
}
elsif ($_[0]) {
# lookup the server in the webmin servers module if needed