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
// The settings below display error on the screen, instead of giving blank pages.
error_reporting ( E_ALL ^ E_NOTICE );
ini_set ( 'display_errors' , true );
// Todo: get rid of these globals
$XCATROOT = '/opt/xcat/bin' ;
$CURRDIR = '/opt/xcat/web' ;
2007-10-26 22:44:33 +00:00
/*-----------------------------------------------------------------------------------------------
Function to insert the header part of the HTML and the top part of the page
------------------------------------------------------------------------------------------------*/
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-10-26 22:44:33 +00:00
if ( ! $TOPDIR ) $TOPDIR = '.' ;
2007-11-21 12:08:19 +00:00
echo <<< EOS
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 " >
2007-11-21 12:08:19 +00:00
< link href = " style.css " rel = " stylesheet " >
< script src = " functions.js " type = " text/javascript " ></ script >
2007-10-30 13:05:36 +00:00
2007-11-21 12:08:19 +00:00
EOS ;
2007-10-26 22:44:33 +00:00
2007-11-21 12:08:19 +00:00
/* These are only needed for popup windows , so only need it for specific pages like dsh
< script src = " js_xcat/event.js " type = " text/javascript " > </ script >
< script src = " js_xcat/ui.js " type = " text/javascript " > </ script >
< link href = " css/xcattop.css " rel = " stylesheet " >
< link href = " css/xcat.css " rel = " stylesheet " >
< link href = " css/clickTree.css " rel = " stylesheet " >
2007-10-26 22:44:33 +00:00
< script src = " js/windows.js " type = " text/javascript " ></ script >
< script src = " js/clickTree.js " type = " text/javascript " ></ script >
< script src = " js/prototype.js " type = " text/javascript " ></ script >
< script src = " js/scriptaculous.js " type = " text/javascript " ></ script >
< script src = " js/xcat.js " type = " text/javascript " ></ script >
2007-11-21 12:08:19 +00:00
< script src = " js/effect.js " type = " text/javascript " > </ script >
< link href = " themes/default.css " rel = " stylesheet " type = " text/css " />
*/
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 " ;
echo <<< EOS
< table id = headingTable border = 0 cellspacing = 0 cellpadding = 0 >
2007-10-26 22:44:33 +00:00
< tr >
2007-11-21 12:08:19 +00:00
< td >< img id = xcatImage src = 'images/xCAT_icon.gif' ></ td >
< td width = '100%' >
2007-10-26 22:44:33 +00:00
2007-11-02 20:37:19 +00:00
EOS ;
2007-11-21 12:08:19 +00:00
//echo "<div id=top><img id=xcatImage src='./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
2007-11-21 12:08:19 +00:00
echo " </td></tr></table> \n " ;
//echo "</div></div>\n"; // end the top div
} // end insertHeader
2007-10-30 13:05:36 +00:00
2007-10-26 22:44:33 +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 ;
echo " <table border=0 cellspacing=0 cellpadding=0> \n " ;
2007-10-26 22:44:33 +00:00
2007-11-21 12:08:19 +00:00
insertMenuRow ( $currents [ 0 ], 1 , array (
'machines' => array ( 'Machines' , " $TOPDIR /machines/frames.php " ),
'jobs' => array ( 'Jobs' , " $TOPDIR /jobs/jobs.php " ),
'deploy' => array ( 'Deploy' , " $TOPDIR /deploy/images.php " ),
'config' => array ( 'Configuration' , " $TOPDIR /config/site.php " ),
'support' => array ( 'Support' , " $TOPDIR /support/diagnose.php " )
));
if ( $currents [ 0 ] == 'machines' ) {
insertMenuRow ( $currents [ 1 ], 0 , array (
'lab' => array ( 'Lab Floor' , " $TOPDIR /views/lab.php " ),
'frames' => array ( 'Frames' , " $TOPDIR /views/frames.php " ),
'groups' => array ( 'Groups' , " $TOPDIR /views/groups.php " ),
'nodes' => array ( 'Nodes' , " $TOPDIR /views/nodes.php " ),
'layout' => array ( 'Layout' , " $TOPDIR /views/layout.php " )
));
2007-10-26 22:44:33 +00:00
}
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
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";
$menuRowClass = $isTop ? '' : 'class=MenuRow' ;
$menuItemClass = $isTop ? 'class=MenuItemTop' : 'class=MenuItem' ;
$currentClass = $isTop ? 'CurrentMenuItemTop' : '' ;
//echo "<TABLE class=MenuTable id=mainNav cellpadding=0 cellspacing=0 border=0><tr>\n";
//echo "<div class=$menuRowClass><ul id=mainNav>\n";
echo " <tr><td $menuRowClass ><ul id=mainNav> \n " ;
foreach ( $items as $key => $link ) {
if ( $key == $current ){
//echo "<TD><a id=$key href='$link[1]'>$link[0]</a></TD>\n";
echo " <li class='CurrentMenuItem $currentClass '> $link[0] </li> \n " ;
} else {
//echo "<TD><a class=NavItem id=$key href='$link[1]'>$link[0]</a></TD>\n";
echo " <li><a $menuItemClass id= $key href=' $link[1] '> $link[0] </a></li> \n " ;
}
}
//echo "</TR></TABLE>\n";
//echo "</ul></div>\n";
echo " </td></tr></ul> \n " ;
}
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
- 1 : Like mode 1
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)
if ( strstr ( $cmd , '2>&1' ) == FALSE && ! $options [ " NoRedirectStdErr " ])
$cmd .= ' 2>&1' ;
$ret_stat = " " ;
$arr_output = NULL ;
if ( $mode == 3 ){
$handle = popen ( $cmd , " r " );
if ( $handle ){
$output = $handle ; //return file handle to caller
return 0 ; //successful
} else {
echo " Piping command into a file failed " ;
return 1 ;
}
} elseif ( $mode == 0 || $mode == 2 ){
exec ( $cmd , $arr_output , $ret_stat );
if ( $ret_stat == 0 ){
$output = $arr_output ;
} else {
//output the error msg to the screen
if ( $mode == 0 ) echo $arr_output [ 0 ];
//output error msg to the caller function
elseif ( $mode == 2 ) $output = $arr_output [ 0 ];
}
} elseif ( $mode == 1 || $mode == - 1 ){
system ( $cmd , $ret_stat );
}
return $ret_stat ;
}
2007-10-26 22:44:33 +00:00
// Send the keys and values in the primary global arrays
function dumpGlobals () { //------------------------------------
trace ( '$_SERVER:' );
foreach ( $_SERVER as $key => $val ) { trace ( " $key = $val " ); }
trace ( '<br>$_ENV:' );
foreach ( $_ENV as $key => $val ) { trace ( " $key = $val " ); }
trace ( '<br>$_REQUEST:' );
foreach ( $_REQUEST as $key => $val ) { trace ( " $key = $val " ); }
if ( isset ( $_SESSION )) {
trace ( '<br>$_SESSION:' );
foreach ( $_SESSION as $key => $val ) { trace ( " $key = $val " ); }
}
}
# Returns true if the given rpm file is already installed at this version or higher.
function isInstalled ( $rpmfile ) { //------------------------------------
$aixrpmopt = isAIX () ? '--ignoreos' : '' ;
$lang = isWindows () ? '' : 'LANG=C' ;
2007-11-21 12:08:19 +00:00
$out = array ();
2007-10-26 22:44:33 +00:00
$rc = runcmd ( " $lang /bin/rpm -U $aixrpmopt --test $rpmfile " , 2 , $out );
# 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 ; }
}
// Debug output ------------------------------------
define ( " TRACE " , " 1 " );
function trace ( $str ) { if ( TRACE ) { echo " <p class=Trace> $str </p> \n " ; } }
// Take in a hostname or ip address and return the fully qualified primary hostname. If resolution fails,
// it just returns what it was given.
function resolveHost ( $host ) { //------------------------------------
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 ;
}
}
//------------------------------------
function isIPAddr ( $host ) { return preg_match ( '/^(\d+)\.(\d+)\.(\d+)\.(\d+)$/' , $host ); }
// Returns the URL for the requested documentation. This provides 1 level of indirection in case the location
// of some of the documentation changes.
function getDocURL ( $book , $section ) { //------------------------------------
$web = array (
'docs' => " http://xcat.org/doc " ,
'forum' => " http://xcat.org/mailman/listinfo/xcat-user " ,
'updates' => " http://www.alphaworks.ibm.com/tech/xCAT " ,
'opensrc' => " http://www-rcf.usc.edu/~garrick " ,
'wiki' => " http://www.asianlinux.org/xcat " ,
);
$man = array ();
$howto = array ();
$rsctadmin = array (
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 " ,
);
$rsctref = array (
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 " ,
);
if ( $book ) {
if ( ! $section ) { $section = 1 ; } // link to whole book if no section specified
$url = & $$book ;
return $url [ $section ];
}
else { // produce html for a page that contains all the links above, for testing purposes
return '' ; //todo:
}
}
// This returns important display info about each type of hardware, so we can easily add new hw types.
function getHWTypeInfo ( $hwtype , $attr ) { //------------------------------------
//todo: get the aliases to be keys in this hash too
$hwhash = 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' => '' ),
'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' ),
'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' ),
'x3850' => 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' => '' ),
'x3950' => array ( 'image' => '342.gif' , 'rackimage' => 'x366-front' , 'u' => 3 , 'aliases' => '' ),
'hs20' => array ( 'image' => 'blade.gif' , 'rackimage' => 'blade-front' , 'u' => 7 , 'aliases' => '8678,8843,7981' ), # removed 8832 because it is older and it made this entry to wide in the drop down boxes
'js20' => array ( 'image' => 'blade.gif' , 'rackimage' => 'blade-front' , 'u' => 7 , 'aliases' => '8842' ),
'js21' => array ( 'image' => 'blade.gif' , 'rackimage' => 'blade-front' , 'u' => 7 , 'aliases' => '8844' ),
'ls20' => array ( 'image' => 'blade.gif' , 'rackimage' => 'blade-front' , 'u' => 7 , 'aliases' => '8850' ),
'hs40' => array ( 'image' => 'blade2.gif' , 'rackimage' => 'blade2-front' , 'u' => 7 , 'aliases' => '8839' ),
'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' ),
'p710' => array ( 'image' => '342.gif' , 'rackimage' => 'x335-front' , 'u' => 2 , 'aliases' => '9123' ),
'p720' => array ( 'image' => '520.gif' , 'rackimage' => 'x345-front' , 'u' => 4 , 'aliases' => '9124' ),
'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' ),
);
$info = $hwhash [ strtolower ( $hwtype )];
if ( isset ( $attr )) { return $info [ $attr ]; }
else { return $info ; }
}
// Returns the image that should be displayed for this type of hw. Gets this from getHWTypeInfo()
function getHWTypeImage ( $hwtype , $powermethod ) { //------------------------------------
# 1st try to match the hw type
$info = getHWTypeInfo ( $hwtype , 'image' );
if ( $info ) { return $info [ 'image' ]; }
# No matches yet. Use the power method to get a generic type.
if ( isset ( $powermethod )) {
$powermethod = strtolower ( $powermethod );
if ( $powermethod == 'blade' ) { return getHWTypeInfo ( 'hs20' , 'image' ); }
elseif ( $powermethod == 'hmc' ) { return getHWTypeInfo ( 'p5-520' , 'image' ); }
elseif ( $powermethod == 'bmc' ) { return getHWTypeInfo ( 'x335' , 'image' ); }
elseif ( $powermethod == 'xseries' ) { return getHWTypeInfo ( 'x335' , 'image' ); }
}
# As a last resort, return the most common node image
return getHWTypeInfo ( 'x335' , 'image' );
}
// Returns the specified user preference value. Not finished.
function getPref ( $key ) { //------------------------------------
if ( $key == 'MaxNodesDisplayed' ) { return 50 ; }
return '' ;
}
// Returns a list of some or all of the nodes in the cluster. Pass in either a group name or node range,
// or NULL for each to get all nodes. Not finished.
function getNodes ( $group , $noderange ) { //------------------------------------
//my ($hostname, $type, $osname, $distro, $version, $mode, $status, $conport, $hcp, $nodeid, $pmethod, $location, $comment) = split(/:\|:/, $na);
for ( $i = 1 ; $i <= 10 ; $i ++ ) {
$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' => '' );
}
return $nodes ;
}
// Returns the node groups defined in the cluster. Not finished.
function getGroups () { //------------------------------------
return array ( 'AllNodes' , 'group1' , 'group2' );
}
// Returns true if we are running on AIX ------------------------------------
function isAIX () { } //todo: implement
// Returns true if we are running on Linux ------------------------------------
function isLinux () { } //todo: implement
// Returns true if we are running on Windows ------------------------------------
function isWindows () { return array_key_exists ( 'WINDIR' , $_SERVER ); }
// Create file folder-like tabs. Tablist is an array of label/url pairs.
function insertTabs ( $tablist , $currentTabIndex ) { //------------------------------------
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 ) {
echo " <TD align=center background='images/tab-current.gif'><b> $tab[0] </b></TD> " ;
}
else {
echo " <TD align=center background='images/tab.gif'><A href=' $tab[1] '> $tab[0] </A></TD> " ;
}
}
echo " </TR><TR><TD colspan=7 height=7 bgcolor='#CBCBCB'></TD></TR></TBODY></TABLE> \n " ;
}
// Create the Action buttons in a table. Buttonlist is an array of arrays of button attribute strings.
function insertButtons ( $buttonsets ) { //------------------------------------
foreach ( $buttonsets as $buttonlist ) {
2007-11-21 12:08:19 +00:00
echo " <TABLE cellpadding=0 cellspacing=2><TR> " ;
foreach ( $buttonlist as $button ) {
//echo "<td><INPUT type=submit class=but $button ></td>";
echo " <td><a class=button href=''><span> $button </span></a></td> " ;
}
echo " </TR></TABLE> \n " ;
2007-10-26 22:44:33 +00:00
}
}
?>
