Add an error message for missing certain plugin

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@2984 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
daniceexi 2009-03-25 14:33:08 +00:00
parent 81c33fff4a
commit d922d337a8

View File

@ -800,6 +800,15 @@ sub plugin_command {
close $parfd;
$check_fds->add($pfd);
}
} else {
my $pm_name = $plugins_dir."/".$modname.".pm";
foreach my $node (keys %{$handler_hash{$_}}) {
if ($sock) {
print $sock XMLout({node=>[{name=>[$node],data=>["Cannot find the perl module to complete the operation: $pm_name"],errorcode=>[1]}]},NoAttr=>1,RootName=>'xcatresponse');
} else {
$callback->({node=>[{name=>[$node],data=>["Cannot find the perl module to complete the operation: $pm_name"],errorcode=>[1]}]});
}
}
}
}
unless ($sock) { return $Main::resps };