mirror of
https://github.com/xcat2/xcat-core.git
synced 2025-05-21 19:22:05 +00:00
cb25622331
- clear logs in the key components during provisioning (not only debug mode, but debug mode will have more logs) - now only cover rhel7 stateful and stateless - make more syslogs into cluster.log (tag = xcat or xcat.*) - the changes will not impact other distro
111 lines
3.2 KiB
Perl
111 lines
3.2 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",
|
|
};
|
|
}
|
|
|
|
|
|
#-------------------------------------------------------
|
|
|
|
=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
|
|
xCAT::MsgUtils->trace(0, 'E', "Received malformed getpostscript requesting, ignore it.");
|
|
return;
|
|
}
|
|
$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->trace(0, "E", "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;
|
|
if (defined($args) && grep(/version2/, @$args)) {
|
|
$version = 2
|
|
}
|
|
my $notmpfiles;
|
|
my $nofiles;
|
|
|
|
# If not version=2, then we return the mypostscript file in an array.
|
|
if ($version != 2) {
|
|
$notmpfiles = 1; # no tmp files and no files
|
|
$nofiles = 1; # do not create /tftpboot/mypostscript/mypostscript.<nodename>
|
|
@scriptcontents = xCAT::Postage::makescript([$client], $state, $callback, $notmpfiles, $nofiles);
|
|
xCAT::MsgUtils->trace(0, "I", "getpostscript: Sending scripts data to $client...");
|
|
$rsp->{data} = \@scriptcontents;
|
|
$callback->($rsp);
|
|
} else { # version 2, make files, do not return array
|
|
# make the mypostscript.<nodename> file
|
|
# or the mypostscript.<nodename>.tmp file if precreatemypostscripts=0
|
|
# xcatdsklspost will wget the file
|
|
$notmpfiles = 0;
|
|
$nofiles = 0;
|
|
xCAT::Postage::makescript([$client], $state, $callback, $notmpfiles, $nofiles);
|
|
}
|
|
return 0;
|
|
}
|
|
|