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

update site table on web gui

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@9060 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
xq2005 2011-03-16 09:19:02 +00:00
parent 3bcf7f6072
commit cb4e097b05
1 changed files with 53 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
xCAT-server/lib/xcat/plugins/web.pm
View File

@ -58,7 +58,9 @@ sub process_request {
'writeframe' => \&web_writeframe,
'writecec' => \&web_writecec,
'writehmc' => \&web_writehmc,
'discoverframe' => \&web_discoverframe
'discover' => \&web_discover,
'updatevpd' => \&web_updatevpd,
'updatesite' => \&web_updatesite
#'xdsh' => \&web_xdsh,
#THIS list needs to be updated
);
@ -1220,10 +1222,23 @@ sub web_writecec{
$callback->({data=>'Success: Write all CECs into xCAT database!'});
}
sub web_discoverframe{
sub web_discover{
my ( $request, $callback, $sub_req ) = @_;
my $type1 = '';
my $type2 = uc($request->{arg}->[1]);
if ('FRAME' eq $type1){
$type1 = 'BPA';
}
elsif('CEC' eq $request->{arg}->[1]) {
$type1 = 'FSP';
}
elsif ('HMC' eq $request->{arg}->[1]){
$type1 = 'HMC';
}
my $retStr = '';
my $retInfo = xCAT::Utils->runcmd( "lsslp -s BPA 2>null | grep FRAME | awk '{print \$2\"-\"\$3}'", -1, 1 );
my $retInfo = xCAT::Utils->runcmd( "lsslp -s $type1 2>null | grep $type2 | awk '{print \$2\"-\"\$3}'", -1, 1 );
if (scalar(@$retInfo) < 1){
$retStr = 'Error: Can not discover frames in cluster!';
}
@ -1235,4 +1250,39 @@ sub web_discoverframe{
}
$callback->({data=>$retStr});
}
sub web_updatevpd{
my ( $request, $callback, $sub_req ) = @_;
my $harwareMtmsPair = $request->{arg}->[1];
my @hardware = split(/:/, $harwareMtmsPair);
my $vpdtab = xCAT::Table->new('vpd');
unless($vpdtab){
return;
}
foreach my $hard (@hardware){
#the sequence must be object name, mtm, serial
my @temp = split(/,/, $hard);
$vpdtab->setAttribs({'node' => @temp[0]}, {'serial' => @temp[2], 'mtm'=>@temp[1]});
}
$vpdtab->close();
}
sub web_updatesite{
my ( $request, $callback, $sub_req ) = @_;
my @valuePair = split(/:/, $request->{arg}->[1]);
my $sitetab = xCAT::Table->new('site');
unless($sitetab){
return;
}
foreach my $temp (@valuePair){
my @keyvalue = split(/,/, $temp);
$sitetab->setAttribs({key => @keyvalue[0]}, {value => @keyvalue[1] });
}
$sitetab->close();
}
1;