2007-10-26 22:44:33 +00:00
|
|
|
#!/usr/bin/perl
|
|
|
|
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
|
|
|
|
|
|
|
|
package xCAT::Template;
|
|
|
|
use strict;
|
|
|
|
use xCAT::Table;
|
|
|
|
use File::Basename;
|
|
|
|
use File::Path;
|
2011-04-11 13:51:09 +00:00
|
|
|
#use Data::Dumper;
|
2007-10-26 22:44:33 +00:00
|
|
|
use Sys::Syslog;
|
2010-03-09 22:00:00 +00:00
|
|
|
use xCAT::ADUtils; #to allow setting of one-time machine passwords
|
2012-04-01 03:17:14 +00:00
|
|
|
|
|
|
|
BEGIN
|
|
|
|
{
|
|
|
|
$::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : '/opt/xcat';
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
2010-03-09 22:00:00 +00:00
|
|
|
my $netdnssupport = eval {
|
|
|
|
require Net::DNS;
|
|
|
|
1;
|
|
|
|
};
|
2007-10-26 22:44:33 +00:00
|
|
|
|
2008-03-10 14:20:47 +00:00
|
|
|
my $tmplerr;
|
2007-10-26 22:44:33 +00:00
|
|
|
my $table;
|
|
|
|
my $key;
|
|
|
|
my $field;
|
|
|
|
my $idir;
|
|
|
|
my $node;
|
2010-03-09 22:00:00 +00:00
|
|
|
my %loggedrealms;
|
2011-09-30 18:07:03 +00:00
|
|
|
my $lastmachinepass;
|
2012-02-06 22:15:50 +00:00
|
|
|
my %tab_replacement=(
|
|
|
|
"noderes:nfsserver"=>"noderes:xcatmaster",
|
|
|
|
"noderes:tftpserver"=>"noderes:xcatmaster",
|
|
|
|
);
|
|
|
|
|
|
|
|
|
2007-10-26 22:44:33 +00:00
|
|
|
|
|
|
|
sub subvars {
|
|
|
|
my $self = shift;
|
|
|
|
my $inf = shift;
|
|
|
|
my $outf = shift;
|
2010-11-03 18:05:12 +00:00
|
|
|
$tmplerr=undef; #clear tmplerr since we are starting fresh
|
2007-10-26 22:44:33 +00:00
|
|
|
$node = shift;
|
2010-08-06 14:22:28 +00:00
|
|
|
my $pkglistfile=shift;
|
2011-06-27 03:46:29 +00:00
|
|
|
my $media_dir = shift;
|
2011-09-26 13:34:20 +00:00
|
|
|
my $platform=shift;
|
2012-06-25 12:03:03 +00:00
|
|
|
my $partitionfile=shift;
|
2011-09-30 18:07:03 +00:00
|
|
|
my %namedargs = @_; #further expansion of this function will be named arguments, should have happened sooner.
|
|
|
|
unless ($namedargs{reusemachinepass}) {
|
|
|
|
$lastmachinepass="";
|
|
|
|
}
|
2010-08-06 14:22:28 +00:00
|
|
|
|
2007-10-26 22:44:33 +00:00
|
|
|
my $outh;
|
|
|
|
my $inh;
|
|
|
|
$idir = dirname($inf);
|
|
|
|
open($inh,"<",$inf);
|
|
|
|
unless ($inh) {
|
2008-03-10 14:20:47 +00:00
|
|
|
return "Unable to open $inf, aborting";
|
2007-10-26 22:44:33 +00:00
|
|
|
}
|
|
|
|
mkpath(dirname($outf));
|
|
|
|
open($outh,">",$outf);
|
|
|
|
unless($outh) {
|
2008-03-10 14:20:47 +00:00
|
|
|
return "Unable to open $outf for writing/creation, aborting";
|
2007-10-26 22:44:33 +00:00
|
|
|
}
|
|
|
|
my $inc;
|
|
|
|
#First load input into memory..
|
|
|
|
while (<$inh>) {
|
|
|
|
$inc.=$_;
|
|
|
|
}
|
|
|
|
close($inh);
|
|
|
|
my $master;
|
2012-05-18 06:14:35 +00:00
|
|
|
#my $sitetab = xCAT::Table->new('site');
|
2012-05-18 07:02:09 +00:00
|
|
|
my $noderestab = xCAT::Table->new('noderes');
|
2012-05-18 06:14:35 +00:00
|
|
|
#(my $et) = $sitetab->getAttribs({key=>"master"},'value');
|
|
|
|
my @masters = xCAT::Utils->get_site_attribute("master");
|
2012-05-18 07:02:09 +00:00
|
|
|
my $tmp = $masters[0];
|
2012-05-18 06:14:35 +00:00
|
|
|
if ( defined($tmp) ) {
|
|
|
|
$master = $tmp;
|
2007-10-26 22:44:33 +00:00
|
|
|
}
|
2012-02-21 06:53:54 +00:00
|
|
|
my $ipfn = xCAT::Utils->my_ip_facing($node);
|
|
|
|
if ($ipfn) {
|
|
|
|
$master = $ipfn;
|
|
|
|
}
|
2012-05-18 07:02:09 +00:00
|
|
|
my $et = $noderestab->getNodeAttribs($node,['xcatmaster']);
|
2007-10-26 22:44:33 +00:00
|
|
|
if ($et and $et->{'xcatmaster'}) {
|
|
|
|
$master = $et->{'xcatmaster'};
|
|
|
|
}
|
|
|
|
unless ($master) {
|
|
|
|
die "Unable to identify master for $node";
|
|
|
|
}
|
|
|
|
$ENV{XCATMASTER}=$master;
|
2009-05-11 20:46:03 +00:00
|
|
|
|
|
|
|
#replace the env with the right value so that correct include files can be found
|
|
|
|
$inc =~ s/#ENV:([^#]+)#/envvar($1)/eg;
|
|
|
|
|
2010-08-06 14:22:28 +00:00
|
|
|
if ($pkglistfile) {
|
|
|
|
#substitute the tag #INCLUDE_DEFAULT_PKGLIST# with package file name (for full install of rh, centos,SL, esx fedora)
|
|
|
|
$inc =~ s/#INCLUDE_DEFAULT_PKGLIST#/#INCLUDE:$pkglistfile#/g;
|
|
|
|
|
|
|
|
#substitute the tag #INCLUDE_DEFAULT_PKGLIST_S# with package file name (for full install of sles)
|
|
|
|
#substitute the tag #INCLUDE_DEFAULT_PERNLIST_S# with package file name (for full install sles
|
|
|
|
#substitute the tag #INCLUDE_DEFAULT_RMPKGLIST_S# with package file name (for full install sles)
|
|
|
|
$inc =~ s/#INCLUDE_DEFAULT_PKGLIST_S#/#INCLUDE_PKGLIST:$pkglistfile#/g;
|
|
|
|
$inc =~ s/#INCLUDE_DEFAULT_PTRNLIST_S#/#INCLUDE_PTRNLIST:$pkglistfile#/g;
|
|
|
|
$inc =~ s/#INCLUDE_DEFAULT_RMPKGLIST_S#/#INCLUDE_RMPKGLIST:$pkglistfile#/g;
|
|
|
|
}
|
|
|
|
|
2011-09-26 13:34:20 +00:00
|
|
|
if (("ubuntu" eq $platform) || ("debian" eq $platform)) {
|
|
|
|
# since debian/ubuntu uses a preseed file instead of a kickstart file, pkglist
|
|
|
|
# must be included via simple string replacement instead of using includefile()
|
|
|
|
|
|
|
|
# the first line of $pkglistfile is the space-delimited package list
|
|
|
|
# the additional lines are considered preseed directives and included as is
|
|
|
|
|
|
|
|
if ($pkglistfile) {
|
|
|
|
# handle empty and non-empty $pkglistfile's
|
|
|
|
|
|
|
|
if (open PKGLISTFILE, "<$pkglistfile") {
|
|
|
|
my $pkglist = <PKGLISTFILE>;
|
|
|
|
chomp $pkglist;
|
|
|
|
|
|
|
|
# substitute space-delimited package list
|
|
|
|
$inc =~ s/#INCLUDE_DEFAULT_PKGLIST_PRESEED#/$pkglist/g;
|
|
|
|
|
|
|
|
# append preseed directive lines
|
|
|
|
while (<PKGLISTFILE>) {
|
|
|
|
$inc .= $_;
|
|
|
|
}
|
|
|
|
|
|
|
|
close PKGLISTFILE;
|
|
|
|
}
|
|
|
|
} else {
|
|
|
|
# handle no $pkglistfile
|
|
|
|
$inc =~ s/#INCLUDE_DEFAULT_PKGLIST_PRESEED#//g;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2010-08-06 14:22:28 +00:00
|
|
|
#do *all* includes, recursive and all
|
2007-10-26 22:44:33 +00:00
|
|
|
my $doneincludes=0;
|
|
|
|
while (not $doneincludes) {
|
|
|
|
$doneincludes=1;
|
2010-04-15 18:31:46 +00:00
|
|
|
if ($inc =~ /#INCLUDE_PKGLIST:[^#^\n]+#/) {
|
2010-04-13 17:30:54 +00:00
|
|
|
$doneincludes=0;
|
2010-04-15 18:31:46 +00:00
|
|
|
$inc =~ s/#INCLUDE_PKGLIST:([^#^\n]+)#/includefile($1, 0, 1)/eg;
|
2010-04-13 17:30:54 +00:00
|
|
|
}
|
2010-07-30 20:20:51 +00:00
|
|
|
if ($inc =~ /#INCLUDE_PTRNLIST:[^#^\n]+#/) {
|
|
|
|
$doneincludes=0;
|
|
|
|
$inc =~ s/#INCLUDE_PTRNLIST:([^#^\n]+)#/includefile($1, 0, 2)/eg;
|
|
|
|
}
|
2010-08-04 19:42:56 +00:00
|
|
|
if ($inc =~ /#INCLUDE_RMPKGLIST:[^#^\n]+#/) {
|
|
|
|
$doneincludes=0;
|
|
|
|
$inc =~ s/#INCLUDE_RMPKGLIST:([^#^\n]+)#/includefile($1, 0, 3)/eg;
|
|
|
|
}
|
2010-04-15 18:31:46 +00:00
|
|
|
if ($inc =~ /#INCLUDE:[^#^\n]+#/) {
|
2007-10-26 22:44:33 +00:00
|
|
|
$doneincludes=0;
|
2010-04-15 18:31:46 +00:00
|
|
|
$inc =~ s/#INCLUDE:([^#^\n]+)#/includefile($1, 0, 0)/eg;
|
2007-10-26 22:44:33 +00:00
|
|
|
}
|
|
|
|
}
|
2012-03-23 08:30:50 +00:00
|
|
|
|
|
|
|
#Support hierarchical include
|
|
|
|
$inc =~ s/#ENV:([^#]+)#/envvar($1)/eg;
|
|
|
|
if ($inc =~ /#INCLUDE:[^#^\n]+#/) {
|
|
|
|
$inc =~ s/#INCLUDE:([^#^\n]+)#/includefile($1, 0, 0)/eg;
|
|
|
|
}
|
|
|
|
|
2007-10-26 22:44:33 +00:00
|
|
|
#ok, now do everything else..
|
2009-09-02 15:16:05 +00:00
|
|
|
$inc =~ s/#XCATVAR:([^#]+)#/envvar($1)/eg;
|
|
|
|
$inc =~ s/#ENV:([^#]+)#/envvar($1)/eg;
|
2010-03-09 22:00:00 +00:00
|
|
|
$inc =~ s/#MACHINEPASSWORD#/machinepassword()/eg;
|
2007-10-26 22:44:33 +00:00
|
|
|
$inc =~ s/#TABLE:([^:]+):([^:]+):([^#]+)#/tabdb($1,$2,$3)/eg;
|
2008-03-20 17:38:25 +00:00
|
|
|
$inc =~ s/#TABLEBLANKOKAY:([^:]+):([^:]+):([^#]+)#/tabdb($1,$2,$3,'1')/eg;
|
2007-10-26 22:44:33 +00:00
|
|
|
$inc =~ s/#CRYPT:([^:]+):([^:]+):([^#]+)#/crydb($1,$2,$3)/eg;
|
2009-09-02 15:16:05 +00:00
|
|
|
$inc =~ s/#COMMAND:([^#]+)#/command($1)/eg;
|
2012-06-20 16:35:21 +00:00
|
|
|
$inc =~ s/#KICKSTARTNET#/kickstartnetwork()/eg;
|
2012-07-06 21:09:04 +00:00
|
|
|
$inc =~ s/#ESXIPV6SETUP#/esxipv6setup()/eg;
|
2010-04-15 18:31:46 +00:00
|
|
|
$inc =~ s/#INCLUDE_NOP:([^#^\n]+)#/includefile($1,1,0)/eg;
|
|
|
|
$inc =~ s/#INCLUDE_PKGLIST:([^#^\n]+)#/includefile($1,0,1)/eg;
|
2010-07-30 20:20:51 +00:00
|
|
|
$inc =~ s/#INCLUDE_PTRNLIST:([^#^\n]+)#/includefile($1,0,2)/eg;
|
2010-08-04 19:42:56 +00:00
|
|
|
$inc =~ s/#INCLUDE_RMPKGLIST:([^#^\n]+)#/includefile($1,0,3)/eg;
|
2010-04-15 18:31:46 +00:00
|
|
|
$inc =~ s/#INCLUDE:([^#^\n]+)#/includefile($1, 0, 0)/eg;
|
2010-07-20 02:08:09 +00:00
|
|
|
$inc =~ s/#HOSTNAME#/$node/eg;
|
2009-09-30 17:27:42 +00:00
|
|
|
|
To make the code easier to maintain we decided not to select autoyast config template file (compute.sdk.sles11.tmpl/compute.sles11), instead if the user want to do a SDK included full install, he should prepare a customized template from compute.sdk.sles11.tmpl, and copy it to /install/custom directory.
This is for SLES 11 SP1 SDK DVD support (Patch 1)
====================================================================
Patch Reason: Design changed, To make the code easier to maintain
we decided not to automate select autoyast config template file
(compute.sdk.sles11.tmpl/compute.sles11),
Patch detail: If the user want to do a SDK DVD included full install,
he/she should prepare a customized template originated from
compute.sdk.sles11.tmpl, and copy it under /install/custom
====================================================================
====================================================================
Target Dist: SLES 11 SP1, for both full install and statelite install
Aim: To enable users to install packages from SDK DVD during installation
user impact: If the user add packages in .pkglist files, he/she should first do 'copycds' using SDK DVD iso.
For full install, the user should prepare a .tmpl file for autoyast
By-effect: N/A
Limitations: 2nd installation DVD and 2nd SDK DVD not supported, both carries source packages.
It seems they are not recognized by autoyast, and it's of no use to install sources pkgs on CNs.
====================================================================
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@9980 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
2011-06-29 10:03:58 +00:00
|
|
|
my $nrtab = xCAT::Table->new("noderes");
|
|
|
|
my $tftpserver = $nrtab->getNodeAttribs($node, ['tftpserver']);
|
|
|
|
my $sles_sdk_media = "http://" . $tftpserver->{tftpserver} . $media_dir . "/sdk1";
|
|
|
|
|
|
|
|
$inc =~ s/#SLES_SDK_MEDIA#/$sles_sdk_media/eg;
|
2009-07-10 18:34:09 +00:00
|
|
|
|
2012-06-25 12:03:03 +00:00
|
|
|
#if user specify the partion file, replace the default partition strategy
|
|
|
|
if ($partitionfile){
|
|
|
|
#if the content of the partition file is definition replace the default is ok
|
|
|
|
my $partcontent = '';
|
|
|
|
my $scriptflag = 0;
|
|
|
|
|
|
|
|
if ($partitionfile =~ /^s:(.*)/){
|
|
|
|
$scriptflag = 1;
|
|
|
|
$partitionfile = $1;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (-r $partitionfile){
|
|
|
|
open ($inh, "<", $partitionfile);
|
|
|
|
while (<$inh>){
|
|
|
|
$partcontent .= $_;
|
|
|
|
}
|
|
|
|
close ($inh);
|
|
|
|
|
|
|
|
#the content of the specified file is a script which can write partition definition into /tmp/partitionfile
|
|
|
|
if ($scriptflag){
|
2012-07-10 05:59:35 +00:00
|
|
|
#for redhat/sl/centos/kvm/fedora
|
|
|
|
if ($inc =~ /#XCAT_PARTITION_START#/) {
|
|
|
|
my $tempstr = "%inlcude /tmp/partitionfile\n";
|
|
|
|
$inc =~ s/#XCAT_PARTITION_START#[\s\S]*#XCAT_PARTITION_END#/$tempstr/;
|
|
|
|
#modify the content in the file, and write into %pre part
|
2012-07-12 10:26:10 +00:00
|
|
|
$partcontent = "cat > /tmp/partscript << EOFEOF\n" . $partcontent . "\nEOFEOF\n";
|
2012-07-10 05:59:35 +00:00
|
|
|
$partcontent .= "chmod 755 /tmp/partscript\n";
|
|
|
|
$partcontent .= "/tmp/partscript\n";
|
|
|
|
#replace the #XCA_PARTITION_SCRIPT#
|
|
|
|
$inc =~ s/#XCA_PARTITION_SCRIPT#/$partcontent/;
|
|
|
|
}
|
|
|
|
#for sles/suse
|
|
|
|
elsif ($inc =~ /<!-- XCAT-PARTITION-START -->/){
|
2012-07-12 10:26:10 +00:00
|
|
|
my $tempstr = "<drive><device>XCATPARTITIONTEMP</device></drive>";
|
|
|
|
$inc =~ s/<!-- XCAT-PARTITION-START -->[\s\S]*<!-- XCAT-PARTITION-END -->/$tempstr/;
|
|
|
|
$partcontent = "cat > /tmp/partscript << EOFEOF\n" . $partcontent . "\nEOFEOF\n";
|
2012-07-10 05:59:35 +00:00
|
|
|
$partcontent .= "chmod 755 /tmp/partscript\n";
|
|
|
|
$partcontent .= "/tmp/partscript\n";
|
|
|
|
$inc =~ s/#XCA_PARTITION_SCRIPT#/$partcontent/;
|
|
|
|
}
|
2012-06-25 12:03:03 +00:00
|
|
|
}
|
|
|
|
else{
|
|
|
|
$partcontent =~ s/\s$//;
|
2012-07-05 07:42:13 +00:00
|
|
|
if ($inc =~ /#XCAT_PARTITION_START#/){
|
|
|
|
$inc =~ s/#XCAT_PARTITION_START#[\s\S]*#XCAT_PARTITION_END#/$partcontent/;
|
|
|
|
}
|
|
|
|
elsif ($inc =~ /<!-- XCAT-PARTITION-START -->/){
|
|
|
|
$inc =~ s/<!-- XCAT-PARTITION-START -->[\s\S]*<!-- XCAT-PARTITION-END -->/$partcontent/;
|
|
|
|
}
|
2012-06-25 12:03:03 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2008-03-10 14:20:47 +00:00
|
|
|
if ($tmplerr) {
|
|
|
|
close ($outh);
|
|
|
|
return $tmplerr;
|
|
|
|
}
|
2007-10-26 22:44:33 +00:00
|
|
|
print $outh $inc;
|
|
|
|
close($outh);
|
2008-03-10 14:20:47 +00:00
|
|
|
return 0;
|
2007-10-26 22:44:33 +00:00
|
|
|
}
|
2012-06-20 16:35:21 +00:00
|
|
|
|
2012-07-06 21:09:04 +00:00
|
|
|
sub esxipv6setup {
|
|
|
|
if ($::XCATSITEVALS{managedaddressmode} ne "autoula") { return ""; } # blank unless autoula
|
|
|
|
my $hoststab;
|
|
|
|
my $mactab = xCAT::Table->new('mac',-create=>0);
|
|
|
|
my $ent = $mactab->getNodeAttribs($node,['mac']);
|
|
|
|
my $suffix = $ent->{mac};
|
|
|
|
$suffix = lc($suffix);
|
|
|
|
unless ($mactab) { die "mac table should always exist prior to template processing when doing autoula"; }
|
|
|
|
#in autoula, because ESXi weasel doesn't seemingly grok IPv6 at all, we'll have to do it in %pre
|
|
|
|
unless ($hoststab) { $hoststab = xCAT::Table->new('hosts',-create=>1); }
|
|
|
|
my $ulaaddr = autoulaaddress($suffix);
|
|
|
|
$hoststab->setNodeAttribs($node,{ip=>$ulaaddr});
|
|
|
|
return 'esxcfg-vmknic -i '.$ulaaddr.'/64 "Management Network"'."\n";
|
|
|
|
}
|
2012-07-10 05:59:35 +00:00
|
|
|
|
2012-06-20 16:35:21 +00:00
|
|
|
sub kickstartnetwork {
|
|
|
|
my $line = "network --bootproto=";
|
2012-06-25 20:05:11 +00:00
|
|
|
my $hoststab;
|
2012-06-20 16:35:21 +00:00
|
|
|
my $mactab = xCAT::Table->new('mac',-create=>0);
|
2012-06-25 20:05:11 +00:00
|
|
|
unless ($mactab) { die "mac table should always exist prior to template processing when doing autoula"; }
|
2012-06-20 16:35:21 +00:00
|
|
|
my $ent = $mactab->getNodeAttribs($node,['mac']);
|
|
|
|
unless ($ent and $ent->{mac}) { die "missing mac data for $node"; }
|
|
|
|
my $suffix = $ent->{mac};
|
|
|
|
$suffix = lc($suffix);
|
|
|
|
if ($::XCATSITEVALS{managedaddressmode} eq "autoula") {
|
2012-06-25 20:05:11 +00:00
|
|
|
unless ($hoststab) { $hoststab = xCAT::Table->new('hosts',-create=>1); }
|
2012-06-20 16:35:21 +00:00
|
|
|
$line .= "static --device=$suffix --noipv4 --ipv6=";
|
2012-06-25 20:05:11 +00:00
|
|
|
my $ulaaddr = autoulaaddress($suffix);
|
|
|
|
$hoststab->setNodeAttribs($node,{ip=>$ulaaddr});
|
|
|
|
$line .= $ulaaddr;
|
2012-06-20 16:35:21 +00:00
|
|
|
} else {
|
|
|
|
$line .= "dhcp";
|
|
|
|
}
|
|
|
|
return $line;
|
|
|
|
}
|
|
|
|
sub autoulaaddress {
|
|
|
|
my $suffix = shift;
|
|
|
|
my $prefix = $::XCATSITEVALS{autoulaprefix};
|
|
|
|
$suffix =~ /(..):(..:..):(..:..):(..)/;
|
|
|
|
my $leadbyte = $1;
|
2012-06-20 18:06:30 +00:00
|
|
|
my $mask = ((hex($leadbyte) & 2) ^ 2);
|
2012-06-20 16:35:21 +00:00
|
|
|
if ($mask) {
|
2012-06-20 18:06:30 +00:00
|
|
|
$leadbyte = hex($leadbyte) | $mask;
|
2012-06-20 16:35:21 +00:00
|
|
|
} else {
|
2012-06-20 18:06:30 +00:00
|
|
|
$leadbyte = hex($leadbyte) & 0xfd; #mask out the one bit
|
2012-06-20 16:35:21 +00:00
|
|
|
}
|
2012-06-20 18:06:30 +00:00
|
|
|
$suffix = sprintf("%02x$2ff:fe$3$4",$leadbyte);
|
2012-06-20 16:35:21 +00:00
|
|
|
|
|
|
|
return $prefix.$suffix;
|
|
|
|
}
|
|
|
|
|
2010-03-09 22:00:00 +00:00
|
|
|
sub machinepassword {
|
2011-09-30 18:07:03 +00:00
|
|
|
if ($lastmachinepass) { #note, this should only happen after another call
|
|
|
|
#to subvars that does *not* request reuse
|
|
|
|
#the issue being avoiding reuse in the installmonitor case
|
|
|
|
#subvars function clears this if appropriate
|
|
|
|
return $lastmachinepass;
|
|
|
|
}
|
2010-03-09 22:00:00 +00:00
|
|
|
my $domaintab = xCAT::Table->new('domain');
|
2010-05-19 21:03:40 +00:00
|
|
|
$ENV{HOME}='/etc/xcat';
|
|
|
|
$ENV{LDAPRC}='ad.ldaprc';
|
2010-03-09 22:00:00 +00:00
|
|
|
my $ou;
|
|
|
|
if ($domaintab) {
|
|
|
|
my $ouent = $domaintab->getNodeAttribs('node','ou');
|
|
|
|
if ($ouent and $ouent->{ou}) {
|
|
|
|
$ou = $ouent->{ou};
|
|
|
|
}
|
|
|
|
}
|
2012-05-18 06:14:35 +00:00
|
|
|
#my $sitetab = xCAT::Table->new('site');
|
|
|
|
#unless ($sitetab) {
|
|
|
|
# return "ERROR: unable to open site table";
|
|
|
|
#}
|
2010-03-09 22:00:00 +00:00
|
|
|
my $domain;
|
2012-05-18 06:14:35 +00:00
|
|
|
#(my $et) = $sitetab->getAttribs({key=>"domain"},'value');
|
|
|
|
my @domains = xCAT::Utils->get_site_attribute("domain");
|
|
|
|
my $tmp = $domains[0];
|
|
|
|
if (defined($tmp)) {
|
|
|
|
$domain = $tmp;
|
|
|
|
} else {
|
2010-03-09 22:00:00 +00:00
|
|
|
return "ERROR: no domain set in site table";
|
|
|
|
}
|
|
|
|
my $realm = uc($domain);
|
|
|
|
$realm =~ s/\.$//;
|
|
|
|
$realm =~ s/^\.//;
|
|
|
|
$ENV{KRB5CCNAME}="/tmp/xcat/krbcache.$realm.$$";
|
|
|
|
unless ($loggedrealms{$realm}) {
|
|
|
|
my $passtab = xCAT::Table->new('passwd',-create=>0);
|
|
|
|
unless ($passtab) { sendmsg([1,"Error authenticating to Active Directory"],$node); return; }
|
|
|
|
(my $adpent) = $passtab->getAttribs({key=>'activedirectory'},['username','password']);
|
|
|
|
unless ($adpent and $adpent->{username} and $adpent->{password}) {
|
|
|
|
return "ERROR: activedirectory entry missing from passwd table";
|
|
|
|
}
|
|
|
|
my $err = xCAT::ADUtils::krb_login(username=>$adpent->{username},password=>$adpent->{password},realm=>$realm);
|
|
|
|
if ($err) {
|
|
|
|
return "ERROR: authenticating to Active Directory";
|
|
|
|
}
|
|
|
|
$loggedrealms{$realm}=1;
|
|
|
|
}
|
2012-05-18 06:14:35 +00:00
|
|
|
#my $server = $sitetab->getAttribs({key=>'directoryserver'},['value']);
|
|
|
|
my $server;
|
|
|
|
my @servers = xCAT::Utils->get_site_attribute("directoryserver");
|
|
|
|
$tmp = $servers[0];
|
|
|
|
if (defined($tmp)) {
|
|
|
|
$server = $tmp;
|
2010-03-09 22:00:00 +00:00
|
|
|
} else {
|
|
|
|
$server = '';
|
|
|
|
if ($netdnssupport) {
|
|
|
|
my $res = Net::DNS::Resolver->new;
|
|
|
|
my $query = $res->query("_ldap._tcp.$domain","SRV");
|
|
|
|
if ($query) {
|
|
|
|
foreach my $srec ($query->answer) {
|
|
|
|
$server = $srec->{target};
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
unless ($server) {
|
|
|
|
sendmsg([1,"Unable to determine a directory server to communicate with, try site.directoryserver"]);
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
my %args = (
|
|
|
|
node => $node,
|
|
|
|
dnsdomain => $domain,
|
|
|
|
directoryserver => $server,
|
|
|
|
changepassondupe => 1,
|
|
|
|
);
|
|
|
|
if ($ou) { $args{ou} = $ou };
|
|
|
|
my $data = xCAT::ADUtils::add_host_account(%args);
|
|
|
|
if ($data->{error}) {
|
|
|
|
return "ERROR: ".$data->{error};
|
|
|
|
} else {
|
2011-09-30 18:07:03 +00:00
|
|
|
$lastmachinepass=$data->{password};
|
2010-03-09 22:00:00 +00:00
|
|
|
return $data->{password};
|
|
|
|
}
|
|
|
|
}
|
2007-10-26 22:44:33 +00:00
|
|
|
sub includefile
|
|
|
|
{
|
2009-07-10 18:34:09 +00:00
|
|
|
my $file = shift;
|
|
|
|
my $special=shift;
|
2010-08-04 19:42:56 +00:00
|
|
|
my $pkglist=shift; #1 means package list,
|
|
|
|
#2 means pattern list, pattern list starts with @,
|
|
|
|
#3 means remove package list, packages to be removed start with -.
|
2009-07-10 18:34:09 +00:00
|
|
|
my $text = "";
|
2007-10-26 22:44:33 +00:00
|
|
|
unless ($file =~ /^\//) {
|
|
|
|
$file = $idir."/".$file;
|
|
|
|
}
|
|
|
|
|
2010-03-09 22:00:00 +00:00
|
|
|
open(INCLUDE,$file) || return "#INCLUDEBAD:cannot open $file#";
|
2009-07-10 18:34:09 +00:00
|
|
|
|
2010-04-13 17:30:54 +00:00
|
|
|
my $pkgb = "";
|
|
|
|
my $pkge = "";
|
|
|
|
if ($pkglist) {
|
2010-07-30 20:20:51 +00:00
|
|
|
if ($pkglist == 2) {
|
|
|
|
$pkgb = "<pattern>";
|
|
|
|
$pkge = "</pattern>";
|
|
|
|
} else {
|
|
|
|
$pkgb = "<package>";
|
|
|
|
$pkge = "</package>";
|
|
|
|
}
|
|
|
|
}
|
2009-07-10 18:34:09 +00:00
|
|
|
while(<INCLUDE>) {
|
2010-07-30 20:20:51 +00:00
|
|
|
if ($pkglist == 1) {
|
2010-04-13 17:30:54 +00:00
|
|
|
s/#INCLUDE:/#INCLUDE_PKGLIST:/;
|
2010-07-30 20:20:51 +00:00
|
|
|
} elsif ($pkglist == 2) {
|
|
|
|
s/#INCLUDE:/#INCLUDE_PTRNLIST:/;
|
2010-08-04 19:42:56 +00:00
|
|
|
} elsif ($pkglist == 3) {
|
|
|
|
s/#INCLUDE:/#INCLUDE_RMPKGLIST:/;
|
2010-04-13 17:30:54 +00:00
|
|
|
}
|
2010-07-30 20:20:51 +00:00
|
|
|
|
|
|
|
if (( $_ =~ /^\s*#/ ) || ( $_ =~ /^\s*$/ )) {
|
2010-04-13 17:30:54 +00:00
|
|
|
$text .= "$_";
|
|
|
|
} else {
|
2010-08-04 19:42:56 +00:00
|
|
|
my $tmp=$_;
|
|
|
|
chomp($tmp); #remove return char
|
|
|
|
$tmp =~ s/\s*$//; #removes trailing spaces
|
|
|
|
next if (($pkglist == 1) && (($tmp=~/^\s*@/) || ($tmp=~/^\s*-/))); #for packge list, do not include the lines start with @
|
2010-07-30 20:20:51 +00:00
|
|
|
if ($pkglist == 2) { #for pattern list, only include the lines start with @
|
2010-08-04 19:42:56 +00:00
|
|
|
if ($tmp =~/^\s*@(.*)/) {
|
|
|
|
$tmp=$1;
|
|
|
|
$tmp =~s/^\s*//; #removes leading spaces
|
|
|
|
} else { next; }
|
|
|
|
} elsif ($pkglist == 3) { #for rmpkg list, only include the lines start with -
|
|
|
|
if ($tmp =~/^\s*-(.*)/) {
|
|
|
|
$tmp=$1;
|
|
|
|
$tmp =~s/^\s*//; #removes leading spaces
|
2010-07-30 20:20:51 +00:00
|
|
|
} else { next; }
|
2010-08-04 19:42:56 +00:00
|
|
|
}
|
|
|
|
$text .= "$pkgb$tmp$pkge\n";
|
2010-04-13 17:30:54 +00:00
|
|
|
}
|
2009-07-10 18:34:09 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
close(INCLUDE);
|
|
|
|
|
|
|
|
if ($special) {
|
|
|
|
$text =~ s/\$/\\\$/g;
|
|
|
|
$text =~ s/`/\\`/g;
|
|
|
|
}
|
2007-10-26 22:44:33 +00:00
|
|
|
|
2009-07-10 18:34:09 +00:00
|
|
|
chomp($text);
|
|
|
|
return($text);
|
2007-10-26 22:44:33 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
sub command
|
|
|
|
{
|
|
|
|
my $command = shift;
|
|
|
|
my $r;
|
|
|
|
|
|
|
|
# if(($r = `$command`) == 0) {
|
|
|
|
# chomp($r);
|
|
|
|
# return($r);
|
|
|
|
# }
|
|
|
|
# else {
|
|
|
|
# return("#$command: failed $r#");
|
|
|
|
# }
|
|
|
|
|
|
|
|
$r = `$command`;
|
|
|
|
chomp($r);
|
|
|
|
return($r);
|
|
|
|
}
|
|
|
|
|
|
|
|
sub envvar
|
|
|
|
{
|
|
|
|
my $envvar = shift;
|
|
|
|
|
|
|
|
if($envvar =~ /^\$/) {
|
|
|
|
$envvar =~ s/^\$//;
|
|
|
|
}
|
|
|
|
|
|
|
|
return($ENV{$envvar});
|
|
|
|
}
|
|
|
|
|
|
|
|
sub genpassword {
|
|
|
|
#Generate a pseudo-random password of specified length
|
|
|
|
my $length = shift;
|
|
|
|
my $password='';
|
|
|
|
my $characters= 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ01234567890';
|
|
|
|
srand; #have to reseed, rand is not rand otherwise
|
|
|
|
while (length($password) < $length) {
|
|
|
|
$password .= substr($characters,int(rand 63),1);
|
|
|
|
}
|
|
|
|
return $password;
|
|
|
|
}
|
|
|
|
|
|
|
|
sub crydb
|
|
|
|
{
|
|
|
|
my $result = tabdb(@_);
|
|
|
|
unless ($result =~ /^\$1\$/) {
|
|
|
|
$result = crypt($result,'$1$'.genpassword(8));
|
|
|
|
}
|
|
|
|
return $result;
|
|
|
|
}
|
|
|
|
sub tabdb
|
|
|
|
{
|
|
|
|
my $table = shift;
|
|
|
|
my $key = shift;
|
|
|
|
my $field = shift;
|
2008-03-20 17:38:25 +00:00
|
|
|
my $blankok = shift;
|
2007-10-26 22:44:33 +00:00
|
|
|
my $tabh = xCAT::Table->new($table);
|
2008-03-10 14:20:47 +00:00
|
|
|
unless ($tabh) {
|
|
|
|
$tmplerr="Unable to open table named $table";
|
|
|
|
if ($table =~ /\.tab/) {
|
2008-03-10 14:45:35 +00:00
|
|
|
$tmplerr .= " (.tab should not be specified as part of the table name in xCAT 2, as seems to be the case here)";
|
2008-03-10 14:20:47 +00:00
|
|
|
}
|
|
|
|
return "";
|
|
|
|
}
|
2007-10-26 22:44:33 +00:00
|
|
|
my $ent;
|
2009-06-17 21:03:08 +00:00
|
|
|
my $bynode=0;
|
2007-10-26 22:44:33 +00:00
|
|
|
if ($key eq "THISNODE" or $key eq '$NODE') {
|
|
|
|
$ent = $tabh->getNodeAttribs($node,[$field]);
|
2008-05-16 19:03:18 +00:00
|
|
|
$key="node=$node";
|
2007-10-26 22:44:33 +00:00
|
|
|
} else {
|
|
|
|
my %kp;
|
|
|
|
foreach (split /,/,$key) {
|
|
|
|
my $key;
|
|
|
|
my $val;
|
2009-06-17 21:03:08 +00:00
|
|
|
if ($_ eq 'THISNODE' or $_ eq '$NODE') {
|
|
|
|
$bynode=1;
|
|
|
|
} else {
|
|
|
|
($key,$val) = split /=/,$_;
|
|
|
|
$kp{$key}=$val;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
if ($bynode) {
|
|
|
|
my @ents = $tabh->getNodeAttribs($node,[keys %kp,$field]);
|
|
|
|
my $tent; #Temporary ent
|
|
|
|
TENT: foreach $tent (@ents) {
|
|
|
|
foreach (keys %kp) {
|
|
|
|
unless ($kp{$_} eq $tent->{$_}) {
|
|
|
|
next TENT;
|
|
|
|
}
|
|
|
|
} #If still here, we found it
|
|
|
|
$ent = $tent;
|
|
|
|
|
|
|
|
}
|
|
|
|
} else {
|
|
|
|
($ent) = $tabh->getAttribs(\%kp,$field);
|
2007-10-26 22:44:33 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
$tabh->close;
|
2007-11-19 19:45:11 +00:00
|
|
|
unless($ent and defined($ent->{$field})) {
|
2008-03-20 17:38:25 +00:00
|
|
|
unless ($blankok) {
|
2012-02-21 06:53:54 +00:00
|
|
|
if ($field eq "xcatmaster") {
|
|
|
|
my $ipfn = xCAT::Utils->my_ip_facing($node);
|
|
|
|
if ($ipfn) {
|
|
|
|
return $ipfn;
|
|
|
|
}
|
|
|
|
}
|
2012-02-06 22:15:50 +00:00
|
|
|
#$tmplerr="Unable to find requested $field from $table, with $key";
|
|
|
|
my $rep=get_replacement($table,$key,$field);
|
|
|
|
if ($rep) {
|
|
|
|
return tabdb($rep->[0], $rep->[1], $rep->[2]);
|
|
|
|
} else {
|
|
|
|
$tmplerr="Unable to find requested $field from $table, with $key"
|
|
|
|
}
|
2008-03-20 17:38:25 +00:00
|
|
|
}
|
2007-11-19 19:45:11 +00:00
|
|
|
return "";
|
|
|
|
#return "#TABLEBAD:$table:field $field not found#";
|
2007-10-26 22:44:33 +00:00
|
|
|
}
|
|
|
|
return $ent->{$field};
|
|
|
|
|
|
|
|
|
|
|
|
#if($key =~ /^\$/) {
|
|
|
|
# $key =~ s/^\$//;
|
|
|
|
# $key = $ENV{$key};
|
|
|
|
#}
|
|
|
|
#if($field =~ /^\$/) {
|
|
|
|
# $field =~ s/^\$//;
|
|
|
|
# $field = $ENV{$field};
|
|
|
|
#}
|
|
|
|
#if($field == '*') {
|
|
|
|
# $field = 1;
|
|
|
|
# $all = 1;
|
|
|
|
#}
|
|
|
|
|
|
|
|
#--$field;
|
|
|
|
|
|
|
|
#if($field < 0) {
|
|
|
|
# return "#TABLE:field not found#"
|
|
|
|
#}
|
|
|
|
|
|
|
|
#open(TAB,$table) || \
|
|
|
|
# return "#TABLE:cannot open $table#";
|
|
|
|
|
|
|
|
#while(<TAB>) {
|
|
|
|
# if(/^$key(\t|,| )/) {
|
|
|
|
# m/^$key(\t|,| )+(.*)/;
|
|
|
|
# if($all == 1) {
|
|
|
|
# return "$2";
|
|
|
|
# }
|
|
|
|
# @fields = split(',',$2);
|
|
|
|
# if(defined $fields[$field]) {
|
|
|
|
# return "$fields[$field]";
|
|
|
|
# }
|
|
|
|
# else {
|
|
|
|
# return "#TABLE:field not found#"
|
|
|
|
# }
|
|
|
|
# }
|
|
|
|
#}
|
|
|
|
|
|
|
|
#close(TAB);
|
|
|
|
#return "#TABLE:key not found#"
|
|
|
|
}
|
|
|
|
|
2012-02-06 22:15:50 +00:00
|
|
|
sub get_replacement {
|
|
|
|
my $table=shift;
|
|
|
|
my $key=shift;
|
|
|
|
my $field=shift;
|
|
|
|
my $rep;
|
|
|
|
if (exists($tab_replacement{"$table:$field"})) {
|
|
|
|
my $repstr=$tab_replacement{"$table:$field"};
|
|
|
|
if ($repstr) {
|
|
|
|
my @a=split(':', $repstr);
|
|
|
|
if (@a > 2) {
|
|
|
|
$rep=\@a;
|
|
|
|
} else {
|
|
|
|
$rep->[0]=$a[0];
|
|
|
|
$rep->[1]=$key;
|
|
|
|
$rep->[2]=$a[1];
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
return $rep;
|
|
|
|
}
|
|
|
|
|
2007-10-26 22:44:33 +00:00
|
|
|
1;
|