xcat-core/xCAT-server/lib/xcat/plugins/getpostscript.pm

# 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
	      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;
    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=0;  # does not matter not making files
      $nofiles=1; # do not create /tftpboot/mypostscript/mypostscript.<nodename>
      @scriptcontents = xCAT::Postage::makescript([$client],$state,$callback,$notmpfiles,$nofiles);
       `logger -t xCAT -p local4.info "getpostscript: sending data"` ;
       $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;
}