748b4ee78c
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@16321 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
116 lines
3.3 KiB
Perl
116 lines
3.3 KiB
Perl
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
|
|
#-------------------------------------------------------
|
|
|
|
=head1
|
|
xCAT plugin package to handle getpostscript command
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
package xCAT_plugin::getpostscript;
|
|
use xCAT::Utils;
|
|
use xCAT::MsgUtils;
|
|
use xCAT::NodeRange;
|
|
1;
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 handled_commands
|
|
|
|
Return list of commands handled by this plugin
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
|
|
sub handled_commands
|
|
{
|
|
return {
|
|
'getpostscript' => "getpostscript",
|
|
'postage' => "getpostscript"
|
|
};
|
|
}
|
|
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=head3 process_request
|
|
|
|
Process the command
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------
|
|
sub process_request
|
|
{
|
|
my $request = shift;
|
|
my $callback = shift;
|
|
my $nodes = $request->{node};
|
|
my $command = $request->{command}->[0];
|
|
my $args = $request->{arg};
|
|
my $envs = $request->{env};
|
|
my $rsp;
|
|
my $i = 1;
|
|
my @nodes=@$nodes;
|
|
# do your processing here
|
|
# return info
|
|
|
|
|
|
my $client;
|
|
if ($::XCATSITEVALS{nodeauthentication}) { #if requiring node authentication, this request will have a certificate associated with it, use it instead of name resolution
|
|
unless (ref $request->{username}) { return; } #TODO: log an attempt without credentials?
|
|
$client = $request->{username}->[0];
|
|
} else {
|
|
unless ($request->{'_xcat_clienthost'}->[0]) {
|
|
#ERROR? malformed request
|
|
return; #nothing to do here...
|
|
}
|
|
$client = $request->{'_xcat_clienthost'}->[0];
|
|
}
|
|
|
|
my $origclient = $client;
|
|
if ($client) { ($client) = noderange($client) };
|
|
unless ($client) { #Not able to do identify the host in question
|
|
xCAT::MsgUtils->message("S","Received getpostscript from $origclient, which couldn't be correlated to a node (domain mismatch?)");
|
|
return;
|
|
}
|
|
my $state;
|
|
if ($request->{scripttype}) { $state = $request->{scripttype}->[0];}
|
|
|
|
require xCAT::Postage;
|
|
my $args = $request->{arg};
|
|
my @scriptcontents;
|
|
my $version =0;
|
|
# make the mypostscript.<nodename> file
|
|
# or the mypostscript.<nodename>.tmp file if precreatemypostscripts=0
|
|
# right now @scriptcontents is null
|
|
@scriptcontents = xCAT::Postage::makescript([$client],$state,$callback);
|
|
if( defined($args) && grep(/version2/, @$args)) {
|
|
$version =2
|
|
}
|
|
# for version=2, we do not return the created mypostscript file.
|
|
# xcatdsklspost must wget
|
|
# If not version=2, then we return the mypostscript file buffer.
|
|
if ($version != 2) {
|
|
my $filename="mypostscript.$client";
|
|
my $cmd;
|
|
if (!(-e $filename)) {
|
|
$filename="mypostscript.$client.tmp";
|
|
}
|
|
$cmd="cat /tftpboot/mypostscripts/$filename";
|
|
@scriptcontents = xCAT::Utils->runcmd($cmd,0);
|
|
if ($::RUNCMD_RC != 0)
|
|
{
|
|
my $rsp = {};
|
|
$rsp->{error}->[0] = "Command: $cmd failed.";
|
|
xCAT::MsgUtils->message("S", $rsp, $::CALLBACK);
|
|
}
|
|
|
|
`logger -t xCAT -p local4.info "getpostscript: sending data"` ;
|
|
$rsp->{data} = \@scriptcontents;
|
|
$callback->($rsp);
|
|
}
|
|
return 0;
|
|
}
|
|
|