2007-10-26 22:44:33 +00:00
< ? php
// Contains all the common php functions that most pages need.
2007-10-30 13:05:36 +00:00
// Some common/global settings
session_start (); // retain session variables across page requests
2007-12-11 19:44:21 +00:00
if ( ! isset ( $TOPDIR )) { $TOPDIR = '..' ; }
2007-10-30 13:05:36 +00:00
// The settings below display error on the screen, instead of giving blank pages.
2008-09-26 20:25:53 +00:00
//error_reporting(E_ALL ^ E_NOTICE);
error_reporting ( E_ALL );
2007-10-30 13:05:36 +00:00
ini_set ( 'display_errors' , true );
2008-09-26 20:25:53 +00:00
//-----------------------------------------------------------------------------
2007-12-11 19:44:21 +00:00
/**
* Inserts the header part of the HTML and the top part of the page , including the menu .
* Also includes some common css and js files and the css and js files specified .
* This function should be called at the beginning of every page .
* @ param String $title The page title that should go in the window title bar .
* @ param array $stylesheets The paths of the styles that are specific to this page .
* @ param array $javascripts The paths of the javascript files that are specific to this page .
* @ param array $currents The keys to the top menu and 2 nd menu that represent the current choice for this page . See insertMenus () for the keys .
*/
2007-11-21 12:08:19 +00:00
function insertHeader ( $title , $stylesheets , $javascripts , $currents ) {
2007-10-30 13:05:36 +00:00
global $TOPDIR ;
2007-12-11 19:44:21 +00:00
// Remember the current page so we can open it again the next time they come to the web interface
2008-10-23 17:54:02 +00:00
if ( $currents [ 0 ] != 'logout' ) {
$expire_time = gmmktime ( 0 , 0 , 0 , 1 , 1 , 2038 );
foreach ( $currents as $key => $value ) { setcookie ( " currentpage[ $key ] " , $value , $expire_time , '/' ); }
}
2007-10-26 22:44:33 +00:00
2008-10-23 17:54:02 +00:00
echo <<< EOS1
2007-10-26 22:44:33 +00:00
<! DOCTYPE html PUBLIC " -//W3C//DTD XHTML 1.1 Strict//EN " " http://www.w3.org/TR/xhtml11/DTD/xhtml11-strict.dtd " >
< html xmlns = " http://www.w3.org/1999/xhtml " >
< head >
2007-11-21 12:08:19 +00:00
< title > $title </ title >
2007-10-26 22:44:33 +00:00
< meta http - equiv = " Content-Type " content = " application/xhtml+xml; charset=iso-8859-1 " >
2008-10-23 17:54:02 +00:00
< link href = " $TOPDIR /lib/style.css " rel = stylesheet type = 'text/css' >
2008-10-29 13:57:19 +00:00
< link href = " $TOPDIR /jq/theme/jquery-ui-themeroller.css " rel = stylesheet type = 'text/css' >
2008-10-23 17:54:02 +00:00
< script src = " $TOPDIR /jq/jquery.min.js " type = " text/javascript " ></ script >
< script src = " $TOPDIR /jq/jquery-ui-all.min.js " type = " text/javascript " ></ script >
2007-11-24 17:44:09 +00:00
< script src = " $TOPDIR /lib/functions.js " type = " text/javascript " ></ script >
2007-10-30 13:05:36 +00:00
2008-10-23 17:54:02 +00:00
EOS1 ;
2007-10-26 22:44:33 +00:00
2007-10-30 13:05:36 +00:00
if ( $stylesheets ) {
foreach ( $stylesheets as $s ) {
echo " <LINK rel=stylesheet href=' $s ' type='text/css'> \n " ;
}
}
if ( $javascripts ) {
foreach ( $javascripts as $j ) {
echo " <script type='text/javascript' src=' $j '></script> \n " ;
}
}
2007-11-21 12:08:19 +00:00
echo " </head><body> \n " ;
2008-10-23 17:54:02 +00:00
echo <<< EOS3
2007-11-21 12:08:19 +00:00
< table id = headingTable border = 0 cellspacing = 0 cellpadding = 0 >
2007-11-27 16:00:27 +00:00
< tr valign = top >
2008-10-03 13:11:57 +00:00
< td >< img class = ImgTop src = '$TOPDIR/images/topl2.jpg' ></ td >
< td class = TopMiddle >< img id = xcatImage src = '$TOPDIR/images/xCAT_icon-l.gif' ></ td >
2007-11-27 16:00:27 +00:00
< td class = TopMiddle width = '100%' >
2007-10-26 22:44:33 +00:00
2008-10-23 17:54:02 +00:00
EOS3 ;
2007-11-24 17:44:09 +00:00
//echo "<div id=top><img id=xcatImage src='$TOPDIR/images/xCAT_icon.gif'><div id=menuDiv>\n";
2007-10-26 22:44:33 +00:00
2007-11-21 12:08:19 +00:00
insertMenus ( $currents );
2007-10-30 13:05:36 +00:00
2008-10-03 13:11:57 +00:00
echo " </td><td><img class=ImgTop src=' $TOPDIR /images/topr2.jpg'></td></tr></table> \n " ;
2007-11-21 12:08:19 +00:00
//echo "</div></div>\n"; // end the top div
2008-10-23 17:54:02 +00:00
if ( ! isAuthenticated ()) {
insertLogin (); // display the login dialog and page footer
exit ; // Do not want to continue with the rest of the page
// If the login dialog is successful, it will load index.php which will remember what
// page they were trying to go to.
}
2007-11-21 12:08:19 +00:00
} // end insertHeader
2007-10-30 13:05:36 +00:00
2007-10-26 22:44:33 +00:00
2008-10-23 17:54:02 +00:00
//-----------------------------------------------------------------------------
// If they are not authenticated yet, display the login dialog
function insertLogin () {
global $TOPDIR ;
// The javascript in xcatauth.js will add the Login button and display the dialog
echo <<< EOS2
< script src = " $TOPDIR /lib/xcatauth.js " type = " text/javascript " ></ script >
< div id = logdialog >
< p id = logdialogNote > Note : The username and password used must be in the passwd table in the xCAT database .</ p >
< form id = loginform >< table cellspacing = 3 >
< tr >< td align = right >< label for = username > Username :</ label ></ td >< td align = left >< input id = username type = text name = username ></ td ></ tr >
< tr >< td align = right >< label for = password > Password :</ label ></ td >< td align = left >< input id = password type = password name = password ></ td ></ tr >
</ table ></ form >
< p >< span id = logstatus >< br /></ span ></ p >
</ div >
EOS2 ;
insertFooter ();
}
2007-12-11 19:44:21 +00:00
// This is the data structure that represents the menu for each page.
$MENU = array (
'machines' => array (
'label' => 'Machines' ,
'default' => 'groups' ,
'list' => array (
2008-10-29 13:57:19 +00:00
'frames' => array ( 'label' => 'Lab Floor/Racks' , 'url' => " $TOPDIR /machines/frames.php " ),
2008-10-17 01:45:03 +00:00
'groups' => array ( 'label' => 'Groups/Nodes' , 'url' => " $TOPDIR /machines/groups.php " ),
'discover' => array ( 'label' => 'Discover' , 'url' => " $TOPDIR /machines/discover.php " ),
2007-12-11 19:44:21 +00:00
)
),
2008-10-29 13:57:19 +00:00
'config' => array (
'label' => 'Configure' ,
'default' => 'db' ,
2007-12-11 19:44:21 +00:00
'list' => array (
2008-10-29 13:57:19 +00:00
'prefs' => array ( 'label' => 'Preferences' , 'url' => " $TOPDIR /config/prefs.php " ),
'db' => array ( 'label' => 'Cluster Settings' , 'url' => " $TOPDIR /config/db.php " ),
'mgmtnode' => array ( 'label' => 'Mgmt Node' , 'url' => " $TOPDIR /config/mgmtnode.php " ),
'cfm' => array ( 'label' => 'Sync Files' , 'url' => " $TOPDIR /config/cfm.php " ),
2007-12-11 19:44:21 +00:00
)
),
'deploy' => array (
'label' => 'Deploy' ,
'default' => 'osimages' ,
'list' => array (
'osimages' => array ( 'label' => 'OS Images' , 'url' => " $TOPDIR /deploy/osimages.php " ),
'prepare' => array ( 'label' => 'Prepare' , 'url' => " $TOPDIR /deploy/prepare.php " ),
'deploy' => array ( 'label' => 'Deploy' , 'url' => " $TOPDIR /deploy/deploy.php " ),
'monitor' => array ( 'label' => 'Monitor' , 'url' => " $TOPDIR /deploy/monitor.php " ),
)
),
2008-10-29 13:57:19 +00:00
'monitor' => array (
'label' => 'Monitor' ,
'default' => 'monsetup' ,
2007-12-11 19:44:21 +00:00
'list' => array (
2008-10-29 13:57:19 +00:00
'monsetup' => array ( 'label' => 'Monitor Setup' , 'url' => " $TOPDIR /monitor/monsetup.php " ),
'moncond' => array ( 'label' => 'Define Events' , 'url' => " $TOPDIR /monitor/moncond.php " ),
'monview' => array ( 'label' => 'View Events' , 'url' => " $TOPDIR /monitor/monview.php " ),
'eventlog' => array ( 'label' => 'Event Log' , 'url' => " $TOPDIR /monitor/eventlog.php " ),
)
),
'jobs' => array (
'label' => 'Jobs' ,
'default' => 'overview' ,
'list' => array (
'overview' => array ( 'label' => 'Overview' , 'url' => " $TOPDIR /jobs/overview.php " ),
//todo: Vallard fill in rest
2007-12-11 19:44:21 +00:00
)
),
'support' => array (
'label' => 'Support' ,
'default' => 'diagnose' ,
'list' => array (
'diagnose' => array ( 'label' => 'Diagnose' , 'url' => " $TOPDIR /support/diagnose.php " ),
2008-10-17 01:45:03 +00:00
'update' => array ( 'label' => 'Update' , 'url' => " $TOPDIR /support/updategui.php " ),
2008-09-26 20:25:53 +00:00
'howtos' => array ( 'label' => 'HowTos' , 'url' => getDocURL ( 'howto' )),
'manpages' => array ( 'label' => 'Man Pages' , 'url' => getDocURL ( 'manpage' )),
'maillist' => array ( 'label' => 'Mail List' , 'url' => getDocURL ( 'web' , 'mailinglist' )),
'wiki' => array ( 'label' => 'Wiki' , 'url' => getDocURL ( 'web' , 'wiki' )),
2008-10-03 13:11:57 +00:00
'suggest' => array ( 'label' => 'Suggest' , 'url' => " $TOPDIR /support/suggest.php " ),
2007-12-11 19:44:21 +00:00
'about' => array ( 'label' => 'About' , 'url' => " $TOPDIR /support/about.php " ),
)
),
2008-10-23 17:54:02 +00:00
'logout' => array (
'label' => 'Logout' ,
'default' => 'logout' ,
'list' => array (
'logout' => array ( 'label' => 'Logout/Login' , 'url' => " $TOPDIR /lib/logout.php " ),
)
),
2007-12-11 19:44:21 +00:00
);
2008-09-26 20:25:53 +00:00
//-----------------------------------------------------------------------------
2007-11-21 12:08:19 +00:00
// Insert the menus at the top of the page
// $currents is an array of the current menu choice tree
function insertMenus ( $currents ) {
global $TOPDIR ;
2007-12-11 19:44:21 +00:00
global $MENU ;
2008-10-03 13:11:57 +00:00
echo " <table class=MenuTable border=0 cellspacing=0 cellpadding=0> \n " ;
2007-10-26 22:44:33 +00:00
2007-12-11 19:44:21 +00:00
insertMenuRow ( $currents [ 0 ], 1 , $MENU );
insertMenuRow ( $currents [ 1 ], 0 , $MENU [ $currents [ 0 ]][ 'list' ]);
2007-11-21 12:08:19 +00:00
echo " </table> \n " ;
2007-10-26 22:44:33 +00:00
}
2007-11-02 19:42:07 +00:00
2008-09-26 20:25:53 +00:00
//-----------------------------------------------------------------------------
2007-11-21 12:08:19 +00:00
// Insert one set of choices under a main choice.
function insertMenuRow ( $current , $isTop , $items ) {
global $TOPDIR ;
//$img = "$TOPDIR/images/h3bg_new.gif";
2008-10-03 13:11:57 +00:00
//$menuRowClass = $isTop ? '' : 'class=MenuRowBottom';
$menuItemClass = $isTop ? '' : 'class=MenuItemBottom' ;
//$currentClass = $isTop ? 'class=CurrentMenuItemTop' : '';
2007-11-21 12:08:19 +00:00
//echo "<TABLE class=MenuTable id=mainNav cellpadding=0 cellspacing=0 border=0><tr>\n";
//echo "<div class=$menuRowClass><ul id=mainNav>\n";
2008-10-03 13:11:57 +00:00
//echo "<tr><td $menuRowClass><ul id=mainNav>\n";
//echo "<tr><td><ul id=mainNav>\n";
echo " <tr><td> \n " ;
2007-11-21 12:08:19 +00:00
2007-12-11 19:44:21 +00:00
foreach ( $items as $key => $value ) {
$label = $value [ 'label' ];
if ( $isTop ) {
$url = $value [ 'list' ][ $value [ 'default' ]][ 'url' ]; // get to the list of submenu choices, choose the default one, and get its url
} else {
$url = $value [ 'url' ];
}
2007-11-21 12:08:19 +00:00
if ( $key == $current ){
//echo "<TD><a id=$key href='$link[1]'>$link[0]</a></TD>\n";
2008-10-03 13:11:57 +00:00
//echo "<li><p $currentClass>$label</p></li>";
//echo "<li><p>$label</p></li>";
//echo "<p class=CurrentMenuItem>$label</p>";
echo " <span class=CurrentMenuItem> $label </span> " ;
2007-11-21 12:08:19 +00:00
} else {
//echo "<TD><a class=NavItem id=$key href='$link[1]'>$link[0]</a></TD>\n";
2008-10-03 13:11:57 +00:00
//echo "<li><a $menuItemClass id=$key href='$url'>$label</a></li>";
echo " <a $menuItemClass id= $key href=' $url '> $label </a> " ;
2007-11-21 12:08:19 +00:00
}
}
//echo "</TR></TABLE>\n";
//echo "</ul></div>\n";
2008-10-03 13:11:57 +00:00
//echo "\n</ul></td></tr>\n";
echo " \n </td></tr> \n " ;
2007-11-21 12:08:19 +00:00
}
2007-10-31 16:02:56 +00:00
2008-09-26 20:25:53 +00:00
//-----------------------------------------------------------------------------
// Inserts the html for each pages footer
function insertFooter () {
2008-11-19 21:26:43 +00:00
//echo "<div class=PageFooter><p id=disclaimer>This interface is still under construction and not yet ready for production use.</p></div>\n";
echo " <div class=PageFooter><p class='Emphasis Center'>This interface is still under development - use accordingly.</p></div> \n " ;
echo '</BODY></HTML>' ;
2008-09-26 20:25:53 +00:00
}
2008-11-03 21:47:38 +00:00
//-----------------------------------------------------------------------------
// Similar to docmd(), but also takes in data that is the table contents
function doTabrestore ( $tab , & $data ){
$request = simplexml_load_string ( '<xcatrequest></xcatrequest>' );
$request -> addChild ( 'command' , 'tabrestore' );
$usernode = $request -> addChild ( 'becomeuser' );
$usernode -> addChild ( 'username' , $_SESSION [ " username " ]);
$usernode -> addChild ( 'password' , getpassword ());
foreach ( $data as $line ){
2009-04-02 17:08:12 +00:00
foreach ( $line as & $f ) { if ( ! empty ( $f ) && ! ereg ( " ^# " , $f ) && ! preg_match ( '/^".*"$/' , $f )) { $f = '"' . $f . '"' ; } }
2008-11-19 21:26:43 +00:00
// Combine the elements of the array, but have to handle sparse arrays
ksort ( $line , SORT_NUMERIC );
$keys = array_keys ( $line );
$maxindex = count ( $line ) - 1 ;
//echo "<p>"; print_r($line); echo "</p>";
//trace("$maxindex, $keys[$maxindex]");
if ( $keys [ $maxindex ] != $maxindex ) { // need to fill in some values
for ( $i = 0 ; $i <= $keys [ $maxindex ]; $i ++ ) { if ( ! isset ( $line [ $i ])) { $line [ $i ] = '' ;} }
ksort ( $line , SORT_NUMERIC );
}
2008-11-03 21:47:38 +00:00
$linestr = implode ( " , " , $line );
2008-11-19 21:26:43 +00:00
//trace($linestr);
2008-11-03 21:47:38 +00:00
$linestr = str_replace ( '"' , '"' , $linestr ); //todo: should we use the htmlentities function?
$linestr = str_replace ( " ' " , ''' , $linestr );
//echo "<p>addChild:$linestr.</p>\n";
$request -> addChild ( 'data' , $linestr );
}
$request -> addChild ( 'table' , $tab );
$resp = submit_request ( $request , 0 );
return $resp ;
}
2008-09-26 20:25:53 +00:00
//-----------------------------------------------------------------------------
// Run a cmd via the xcat client/server protocol
// args is an array of arguments to the cmd
// Returns a tree of SimpleXML objects. See perl-xCAT/xCAT/Client.pm for the format.
function docmd ( $cmd , $nr , $args ){
2008-10-23 17:54:02 +00:00
// If for some reason we are not logged in yet, do not even try to communicate w/xcatd
if ( ! is_logged ()) {
echo " <p>Docmd: not logged in yet - can not run command.</p> \n " ;
return simplexml_load_string ( '<xcat></xcat>' , 'SimpleXMLElement' , LIBXML_NOCDATA );
}
2008-09-26 20:25:53 +00:00
$request = simplexml_load_string ( '<xcatrequest></xcatrequest>' );
$request -> addChild ( 'command' , $cmd );
2008-10-13 12:55:58 +00:00
if ( ! empty ( $nr )) { $request -> addChild ( 'noderange' , $nr ); }
if ( ! empty ( $args )) { foreach ( $args as $a ) { $request -> addChild ( 'arg' , $a ); } }
2008-10-23 17:54:02 +00:00
$usernode = $request -> addChild ( 'becomeuser' );
$usernode -> addChild ( 'username' , $_SESSION [ " username " ]);
$usernode -> addChild ( 'password' , getpassword ());
2008-09-26 20:25:53 +00:00
#echo $request->asXML();
$xml = submit_request ( $request , 0 );
return $xml ;
}
//-----------------------------------------------------------------------------
// Used by docmd()
// req is a tree of SimpleXML objects
// Returns a tree of SimpleXML objects. See perl-xCAT/xCAT/Client.pm for the format.
function submit_request ( $req , $skipVerify ){
#global $cert,$port,$xcathost;
2008-10-23 17:54:02 +00:00
//$apachehome = '/var/www'; # for sles this should be /var/lib/wwwrun
//$cert = "$apachehome/.xcat/client-cred.pem";
2008-09-26 20:25:53 +00:00
$xcathost = " localhost " ;
$port = " 3001 " ;
2008-11-03 21:47:38 +00:00
$rsp = FALSE ;
2008-09-26 20:25:53 +00:00
$response = '' ;
$cleanexit = 0 ;
// Open a socket to xcatd
2008-10-23 17:54:02 +00:00
$context = stream_context_create (); // do not need certificate anymore: array('ssl'=>array('local_cert' => $cert))
if ( $fp = stream_socket_client ( 'ssl://' . $xcathost . ':' . $port , $errno , $errstr , 30 , STREAM_CLIENT_CONNECT , $context )){
2008-09-26 20:25:53 +00:00
fwrite ( $fp , $req -> asXML ()); // send the xml to xcatd
while ( ! feof ( $fp )){ // and then read until there is no more
2008-10-23 17:54:02 +00:00
$response .= preg_replace ( '/\n/' , '' , fgets ( $fp )); // remove newlines and add it to the response
2008-09-26 20:25:53 +00:00
// Look for the serverdone response
2008-10-23 17:54:02 +00:00
$fullpattern = '/<xcatresponse>\s*<serverdone>\s*<\/serverdone>\s*<\/xcatresponse>/' ;
$mixedpattern = '/<serverdone>\s*<\/serverdone>.*<\/xcatresponse>/' ;
//$shortpattern = '/<serverdone>\s*<\/serverdone>/';
if ( preg_match ( $mixedpattern , $response )) { // transaction is done, pkg up the xml and return it
//echo "<p>", htmlentities($response), "</p>\n";
// remove the serverdone response and put an xcat tag around the rest
$count = 0 ;
$response = preg_replace ( $fullpattern , '' , $response , - 1 , $count ); // 1st try to remove the long pattern
if ( ! $count ) { $response = preg_replace ( $mixedpattern , '' , $response ) . '</xcatresponse>/' ; } // if its not there, then remove the short pattern
$response = " <xcat> $response </xcat> " ;
//echo "<p>", htmlentities($response), "</p>\n";
2008-09-26 20:25:53 +00:00
$rsp = simplexml_load_string ( $response , 'SimpleXMLElement' , LIBXML_NOCDATA );
2008-10-13 12:55:58 +00:00
//echo '<p>'; print_r($rsp); echo "</p>\n";
2008-09-26 20:25:53 +00:00
$cleanexit = 1 ;
2008-10-23 17:54:02 +00:00
break ;
2008-09-26 20:25:53 +00:00
}
}
fclose ( $fp );
} else {
2008-10-13 12:55:58 +00:00
echo " <p>xCAT Submit request socket Error: $errno - $errstr </p> \n " ;
2008-09-26 20:25:53 +00:00
}
if ( ! $cleanexit ){
2008-11-03 21:47:38 +00:00
if ( preg_match ( '/^\s*<xcatresponse>.*<\/xcatresponse>\s*$/' , $response )) {
// It is probably an error msg, that is why we didn't get serverdone
$response = " <xcat> $response </xcat> " ;
$rsp = simplexml_load_string ( $response , 'SimpleXMLElement' , LIBXML_NOCDATA );
}
elseif ( ! $skipVerify ){
2008-10-23 17:54:02 +00:00
echo " <p>Error: xCAT response ended prematurely: " , htmlentities ( $response ), " </p> " ;
2008-11-03 21:47:38 +00:00
$rsp = FALSE ;
2008-09-26 20:25:53 +00:00
}
}
return $rsp ;
}
2008-10-13 12:55:58 +00:00
//-----------------------------------------------------------------------------
// Use with submit_request() to get the data fields (output that is not node-oriented)
function getXmlData ( & $xml ) {
$data = array ();
foreach ( $xml -> children () as $response ) foreach ( $response -> children () as $k => $v ) {
if ( $k == 'data' ) { $data [] = ( string ) $v ; }
}
return $data ;
}
//-----------------------------------------------------------------------------
// Use with submit_request() to get any errors that might have occurred
// Returns the errorcode and adds any error strings to the $error array passed in
function getXmlErrors ( & $xml , & $errors ) {
2008-11-03 21:47:38 +00:00
if ( ! isset ( $errors )) { $errors = array (); }
if ( ! isset ( $xml ) || $xml === FALSE ) { $errors [] = 'rc = 1' ; return 1 ; }
2008-10-13 12:55:58 +00:00
$errorcode = 0 ;
foreach ( $xml -> children () as $response ) foreach ( $response -> children () as $k => $v ) {
if ( $k == 'error' ) { $errors [] = ( string ) $v ; }
if ( $k == 'errorcode' ) { $errorcode = ( string ) $v ; }
}
2008-10-29 13:57:19 +00:00
if ( $errorcode == 0 && count ( $errors )) { $errorcode = - 1 * count ( $errors ); } // the plugin author forgot to set the errorcode
2008-10-13 12:55:58 +00:00
return $errorcode ;
}
2008-09-26 20:25:53 +00:00
2007-10-31 16:02:56 +00:00
/** ----------------------------------------------------------------------------------------------
Function to run the commands on the remote nodes . Four arguments :
1. The command
2. Mode :
0 : If successful , return output to a reference variable in the caller function , with the newlines removed .
Otherwise , print the error msg to the screen
2 : Like mode 0 , if successful , return output to a reference variable in the caller function , with the newlines removed .
But error msgs are output to reference variable in the caller function
1 : Long running cmd , intermediate results / errors are ouput as the command is executed
3 : Long running cmd . Results / errors are output to a file and return a file handle to the caller function
3. Reference variable to hold the output returned to caller function
4. Reference to an options hash , e . g . { NoVerbose => 1 , NoRedirectStderr => 1 }
Return status : 0 - successful , error - 1
------------------------------------------------------------------------------------------------*/
function runcmd ( $cmd , $mode , & $output , $options = NULL ){
//Set error output to the same source as standard output (on Linux)
2007-12-04 18:17:21 +00:00
if ( strstr ( $cmd , '2>&1' ) == FALSE && ! $options [ " NoRedirectStdErr " ]) { $cmd .= ' 2>&1' ; }
2007-12-11 19:44:21 +00:00
2007-12-18 15:30:44 +00:00
if ( ! isSupported ( 'ClientServer' )) { $cmd = " /usr/bin/sudo $cmd " ; }
2007-12-11 19:44:21 +00:00
//todo: add support for xcat 2
2007-10-31 16:02:56 +00:00
$ret_stat = " " ;
2007-12-11 19:44:21 +00:00
//$arr_output = NULL;
if ( $mode == 3 ) { // long running cmd - pipe output to file handle
2007-10-31 16:02:56 +00:00
$handle = popen ( $cmd , " r " );
2007-12-11 19:44:21 +00:00
if ( $handle ) {
2007-10-31 16:02:56 +00:00
$output = $handle ; //return file handle to caller
return 0 ; //successful
2007-12-11 19:44:21 +00:00
} else {
msg ( 'E' , " Piping command ( $cmd ) into a file handle failed. " );
2007-10-31 16:02:56 +00:00
return 1 ;
}
} elseif ( $mode == 0 || $mode == 2 ){
2007-12-11 19:44:21 +00:00
exec ( $cmd , $output , $ret_stat );
2007-10-31 16:02:56 +00:00
if ( $ret_stat == 0 ){
2007-12-11 19:44:21 +00:00
//$output = $arr_output;
2007-10-31 16:02:56 +00:00
} else {
//output the error msg to the screen
2007-12-11 19:44:21 +00:00
if ( $mode == 0 ) foreach ( $output as $line ) { msg ( 'E' , $line ); }
2007-10-31 16:02:56 +00:00
//output error msg to the caller function
2007-12-11 19:44:21 +00:00
//elseif ($mode == 2) $output = $arr_output[0]; // error is already in the output
2007-10-31 16:02:56 +00:00
}
2007-12-11 19:44:21 +00:00
} elseif ( $mode == 1 ){
echo " <code> \n " ;
system ( $cmd , $ret_stat );
echo " </code> \n " ;
2007-10-31 16:02:56 +00:00
}
return $ret_stat ;
}
2007-10-26 22:44:33 +00:00
2008-09-26 20:25:53 +00:00
//-----------------------------------------------------------------------------
2007-10-26 22:44:33 +00:00
// Send the keys and values in the primary global arrays
2008-09-26 20:25:53 +00:00
function dumpGlobals () {
2008-10-23 17:54:02 +00:00
//trace('<b>$_SERVER:</b>');
//foreach ($_SERVER as $key => $val) { trace("$key=$val."); }
//trace('<b>$_ENV:</b>');
//foreach ($_ENV as $key => $val) { trace("$key=$val."); }
trace ( '<b>$_GET:</b>' );
foreach ( $_GET as $key => $val ) { trace ( " $key = $val . " ); }
trace ( '<b>$_POST:</b>' );
foreach ( $_POST as $key => $val ) { trace ( " $key = $val . " ); }
trace ( '<b>$_COOKIE:</b>' );
foreach ( $_COOKIE as $key => $val ) { trace ( " $key = $val . " ); }
2009-06-18 18:42:45 +00:00
trace ( '<b>$_ENV:</b>' );
foreach ( $_ENV as $key => $val ) { trace ( " $key = $val . " ); }
trace ( '<b>$_SERVER:</b>' );
foreach ( $_SERVER as $key => $val ) { trace ( " $key = $val . " ); }
2007-10-26 22:44:33 +00:00
if ( isset ( $_SESSION )) {
2008-10-23 17:54:02 +00:00
trace ( '<b>$_SESSION:</b>' );
foreach ( $_SESSION as $key => $val ) { trace ( " $key = $val . " ); }
2007-10-26 22:44:33 +00:00
}
2008-10-23 17:54:02 +00:00
trace ( '<b>$GLOBALS:</b>' );
foreach ( $GLOBALS as $key => $val ) { trace ( " $key = $val . " ); }
2007-10-26 22:44:33 +00:00
}
2008-09-26 20:25:53 +00:00
//-----------------------------------------------------------------------------
2007-12-11 19:44:21 +00:00
function getXcatRoot () { return isset ( $_ENV [ 'XCATROOT' ]) ? $_ENV [ 'XCATROOT' ] : '/opt/xcat' ; }
2008-09-26 20:25:53 +00:00
//-----------------------------------------------------------------------------
2007-10-26 22:44:33 +00:00
# Returns true if the given rpm file is already installed at this version or higher.
2007-12-11 19:44:21 +00:00
function isInstalled ( $rpmfile ) {
2007-10-26 22:44:33 +00:00
$aixrpmopt = isAIX () ? '--ignoreos' : '' ;
2007-12-04 18:17:21 +00:00
$lang = isWindows () ? '' : 'LANG=C' ; //todo: add this back in
2007-11-21 12:08:19 +00:00
$out = array ();
2007-12-04 18:17:21 +00:00
$rc = runcmd ( " rpm -U $aixrpmopt --test $rpmfile " , 2 , $out );
2007-10-26 22:44:33 +00:00
# The rc is not reliable in this case because it will be 1 if it is already installed
# of if there is some other problem like a dependency is not satisfied. So we parse the
# output instead.
if ( preg_grep ( '/package .* already installed/' , $out )) { return 1 ; }
else { return 0 ; }
}
2007-12-11 19:44:21 +00:00
$isSupportedHash = array ();
2008-09-26 20:25:53 +00:00
//-----------------------------------------------------------------------------
2007-12-11 19:44:21 +00:00
# Returns true if the specified feature is supported. This is normally determined by some fast
# method like checking for the existence of a file. The answer is also cached for next time.
function isSupported ( $feature ) {
if ( isset ( $isSupportedHash [ $feature ])) { return $isSupportedHash [ $feature ]; }
# These are supported in xCAT 2.0 and above
if ( $feature == 'ClientServer'
|| $feature == 'DB' )
{ $isSupportedHash [ $feature ] = file_exists ( getXcatRoot () . '/bin/xcatclient' ); }
# These are supported in xCAT x.x and above
//elseif ($feature == 'DshExecute')
// { $isSupportedHash[$feature] = -e '/opt/csm/bin/csmsetuphwmaint'; }
else { return false ; }
return $isSupportedHash [ $feature ];
}
2007-10-26 22:44:33 +00:00
// Debug output ------------------------------------
define ( " TRACE " , " 1 " );
function trace ( $str ) { if ( TRACE ) { echo " <p class=Trace> $str </p> \n " ; } }
2008-09-26 20:25:53 +00:00
//-----------------------------------------------------------------------------
2007-10-26 22:44:33 +00:00
// Take in a hostname or ip address and return the fully qualified primary hostname. If resolution fails,
// it just returns what it was given.
2008-09-26 20:25:53 +00:00
function resolveHost ( $host ) {
2007-10-26 22:44:33 +00:00
if ( isIPAddr ( $host )) { // IP address
$hostname = gethostbyaddr ( $host );
return $hostname ;
}
else { //todo: implement resolution of hostname to full primary hostname with just one call
$ip = gethostbyname ( $host );
if ( ! isIPAddr ( $ip )) { return $host ; }
$hostname = gethostbyaddr ( $ip );
return $hostname ;
}
}
2008-09-26 20:25:53 +00:00
//-----------------------------------------------------------------------------
2007-10-26 22:44:33 +00:00
function isIPAddr ( $host ) { return preg_match ( '/^(\d+)\.(\d+)\.(\d+)\.(\d+)$/' , $host ); }
2008-09-26 20:25:53 +00:00
//-----------------------------------------------------------------------------
// Returns the URL for the requested documentation. This provides 1 level of indirection in case
// the location of some of the documentation changes.
// book is the name (minus the dollar sign) of one of the arrays below.
// section is the book/website/table name, or in the case of manpage: cmd.section#
function getDocURL ( $book , $section = NULL ) {
global $TOPDIR ;
2007-10-26 22:44:33 +00:00
$web = array (
2008-09-26 20:25:53 +00:00
'docs' => " http://xcat.svn.sourceforge.net/svnroot/xcat/xcat-core/trunk/xCAT-client/share/doc " ,
'mailinglist' => " http://xcat.org/mailman/listinfo/xcat-user " ,
'updates' => " http://xcat.sourceforge.net/yum " ,
'opensrc' => " http://xcat.sourceforge.net/yum " ,
'wiki' => " http://xcat.wiki.sourceforge.net " ,
2007-10-26 22:44:33 +00:00
);
2008-09-26 20:25:53 +00:00
$manpage = array (
0 => " $TOPDIR /../xcat-doc " ,
1 => " $TOPDIR /../xcat-doc/man1/xcat.1.html " ,
);
$dbtable = array (
0 => " $TOPDIR /../xcat-doc/man5 " ,
1 => " $TOPDIR /../xcat-doc/man5/xcatdb.5.html " ,
);
2008-10-29 13:57:19 +00:00
$dbobject = array (
0 => " $TOPDIR /../xcat-doc/man7 " ,
1 => " $TOPDIR /../xcat-doc/man5/xcatdb.5.html " ,
);
2008-09-26 20:25:53 +00:00
$howto = array (
0 => " $TOPDIR /../xcat-doc " ,
1 => " $TOPDIR /../xcat-doc/index.html " ,
'linuxCookbook' => " $TOPDIR /../xcat-doc/xCAT2.pdf " ,
'idataplexCookbook' => " $TOPDIR /../xcat-doc/xCAT-iDpx.pdf " ,
'aixCookbook' => " $TOPDIR /../xcat-doc/xCAT2onAIX.pdf " ,
);
/*
2008-10-29 13:57:19 +00:00
$rsctadmin = array ( // update this
2007-10-26 22:44:33 +00:00
0 => " http://publib.boulder.ibm.com/infocenter/clresctr/vxrx/topic/com.ibm.cluster.rsct.doc/rsct_aix5l53 " ,
1 => " $rsctadmin[0] /bl5adm1002.html " ,
'sqlExpressions' => " $rsctadmin[0] /bl5adm1042.html#ussexp " ,
'conditions' => " $rsctadmin[0] /bl5adm1041.html#cmrcond " ,
'responses' => " $rsctadmin[0] /bl5adm1041.html#cmrresp " ,
'resourceClasses' => " $rsctadmin[0] /bl5adm1039.html#lavrc " ,
);
2008-10-29 13:57:19 +00:00
$rsctref = array ( // update this
2007-10-26 22:44:33 +00:00
0 => " http://publib.boulder.ibm.com/infocenter/clresctr/vxrx/topic/com.ibm.cluster.rsct.doc/rsct_linux151 " ,
1 => " $rsctref[0] /bl5trl1002.html " ,
'errm' => " $rsctref[0] /bl5trl1067.html#errmcmd " ,
'errmScripts' => " $rsctref[0] /bl5trl1081.html#errmscr " ,
'sensor' => " $rsctref[0] /bl5trl1088.html#srmcmd " ,
'auditlog' => " $rsctref[0] /bl5trl1095.html#audcmd " ,
'lscondresp' => " $rsctref[0] /bl5trl1071.html#lscondresp " ,
'startcondresp' => " $rsctref[0] /bl5trl1079.html#startcondresp " ,
);
2008-09-26 20:25:53 +00:00
*/
2007-10-26 22:44:33 +00:00
if ( $book ) {
2008-09-26 20:25:53 +00:00
//$url = &$$book;
if ( $book == 'web' ) $url = & $web ;
elseif ( $book == 'manpage' ) $url = & $manpage ;
elseif ( $book == 'dbtable' ) $url = & $dbtable ;
2008-10-29 13:57:19 +00:00
elseif ( $book == 'dbobject' ) $url = & $dbobject ;
2008-09-26 20:25:53 +00:00
elseif ( $book == 'howto' ) $url = & $howto ;
else return NULL ;
if ( ! $section ) { return $url [ 1 ]; } // link to whole book if no section specified
if ( $book == 'manpage' ) {
$m = explode ( '.' , $section ); // 1st part is cmd name, 2nd part is man section
return " $url[0] /man $m[1] / $m[0] . $m[1] .html " ;
}
elseif ( $book == 'dbtable' ) { return " $url[0] / $section .5.html " ; }
2008-10-29 13:57:19 +00:00
elseif ( $book == 'dbobject' ) { return " $url[0] / $section .7.html " ; }
2008-09-26 20:25:53 +00:00
else return $url [ $section ];
2007-10-26 22:44:33 +00:00
}
else { // produce html for a page that contains all the links above, for testing purposes
return '' ; //todo:
}
}
2008-10-03 13:11:57 +00:00
$HWTypeInfo = array (
'x335' => array ( 'image' => '330.gif' , 'rackimage' => 'x335-front' , 'u' => 1 , 'aliases' => '8676' ),
'x336' => array ( 'image' => '330.gif' , 'rackimage' => 'x335-front' , 'u' => 1 , 'aliases' => '8837' ),
'x306' => array ( 'image' => '330.gif' , 'rackimage' => 'x335-front' , 'u' => 1 , 'aliases' => '8836' ),
'x306m' => array ( 'image' => '330.gif' , 'rackimage' => 'x335-front' , 'u' => 1 , 'aliases' => '8849,8491' ),
'x3550' => array ( 'image' => '330.gif' , 'rackimage' => 'x335-front' , 'u' => 1 , 'aliases' => '7978' ),
'e325' => array ( 'image' => '330.gif' , 'rackimage' => 'x335-front' , 'u' => 1 , 'aliases' => '8835' ),
'e326' => array ( 'image' => '330.gif' , 'rackimage' => 'x335-front' , 'u' => 1 , 'aliases' => '8848' ),
'e326m' => array ( 'image' => '330.gif' , 'rackimage' => 'x335-front' , 'u' => 1 , 'aliases' => '7969' ),
'e327' => array ( 'image' => '330.gif' , 'rackimage' => 'x335-front' , 'u' => 1 , 'aliases' => '' ),
'x3250' => array ( 'image' => '330.gif' , 'rackimage' => 'x335-front' , 'u' => 1 , 'aliases' => '4190,4194' ),
'x3350' => array ( 'image' => '330.gif' , 'rackimage' => 'x335-front' , 'u' => 1 , 'aliases' => '4192,4193,hmc' ), # just guessed about hmc
'x3450' => array ( 'image' => '330.gif' , 'rackimage' => 'x335-front' , 'u' => 1 , 'aliases' => '7948' ),
'x3455' => array ( 'image' => '330.gif' , 'rackimage' => 'x335-front' , 'u' => 1 , 'aliases' => '7940,ipmi,xseries,default' ),
'x3550' => array ( 'image' => '330.gif' , 'rackimage' => 'x335-front' , 'u' => 1 , 'aliases' => '7978' ),
'x340' => array ( 'image' => '342.gif' , 'rackimage' => 'x345-front' , 'u' => 2 , 'aliases' => '8656' ),
'x342' => array ( 'image' => '342.gif' , 'rackimage' => 'x345-front' , 'u' => 2 , 'aliases' => '8669' ),
'x345' => array ( 'image' => '342.gif' , 'rackimage' => 'x345-front' , 'u' => 2 , 'aliases' => '8670' ),
'x346' => array ( 'image' => '342.gif' , 'rackimage' => 'x345-front' , 'u' => 2 , 'aliases' => '8840' ),
'x3650' => array ( 'image' => '342.gif' , 'rackimage' => 'x345-front' , 'u' => 2 , 'aliases' => '7979' ),
'x3655' => array ( 'image' => '342.gif' , 'rackimage' => 'x345-front' , 'u' => 2 , 'aliases' => '7943' ),
'x360' => array ( 'image' => '342.gif' , 'rackimage' => 'x366-front' , 'u' => 3 , 'aliases' => '8686' ),
'x365' => array ( 'image' => '342.gif' , 'rackimage' => 'x366-front' , 'u' => 3 , 'aliases' => '8862' ),
'x366' => array ( 'image' => '342.gif' , 'rackimage' => 'x366-front' , 'u' => 3 , 'aliases' => '8863' ),
'x445' => array ( 'image' => '342.gif' , 'rackimage' => 'x366-front' , 'u' => 3 , 'aliases' => '' ),
'x450' => array ( 'image' => '342.gif' , 'rackimage' => 'x366-front' , 'u' => 3 , 'aliases' => '' ),
'x455' => array ( 'image' => '342.gif' , 'rackimage' => 'x366-front' , 'u' => 3 , 'aliases' => '' ),
'x460' => array ( 'image' => '342.gif' , 'rackimage' => 'x366-front' , 'u' => 3 , 'aliases' => '' ),
'x3755' => array ( 'image' => '342.gif' , 'rackimage' => 'x366-front' , 'u' => 4 , 'aliases' => '7163,8877' ),
'x3850' => array ( 'image' => '342.gif' , 'rackimage' => 'x366-front' , 'u' => 4 , 'aliases' => '7141,7233' ),
'x3950' => array ( 'image' => '342.gif' , 'rackimage' => 'x366-front' , 'u' => 4 , 'aliases' => '' ), # 7141,7233
'hs20' => array ( 'image' => 'blade.gif' , 'rackimage' => 'blade-front' , 'u' => 7 , 'aliases' => '8678,8843,7981,blade' ), # removed 8832 because it is older and it made this entry to wide in the drop down boxes
'hs12' => array ( 'image' => 'blade.gif' , 'rackimage' => 'blade-front' , 'u' => 7 , 'aliases' => '8014,8028' ),
'hs21' => array ( 'image' => 'blade.gif' , 'rackimage' => 'blade-front' , 'u' => 7 , 'aliases' => '7995,8853' ),
'js20' => array ( 'image' => 'blade.gif' , 'rackimage' => 'blade-front' , 'u' => 7 , 'aliases' => '8842' ),
'js12' => array ( 'image' => 'blade.gif' , 'rackimage' => 'blade-front' , 'u' => 7 , 'aliases' => '799860X' ),
'js21' => array ( 'image' => 'blade.gif' , 'rackimage' => 'blade-front' , 'u' => 7 , 'aliases' => '8844,7998J21' ),
'js22' => array ( 'image' => 'blade.gif' , 'rackimage' => 'blade-front' , 'u' => 7 , 'aliases' => '799861X' ),
'qs21' => array ( 'image' => 'blade.gif' , 'rackimage' => 'blade-front' , 'u' => 7 , 'aliases' => '0792' ),
'qs22' => array ( 'image' => 'blade.gif' , 'rackimage' => 'blade-front' , 'u' => 7 , 'aliases' => '0793' ),
'ls20' => array ( 'image' => 'blade.gif' , 'rackimage' => 'blade-front' , 'u' => 7 , 'aliases' => '8850' ),
'ls21' => array ( 'image' => 'blade.gif' , 'rackimage' => 'blade-front' , 'u' => 7 , 'aliases' => '7971' ),
'ls22' => array ( 'image' => 'blade.gif' , 'rackimage' => 'blade-front' , 'u' => 7 , 'aliases' => '7901' ),
'hs40' => array ( 'image' => 'blade2.gif' , 'rackimage' => 'blade2-front' , 'u' => 7 , 'aliases' => '8839' ),
'ls41' => array ( 'image' => 'blade2.gif' , 'rackimage' => 'blade2-front' , 'u' => 7 , 'aliases' => '7972' ),
'ls42' => array ( 'image' => 'blade2.gif' , 'rackimage' => 'blade2-front' , 'u' => 7 , 'aliases' => '7902' ),
# POWER 4 servers
'p610' => array ( 'image' => '520.gif' , 'rackimage' => 'x335-front' , 'u' => 5 , 'aliases' => '7028' ),
'p615' => array ( 'image' => '520.gif' , 'rackimage' => 'x335-front' , 'u' => 4 , 'aliases' => '7029' ),
'p630' => array ( 'image' => '520.gif' , 'rackimage' => 'x335-front' , 'u' => 4 , 'aliases' => '' ), # 7026
'p640' => array ( 'image' => '520.gif' , 'rackimage' => 'x335-front' , 'u' => 5 , 'aliases' => '7026' ),
'p650' => array ( 'image' => '520.gif' , 'rackimage' => 'x335-front' , 'u' => 8 , 'aliases' => '7038' ),
'p655' => array ( 'image' => '590.gif' , 'rackimage' => 'x335-front' , 'u' => 42 , 'aliases' => '7039' ),
'p670' => array ( 'image' => '590.gif' , 'rackimage' => 'x335-front' , 'u' => 42 , 'aliases' => '' ), # 7040
'p690' => array ( 'image' => '590.gif' , 'rackimage' => 'x335-front' , 'u' => 42 , 'aliases' => '7040' ),
# OpenPOWER servers
'p710' => array ( 'image' => '342.gif' , 'rackimage' => 'x335-front' , 'u' => 2 , 'aliases' => '9123' ),
'p720' => array ( 'image' => '520.gif' , 'rackimage' => 'x345-front' , 'u' => 4 , 'aliases' => '9124' ),
# POWER 5 servers
'p5-505' => array ( 'image' => '330.gif' , 'rackimage' => 'x335-front' , 'u' => 1 , 'aliases' => '' ), # 9115
'p5-505Q' => array ( 'image' => '330.gif' , 'rackimage' => 'x335-front' , 'u' => 1 , 'aliases' => '9115' ),
'p5-510' => array ( 'image' => '342.gif' , 'rackimage' => 'x345-front' , 'u' => 2 , 'aliases' => '9110' ),
'p5-510Q' => array ( 'image' => '342.gif' , 'rackimage' => 'x345-front' , 'u' => 2 , 'aliases' => '' ), # 9110
'p5-575' => array ( 'image' => '342.gif' , 'rackimage' => 'x345-front' , 'u' => 2 , 'aliases' => '9118' ),
'p5-520' => array ( 'image' => '520.gif' , 'rackimage' => 'p5-520-front' , 'u' => 4 , 'aliases' => '9111' ),
'p5-520Q' => array ( 'image' => '520.gif' , 'rackimage' => 'p5-520-front' , 'u' => 4 , 'aliases' => '9131' ),
'p5-550' => array ( 'image' => '520.gif' , 'rackimage' => 'p5-520-front' , 'u' => 4 , 'aliases' => '9113' ),
'p5-550Q' => array ( 'image' => '520.gif' , 'rackimage' => 'p5-520-front' , 'u' => 4 , 'aliases' => '9133' ),
'p5-560' => array ( 'image' => '520.gif' , 'rackimage' => 'p5-520-front' , 'u' => 4 , 'aliases' => '9116' ),
'p5-560Q' => array ( 'image' => '520.gif' , 'rackimage' => 'p5-520-front' , 'u' => 4 , 'aliases' => '' ), # 9116
'p5-570' => array ( 'image' => '520.gif' , 'rackimage' => 'p5-520-front' , 'u' => 4 , 'aliases' => '' ), # 9117
'p5-590' => array ( 'image' => '590.gif' , 'rackimage' => 'p5-590-front' , 'u' => 42 , 'aliases' => '' ), # 9119
'p5-595' => array ( 'image' => '590.gif' , 'rackimage' => 'p5-590-front' , 'u' => 42 , 'aliases' => '' ), # 9119
# POWER 6 servers
2009-03-09 12:42:55 +00:00
'p6-520' => array ( 'image' => '520.gif' , 'rackimage' => 'p5-520-front' , 'u' => 4 , 'aliases' => '8203,520,HV4' ),
'p6-550' => array ( 'image' => '520.gif' , 'rackimage' => 'p5-520-front' , 'u' => 4 , 'aliases' => '8204,550,HV8' ),
'p6-560' => array ( 'image' => '520.gif' , 'rackimage' => 'p5-520-front' , 'u' => 4 , 'aliases' => '8234,560,ML4+' ),
'p6-570' => array ( 'image' => '520.gif' , 'rackimage' => 'p5-520-front' , 'u' => 4 , 'aliases' => '9117,570,ML4,ML8,ML12,ML16' ),
2008-11-19 21:26:43 +00:00
'p6-575' => array ( 'image' => '342.gif' , 'rackimage' => 'p6-575-front' , 'u' => 2 , 'aliases' => '9125,575' ),
'p6-595' => array ( 'image' => '590.gif' , 'rackimage' => 'p5-590-front' , 'u' => 42 , 'aliases' => '9119,595' ),
2008-10-03 13:11:57 +00:00
);
2008-09-26 20:25:53 +00:00
//-----------------------------------------------------------------------------
2007-10-26 22:44:33 +00:00
// This returns important display info about each type of hardware, so we can easily add new hw types.
2008-10-03 13:11:57 +00:00
function getHWTypeInfo ( $hwtype , $attr = NULL ) {
global $HWTypeInfo ;
// Get the aliases defined as keys, if we have not done that yet
if ( ! array_key_exists ( '9119' , $HWTypeInfo )) {
$keys = array_keys ( $HWTypeInfo ); // make a copy of the keys, because we will be adding some in the loop below
foreach ( $keys as $key ) {
$value = $HWTypeInfo [ $key ];
if ( array_key_exists ( 'aliases' , $value ) && ! empty ( $value [ 'aliases' ])) {
$aliases = explode ( ',' , $value [ 'aliases' ]);
foreach ( $aliases as $a ) {
if ( array_key_exists ( $a , $HWTypeInfo )) { msg ( 'W' , " Internal warning: Duplicate alias in HWTypeInfo array: $a " ); }
else { $HWTypeInfo [ $a ] = $value ; }
}
}
}
}
// Now return the info requested
$k = strtolower ( $hwtype );
if ( ! array_key_exists ( $k , $HWTypeInfo )) { return NULL ; }
$info = $HWTypeInfo [ $k ];
if ( isset ( $attr )) { return $info [ $attr ]; }
else { return $info ; }
2007-10-26 22:44:33 +00:00
}
2008-09-26 20:25:53 +00:00
//-----------------------------------------------------------------------------
2007-10-26 22:44:33 +00:00
// Returns the image that should be displayed for this type of hw. Gets this from getHWTypeInfo()
2008-09-26 20:25:53 +00:00
function getHWTypeImage ( $hwtype , $powermethod ) {
2007-10-26 22:44:33 +00:00
# 1st try to match the hw type
$info = getHWTypeInfo ( $hwtype , 'image' );
2008-10-03 13:11:57 +00:00
if ( ! empty ( $info )) { return $info ; }
2007-10-26 22:44:33 +00:00
# No matches yet. Use the power method to get a generic type.
if ( isset ( $powermethod )) {
2008-10-03 13:11:57 +00:00
$info = getHWTypeInfo ( $powermethod , 'image' );
if ( ! empty ( $info )) { return $info ; }
2007-10-26 22:44:33 +00:00
}
# As a last resort, return the most common node image
2008-10-03 13:11:57 +00:00
return getHWTypeInfo ( 'default' , 'image' );
}
//-----------------------------------------------------------------------------
// Map the many possible values of nodelist.status into one of four: good, bad, warning, unknown
//todo: update this list from Lings new status work
function mapStatus ( $statStr ) {
$status = NULL ;
if ( $statStr == " alive " || $statStr == " ready " || $statStr == " pbs " || $statStr == " sshd " ) { $status = " good " ; }
else if ( $statStr == " noping " || $statStr == 'unreachable' ) { $status = " bad " ; }
else if ( $statStr == " ping " ) { $status = " warning " ; }
else { $status = " unknown " ; }
return $status ;
}
//-----------------------------------------------------------------------------
// For 2 status strings from nodestat or nodelist.status, return the "lowest" (worst).
// Use this function when trying to aggregate multiple status values into one.
//todo: update this list from Lings new status work
function minStatus ( $s1 , $s2 ) {
$statnum = array ( 'unknown' => 0 ,
'unreachable' => 1 ,
'noping' => 1 ,
'ping' => 2 ,
'snmp' => 3 ,
'sshd' => 4 ,
'pbs' => 5 ,
'ready' => 6 ,
'alive' => 6 ,
);
// if either value is empty, just return the other one
if ( ! isset ( $s1 )) { return $s2 ; }
if ( ! isset ( $s2 )) { return $s1 ; }
// if either value does not map into the hash, then return unknown
if ( ! isset ( $statnum [ $s1 ]) || ! isset ( $statnum [ $s2 ])) { return 'unknown' ; }
if ( $statnum [ $s1 ] < $statnum [ $s2 ]) { return $s1 ; }
else { return $s2 ; }
2007-10-26 22:44:33 +00:00
}
2008-09-26 20:25:53 +00:00
//-----------------------------------------------------------------------------
2007-11-24 17:44:09 +00:00
// Return the image that represents the status string passed in
function getStatusImage ( $status ) {
global $TOPDIR ;
if ( $status == 'good' ) { return " $TOPDIR /images/green-ball-m.gif " ; }
elseif ( $status == 'warning' ) { return " $TOPDIR /images/yellow-ball-m.gif " ; }
elseif ( $status == 'bad' ) { return " $TOPDIR /images/red-ball-m.gif " ; }
else { return " $TOPDIR /images/blue-ball-m.gif " ; }
}
2008-09-26 20:25:53 +00:00
//-----------------------------------------------------------------------------
2007-12-11 19:44:21 +00:00
// Returns the specified user preference value, or the default. (The preferences are stored in cookies.)
// If no key is specified, it will return the list of preference names.
function getPref ( $key ) {
$prefDefaults = array (
'nodesPerPage' => 40 ,
'displayCmds' => 0 ,
);
if ( ! isset ( $key )) { return array_keys ( $prefDefaults ); }
if ( isset ( $_COOKIE [ $key ])) { return $_COOKIE [ $key ]; }
return $prefDefaults [ $key ]; // return default if not in the cookie
2007-10-26 22:44:33 +00:00
}
2008-09-26 20:25:53 +00:00
//-----------------------------------------------------------------------------
2007-12-03 18:16:38 +00:00
// Returns a list of some or all of the nodes in the cluster and some of their attributes.
// Pass in a node range (or NULL to get all nodes) and an array of attribute names (or NULL for none).
2008-11-19 21:26:43 +00:00
// Returns an array where each key is the node name and each value is an array of attr/value pairs (unless only 1 attr was request, in which case it is just the attr value).
2008-09-26 20:25:53 +00:00
// attrs is an array of attributes that should be returned.
2007-12-03 18:16:38 +00:00
function getNodes ( $noderange , $attrs ) {
2007-10-26 22:44:33 +00:00
//my ($hostname, $type, $osname, $distro, $version, $mode, $status, $conport, $hcp, $nodeid, $pmethod, $location, $comment) = split(/:\|:/, $na);
2007-12-03 18:16:38 +00:00
//$nodes[] = array('hostname'=>"node$i.cluster.com", 'type'=>'x3655', 'osname'=>'Linux', 'distro'=>'RedHat', 'version'=>'4.5', 'status'=>1, 'conport'=>$i, 'hcp'=>"node$i-bmc.cluster.com", 'nodeid'=>'', 'pmethod'=>'bmc', 'location'=>"frame=1 u=$", 'comment'=>'');
$nodes = array ();
2008-10-03 13:11:57 +00:00
if ( empty ( $noderange )) { $nodrange = '/.*' ; }
2008-09-26 20:25:53 +00:00
//$xml = docmd('nodels',$noderange,implode(' ',$attrs));
$xml = docmd ( 'nodels' , $noderange , $attrs );
2008-11-19 21:26:43 +00:00
//echo "<p>"; print_r($xml); echo "</p>\n";
2008-10-03 13:11:57 +00:00
foreach ( $xml -> children () as $response ) foreach ( $response -> children () as $o ) {
2008-09-26 20:25:53 +00:00
$nodename = ( string ) $o -> name ;
2008-10-13 12:55:58 +00:00
$data = & $o -> data ;
2008-09-26 20:25:53 +00:00
$attrval = ( string ) $data -> contents ;
2008-10-03 13:11:57 +00:00
if ( empty ( $attrval )) { continue ; }
2008-11-19 21:26:43 +00:00
if ( count ( $attrs ) > 1 ) { // if more than 1 attr requested, the output will include the attr description (name)
$attrname = ( string ) $data -> desc ;
if ( ! array_key_exists ( $nodename , $nodes )) { $nodes [ $nodename ] = array (); }
$attributes = & $nodes [ $nodename ];
$attributes [ $attrname ] = $attrval ;
}
else { // only 1 attr, so no attr name
$nodes [ $nodename ] = $attrval ;
}
2007-10-26 22:44:33 +00:00
}
return $nodes ;
}
2008-09-26 20:25:53 +00:00
//function awalk($value, $key) { echo "<p>$key=$value.</p>\n"; }
//function awalk2($a) { foreach ($a as $key => $value) { if (is_array($value)) {$v='<array>';} else {$v=$value;} echo "<p>$key=$v.</p>\n"; } }
2007-10-26 22:44:33 +00:00
2008-09-26 20:25:53 +00:00
//-----------------------------------------------------------------------------
2007-11-27 16:00:27 +00:00
// Returns the node groups defined in the cluster.
2007-11-24 17:44:09 +00:00
function getGroups () {
2007-11-27 16:00:27 +00:00
$groups = array ();
2008-09-26 20:25:53 +00:00
$xml = docmd ( 'tabdump' , '' , array ( 'nodelist' ));
2008-10-13 12:55:58 +00:00
//$output = $xml->xcatresponse->children();
2008-09-26 20:25:53 +00:00
#$output = $xml->children(); // technically, we should iterate over the xcatresponses, because there can be more than one
2008-10-13 12:55:58 +00:00
//foreach ($output as $line) {
foreach ( $xml -> children () as $response ) foreach ( $response -> children () as $line ) {
$line = ( string ) $line ;
2007-11-24 17:44:09 +00:00
//echo "<p>line=$line</p>";
2008-10-13 12:55:58 +00:00
if ( ereg ( " ^# " , $line )) { continue ; } // skip the header
$vals = splitTableFields ( $line );
if ( empty ( $vals [ 0 ]) || empty ( $vals [ 1 ])) continue ; // node or groups missing
$grplist = preg_split ( '/,/' , $vals [ 1 ]);
foreach ( $grplist as $g ) { $groups [ $g ] = 1 ; }
2007-11-24 17:44:09 +00:00
}
2008-09-26 20:25:53 +00:00
$grplist = array_keys ( $groups );
sort ( $grplist );
return $grplist ;
2007-11-24 17:44:09 +00:00
}
2008-09-26 20:25:53 +00:00
//-----------------------------------------------------------------------------
// Returns true if we are running on AIX
2009-06-12 03:20:05 +00:00
// use dirty trick
function isAIX () { if ( $_SERVER [ " SERVER_SOFTWARE " ] == " IBM_HTTP_Server " ) { return TRUE ;} else { return FALSE ;} } //todo: update to one elegant way later
2007-10-26 22:44:33 +00:00
2008-09-26 20:25:53 +00:00
//-----------------------------------------------------------------------------
// Returns true if we are running on Linux
2009-06-12 03:20:05 +00:00
function isLinux () { if ( strstr ( $_SERVER [ " SERVER_SOFTWARE " ], " Apache " ) == FALSE ) { return FALSE ;} else { return TRUE ;} } //todo: update to one elegant way later
2007-10-26 22:44:33 +00:00
2008-09-26 20:25:53 +00:00
//-----------------------------------------------------------------------------
// Returns true if we are running on Windows
2007-10-26 22:44:33 +00:00
function isWindows () { return array_key_exists ( 'WINDIR' , $_SERVER ); }
2008-09-26 20:25:53 +00:00
//-----------------------------------------------------------------------------
2007-10-26 22:44:33 +00:00
// Create file folder-like tabs. Tablist is an array of label/url pairs.
2008-09-26 20:25:53 +00:00
function insertTabs ( $tablist , $currentTabIndex ) {
2007-10-26 22:44:33 +00:00
echo " <TABLE cellpadding=4 cellspacing=0 width='100%' summary=Tabs><TBODY><TR> " ;
foreach ( $tablist as $key => $tab ) {
if ( $key != 0 ) { echo " <TD width=2></TD> " ; }
if ( $currentTabIndex == $key ) {
2007-11-24 17:44:09 +00:00
echo " <TD align=center background=' $TOPDIR /images/tab-current.gif'><b> $tab[0] </b></TD> " ;
2007-10-26 22:44:33 +00:00
}
else {
2007-11-24 17:44:09 +00:00
echo " <TD align=center background=' $TOPDIR /images/tab.gif'><A href=' $tab[1] '> $tab[0] </A></TD> " ;
2007-10-26 22:44:33 +00:00
}
}
echo " </TR><TR><TD colspan=7 height=7 bgcolor='#CBCBCB'></TD></TR></TBODY></TABLE> \n " ;
}
2008-09-26 20:25:53 +00:00
//-----------------------------------------------------------------------------
2007-12-11 19:44:21 +00:00
// Create the Action buttons in a table. Each argument passed in is a button, which is an array of attribute strings.
// If your onclick attribute contains javascript code that uses quotes, use double quotes instead of single quotes.
function insertButtons () {
$num = func_num_args ();
2008-10-29 13:57:19 +00:00
if ( $num > 1 ) echo " <TABLE cellpadding=0 cellspacing=2><TR> " ;
2007-12-11 19:44:21 +00:00
foreach ( func_get_args () as $button ) {
$otherattrs = @ $button [ 'otherattrs' ];
2008-10-23 17:54:02 +00:00
$id = @ $button [ 'id' ];
if ( ! empty ( $id )) { $id = " id= $id " ; }
2008-10-29 13:57:19 +00:00
$onclick = @ $button [ 'onclick' ];
if ( ! empty ( $onclick )) { $onclick = " onclick=' $onclick ' " ; }
if ( $num > 1 ) echo " <td> " ;
echo " <a class=button $id $onclick $otherattrs ><span> { $button [ 'label' ] } </span></a> " ;
if ( $num > 1 ) echo " </td> " ;
2007-12-11 19:44:21 +00:00
}
2008-10-29 13:57:19 +00:00
if ( $num > 1 ) echo " </TR></TABLE> \n " ;
2007-10-26 22:44:33 +00:00
}
2008-09-26 20:25:53 +00:00
//-----------------------------------------------------------------------------
2007-12-11 19:44:21 +00:00
// Display messages in the html. If severity is W or E, it will attempt to use the Error class
// from the style sheet.
function msg ( $severity , $msg )
{
//if ($severity=~/V/ && !$::GUI_VERBOSE) { return; }
if ( preg_match ( '/O/' , $severity )) { echo " $msg\n " ; return ; }
$styleclass = 'Info' ;
if ( preg_match ( '/[WE]/' , $severity )) { $styleclass = 'Error' ; }
echo " <P class= $styleclass > $msg </P> \n " ;
}
2008-09-26 20:25:53 +00:00
//-----------------------------------------------------------------------------
2007-11-27 16:00:27 +00:00
function insertNotDoneYet () { echo " <p class=NotDone>This page is not done yet.</p> \n " ; }
2008-10-13 12:55:58 +00:00
//-----------------------------------------------------------------------------
// Parse the columns of 1 line of tabdump output
//Todo: the only thing this doesn't handle is escaped double quotes.
function splitTableFields ( $line ){
$fields = array ();
$line = " , $line " ; // prepend a comma. this makes the parsing more consistent
for ( $rest = $line ; ! empty ( $rest ); ) {
$vals = array ();
// either match everything in the 1st pair of quotes, or up to the next comma
if ( ! preg_match ( '/^,"([^"]*)"(.*)$/' , $rest , $vals )) { preg_match ( '/^,([^,]*)(.*)$/' , $rest , $vals ); }
$fields [] = $vals [ 1 ];
$rest = $vals [ 2 ];
}
return $fields ;
}
2008-10-23 17:54:02 +00:00
#function to enable password storage to split between cookie and session variable
function xorcrypt ( $data , $key ) {
$datalen = strlen ( $data );
$keylen = strlen ( $key );
for ( $i = 0 ; $i < $datalen ; $i ++ ) {
$data [ $i ] = chr ( ord ( $data [ $i ]) ^ ord ( $key [ $i ]));
}
return $data ;
}
function getpassword () {
if ( isset ( $GLOBALS [ 'xcatauthsecret' ])) {
$cryptext = $GLOBALS [ 'xcatauthsecret' ];
} else if ( isset ( $_COOKIE [ " xcatauthsecret " ])) {
$cryptext = $_COOKIE [ " xcatauthsecret " ];
} else {
return false ;
}
return xorcrypt ( $_SESSION [ " secretkey " ], base64_decode ( $cryptext ));
}
#remembers the password, splitting knowledge between server and client side
#persistant storage
#Caller should regenerate session id when contemplating a new user/password,
#to preclude session fixation, though fixation is limited without the secret.
function setpassword ( $password ) {
$randlen = strlen ( $password );
$key = getrandchars ( $randlen );
$cryptext = xorcrypt ( $password , $key );
$cryptext = base64_encode ( $cryptext ); #non-ascii chars, base64 it
#Not bothering with explicit expiration, as time sync would be too hairy
#should go away when browser closes. Any timeout will be handled server
#side. If the session id invalidates and the one-time key discarded,
#the cookie contents are worthless anyway
#nevertheless, when logout happens, cookie should be reaped
setcookie ( " xcatauthsecret " , $cryptext , 0 , '/' );
$GLOBALS [ " xcatauthsecret " ] = $cryptext ; #May need it sooner, prefer globals
$_SESSION [ " secretkey " ] = $key ;
}
function getrandchars ( $length ) {
$charset = '0123456789abcdefghijklmnopqrstuvwxyz!@#$%^&*' ;
$charsize = strlen ( $charset );
srand ();
$chars = '' ;
for ( $i = 0 ; $i < $length ; $i ++ ) {
$num = rand () % $charsize ;
$chars = $chars . substr ( $charset , $num , 1 );
}
return $chars ;
}
// Determine if they at least have a user/pw that they have entered (that may or may not be valid)
function is_logged () {
if ( isset ( $_SESSION [ " username " ]) and ! is_bool ( getpassword ())) {
return true ;
} else {
return false ;
}
}
// Determine if they are currently logged in successfully
function isAuthenticated () {
if ( is_logged ()) {
if ( $_SESSION [ " xcatpassvalid " ] != 1 ) {
$testcred = docmd ( " authcheck " , " " , NULL );
if ( isset ( $testcred -> { 'xcatresponse' } -> { 'data' })) {
$result = " " . $testcred -> { 'xcatresponse' } -> { 'data' };
if ( is_numeric ( strpos ( " Authenticated " , $result ))) {
$_SESSION [ " xcatpassvalid " ] = 1 ; #proven good
} else {
$_SESSION [ " xcatpassvalid " ] = 0 ; #proven bad
}
}
}
}
if ( isset ( $_SESSION [ " xcatpassvalid " ]) and $_SESSION [ " xcatpassvalid " ] == 1 ) { return true ; }
else { return false ; }
}
function logout () {
#clear the secret cookie from browser.
#expire cookie a week ago, server time, may not work if client clock way off, but the value will be cleared at least.
if ( isset ( $_COOKIE [ " xcatauthsecret " ])) {
setcookie ( " xcatauthsecret " , '' , time () - 86400 * 7 , '/' ); #NOTE: though firefox doesn't seem to zap it dynamically from cookie store in
#the client side dialog, firefox does stop submitting the value. The sensitivity of the 'stale' cookie even if compromised
#is negligible, as the session id will be invalidated and the one-time-key needed to decrypt the password is destroyed on the server
}
#expire the sesion cookie
if ( isset ( $_COOKIE [ session_name ()])) {
setcookie ( session_name (), " " , time () - 86400 * 7 , " / " );
}
#clear server store of data
$_SESSION = array ();
session_destroy ();
}
2007-10-26 22:44:33 +00:00
?>
