Add mknb as a plugin to do more the correct thing with networks and yaboot and pxelinux configurations, including serial directives in site
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@550 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso
parent
2166d6149b
commit
fcf06207f2
@ -2,6 +2,7 @@
|
||||
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
|
||||
package xCAT::Utils;
|
||||
use xCAT::Table;
|
||||
use POSIX qw(ceil);
|
||||
use Socket;
|
||||
use xCAT::Schema;
|
||||
use Data::Dumper;
|
||||
@ -995,6 +996,34 @@ sub isServiceNode
|
||||
}
|
||||
}
|
||||
|
||||
sub my_hexnets
|
||||
{
|
||||
my $rethash;
|
||||
my @nets = split /\n/, `/sbin/ip addr`;
|
||||
foreach (@nets)
|
||||
{
|
||||
my @elems = split /\s+/;
|
||||
unless (/^\s*inet\s/)
|
||||
{
|
||||
next;
|
||||
}
|
||||
(my $curnet, my $maskbits) = split /\//, $elems[2];
|
||||
my $bitstoeven = (4-($maskbits%4));
|
||||
if ($bitstoeven eq 4) { $bitstoeven = 0; }
|
||||
my $padbits = (32-($bitstoeven+$maskbits));
|
||||
my $numchars = int(($maskbits + $bitstoeven)/4);
|
||||
my $curmask = 2**$maskbits - 1 << (32 - $maskbits);
|
||||
my $nown = unpack("N", inet_aton($curnet));
|
||||
$nown = $nown & $curmask;
|
||||
my $highn = $nown+((2**$bitstoeven-1)<<(32-$maskbits-$bitstoeven));
|
||||
while ($nown <= $highn) {
|
||||
my $nowhex = sprintf("%08x",$nown);
|
||||
$rethash->{substr($nowhex,0,$numchars)} = $curnet;
|
||||
$nown += 1<<(32-$maskbits-$bitstoeven);
|
||||
}
|
||||
}
|
||||
return $rethash;
|
||||
}
|
||||
#-------------------------------------------------------------------------------
|
||||
|
||||
=head3 my_ip_facing
|
||||
|
||||
119
xCAT-server-2.0/lib/xcat/plugins/mknb.pm
Normal file
119
xCAT-server-2.0/lib/xcat/plugins/mknb.pm
Normal file
@ -0,0 +1,119 @@
|
||||
package xCAT_plugin::mknb;
|
||||
use File::Temp qw(tempdir);
|
||||
use xCAT::Utils;
|
||||
use File::Path;
|
||||
use File::Copy;
|
||||
use Data::Dumper;
|
||||
|
||||
sub handled_commands {
|
||||
return {
|
||||
mknb => 'mknb',
|
||||
};
|
||||
}
|
||||
|
||||
sub process_request {
|
||||
my $request = shift;
|
||||
my $callback = shift;
|
||||
my $sitetab = xCAT::Table->new('site');
|
||||
my $serialport;
|
||||
my $serialspeed;
|
||||
my $serialflow;
|
||||
my $xcatdport = 3001;
|
||||
if ($sitetab) {
|
||||
my $portent = $sitetab->getAttribs({key=>'defserialport'});
|
||||
if ($portent and defined($portent->{value})) {
|
||||
$serialport=$portent->{value};
|
||||
}
|
||||
$portent = $sitetab->getAttribs({key=>'defserialspeed'});
|
||||
if ($portent and defined($portent->{value})) {
|
||||
$serialspeed=$portent->{value};
|
||||
}
|
||||
$portent = $sitetab->getAttribs({key=>'defserialflow'});
|
||||
if ($portent and defined($portent->{value})) {
|
||||
$serialflow=$portent->{value};
|
||||
}
|
||||
$portent = $sitetab->getAttribs({key=>'xcatdport'});
|
||||
if ($portent and defined($portent->{value})) {
|
||||
$xcatdport=$portent->{value};
|
||||
}
|
||||
$sitetab->close;
|
||||
}
|
||||
|
||||
my $installdir = "/install";
|
||||
my $tftpdir = "/tftpboot";
|
||||
if (scalar(@{$request->{arg}}) != 1) {
|
||||
$callback->({error=>Dumper($request)." Need to specifiy architecture (x86_64 or ppc64)"},{errorcode=>[1]});
|
||||
return;
|
||||
}
|
||||
my $arch = $request->{arg}->[0];
|
||||
unless (-d "$::XCATROOT/share/xcat/netboot/$arch") {
|
||||
$callback->({error=>"Unable to find directory $::XCATROOT/share/xcat/netboot/$arch",errorcode=>[1]});
|
||||
return;
|
||||
}
|
||||
unless ( -r "/root/.ssh/id_rsa.pub" ) {
|
||||
$callback->({data=>["Generating ssh private key for root"]});
|
||||
my $rc=system('ssh-keygen -t rsa -q -b 2048 -N "" -f /root/.ssh/id_rsa');
|
||||
if ($rc) {
|
||||
$callback->({error=>["Failure executing ssh-keygen for root"],errorcode=>[1]});
|
||||
}
|
||||
}
|
||||
my $tempdir = tempdir("mknb.$$.XXXXXX",TMPDIR=>1);
|
||||
unless ($tempdir) {
|
||||
$callback->({error=>["Failed to create a temporary directory"],errorcode=>[1]});
|
||||
return;
|
||||
}
|
||||
my $rc = system("cp -a $::XCATROOT/share/xcat/netboot/$arch/nbroot/* $tempdir");
|
||||
if ($rc) {
|
||||
system("rm -rf $tempdir");
|
||||
$callback->({error=>["Failed to copy $::XCATROOT/share/xcat/netboot/$arch/nbroot/ contents"],errorcode=>[1]});
|
||||
return;
|
||||
}
|
||||
mkpath($tempdir."/root/.ssh");
|
||||
copy("/root/.ssh/id_rsa.pub","$tempdir/root/.ssh/authorized_keys");
|
||||
if (-r "$installdir/postscripts/hostkeys/ssh_host_key") {
|
||||
copy("$installdir/postscripts/hostkeys/ssh_host_key","$tempdir/etc/ssh_host_key");
|
||||
copy("$installdir/postscripts/hostkeys/ssh_host_rsa_key","$tempdir/etc/ssh_host_rsa_key");
|
||||
copy("$installdir/postscripts/hostkeys/ssh_host_dsa_key","$tempdir/etc/ssh_host_dsa_key");
|
||||
}
|
||||
unless (-r "$tempdir/etc/ssh_host_key") {
|
||||
system("ssh-keygen -t rsa1 -f $tempdir/etc/ssh_host_key -C '' -N ''");
|
||||
system("ssh-keygen -t rsa -f $tempdir/etc/ssh_host_rsa_key -C '' -N ''");
|
||||
system("ssh-keygen -t dsa -f $tempdir/etc/ssh_host_dsa_key -C '' -N ''");
|
||||
}
|
||||
$callback->({data=>["Creating nbfs.$arch.gz in $tftpdir/xcat"]});
|
||||
system("cd $tempdir; find . | cpio -o -H newc | gzip -9 > $tftpdir/xcat/nbfs.$arch.gz");
|
||||
system ("rm -rf $temdir");
|
||||
my $hexnets = xCAT::Utils->my_hexnets();
|
||||
my $consolecmdline;
|
||||
if ($serialport and $serialspeed) {
|
||||
$consolecmdline = "console=ttyS$serialport,$serialspeed";
|
||||
if ($serialflow =~ /cts/ or $serialflow =~ /hard/) {
|
||||
$consolecmdline .= "n8r";
|
||||
}
|
||||
}
|
||||
my $cfgfile;
|
||||
foreach (keys %{$hexnets}) {
|
||||
if ($arch =~ /x86/) {
|
||||
open($cfgfile,">","$tftpdir/pxelinux.cfg/".uc($_));
|
||||
print $cfgfile "DEFAULT xCAT\n";
|
||||
print $cfgfile " LABEL xCAT\n";
|
||||
print $cfgfile " KERNEL xcat/nbk.$arch\n";
|
||||
print $cfgfile " APPEND initrd=xcat/nbfs.$arch.gz xcatd=".$hexnets->{$_}.":$xcatdport $consolecmdline\n";
|
||||
close($cfgfile);
|
||||
} elsif ($arch =~ /ppc/) {
|
||||
open($cfgfile,">","$tftpdir/etc/".lc($_));
|
||||
print $cfgfile "timeout=5\n";
|
||||
print $cfgfile "label=xcat\n";
|
||||
print $cfgfile "image=xcat/nbk.$arch\n";
|
||||
print $cfgfile "initrd=xcat/nbfs.$arch.gz\n";
|
||||
print $cfgfile 'append="xcatd='.$hexnets->{$_}.":$xcatdport $consolecmdline\n";
|
||||
close($cfgfile);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
}
|
||||
|
||||
1;
|
||||
Loading…
Reference in New Issue
Block a user