arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add generic postscript for xCAT diskless nodes.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1030 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
nott 2008-04-14 12:20:34 +00:00
parent e7dff94ebb
commit 3b4a7953d4
1 changed files with 81 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

81
xCAT/postscripts/xcatdsklspost Normal file
View File

@ -0,0 +1,81 @@
#!/usr/bin/env perl
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
#####################################################
#
# Generic xCAT post script for diskless nodes
#
#####################################################
# get hostname
my $shorthost = `hostname -s`;
chomp $shorthost;
# get platform
my $osname = `uname`;
chomp $osname;
# get the postscript tar file from the server and unwrap it
if ($osname eq "Linux") {
getLinuxpostfile();
} else {
# TBD
# getAIXpostfile();
}
# check & run the postscript
my $scriptname = "/xcatpost/".$shorthost;
if (-f $scriptname)
{
my $rc = system("$scriptname");
if ($rc >> 8)
{
print "Could not run $scriptname.\n";
}
} else {
print "Could not find post script for $shorthost.\n";
}
exit 0;
#####################################################
#
# getLinuxpostfile
# Get the linux post scripts from the server
#
#####################################################
sub getLinuxpostfile {
# look in the dhcp leases file for the name of the server
my $dhclientfile="/var/lib/dhclient/dhclient-eth0.leases";
my @lines;
if (open(DHCLIENT, "<$dhclientfile")) {
@lines = <DHCLIENT>;
close(DHCLIENT);
} else {
print "Could not open $dhclientfile.\n";
return 1;
}
my $ip; # IP of server
foreach my $l (@lines)
{
if ($l =~ /dhcp-server-identifier/) {
my ($junk, $junk2, $s) = split(" ", $l);
($ip, $junk) = split("\;", $s);
# print "ip = $ip\n";
}
}
# get postscripts tar file from the server
my $getcmd = "mkdir -p /xcatpost; cd /xcatpost; wget --wait=10 --random-wait --waitretry=10 --retry-connrefused -t 0 -T 60 http://$ip/install/autoinst/xcatpost.tar.gz; gunzip xcatpost.tar.gz; tar -xvf xcatpost.tar";
#print "getcmd= $getcmd\n";
my $rc = system("$getcmd");
if ($rc >> 8)
{
print "Could not get xcatpost.tar.bz2.\n";
}
}