r1838 + pass and handle caller function name for assertions

[racktables] / inc / interface.php

<?php
/*
*
*  This file contains frontend functions for RackTables.
*
*/

// Interface function's special.
$nextorder['odd'] = 'even';
$nextorder['even'] = 'odd';

// Main menu.
function renderIndex ()
{
        global $root;
?>
<table border=0 cellpadding=0 cellspacing=0 width='100%'>
        <tr>
                <td>
                        <div style='text-align: center; margin: 10px; '>
                        <table width='100%' cellspacing=0 cellpadding=30 class=mainmenu border=0>
                                <tr>
                                        <td>
                                                <h1><a href='<?php echo $root; ?>?page=rackspace'>Rackspace<br>
                                                <?php printImageHREF ('rackspace'); ?></a></h1>
                                        </td>
                                        <td>
                                                <h1><a href='<?php echo $root; ?>?page=objects'>Objects<br>
                                                <?php printImageHREF ('objects'); ?></a></h1>
                                        </td>
                                        <td>
                                                        <h1><a href='<?php echo $root; ?>?page=ipv4space'>IPv4 space<br>
                                                        <?php printImageHREF ('ipv4space'); ?></a></h1>
                                        </td>
                                </tr>
                        </table>
                        <table width='100%' cellspacing=0 cellpadding=30 class=mainmenu border=0>
                                <tr>
                                        <td>
                                                        <h1><a href='<?php echo $root; ?>?page=config'>Configuration<br>
                                                        <?php printImageHREF ('config'); ?></a></h1>
                                        </td>
                                        <td>
                                                <h1><a href='<?php echo $root; ?>?page=reports'>Reports<br>
                                                <?php printImageHREF ('reports'); ?></a></h1>
                                        </td>
                                        <td>
                                                <h1><a href='<?php echo $root; ?>?page=ipv4slb'>IPv4 SLB<br>
                                                <?php printImageHREF ('ipv4slb'); ?></a></h1>
                                        </td>
                                </tr>
                        </table>
                        </div>
                </td>
        </tr>
</table>
<?php
}

function renderRackspace ()
{
?>
        <table border=0 cellpadding=10 cellpadding=1>
<?php
        // generate thumb gallery
        $rackrowList = getRackRowInfo();
        global $root, $nextorder;
        $rackwidth = getConfigVar ('rtwidth_0') + getConfigVar ('rtwidth_1') + getConfigVar ('rtwidth_2');
        $order = 'odd';
        foreach ($rackrowList as $rackrow)
        {
                echo "<tr class=row_${order}><th><a href='${root}?page=row&row_id=${rackrow['dict_key']}'>${rackrow['dict_value']}</a></th>";
                $rackList = getRacksForRow ($rackrow['dict_key']);
                echo "<td><table border=0 cellspacing=5><tr>";
                foreach ($rackList as $dummy => $rack)
                {
                        echo "<td align=center><a href='${root}?page=rack&rack_id=${rack['id']}'>";
                        echo "<img border=0 width=${rackwidth} height=";
                        echo 3 + 3 + $rack['height'] * 2;
                        echo " title='${rack['height']} units'";
                        echo "src='render_image.php?img=minirack&rack_id=${rack['id']}'>";
                        echo "<br>${rack['name']}</a></td>";
                }
                echo "</tr></table></tr>\n";
                $order = $nextorder[$order];
        }
        echo "</table>\n";
}

function renderRow ($row_id)
{
        if ($row_id == 0)
        {
                showError ('Invalid row_id', __FUNCTION__);
                return;
        }
        if (($rowInfo = getRackRowInfo ($row_id)) == NULL)
        {
                showError ('getRackRowInfo() failed', __FUNCTION__);
                return;
        }
        $rackList = getRacksForRow ($row_id);
        // Main layout starts.
        echo "<table border=0 class=objectview cellspacing=0 cellpadding=0>";

        // Left portlet with row information.
        echo "<tr><td class=pcleft>";
        startPortlet ($rowInfo['dict_value']);
        echo "<table border=0 cellspacing=0 cellpadding=3 width='100%'>\n";
        echo "<tr><th width='50%' class=tdright>Racks:</th><td class=tdleft>${rowInfo['count']}</td></tr>\n";
        echo "<tr><th width='50%' class=tdright>Units:</th><td class=tdleft>${rowInfo['sum']}</td></tr>\n";
        echo "<tr><th width='50%' class=tdright>Utilization:</th><td class=tdleft>";
        renderProgressBar (getRSUforRackRow ($rackList));
        echo "</td></tr>\n";
        echo "</table><br>\n";
        finishPortlet();

        echo "</td><td class=pcright>";

        global $root, $nextorder;
        $rackwidth = getConfigVar ('rtwidth_0') + getConfigVar ('rtwidth_1') + getConfigVar ('rtwidth_2');
        $order = 'odd';
        startPortlet ('Racks');
        echo "<table border=0 cellspacing=5 align='center'><tr>";
        foreach ($rackList as $dummy => $rack)
        {
                echo "<td align=center class=row_${order}><a href='${root}?page=rack&rack_id=${rack['id']}'>";
                echo "<img border=0 width=" . $rackwidth * getConfigVar ('ROW_SCALE') . " height=";
                echo (3 + 3 + $rack['height'] * 2) * getConfigVar ('ROW_SCALE');
                echo " title='${rack['height']} units'";
                echo "src='render_image.php?img=minirack&rack_id=${rack['id']}'>";
                echo "<br>${rack['name']}</a></td>";
                $order = $nextorder[$order];
        }
        echo "</tr></table>\n";
        finishPortlet();

        echo "</td></tr></table>";
}

function showError ($info = '', $funcname = 'N/A')
{
        global $root;
        echo "<div class=msg_error>An error has occured in function [${funcname}]. ";
        if (empty ($info))
                echo 'No additional information is available.';
        else
                echo "Additional information:<br><p>\n<pre>\n${info}\n</pre></p>";
        echo "Go back or try starting from <a href='${root}'>index page</a>.<br></div>\n";
}

// This function renders rack as HTML table.
function renderRack ($rack_id = 0, $hl_obj_id = 0)
{
        if ($rack_id == 0)
        {
                showError ('Invalid rack_id', __FUNCTION__);
                return;
        }
        if (($rackData = getRackData ($rack_id)) == NULL)
        {
                showError ('getRackData() failed', __FUNCTION__);
                return;
        }
        global $root, $pageno, $tabno;
        markAllSpans ($rackData);
        if ($hl_obj_id > 0)
                highlightObject ($rackData, $hl_obj_id);
        markupObjectProblems ($rackData);
        $prev_id = getPrevIDforRack ($rackData['row_id'], $rack_id);
        $next_id = getNextIDforRack ($rackData['row_id'], $rack_id);
        echo "<center>\n<h2><a href='${root}?page=row&row_id=${rackData['row_id']}'>${rackData['row_name']}</a> :";
        // FIXME: use 'bypass'?
        if ($prev_id != NULL)
                echo " <a href='${root}?page=rack&rack_id=${prev_id}'>&lt; &lt; &lt;</a>";
        echo " <a href='${root}?page=rack&rack_id=${rackData['id']}'>${rackData['name']}</a>";
        if ($next_id != NULL)
                echo " <a href='${root}?page=rack&rack_id=${next_id}'>&gt; &gt; &gt;</a>";
        echo "</h2>\n";
        if ($rackData['left_is_front'] == 'yes')
                $markup = array ('left' => 'Front', 'right' => 'Back');
        else
                $markup = array ('left' => 'Back', 'right' => 'Front');
        echo "<table class=rack border=0 cellspacing=0 cellpadding=1>\n";
        echo "<tr><th width='10%'>&nbsp;</th><th width='20%'>${markup['left']}</th>";
        echo "<th width='50%'>Interior</th><th width='20%'>${markup['right']}</th></tr>\n";
        for ($i = $rackData['height']; $i > 0; $i--)
        {
                echo '<tr><th>' . ($rackData['bottom_is_unit1'] == 'yes' ? $i : $rackData['height'] - $i + 1) . '</th>';
                for ($locidx = 0; $locidx < 3; $locidx++)
                {
                        if (isset ($rackData[$i][$locidx]['skipped']))
                                continue;
                        $state = $rackData[$i][$locidx]['state'];
                        echo "<td class=state_${state}";
                        if (isset ($rackData[$i][$locidx]['hl']))
                                echo $rackData[$i][$locidx]['hl'];
                        if (isset ($rackData[$i][$locidx]['colspan']))
                                echo ' colspan=' . $rackData[$i][$locidx]['colspan'];
                        if (isset ($rackData[$i][$locidx]['rowspan']))
                                echo ' rowspan=' . $rackData[$i][$locidx]['rowspan'];
                        echo ">";
                        switch ($state)
                        {
                                case 'T':
                                        $objectData = getObjectInfo ($rackData[$i][$locidx]['object_id']);
                                        if (!empty ($objectData['asset_no']))
                                                $prefix = "<div title='${objectData['asset_no']}";
                                        else
                                                $prefix = "<div title='no asset tag";
                                        // Don't tell about label, if it matches common name.
                                        if ($objectData['name'] != $objectData['label'] and !empty ($objectData['label']))
                                                $suffix = ", visible label is \"${objectData['label']}\"'>";
                                        else
                                                $suffix = "'>";
                                        echo $prefix . $suffix;
                                        echo "<a href='${root}?page=object&object_id=${objectData['id']}'>${objectData['dname']}</a></div>";
                                        break;
                                case 'A':
                                        echo '<div title="This rackspace does not exist">&nbsp;</div>';
                                        break;
                                case 'F':
                                        echo '<div title="Free rackspace">&nbsp;</div>';
                                        break;
                                case 'U':
                                        echo '<div title="Problematic rackspace, you CAN\'T mount here">&nbsp;</div>';
                                        break;
                                default:
                                        echo '<div title="No data">&nbsp;</div>';
                                        break;
                        }
                        echo '</td>';
                }
                echo "</tr>\n";
        }
        echo "</table></center>\n";
}

function renderNewObjectForm ()
{
        global $pageno, $tabno;

        // Look for current submit.
        if (isset ($_REQUEST['got_data']))
        {
                $log = array();
                assertUIntArg ('object_type_id', __FUNCTION__);
                assertStringArg ('object_name', __FUNCTION__, TRUE);
                assertStringArg ('object_label', __FUNCTION__, TRUE);
                assertStringArg ('object_barcode', __FUNCTION__, TRUE);
                assertStringArg ('object_asset_no', __FUNCTION__, TRUE);
                $type_id = $_REQUEST['object_type_id'];
                $name = $_REQUEST['object_name'];
                $label = $_REQUEST['object_label'];
                $asset_no = $_REQUEST['object_asset_no'];
                $barcode = $_REQUEST['object_barcode'];

                if (commitAddObject ($name, $label, $barcode, $type_id, $asset_no) === TRUE)
                        $log[] = array ('code' => 'success', 'message' => "Added new object '${name}'");
                else
                        $log[] = array ('code' => 'error', 'message' => __FUNCTION__ . ': commitAddObject() failed');
                printLog ($log);
        }

        // Render a form for the next.
        startPortlet ('Object attributes');
        echo '<form>';
        echo "<input type=hidden name=page value=${pageno}>";
        echo "<input type=hidden name=tab value=${tabno}>";
        echo '<table border=0 align=center>';
        echo "<tr><th class=tdright>Type:</th><td class=tdleft>";
        $typelist = getObjectTypeList();
        $typelist[0] = 'select type...';
        printSelect ($typelist, 'object_type_id', getConfigVar ('DEFAULT_OBJECT_TYPE'));
        echo "</td></tr>\n";
        echo "<tr><th class=tdright>Common name:</th><td class=tdleft><input type=text name=object_name></td></tr>\n";
        echo "<tr><th class=tdright>Visible label:</th><td class=tdleft><input type=text name=object_label></td></tr>\n";
        echo "<tr><th class=tdright>Asset tag:</th><td class=tdleft><input type=text name=object_asset_no></td></tr>\n";
        echo "<tr><th class=tdright>Barcode:</th><td class=tdleft><input type=text name=object_barcode></td></tr>\n";
        echo "<tr><td class=submit colspan=2><input type=submit name=got_data value='Create'></td></tr>\n";
        echo '</form></table>';
        finishPortlet();
}

function renderNewRackForm ($row_id)
{
        global $pageno, $tabno;

        // Look for current submit.
        if (isset ($_REQUEST['got_data']))
        {
                $log = array();
                assertStringArg ('rack_name', __FUNCTION__);
                assertUIntArg ('rack_height', __FUNCTION__);
                assertStringArg ('rack_comment', __FUNCTION__, TRUE);
                $name = $_REQUEST['rack_name'];
                $height = $_REQUEST['rack_height'];
                $comment = $_REQUEST['rack_comment'];

                if (commitAddRack ($name, $height, $row_id, $comment) === TRUE)
                        $log[] = array ('code' => 'success', 'message' => "Added new rack '${name}'");
                else
                        $log[] = array ('code' => 'error', 'message' => __FUNCTION__ . 'commitAddRack() failed');
                printLog ($log);
        }

        // Render a form for the next.
        startPortlet ('Rack attributes');
        echo '<form>';
        echo "<input type=hidden name=page value=${pageno}>";
        echo "<input type=hidden name=tab value=${tabno}>";
        echo "<input type=hidden name=row_id value=${row_id}>";
        echo '<table border=0 align=center>';
        $defh = getConfigVar ('DEFAULT_RACK_HEIGHT');
        if ($defh == 0)
                $defh = '';
        echo "<tr><th class=tdright>Name (required):</th><td class=tdleft><input type=text name=rack_name tabindex=1></td></tr>\n";
        echo "<tr><th class=tdright>Height in units (required):</th><td class=tdleft><input type=text name=rack_height tabindex=2 value='${defh}'></td></tr>\n";
        echo "<tr><th class=tdright>Comment:</th><td class=tdleft><input type=text name=rack_comment tabindex=3></td></tr>\n";
        echo "<tr><td class=submit colspan=2><input type=submit name=got_data value='Create'></td></tr>\n";
        echo '</form></table>';
        finishPortlet();
}

function renderEditObjectForm ($object_id)
{
        showMessageOrError();
        // Handle submit.
        if (isset ($_REQUEST['got_data']))
        {
                $log = array();
                // object_id is already verified by page handler
                assertUIntArg ('object_type_id', __FUNCTION__);
                assertStringArg ('object_name', __FUNCTION__, TRUE);
                assertStringArg ('object_label', __FUNCTION__, TRUE);
                assertStringArg ('object_barcode', __FUNCTION__, TRUE);
                assertStringArg ('object_asset_no', __FUNCTION__, TRUE);
                $type_id = $_REQUEST['object_type_id'];
                if (isset ($_REQUEST['object_has_problems']) and $_REQUEST['object_has_problems'] == 'on')
                        $has_problems = 'yes';
                else
                        $has_problems = 'no';
                $name = $_REQUEST['object_name'];
                $label = $_REQUEST['object_label'];
                $barcode = $_REQUEST['object_barcode'];
                $asset_no = $_REQUEST['object_asset_no'];
                $comment = $_REQUEST['object_comment'];

                if (commitUpdateObject ($object_id, $name, $label, $barcode, $type_id, $has_problems, $asset_no, $comment) === TRUE)
                        $log[] = array ('code' => 'success', 'message' => "Updated object '${name}'");
                else
                        $log[] = array ('code' => 'error', 'message' => __FUNCTION__ . ': commitUpdateObject() failed');
                // Invalidate thumb cache of all racks objects could occupy.
                foreach (getResidentRacksData ($object_id, FALSE) as $rack_id)
                        resetThumbCache ($rack_id);
                printLog ($log);
        }

        global $pageno, $tabno;
        $object = getObjectInfo ($object_id);
        if ($object == NULL)
        {
                showError ('getObjectInfo() failed', __FUNCTION__);
                return;
        }

        // Render a form for the next submit;
        echo '<table border=0 width=100%><tr>';

        echo '<td class=pcleft>';
        startPortlet ('Static attributes');
        echo '<form method=post>';
        echo "<input type=hidden name=page value=${pageno}>";
        echo "<input type=hidden name=tab value=${tabno}>";
        echo "<input type=hidden name=object_id value=${object_id}>";
        echo '<table border=0 align=center>';
        echo "<tr><th class=tdright>Type:</th><td class=tdleft>";
        printSelect (getObjectTypeList(), 'object_type_id', $object['objtype_id']);
        echo "</td></tr>\n";
        // Common attributes.
        echo "<tr><th class=tdright>Common name:</th><td class=tdleft><input type=text name=object_name value='${object['name']}'></td></tr>\n";
        echo "<tr><th class=tdright>Visible label:</th><td class=tdleft><input type=text name=object_label value='${object['label']}'></td></tr>\n";
        echo "<tr><th class=tdright>Asset tag:</th><td class=tdleft><input type=text name=object_asset_no value='${object['asset_no']}'></td></tr>\n";
        echo "<tr><th class=tdright>Barcode:</th><td class=tdleft><input type=text name=object_barcode value='${object['barcode']}'></td></tr>\n";
        echo "<tr><th class=tdright>Has problems:</th><td class=tdleft><input type=checkbox name=object_has_problems";
        if ($object['has_problems'] == 'yes')
                echo ' checked';
        echo "></td></tr>\n";
        echo "<tr><td colspan=2><b>Comment:</b><br><textarea name=object_comment rows=10 cols=80>${object['comment']}</textarea></td></tr>";
        echo "<tr><th class=submit colspan=2><input type=submit name=got_data value='Update'></td></tr>\n";
        echo '</form></table><br>';
        finishPortlet();
        echo '</td>';
        
        // Optional attributes.
        echo '<td class=pcright>';
        startPortlet ('Optional attributes');
        $values = getAttrValues ($object_id);
        global $root;
        echo "<table cellspacing=0 cellpadding=5 align=center class=widetable>\n";
        echo "<tr><th>&nbsp;</th><th>Attribute</th><th>Value</th><th>&nbsp;</th></tr>\n";
        echo "<form method=post action='${root}process.php'>\n";
        echo "<input type=hidden name=page value=${pageno}>\n";
        echo "<input type=hidden name=tab value=${tabno}>\n";
        echo "<input type=hidden name=op value=upd>\n";
        echo "<input type=hidden name=object_id value=${object_id}>\n";
        echo '<input type=hidden name=num_attrs value=' . count($values) . ">\n";

        $i = 0;
        foreach ($values as $record)
        {
                echo "<input type=hidden name=${i}_attr_id value=${record['id']}>";
                echo '<tr><td>';
                if (!empty ($record['value']))
                {
                        echo "<a href=${root}process.php?page=${pageno}&tab=${tabno}&op=del&object_id=${object_id}&attr_id=${record['id']}>";
                        printImageHREF ('delete', 'Delete value');
                        echo '</a>';
                }
                else
                        printImageHREF ('nodelete', 'Already empty');
                echo '</td>';
                echo "<td class=tdright>${record['name']}:</td><td class=tdleft>";
                switch ($record['type'])
                {
                        case 'uint':
                        case 'float':
                        case 'string':
                                echo "<input type=text name=${i}_value value='${record['value']}'>";
                                break;
                        case 'dict':
                                $chapter = readChapter ($record['chapter_name']);
                                $chapter[0] = '-- NOT SET --';
                                printSelect ($chapter, "${i}_value", $record['key']);
                                break;
                }
                echo "</td></tr>\n";
                $i++;
        }
        echo "<tr><td colspan=3><input type=submit value='Update'></td></tr>\n";
        echo "</form>";
        echo "</table>\n";
        finishPortlet();
        echo '</td>';

        echo '</tr><tr>';

        echo '<td colspan=2>';
        startPortlet ('history');
        renderHistory ($pageno, $object_id);
        finishPortlet();
        echo '</td>';

        echo '</tr></table>';
}

// This is a clone of renderEditObjectForm().
function renderEditRackForm ($rack_id)
{
        // Handle submit.
        if (isset ($_REQUEST['got_data']))
        {
                $log = array();
                assertUIntArg ('rack_row_id', __FUNCTION__);
                assertUIntArg ('rack_height', __FUNCTION__);
                assertStringArg ('rack_name', __FUNCTION__);
                assertStringArg ('rack_comment', __FUNCTION__, TRUE);
                $row_id = $_REQUEST['rack_row_id'];
                $height = $_REQUEST['rack_height'];
                $name = $_REQUEST['rack_name'];
                $comment = $_REQUEST['rack_comment'];

                if (commitUpdateRack ($rack_id, $name, $height, $row_id, $comment) === TRUE)
                        $log[] = array ('code' => 'success', 'message' => "Updated rack '${name}'");
                else
                        $log[] = array ('code' => 'error', 'message' => __FUNCTION__ . ': commitUpdateRack() failed');
                resetThumbCache ($rack_id);
                printLog ($log);
        }

        global $pageno, $tabno;
        $rack = getRackData ($rack_id);
        if ($rack == NULL)
        {
                showError ('getRackData() failed', __FUNCTION__);
                return;
        }

        // Render a form for the next.
        startPortlet ('Rack attributes');
        echo '<form>';
        echo "<input type=hidden name=page value=${pageno}>";
        echo "<input type=hidden name=tab value=${tabno}>";
        echo "<input type=hidden name=rack_id value=${rack_id}>";
        echo '<table border=0 align=center>';
        echo "<tr><th class=tdright>Rack row:</th><td class=tdleft>";
        printSelect (readChapter ('RackRow'), 'rack_row_id', $rack['row_id']);
        echo "</td></tr>\n";
        echo "<tr><th class=tdright>Name (required):</th><td class=tdleft><input type=text name=rack_name value='${rack['name']}'></td></tr>\n";
        echo "<tr><th class=tdright>Height (required):</th><td class=tdleft><input type=text name=rack_height value='${rack['height']}'></td></tr>\n";
        echo "<tr><th class=tdright>Comment:</th><td class=tdleft><input type=text name=rack_comment value='${rack['comment']}'></td></tr>\n";
        echo "<tr><td class=submit colspan=2><input type=submit name=got_data value='Update'></td></tr>\n";
        echo '</form></table><br>';
        finishPortlet();
        
        startPortlet ('History');
        renderHistory ($pageno, $rack_id);
        finishPortlet();
}

// This is a helper for creators and editors.
function printSelect ($rowList, $select_name, $selected_id = 1)
{
        // First collect all data for OPTGROUPs, then ouput it and dump
        // the rest of records as is.
        $optgroup = array();
        $other = array();
        foreach ($rowList as $dict_key => $dict_value)
        {
                if (strpos ($dict_value, '^') !== FALSE)
                {
                        $tmp = explode ('^', $dict_value, 2);
                        $optgroup[$tmp[0]][$dict_key] = $tmp[1];
                }
                else
                        $other[$dict_key] = $dict_value;
        }
        echo "<select name=${select_name}>";
        if (!count ($optgroup))
        {
                foreach ($other as $dict_key => $dict_value)
                {
                        echo "<option value=${dict_key}";
                        if ($dict_key == $selected_id)
                                echo ' selected';
                        echo ">${dict_value}</option>";
                }
        }
        else
        {
                foreach ($optgroup as $groupname => $groupdata)
                {
                        echo "<optgroup label='${groupname}'>";
                        foreach ($groupdata as $dict_key => $dict_value)
                        {
                                echo "<option value=${dict_key}";
                                if ($dict_key == $selected_id)
                                        echo ' selected';
                                echo ">${dict_value}</option>";
                        }
                        echo "</optgroup>\n";
                }
                if (count ($other))
                {
                        echo "<optgroup label='other'>\n";
                        foreach ($other as $dict_key => $dict_value)
                        {
                                echo "<option value=${dict_key}";
                                if ($dict_key == $selected_id)
                                        echo ' selected';
                                echo ">${dict_value}</option>";
                        }
                        echo "</optgroup>\n";
                }
        }
        echo "</select>";
}

// This is a universal editor of rack design/waste.
function renderGridForm ($rack_id = 0, $filter, $header, $submit, $state1, $state2)
{
        if ($rack_id == 0)
        {
                showError ('Invalid rack_id', __FUNCTION__);
                return;
        }
        if (($rackData = getRackData ($rack_id)) == NULL)
        {
                showError ('getRackData() failed', __FUNCTION__);
                return;
        }

        global $root, $pageno, $tabno;
        $filter($rackData);
        markupObjectProblems ($rackData);

        // Process form submit.
        if (isset ($_REQUEST['do_update']))
        {
                $log[] = processGridForm ($rackData, $state1, $state2);
                printLog($log);
        }

        // Render the result whatever it is.
        // Main layout.
        echo "<table border=0 class=objectview cellspacing=0 cellpadding=0>";
        echo "<tr><td colspan=2 align=center><h1>${rackData['name']}</h1></td></tr>\n";

        // Left column with information portlet.
        echo "<tr><td class=pcleft height='1%' width='50%'>";
        startPortlet ('Rack information');
        echo "<table border=0 cellspacing=0 cellpadding=3 width='100%'>\n";
        echo "<tr><th width='50%' class=tdright>Rack name:</th><td class=tdleft>${rackData['name']}</td></tr>\n";
        echo "<tr><th width='50%' class=tdright>Height:</th><td class=tdleft>${rackData['height']}</td></tr>\n";
        echo "<tr><th width='50%' class=tdright>Rack row:</th><td class=tdleft>${rackData['row_name']}</td></tr>\n";
        echo "<tr><th width='50%' class=tdright>Comment:</th><td class=tdleft>${rackData['comment']}</td></tr>\n";
        echo "</table>\n";
        finishPortlet();

        echo "</td>\n";
        echo "<td class=pcright>";

        // Grid form.
        startPortlet ($header);
        echo "<center>\n";
        echo "<table class=rack border=0 cellspacing=0 cellpadding=1>\n";
        echo "<tr><th width='10%'>&nbsp;</th><th width='20%'>Front</th>";
        echo "<th width='50%'>Interior</th><th width='20%'>Back</th></tr>\n";
        echo "<form method=post action='${root}?'>\n";
        echo "<input type=hidden name=page value=${pageno}>\n";
        echo "<input type=hidden name=tab value=${tabno}>\n";
        echo "<input type=hidden name=rack_id value=${rack_id}>\n";
        markupAtomGrid ($rackData, $state2);
        renderAtomGrid ($rackData);
        echo "</table></center>\n";
        echo "<br><input type=submit name=do_update value='${submit}'></form><br><br>\n";
        finishPortlet();
        echo "</td></tr></table>\n";
}

function renderRackDesign ($rack_id)
{
        renderGridForm ($rack_id, 'applyRackDesignMask', 'Rack design', 'Set rack design', 'A', 'F');
}

function renderRackProblems ($rack_id = 0)
{
        renderGridForm ($rack_id, 'applyRackProblemMask', 'Rack problems', 'Mark unusable atoms', 'F', 'U');
}

function startPortlet ($title = '')
{
        echo "<div class=portlet><h2>${title}</h2>";
}

function finishPortlet ()
{
        echo "</div>\n";
}

function printRefsOfType ($refs, $type, $eq)
{
        global $root;
        $gotone=0;
        foreach ($refs as $ref)
        {
                if ($eq($ref['type'], $type))
                {
                        if ($gotone) echo ', ';
                        echo "<a href='${root}?page=object&object_id=${ref['object_id']}'>";
                        if (!empty ($ref['name']))
                                echo $ref['name'] . '@';
                        echo "${ref['object_name']}</a>";
                        $gotone=1;
                }
        }
}

function renderRackObject ($object_id = 0)
{
        global $root;
        if ($object_id <= 0)
        {
                showError ('Invalid object_id', __FUNCTION__);
                return;
        }
        $info = getObjectInfo ($object_id);
        if ($info == NULL)
        {
                showError ('getObjectInfo() failed', __FUNCTION__);
                return;
        }
        // Main layout starts.
        echo "<table border=0 class=objectview cellspacing=0 cellpadding=0>";
        echo "<tr><td colspan=2 align=center><h1>${info['dname']}</h1></td></tr>\n";
        // left column with uknown number of portlets
        echo "<tr><td class=pcleft>";
        startPortlet ('Object information');
        echo "<table border=0 cellspacing=0 cellpadding=3 width='100%'>\n";
        if (!empty ($info['name']))
                echo "<tr><th width='50%' class=tdright>Common name:</th><td class=tdleft>${info['name']}</td></tr>\n";
        elseif (in_array ($info['objtype_id'], explode (',', getConfigVar ('NAMEFUL_OBJTYPES'))))
                echo "<tr><td colspan=2 class=msg_error>Common name is missing.</td></tr>\n";
        echo "<tr><th width='50%' class=tdright>Object type:</th><td class=tdleft>${info['objtype_name']}</td></tr>\n";
        if (!empty ($info['asset_no']))
                echo "<tr><th width='50%' class=tdright>Asset tag:</th><td class=tdleft>${info['asset_no']}</td></tr>\n";
        elseif (in_array ($info['objtype_id'], explode (',', getConfigVar ('REQUIRE_ASSET_TAG_FOR'))))
                echo "<tr><td colspan=2 class=msg_error>Asset tag is missing.</td></tr>\n";
        if (!empty ($info['label']))
                echo "<tr><th width='50%' class=tdright>Visible label:</th><td class=tdleft>${info['label']}</td></tr>\n";
        if (!empty ($info['barcode']))
                echo "<tr><th width='50%' class=tdright>Barcode:</th><td class=tdleft>${info['barcode']}</td></tr>\n";
        if ($info['has_problems'] == 'yes')
                echo "<tr><td colspan=2 class=msg_error>Has problems</td></tr>\n";
        $attrs = getAttrValues ($object_id, TRUE);
        foreach (getAttrValues ($object_id, TRUE) as $record)
                if (!empty ($record['value']))
                        echo "<tr><th width='50%' class=opt_attr_th>${record['name']}:</th><td class=tdleft>${record['a_value']}</td></tr>\n";
        printTagTRs();
        echo "</table><br>\n";
        finishPortlet();

        if (!empty ($info['comment']))
        {
                startPortlet ('Comment');
                echo '<div class=commentblock>' . string_insert_hrefs ($info['comment']) . '</div>';
                finishPortlet ();
        }

        $ports = getObjectPortsAndLinks ($object_id);
        if (count ($ports))
        {
                startPortlet ('Ports and links');
                usort($ports, 'sortByName');
                if ($ports)
                {
                        $hl_port_id = 0;
                        if (isset ($_REQUEST['hl_port_id']))
                        {
                                assertUIntArg ('hl_port_id', __FUNCTION__);
                                $hl_port_id = $_REQUEST['hl_port_id'];
                        }
                        echo "<table cellspacing=0 cellpadding='5' align='center' class='widetable'>\n";
                        echo "<tr><th>Local name</th><th>Visible label</th><th>Port type</th><th>L2 address</th>";
                        echo "<th>Rem. Object</th><th>Rem. port</th></tr>\n";
                        foreach ($ports as $port)
                        {
                                echo '<tr';
                                if ($hl_port_id == $port['id'])
                                        echo ' class=port_highlight';
                                echo "><td>${port['name']}</td><td>${port['label']}</td><td>${port['type']}</td>";
                                echo "<td>${port['l2address']}</td>";
                                if ($port['remote_object_id'])
                                {
                                        echo "<td><a href='${root}?page=object&object_id=${port['remote_object_id']}'>${port['remote_object_name']}</a></td>";
                                        echo "<td>${port['remote_name']}</td>";
                                }
                                elseif (!empty ($port['reservation_comment']))
                                {
                                        echo "<td><b>Reserved;</b></td>";
                                        echo "<td>${port['reservation_comment']}</td>";
                                }
                                else
                                        echo '<td>&nbsp;</td><td>&nbsp;</td>';
                                echo "</tr>\n";
                        }
                        echo "</table><br>\n";
                }
                finishPortlet();
        }
        $addresses = getObjectAddresses ($object_id);
        usort($addresses, 'sortAddresses');
        if (count ($addresses))
        {
                startPortlet ('IPv4 addresses');
                echo "<table cellspacing=0 cellpadding='5' align='center' class='widetable'>\n";
                echo "<tr><th>Interface name</th><th>IP Address</th><th>Description</th><th>Misc</th></tr>\n";
                foreach ($addresses as $addr)
                {
                        if (strlen($addr['address_name'])>40)
                                $address_name = substr($addr['address_name'],0,38).'...';
                        else
                                $address_name = $addr['address_name'];

                        $virtnum = countRefsOfType($addr['references'], 'virtual', 'eq');
                        $sharednum = countRefsOfType($addr['references'], 'shared', 'eq');
                        $regnum = countRefsOfType($addr['references'], 'regular', 'eq');
                        $notvirtnum = countRefsOfType($addr['references'], 'virtual', 'neq');

                        if ($addr['address_reserved']=='yes')
                                $class='trerror';
                        elseif ($addr['type']!='virtual' && $regnum>0)
                                $class='trerror';
                        elseif ($addr['type']=='regular' && $sharednum>0)
                                $class='trerror';
                        else 
                                $class='';

                        echo "<tr class='$class'><td class=tdleft>${addr['name']}</td><td class=tdleft><a href='${root}?page=ipaddress&ip=${addr['ip']}'>${addr['ip']}</a></td><td class='description'>$address_name</td><td class=tdleft>\n";

                        if ($addr['address_reserved']=='yes')
                                echo "<b>Reserved;</b> ";

                        if ($addr['type'] == 'virtual')
                        {
                                echo "<b>V</b>";
                                if ($notvirtnum > 0)
                                {
                                        echo " Owners: ";
                                        printRefsOfType($addr['references'], 'virtual', 'neq');
                                }
                        }
                        elseif ($addr['type'] == 'shared')
                        {
                                echo "<b>S</b>";
                                if ($sharednum > 0)
                                {
                                        echo " Peers: ";
                                        printRefsOfType($addr['references'], 'shared', 'eq');
                                        echo ";";
                                }
                                if ($virtnum > 0)
                                {
                                        echo " Virtuals: ";
                                        printRefsOfType($addr['references'], 'virtual', 'eq');
                                        echo ";";
                                }
                                if ($regnum > 0)
                                {
                                        echo " Collisions: ";
                                        printRefsOfType($addr['references'], 'regular', 'eq');
                                }
                                
                        }
                        else
                        {
                                if ($virtnum > 0)
                                {
                                        echo " Virtuals: ";
                                        printRefsOfType($addr['references'], 'virtual', 'eq');
                                        echo ";";
                                }
                                if ($notvirtnum > 0)
                                {
                                        echo " Collisions: ";
                                        printRefsOfType($addr['references'], 'virtual', 'neq');
                                }
                        }

                        echo "</td></tr>\n";
                }
                echo "</table><br>\n";
                finishPortlet();
        }

        $forwards = getObjectForwards ($object_id);
        if (count($forwards['in']) or count($forwards['out']))
        {
                startPortlet('NATv4');

                if (count($forwards['out']))
                {

                        echo "<h3>locally performed NAT</h3>";

                        echo "<table class='widetable' cesspadding=5 cellspacing=0 border=0 align='center'>\n";
                        echo "<tr><th>Proto</th><th>Match endpoint</th><th>Translate to</th><th>Target object</th><th>Rule comment</th></tr>\n";

                        foreach ($forwards['out'] as $pf)
                        {
                                $class='trerrorg';
                                $name='';
                                foreach ($addresses as $addr)
                                        if ($addr['ip'] == $pf['localip'])
                                        {
                                                $class='';
                                                $name=$addr['name'];
                                                break;
                                        }

                                echo "<tr class='$class'>";

                                echo "<td>${pf['proto']}</td><td class=tdleft>${name}: <a href='${root}?page=ipaddress&tab=default&ip=${pf['localip']}'>${pf['localip']}</a>:${pf['localport']}</td>";

                                echo "<td class=tdleft><a href='${root}?page=ipaddress&tab=default&ip=${pf['remoteip']}'>${pf['remoteip']}</a>:${pf['remoteport']}</td>";

                                $address=getIPAddress($pf['remoteip']);

                                echo "<td class='description'>";
                                if (count ($address['bonds']))
                                        foreach($address['bonds'] as $bond)
                                                echo "<a href='${root}?page=object&tab=default&object_id=${bond['object_id']}'>${bond['object_name']}(${bond['name']})</a> ";
                                elseif (!empty ($pf['remote_addr_name']))
                                        echo '(' . $pf['remote_addr_name'] . ')';

                                echo "</td><td class='description'>${pf['description']}</td>";

                                echo "</tr>";
                        }
                        echo "</table><br><br>";
                }
                if (count($forwards['in']))
                {
                        echo "<h3>arriving NAT connections</h3>";

                        echo "<table class='widetable' cesspadding=5 cellspacing=0 border=0 align='center'>\n";
                        echo "<tr><th>Matched endpoint</th><th>Source object</th><th>Translated to</th><th>Rule comment</th></tr>\n";

                        foreach ($forwards['in'] as $pf)
                        {
                                echo "<tr>";
                                echo "<td>${pf['proto']}/<a href='${root}?page=ipaddress&tab=default&ip=${pf['localip']}'>${pf['localip']}</a>:${pf['localport']}</td>";

                                echo "<td class='description'><a href='${root}?page=object&tab=default&object_id=${pf['object_id']}'>${pf['object_name']}</a>";

                                echo "</td><td><a href='${root}?page=ipaddress&tab=default&ip=${pf['remoteip']}'>${pf['remoteip']}</a>:${pf['remoteport']}</td>";
                                echo "<td class='description'>${pf['description']}</td></tr>";
                        }

                        echo "</table><br><br>";
                }
                finishPortlet();
        }

        $pools = getRSPoolsForObject ($object_id);
        if (count ($pools))
        {
                startPortlet ('Real server pools');
                echo "<table cellspacing=0 cellpadding=5 align=center class=widetable>\n";
                echo "<tr><th>VS</th><th>RS pool</th><th>RS</th><th>VS config</th><th>RS config</th></tr>\n";
                foreach ($pools as $vs_id => $info)
                {
                        echo "<tr valign=top><td class=tdleft><a href='${root}?page=vservice&id=${vs_id}'>";
                        echo buildVServiceName ($info);
                        echo '</a>';
                        if (!empty ($info['name']))
                                echo " (${info['name']})";
                        echo "</td><td class=tdleft><a href='${root}?page=rspool&pool_id=${info['pool_id']}'>";
                        echo (empty ($info['pool_name']) ? 'ANONYMOUS' : $info['pool_name']);
                        echo '</a></td><td class=tdleft>' . $info['rscount'] . '</td>';
                        echo "<td class=tdleft><pre>${info['vsconfig']}</pre></td>";
                        echo "<td class=tdleft><pre>${info['rsconfig']}</pre></td>";
                        echo "</tr>\n";
                }
                echo "</table>\n";
                finishPortlet();
        }
        echo "</td>\n";

        // After left column we have (surprise!) right column with rackspace portled only.
        echo "<td class=pcright>";
        // rackspace portlet
        startPortlet ('Rackspace allocation');
        // FIXME: now we call getRackData() twice
        $racks = getResidentRacksData ($object_id);
        foreach ($racks as $rackData)
                renderRack ($rackData['id'], $object_id);
        echo '<br>';
        finishPortlet();
        echo "</td></tr>";
        echo "</table>\n";
}

function renderRackMultiSelect ($sname, $racks, $selected)
{
        echo "<select name=${sname} multiple size=" . getConfigVar ('MAXSELSIZE') . " onchange='getElementById(\"racks\").submit()'>\n";
        foreach ($racks as $rack)
        {
                echo "<option value=${rack['id']}";
                if (!(array_search ($rack['id'], $selected) === FALSE))
                        echo ' selected';
                echo">${rack['row_name']}: ${rack['name']}</option>\n";
        }
        echo "</select>\n";
}

function showMessageOrError ()
{
        if (isset($_REQUEST['message']))
                echo "<div class=msg_success>${_REQUEST['message']}</div>";
        if (isset($_REQUEST['error']))
                echo "<div class=msg_error>${_REQUEST['error']}</div>";
}

// This function renders a form for port edition.
function renderPortsForObject ($object_id = 0)
{
        global $root, $pageno, $tabno;
        if ($object_id <= 0)
        {
                showError ('Invalid object_id', __FUNCTION__);
                return;
        }
        showMessageOrError();
        startPortlet ('Ports and interfaces');
        $ports = getObjectPortsAndLinks ($object_id);
        usort($ports, 'sortByName');
        echo "<table cellspacing=0 cellpadding='5' align='center' class='widetable'>\n";
        echo "<tr><th>&nbsp;</th><th>Local name</th><th>Visible label</th><th>Port type</th><th>L2 address</th>";
        echo "<th>Rem. object</th><th>Rem. port</th><th>(Un)link or (un)reserve</th><th>&nbsp;</th></tr>\n";
        foreach ($ports as $port)
        {
                echo "<form action='${root}process.php'>";
                echo "<input type=hidden name=op value=editPort>";
                echo "<input type=hidden name=page value='${pageno}'>\n";
                echo "<input type=hidden name=tab value='${tabno}'>\n";
                echo "<input type=hidden name=port_id value='${port['id']}'>";
                echo "<input type=hidden name=object_id value='$object_id'>\n";
                echo "<tr><td><a href='${root}process.php?op=delPort&page=${pageno}&tab=${tabno}&port_id=${port['id']}&object_id=$object_id&port_name=${port['name']}'>";
                printImageHREF ('delete', 'Unlink and Delete this port');
                echo "</a></td>\n";
                echo "<td><input type=text name=name value='${port['name']}' size=8></td>";
                echo "<td><input type=text name=label value='${port['label']}' size=24></td>";
                echo "<td>${port['type']}</td>\n";
                echo "<td><input type=text name=l2address value='${port['l2address']}'></td>\n";
                if ($port['remote_object_id'])
                {
                        echo "<td><a href='${root}?page=object&object_id=${port['remote_object_id']}'>${port['remote_object_name']}</a></td>";
                        echo "<td>${port['remote_name']}</td>";
                        echo "<td><a href='${root}process.php?op=unlinkPort&page=${pageno}&tab=${tabno}&port_id=${port['id']}&object_id=$object_id&port_name=";
                        echo urlencode ($port['name']);
                        echo "&remote_port_name=${port['remote_name']}&remote_object_name=${port['remote_object_name']}'>";
                        printImageHREF ('unlink', 'Unlink this port');
                        echo "</a></td>";
                }
                elseif (!empty ($port['reservation_comment']))
                {
                        echo "<td><b>Reserved;</b></td>";
                        echo "<td><input type=text name=reservation_comment value='${port['reservation_comment']}'></td>";
                        echo "<td><a href='${root}process.php?op=useup&page=${pageno}&tab=${tabno}&port_id=${port['id']}&object_id=${object_id}'>";
                        printImageHREF ('useup', 'Use up this port');
                        echo "</a></td>";
                }
                else
                {
                        echo "<td>&nbsp;</td><td>&nbsp;</td>";
                        echo "<td>";
                        echo "<a href='javascript:;' onclick='window.open(\"${root}link_helper.php?port=${port['id']}&type=${port['type_id']}&object_id=$object_id&port_name=";
                        echo urlencode ($port['name']);
                        echo "\",\"findlink\",\"height=700, width=400, location=no, menubar=no, resizable=yes, scrollbars=no, status=no, titlebar=no, toolbar=no\");'>";
                        printImageHREF ('link', 'Link this port');
                        echo "</a> <input type=text name=reservation_comment>";
                        echo "</td>\n";
                }
                echo "<td><input type='submit' value='OK'></td>";
                echo "</form></tr>\n";
        }
        echo "<form action='${root}process.php'><tr>";
        echo "<td colspan=2><input type=text size=10 name=port_name tabindex=100></td>\n";
        echo "<td><input type=text size=24 name=port_label tabindex=101></td>";
        echo "<input type=hidden name=op value=addPort>\n";
        echo "<input type=hidden name=object_id value='${object_id}'>\n";
        echo "<input type=hidden name=page value='${pageno}'>\n";
        echo "<input type=hidden name=tab value='${tabno}'>\n";
        echo "<td><select name='port_type_id' tabindex=102>\n";
        $types = getPortTypes();
        $default_port_type = getConfigVar ('default_port_type');
        foreach ($types as $typeid => $typename)
        {
                echo "<option value='${typeid}'";
                if ($typeid == $default_port_type)
                        echo " selected";
                echo ">${typename}</option>\n";
        }
        echo "</select></td>";
        echo "<td><input type=text name=port_l2address tabindex=103></td>\n";
        echo "<td colspan=4><input type='submit' value='Add a new port' tabindex=104></td></tr></form>";
        echo "</table><br>\n";
        finishPortlet();

        startPortlet ('Add/update multiple ports');
        echo "<form action=${root}process.php method=post>";
        echo "<input type=hidden name=page value='${pageno}'>\n";
        echo "<input type=hidden name=tab value='${tabno}'>\n";
        echo "<input type=hidden name=object_id value='${object_id}'>\n";
        echo "<input type=hidden name=op value=addMultiPorts>";
        echo 'Format: <select name=format>';
        echo '<option value=c2900 disabled>Cisco 2900 series: sh int eth</option>';
        echo '<option value=c3600eth disabled>Cisco 3600 ethernet: sh arp | inc -</option>';
        echo '<option value=c3600asy>Cisco 3600 async: sh line | inc TTY</option>';
        echo '<option value=fiwg selected>Foundry ServerIron/FastIron WorkGroup/Edge: sh int br</option>';
        echo '<option value=fiedge disabled>Foundry FastIron Edge: sh int br</option>';
        echo '<option value=fisxii>Foundry FastIron SuperX/II4000: sh int br</option>';
        echo '<option value=ssv1>SSV:&lt;interface name&gt; &lt;MAC address&gt;</option>';
        echo "</select>";
        echo 'Default port type: ';
        echo "<select name=port_type>\n";
        foreach ($types as $typeid => $typename)
        {
                echo "<option value='${typeid}'";
                if ($typeid == $default_port_type)
                        echo " selected";
                echo ">${typename}</option>\n";
        }
        echo "</select>";
        echo "<input type=submit value='Parse output'><br>\n";
        echo "<textarea name=input cols=100 rows=50></textarea><br>\n";
        echo '</form>';
        finishPortlet();
}

function renderNetworkForObject ($object_id=0)
{
        global $root, $pageno, $tabno;
        if ($object_id <= 0)
        {
                showError ('Invalid object_id', __FUNCTION__);
                return;
        }
        showMessageOrError();
        startPortlet ('Network Addresses');
        $addresses = getObjectAddresses ($object_id);
        usort($addresses, 'sortAddresses');
        echo "<table cellspacing=0 cellpadding='5' align='center' class='widetable'>\n";
        echo "<tr><th>&nbsp;</th><th>Interface name</th><th>IP Address</th><th>Description</th><th>Type</th><th>Misc</th><th>&nbsp</th></tr>\n";
        foreach ($addresses as $addr)
        {
                if (strlen($addr['address_name'])>40)
                        $address_name = substr($addr['address_name'],0,38).'...';
                else
                        $address_name = $addr['address_name'];

                $virtnum = countRefsOfType($addr['references'], 'virtual', 'eq');
                $sharednum = countRefsOfType($addr['references'], 'shared', 'eq');
                $regnum = countRefsOfType($addr['references'], 'regular', 'eq');
                $notvirtnum = countRefsOfType($addr['references'], 'virtual', 'neq');

                if ($addr['address_reserved']=='yes')
                        $class='trerror';
                elseif ($addr['type']!='virtual' && $regnum>0)
                        $class='trerror';
                elseif ($addr['type']=='regular' && $sharednum>0)
                        $class='trerror';
                else 
                        $class='';

                echo "<form action='process.php'>";
                echo "<input type=hidden name=page value='${pageno}'>\n";
                echo "<input type=hidden name=tab value='${tabno}'>\n";
                echo "<input type=hidden name=op value=editAddressFromObject>";
                echo "<input type=hidden name=object_id value='$object_id'>";
                echo "<input type=hidden name=ip value='${addr['ip']}'>";
                echo "<tr class='$class'><td><a href='process.php?op=delAddrFObj&page=${pageno}&tab=${tabno}&ip=${addr['ip']}&object_id=$object_id'>";
                printImageHREF ('delete', 'Delete this IPv4 address');
                echo "</a></td>";
                echo "<td><input type='text' name='bond_name' value='${addr['name']}' size=10></td>";
                echo "<td><a href='${root}?page=ipaddress&ip=${addr['ip']}'>${addr['ip']}</a></td>";
                echo "<td class='description'>$address_name</td>\n";
                echo "<td><select name='bond_type'>";
                foreach (array('regular'=>'Regular', 'virtual'=>'Virtual', 'shared'=>'Shared') as $n => $v)
                {
                        echo "<option value='$n'";
                        if ($addr['type'] == $n)
                                echo " selected";
                        echo ">$v</option>";
                }
                echo "</td><td>";
                if ($addr['address_reserved']=='yes')
                        echo "<b>Reserved</b>; ";

                if ($addr['type'] == 'virtual')
                {
                        if ($notvirtnum > 0)
                        {
                                echo " Owners: ";
                                printRefsOfType($addr['references'], 'virtual', 'neq');
                        }
                }
                elseif ($addr['type'] == 'shared')
                {
                        if ($sharednum > 0)
                        {
                                echo " Peers: ";
                                printRefsOfType($addr['references'], 'shared', 'eq');
                                echo ";";
                        }
                        if ($virtnum > 0)
                        {
                                echo " Virtuals: ";
                                printRefsOfType($addr['references'], 'virtual', 'eq');
                                echo ";";
                        }
                        if ($regnum > 0)
                        {
                                echo " Collisions: ";
                                printRefsOfType($addr['references'], 'regular', 'eq');
                        }
                        
                }
                else
                {
                        if ($virtnum > 0)
                        {
                                echo " Virtuals: ";
                                printRefsOfType($addr['references'], 'virtual', 'eq');
                                echo ";";
                        }
                        if ($notvirtnum > 0)
                        {
                                echo " Collisions: ";
                                printRefsOfType($addr['references'], 'virtual', 'neq');
                        }
                }

                echo "</td><td><input type=submit value='OK'></td></form></tr>\n";
        }


        echo "<form action='${root}process.php'><tr><td colspan=2><input type='text' size='10' name='name' tabindex=100></td>\n";
        echo "<input type=hidden name=page value='${pageno}'>\n";
        echo "<input type=hidden name=tab value='${tabno}'>\n";
        echo "<input type=hidden name=op value=addAddrFObj>\n";
        echo "<input type=hidden name=object_id value='$object_id'>\n";

        echo "<td><input type=text name='ip' tabindex=101>\n";
        echo "</td><td><select name='type' tabindex=102>";
        echo "<option value='regular'>Regular</option>";
        echo "<option value='virtual'>Virtual</option>";
        echo "<option value='shared'>Shared</option>";
        echo "</select>";
        echo "</td><td colspan=3><input type='submit' value='Add a new interface' tabindex=103></td></tr></form>";
        echo "</table><br>\n";
        finishPortlet();

}

function printLog ($log)
{
        foreach ($log as $record)
                echo "<div class=msg_${record['code']}>${record['message']}</div>";
}

/*
The following conditions must be followed:
1. We can mount onto free atoms only. This means: if any record for an atom
already exists in RackSpace, it can't be used for mounting.
2. We can't unmount from 'W' atoms. Operator should review appropriate comments
and either delete them before unmounting or refuse to unmount the object.
*/

// We extensively use $_REQUEST in the function.
function renderRackSpaceForObject ($object_id = 0)
{
        if ($object_id <= 0)
        {
                showError ('Invalid object_id', __FUNCTION__);
                return;
        }
        $is_submit = isset ($_REQUEST['got_atoms']);
        $is_update = isset ($_REQUEST['rackmulti'][0]);
        $info = getObjectInfo ($object_id);
        if ($info == NULL)
        {
                showError ('getObjectInfo() failed', __FUNCTION__);
                return;
        }
        // Always process occupied racks plus racks chosen by user. First get racks with
        // already allocated rackspace...
        $workingRacksData = getResidentRacksData ($object_id);
        if ($workingRacksData === NULL)
        {
                print_r ($workingRacksData);
                showError ('getResidentRacksData() failed', __FUNCTION__);
                return;
        }

        // ...and then add those chosen by user (if any).
        if ($is_update)
                foreach ($_REQUEST['rackmulti'] as $cand_id)
                {
                        if (!isset ($workingRacksData[$cand_id]))
                        {
                                $rackData = getRackData ($cand_id);
                                if ($rackData == NULL)
                                {
                                        showError ('getRackData() failed', __FUNCTION__);
                                        return NULL;
                                }
                                $workingRacksData[$cand_id] = $rackData;
                        }
                }

        // Do it only once...
        foreach ($workingRacksData as &$rackData)
                applyObjectMountMask ($rackData, $object_id);
        // Now we workaround an old caveat: http://bugs.php.net/bug.php?id=37410
        unset ($rackData);

        // Here we process form submit by trying to save all submitted info to database.
        if ($is_submit)
        {
                $oldMolecule = getMoleculeForObject ($object_id);
                $worldchanged = FALSE;
                $log = array();
                foreach ($workingRacksData as $rack_id => $rackData)
                {
                        $logrecord = processGridForm ($rackData, 'F', 'T', $object_id);
                        $log[] = $logrecord;
                        if ($logrecord['code'] != 300)
                        {
                                $worldchanged = TRUE;
                                // Reload our working copy after form processing.
                                $rackData = getRackData ($rack_id);
                                if ($rackData == NULL)
                                        $log[] = array ('code' => 500, 'message' => 'Working copy update failed in ', __FUNCTION__);
                                applyObjectMountMask ($rackData, $object_id);
                                $workingRacksData[$rack_id] = $rackData;
                        }
                }
                if ($worldchanged)
                {
                        // Log a record.
                        $newMolecule = getMoleculeForObject ($object_id);
                        $oc = count ($oldMolecule);
                        $nc = count ($newMolecule);
                        $omid = $oc ? createMolecule ($oldMolecule) : 'NULL';
                        $nmid = $nc ? createMolecule ($newMolecule) : 'NULL';
                        global $remote_username;
                        $comment = empty ($_REQUEST['comment']) ? 'NULL' : "'${_REQUEST['comment']}'";
                        $query =
                                "insert into MountOperation(object_id, old_molecule_id, new_molecule_id, user_name, comment) " .
                                "values (${object_id}, ${omid}, ${nmid}, '${remote_username}', ${comment})";
                        global $dbxlink;
                        $result = $dbxlink->query ($query);
                        if ($result == NULL)
                                $log[] = array ('code' => 'error', 'message' => 'SQL query failed during history logging.');
                        else
                                $log[] = array ('code' => 'success', 'message' => 'History logged.');
                }
                printLog ($log);
        }

        // This is the time for rendering.
        global $root, $pageno, $tabno;
        echo "<form id='racks' action='${root}'>";
        echo "<input type=hidden name=page value='${pageno}'>\n";
        echo "<input type=hidden name=tab value='${tabno}'>\n";
        echo "<input type=hidden name=object_id value='${object_id}'>\n";
        // Main layout starts.
        echo "<table border=0 class=objectview cellspacing=0 cellpadding=0><tr>";

        // Left portlet with rack list.
        echo "<td class=pcleft height='1%'>";
        startPortlet ('Racks');
        $allRacksData = getRacksForRow();
        if (count ($allRacksData) <= getConfigVar ('RACK_PRESELECT_THRESHOLD'))
        {
                foreach (array_keys ($allRacksData) as $rack_id)
                {
                        $rackData = getRackData ($rack_id);
                        if ($rackData == NULL)
                        {
                                showError ('getRackData() failed', __FUNCTION__);
                                return NULL;
                        }
                        $workingRacksData[$rack_id] = $rackData;
                }
                foreach ($workingRacksData as &$rackData)
                        applyObjectMountMask ($rackData, $object_id);
                unset ($rackData);
        }
        renderRackMultiSelect ('rackmulti[]', $allRacksData, array_keys ($workingRacksData));
        echo "<br>";
        echo "<br>";
        finishPortlet();
        echo "</td>";

        // Middle portlet with comment and submit.
        echo "<td class=pcleft>";
        startPortlet ('Comment');
        echo "<textarea name=comment rows=10 cols=40></textarea><br>\n";
        echo "<input type=submit value='Save' name=got_atoms>\n";
        echo "<br>";
        echo "<br>";
        finishPortlet();
        echo "</td>";

        // Right portlet with rendered racks. If this form submit is not final, we have to
        // reflect the former state of the grid in current form.
        echo "<td class=pcright rowspan=2 height='1%'>";
        startPortlet ('Working copy');
        echo '<table border=0 cellspacing=10 align=center><tr>';
        foreach ($workingRacksData as $rack_id => $rackData)
        {
                // Order is important here: only original allocation is highlighted.
                highlightObject ($rackData, $object_id);
                markupAtomGrid ($rackData, 'T');
                // If we have a form processed, discard user input and show new database
                // contents.
                if (!$is_submit and $is_update)
                        mergeGridFormToRack ($rackData);
                echo "<td valign=top>";
                echo "<center>\n<h2>${rackData['name']}</h2>\n";
                echo "<table class=rack border=0 cellspacing=0 cellpadding=1>\n";
                echo "<tr><th width='10%'>&nbsp;</th><th width='20%'>Front</th>";
                echo "<th width='50%'>Interior</th><th width='20%'>Back</th></tr>\n";
                renderAtomGrid ($rackData);
                echo "<tr><th width='10%'>&nbsp;</th><th width='20%'>Front</th>";
                echo "<th width='50%'>Interior</th><th width='20%'>Back</th></tr>\n";
                echo "</table></center>\n";
                echo '</td>';
        }
        echo "</tr></table>";
        finishPortlet();
        echo "</td>\n";

        echo "</form>\n";
        echo "</tr></table>\n";
}

function renderMolecule ($mdata, $object_id)
{
        // sort data out
        $rackpack = array();
        global $loclist;
        foreach ($mdata as $dummy => $rua)
        {
                $rack_id = $rua['rack_id'];
                $unit_no = $rua['unit_no'];
                $atom = $rua['atom'];
                if (!isset ($rackpack[$rack_id]))
                {
                        $rackData = getRackData ($rack_id);
                        for ($i = $rackData['height']; $i > 0; $i--)
                                for ($locidx = 0; $locidx < 3; $locidx++)
                                        $rackData[$i][$locidx]['state'] = 'F';
                        $rackpack[$rack_id] = $rackData;
                }
                $rackpack[$rack_id][$unit_no][$loclist[$atom]]['state'] = 'T';
                $rackpack[$rack_id][$unit_no][$loclist[$atom]]['object_id'] = $object_id;
        }
        // now we have some racks to render
        foreach ($rackpack as $dummy => $rackData)
        {
                markAllSpans ($rackData);
                echo "<table class=molecule cellspacing=0>\n";
                echo "<caption>${rackData['name']}</caption>\n";
                echo "<tr><th width='10%'>&nbsp;</th><th width='20%'>Front</th><th width='50%'>Interior</th><th width='20%'>Back</th></tr>\n";
                for ($i = $rackData['height']; $i > 0; $i--)
                {
                        echo "<tr><th>$i</th>";
                        for ($locidx = 0; $locidx < 3; $locidx++)
                        {
                                $state = $rackData[$i][$locidx]['state'];
                                echo "<td class=state_${state}>&nbsp;</td>\n";
                        }
                        echo "</tr>\n";
                }
                echo "</table>\n";
        }
}

function renderUnmountedObjectsPortlet ()
{
        startPortlet ('Unmounted objects');
        $objs = getUnmountedObjects();
        if ($objs === NULL)
        {
                showError ('getUnmountedObjects() failed', __FUNCTION__);
                return;
        }
        global $root, $nextorder;
        $order = 'odd';
        echo '<br><br><table border=0 cellpadding=5 cellspacing=0 align=center class=cooltable>';
        echo '<tr><th>Common name</th><th>Visible label</th><th>Asset number</th><th>Barcode</th></tr>';
        foreach ($objs as $obj)
        {
                echo "<tr class=row_${order}><td><a href='${root}?page=object&object_id=${obj['id']}'>${obj['dname']}</a></td>";
                echo "<td>${obj['label']}</td>";
                echo "<td>${obj['asset_no']}</td>";
                echo "<td>${obj['barcode']}</td></tr>";
                $order = $nextorder[$order];
        }
        echo "</table><br>\n";
        finishPortlet();
}

function renderProblematicObjectsPortlet ()
{
        startPortlet ('Problematic objects');
        $objs = getProblematicObjects();
        if ($objs === NULL)
        {
                showError ('getProblematicObjects() failed', __FUNCTION__);
                return;
        }
        global $root, $nextorder;
        $order = 'odd';
        echo '<br><br><table border=0 cellpadding=5 cellspacing=0 align=center class=cooltable>';
        echo '<tr><th>Type</th><th>Common name</th></tr>';
        foreach ($objs as $obj)
        {
                echo "<tr class=row_${order}><td>${obj['objtype_name']}</td>";
                echo "<td><a href='${root}?page=object&object_id=${obj['id']}'>${obj['dname']}</a></tr>";
                $order = $nextorder[$order];
        }
        echo "</table><br>\n";
        finishPortlet();
}

function renderObjectGroupSummary ()
{
        global $root;
        $tagfilter = isset ($_REQUEST['tagfilter']) ? $_REQUEST['tagfilter'] : array();
        $tagfilter = complementByKids ($tagfilter);
        $summary = getObjectGroupInfo();
        if ($summary === NULL)
        {
                showError ('getObjectGroupInfo() failed', __FUNCTION__);
                return;
        }
        echo "<table border=0 class=objectview>\n";
        echo "<tr><td class=pcleft width='25%'>";

        startPortlet ('Summary');
        foreach ($summary as $gi)
                echo "<a href='${root}?page=objgroup&group_id=${gi['id']}'><b>${gi['name']}</b></a> <i>(${gi['count']})</i><br>";
        finishPortlet();

        echo '</td><td class=pcright>';
        renderUnmountedObjectsPortlet();
        echo '</td><td class=pcright>';
        renderProblematicObjectsPortlet();
        echo '</td><td class=pcright>';
        startPortlet ('Tag filter');
        renderTagFilterSelect ($tagfilter, 'object');
        finishPortlet();
        echo "</td></tr></table>\n";
}

function renderObjectSpace ()
{
        global $root, $taglist, $tagtree;
        echo "<table border=0 class=objectview>\n";
        echo "<tr><td class=pcleft width='50%'>";
        startPortlet ('View all by type');
        $groupInfo = getObjectGroupInfo();
        if ($groupInfo === NULL)
        {
                showError ('getObjectGroupInfo() failed', __FUNCTION__);
                return;
        }
        if (count ($groupInfo) == 0)
                echo "No objects exist in DB";
        else
        {
                echo '<div align=left><ul>';
                foreach ($groupInfo as $gi)
                        echo "<li><a href='${root}?page=objgroup&group_id=${gi['id']}'>${gi['name']}</a> (${gi['count']})</li>";
                echo '</ul></div>';
        }
        finishPortlet();

        echo '</td><td class=pcright>';

        startPortlet ('View all by tag');
        if (count ($taglist) == 0)
                echo "No tags exist in DB";
        else
                renderTagCloud ('object');
        finishPortlet();
        echo "</td></tr></table>\n";
}

function renderObjectGroup ()
{
        global $root, $pageno, $tabno, $nextorder, $taglist, $tagtree;
        assertUIntArg ('group_id', __FUNCTION__, TRUE);
        $group_id = $_REQUEST['group_id'];
        $tagfilter = isset ($_REQUEST['tagfilter']) ? $_REQUEST['tagfilter'] : array();
        $tagfilter_str = getStringFromTrail (getExplicitTagsOnly (buildTrailFromIds ($tagfilter)));
        $tagfilter = complementByKids ($tagfilter);
        echo "<form>\n";
        echo "<input type=hidden name=page value=${pageno}>\n";
        echo "<input type=hidden name=group_id value=${group_id}>\n";
        echo "<table border=0 class=objectview>\n";
        echo "<tr><td class=pcleft width='25%'>";
        startPortlet ('change type');
        $groupInfo = getObjectGroupInfo();
        if ($groupInfo === NULL)
        {
                showError ('getObjectGroupInfo() failed', __FUNCTION__);
                return;
        }
        if (count ($groupInfo) == 0)
                echo "No objects exist in DB";
        else
        {
                echo '<div align=left><ul>';
                foreach ($groupInfo as $gi)
                {
                        echo "<li><a href='${root}?page=${pageno}&group_id=${gi['id']}&tagfilter[]=${tagfilter_str}'>";
                        if ($gi['id'] == $group_id)
                                echo '<strong>';
                        echo "${gi['name']}</a>";
                        if ($gi['id'] == $group_id)
                                echo '</strong>';
                        echo " (${gi['count']})";
                        if ($gi['id'] == $group_id)
                                echo ' &larr;';
                        echo "</li>";
                }
                echo '</ul></div>';
        }
        finishPortlet();

        echo '</td><td class=pcleft>';

        startPortlet ('Objects');
        $objects = getObjectList ($group_id, $tagfilter);
        if ($objects === NULL)
        {
                showError ('getObjectList() failed', __FUNCTION__);
                return;
        }
        echo '<br><br><table border=0 cellpadding=5 cellspacing=0 align=center class=cooltable>';
        echo '<tr><th>Common name</th><th>Visible label</th><th>Asset tag</th><th>Barcode</th><th>Rack</th></tr>';
        $order = 'odd';
        foreach ($objects as $obj)
        {
                echo "<tr class=row_${order}><td><a href='${root}?page=object&object_id=${obj['id']}'>${obj['dname']}</a></td>";
                echo "<td>${obj['label']}</td>";
                echo "<td>${obj['asset_no']}</td>";
                echo "<td>${obj['barcode']}</td>";
                if ($obj['rack_id'])
                        echo "<td><a href='${root}?page=rack&rack_id=${obj['rack_id']}'>${obj['Rack_name']}</a></td>";
                else
                        echo '<td>Unmounted</td>';
                echo '</tr>';
                $order = $nextorder[$order];
        }
        echo '</table>';
        finishPortlet();

        echo "</td><td class=pcright width='25%'>";

        startPortlet ('change filter');
        renderTagFilterSelect ($tagfilter, 'object');
        echo "<input type=submit value='Apply'>\n";
        finishPortlet();
        echo "</td></tr></table>\n";
        echo '</form>';
}

function renderObjectGroup_old ()
{
        global $root;
        assertUIntArg ('group_id', __FUNCTION__);
        $group_id = $_REQUEST['group_id'];
        $summary = getObjectGroupInfo();
        if ($summary == NULL)
        {
                showError ('getObjectGroupInfo() failed', __FUNCTION__);
                return;
        }
        $objects = getObjectList ($group_id);
        if ($objects === NULL)
        {
                showError ('getObjectList() failed', __FUNCTION__);
                return;
        }
        echo "<table border=0 class=objectview>\n";
        echo "<tr><td class=pcleft width='25%'>";

        startPortlet ('All objects');
        foreach ($summary as $gi)
        {
                echo "<a href='${root}?page=objgroup&group_id=${gi['id']}'><b>${gi['name']}</b></a> <i>(${gi['count']})</i><br>";
        }
        finishPortlet();

        echo '</td><td class=pcright>';

        startPortlet ('Object group');
        echo '<br><br><table border=0 cellpadding=5 cellspacing=0 align=center class=cooltable>';
        echo '<tr><th>Common name</th><th>Visible label</th><th>Asset tag</th><th>Barcode</th><th>Rack</th></tr>';
        $order = 'odd';
        global $nextorder;
        foreach ($objects as $obj)
        {
                echo "<tr class=row_${order}><td><a href='${root}?page=object&object_id=${obj['id']}'>${obj['dname']}</a></td>";
                echo "<td>${obj['label']}</td>";
                echo "<td>${obj['asset_no']}</td>";
                echo "<td>${obj['barcode']}</td>";
                if ($obj['rack_id'])
                        echo "<td><a href='${root}?page=rack&rack_id=${obj['rack_id']}'>${obj['Rack_name']}</a></td>";
                else
                        echo '<td>Unmounted</td>';
                echo '</tr>';
                $order = $nextorder[$order];
        }
        echo '</table>';
        finishPortlet();

        echo "</td></tr></table>";
}

function renderEmptyPortsSelect ($port_id, $type_id)
{
        $ports = getEmptyPortsOfType($type_id);
        usort($ports, 'sortEmptyPorts');
        foreach ($ports as $port)
        {
                if ($port_id == $port['Port_id'])
                        continue;
                echo "<option value='${port['Port_id']}' onclick='getElementById(\"remote_port_name\").value=\"${port['Port_name']}\"; getElementById(\"remote_object_name\").value=\"${port['Object_name']}\";'>${port['Object_name']} ${port['Port_name']}</option>\n";
        }
}

function renderObjectAddressesAndNames ()
{
        $addresses = getObjectAddressesAndNames();
        usort($addresses, 'sortObjectAddressesAndNames');
        foreach ($addresses as $address)
        {
                echo "<option value='${address['ip']}' onclick='getElementById(\"ip\").value=\"${address['ip']}\";'>${address['object_name']} ${address['name']} ${address['ip']}</option>\n";
        }
}

// History viewer for history-enabled simple dictionaries.
function renderHistory ($object_type, $object_id)
{
        switch ($object_type)
        {
                case 'row':
                        $query = "select ctime, user_name, name, deleted, comment from RackRowHistory where id = ${object_id} order by ctime";
                        $header = '<tr><th>change time</th><th>author</th><th>rack row name</th><th>is deleted?</th><th>rack row comment</th></tr>';
                        $extra = 4;
                        break;
                case 'rack':
                        $query =
                                "select ctime, user_name, rh.name, rh.deleted, d.dict_value as name, rh.height, rh.comment " .
                                "from RackHistory as rh left join Dictionary as d on rh.row_id = d.dict_key " .
                                "natural join Chapter " .
                                "where chapter_name = 'RackRow' and rh.id = ${object_id} order by ctime";
                        $header = '<tr><th>change time</th><th>author</th><th>rack name</th><th>is deleted?</th><th>rack row name</th><th>rack height</th><th>rack comment</th></tr>';
                        $extra = 6;
                        break;
                case 'object':
                        $query =
                                "select ctime, user_name, name, label, barcode, asset_no, deleted, has_problems, dict_value, comment " .
                                "from RackObjectHistory inner join Dictionary on objtype_id = dict_key natural join Chapter " .
                                "where chapter_name = 'RackObjectType' and id=${object_id} order by ctime";
                        $header = '<tr><th>change time</th><th>author</th><th>common name</th><th>visible label</th><th>barcode</th><th>asset no</th><th>is deleted?</th><th>has problems?</th><th>object type</th><th>comment</th></tr>';
                        $extra = 9;
                        break;
                default:
                        showError ("Uknown object type '${object_type}'", __FUNCTION__);
                        return;
        }
        global $dbxlink;
        $result = $dbxlink->query ($query);
        if ($result == NULL)
        {
                showError ('SQL query failed', __FUNCTION__);
                return;
        }
        echo '<table border=0 cellpadding=5 cellspacing=0 align=center class=cooltable>';
        $order = 'odd';
        global $nextorder;
        echo $header;
        while ($row = $result->fetch (PDO::FETCH_NUM))
        {
                echo "<tr class=row_${order}><td>${row[0]}</td>";
                for ($i = 1; $i <= $extra; $i++)
                        echo "<td>" . $row[$i] . "</td>";
                echo "</tr>\n";
                $order = $nextorder[$order];
        }
        echo "</table><br>\n";
}

function renderRackspaceHistory ()
{
        global $root, $nextorder, $pageno, $tabno;
        $order = 'odd';
        $history = getRackspaceHistory();
        // Show the last operation by default.
        if (isset ($_REQUEST['op_id']))
                $op_id = $_REQUEST['op_id'];
        elseif (isset ($history[0]['mo_id']))
                $op_id = $history[0]['mo_id'];
        else $op_id = NULL;
        
        $omid = NULL;
        $nmid = NULL;
        $object_id = 1;
        if ($op_id)
                list ($omid, $nmid) = getOperationMolecules ($op_id);

        // Main layout starts.
        echo "<table border=0 class=objectview cellspacing=0 cellpadding=0>";

        // Left top portlet with old allocation.
        echo "<tr><td class=pcleft>";
        startPortlet ('Old allocation');
        if ($omid)
        {
                $oldMolecule = getMolecule ($omid);
                renderMolecule ($oldMolecule, $object_id);
        }
        else
                echo "nothing";
        finishPortlet();

        echo '</td><td class=pcright>';

        // Right top portlet with new allocation
        startPortlet ('New allocation');
        if ($nmid)
        {
                $newMolecule = getMolecule ($nmid);
                renderMolecule ($newMolecule, $object_id);
        }
        else
                echo "nothing";
        finishPortlet();
        
        echo '</td></tr><tr><td colspan=2>';
        
        // Bottom portlet with list

        startPortlet ('Rackspace allocation history');
        echo "<table border=0 cellpadding=5 cellspacing=0 align=center class=cooltable>\n";
        echo "<tr><th>timestamp</th><th>author</th><th>rack object ID</th><th>rack object type</th><th>rack object name</th><th>comment</th></tr>\n";
        foreach ($history as $row)
        {
                if ($row['mo_id'] == $op_id)
                        $class = 'hl';
                else
                        $class = "row_${order}";
                echo "<tr class=${class}><td><a href='${root}?page=${pageno}&tab=${tabno}&op_id=${row['mo_id']}'>${row['ctime']}</a></td>";
                echo "<td>${row['user_name']}</td>";
                echo "<td>${row['ro_id']}</td><td>${row['objtype_name']}</td><td>${row['name']}</td><td>${row['comment']}</td>\n";
                echo "</tr>\n";
                $order = $nextorder[$order];
        }
        echo "</table>\n";
        finishPortlet();
        
        echo '</td></tr></table>';
        
}

function renderAddressspace ()
{
        global $root, $page;

        echo "<table border=0 class=objectview>\n";
        echo "<tr><td class=pcleft>";

        startPortlet ('Subnets');
        echo "<table class='widetable' border=0 cellpadding=10 cellspacing=0 align='center'>\n";
        $tagfilter = isset ($_REQUEST['tagfilter']) ? $_REQUEST['tagfilter'] : array();
        $tagfilter = complementByKids ($tagfilter);
        $addrspaceList = getAddressspaceList ($tagfilter);
        echo "<tr><th>Subnet</th><th>Name</th><th>Utilization</th></tr>";
        foreach ($addrspaceList as $iprange)
        {
                $range = getIPRange ($iprange['id']);
                $total = ($iprange['ip_bin'] | $iprange['mask_bin_inv']) - ($iprange['ip_bin'] & $iprange['mask_bin']) + 1;
                $used = count ($range['addrlist']);
                echo "<tr><td class=tdleft><a href='${root}?page=iprange&id=${iprange['id']}'>${iprange['ip']}/${iprange['mask']}</a></td>";
                echo "<td class=tdleft>${iprange['name']}</td><td class=tdleft>";
                renderProgressBar ($used/$total);
                echo " ${used}/${total}</td></tr>";
        }
        echo "</table>\n";
        finishPortlet();
        echo '</td><td class=pcright>';
        renderTagFilterPortlet ($tagfilter, 'ipv4net');
        echo "</td></tr></table>\n";
}

function renderIPv4SLB ()
{
        global $root, $page, $nextorder;

        startPortlet ('SLB configuration');
        echo "<table border=0 width='100%'><tr>";
        foreach (array ('vservices', 'rspools', 'rservers', 'lbs') as $pno)
                echo "<td><h3><a href='${root}?page=${pno}'>" . $page[$pno]['title'] . "</a></h3></td>";
        echo '</tr></table>';
        finishPortlet();

        $summary = getSLBSummary();
        startPortlet ('SLB tactical overview');
        // A single id-keyed array isn't used here to preserve existing
        // order of LBs returned by getSLBSummary()
        $lblist = array();
        $lbdname = array();
        foreach ($summary as $vipdata)
                foreach (array_keys ($vipdata['lblist']) as $lb_object_id)
                        if (!in_array ($lb_object_id, $lblist))
                        {
                                $oi = getObjectInfo ($lb_object_id);
                                $lbdname[$lb_object_id] = $oi['dname'];
                                $lblist[] = $lb_object_id;
                        }
        if (!count ($summary))
                echo 'none configured';
        else
        {
                $order = 'odd';
                echo "<table class='widetable' border=0 cellpadding=5 cellspacing=0 align='center'>\n";
                echo "<tr><th>VS&nbsp;&darr; LB&nbsp;&rarr;</th>";
                foreach ($lblist as $lb_object_id)
                        echo "<th><a href='${root}?page=object&tab=default&object_id=${lb_object_id}'>" . $lbdname[$lb_object_id]  . "</a></th>";
                echo "</tr>\n";
                foreach ($summary as $vsid => $vsdata)
                {
                        echo "<tr class=row_${order}><td class=tdleft><a href='$root?page=vservice&tab=default&id=${vsid}'>";
                        echo buildVServiceName ($vsdata);
                        echo '</a>';
                        if (!empty ($vsdata['name']))
                                echo " (${vsdata['name']})";
                        echo "</td>";
                        foreach ($lblist as $lb_object_id)
                        {
                                echo '<td class=tdleft>';
                                if (!isset ($vsdata['lblist'][$lb_object_id]))
                                        echo '&nbsp;';
                                else
                                {
                                        echo $vsdata['lblist'][$lb_object_id]['size'];
                                        echo " (<a href='${root}?page=rspool&pool_id=";
                                        echo $vsdata['lblist'][$lb_object_id]['id'] . "'>";
                                        echo $vsdata['lblist'][$lb_object_id]['name'] . '</a>)';
                                }
                                echo '</td>';
                        }
                        echo "</tr>\n";
                        $order = $nextorder[$order];
                }
                echo "</table>\n";
        }
        finishPortlet ();
}

function renderAddNewRange ()
{
        global $root, $pageno, $tabno;
        showMessageOrError();

        startPortlet ("Add New");
        echo "<table class='widetable' border=0 cellpadding=10 align='center'>\n";
        echo "<tr><th>Address range</th><th>Name</th><th>connected network</th><th>assign tags</th><th>&nbsp;</th></tr>\n";
        echo "<form name='add_new_range' action='process.php'>\n";
        echo "<input type=hidden name=op value=addRange>\n";
        echo "<input type=hidden name=page value='${pageno}'>\n";
        echo "<input type=hidden name=tab value='${tabno}'>\n";
        echo "<tr valign=top><td class='tdcenter'><input type=text name='range' size=18 class='live-validate' tabindex=1></td>\n";
        echo "<td class='tdcenter'><input type=text name='name' size='20' tabindex=2></td>\n";
        echo "<td class='tdcenter'><input type=checkbox name='is_bcast' tabindex=3 checked></td>\n";
        echo "<td>\n";
        renderTagSelect();
        echo "</td>\n";
        echo "<td class='tdcenter'><input type=submit value='Add a new range' tabindex=4></td>\n";
        echo "</td></tr>\n";
        echo "</form></table><br><br>\n";
        finishPortlet();

        startPortlet ("Manage Existing");
        echo "<table class='widetable' border=0 cellpadding=10 align='center'>\n";
        $addrspaceList = getAddressspaceList();
        echo "<tr><th>&nbsp;</th><th>Address range</th><th>Name</th><th>Utilization</th></tr>";
        foreach ($addrspaceList as $iprange)
        {
                $range = getIPRange($iprange['id']);
                $usedips = count ($range['addrlist']);
                $totalips = ($iprange['ip_bin'] | $iprange['mask_bin_inv']) - ($iprange['ip_bin'] & $iprange['mask_bin']) + 1;
                echo "<tr><td>";
                if ($usedips == 0)
                {
                        echo "<a href='process.php?op=delRange&page=${pageno}&tab=${tabno}&id=${iprange['id']}'>";
                        printImageHREF ('delete', 'Delete this IP range');
                        echo "</a>";
                }
                else
                        printImageHREF ('nodelete', 'There are IP addresses allocated or reserved');
                echo "</td>\n<td class=tdleft><a href='${root}?page=iprange&id=${iprange['id']}'>";
                echo "${iprange['ip']}/${iprange['mask']}</a></td><td class=tdleft>${iprange['name']}";
                echo "</td><td class=tdleft>";
                renderProgressBar ($usedips / $totalips);
                echo " ${usedips}/${totalips}";
                echo "</td></tr>";
        }
        echo "</table>";
        finishPortlet();
}

function renderIPRange ($id)
{
        global $root, $pageno, $tabno;
        $maxperpage = getConfigVar ('IPV4_ADDRS_PER_PAGE');
        if (isset($_REQUEST['pg']))
                $page = $_REQUEST['pg'];
        else
                $page=0;

        $range = getIPRange($id);
        echo "<table border=0 class=objectview cellspacing=0 cellpadding=0>";
        echo "<tr><td colspan=2 align=center><h1>${range['ip']}/${range['mask']}</h1><h2>${range['name']}</h2></td></tr>\n";

        echo "<tr><td class=pcleft width='50%'>";
        startPortlet ('summary');
        $total = ($range['ip_bin'] | $range['mask_bin_inv']) - ($range['ip_bin'] & $range['mask_bin']) + 1;
        $used = count ($range['addrlist']);
        echo "<table border=0 cellspacing=0 cellpadding=3 width='100%'>\n";
        echo "<tr><th width='50%' class=tdright>Utilization:</th><td class=tdleft>";
        renderProgressBar ($used/$total);
        echo "&nbsp;${used}/${total}</td></tr>\n";
        printTagTRs();
        echo "</table><br>\n";
        finishPortlet();
        echo "</td>\n";

        echo "<td class=pcright>";
        startPortlet ('details');
        $startip = $range['ip_bin'] & $range['mask_bin'];
        $endip = $range['ip_bin'] | $range['mask_bin_inv'];
        $realstartip = $startip;
        $realendip = $endip;
        $numpages = 0;
        if($endip - $startip > $maxperpage)
        {
                $numpages = ($endip - $startip)/$maxperpage;
                $startip = $startip + $page * $maxperpage;
                $endip = $startip + $maxperpage-1;
        }
        echo "<center>";
        if ($numpages)
                echo '<h3>' . long2ip ($startip) . ' ~ ' . long2ip ($endip) . '</h3>';
        for ($i=0; $i<$numpages; $i++)
        {
                if ($i == $page)
                        echo "<b>$i</b> ";
                else
                        echo "<a href='${root}?page=${pageno}&tab=${tabno}&id=$id&pg=$i'>$i</a> ";
        }
        echo "</center>";

        echo "<table class='widetable' border=0 cellspacing=0 cellpadding=5 align='center'>\n";
        echo "<tr><th>Address</th><th>Name</th><th>Allocation</th></tr>\n";


        for($ip = $startip; $ip<=$endip; $ip++)
        {
                if (isset ($range['addrlist'][$ip]))
                {
                        $numshared = countRefsOfType($range['addrlist'][$ip]['references'], 'shared', 'eq');
                        $numreg = countRefsOfType($range['addrlist'][$ip]['references'], 'regular', 'eq');
                        $numvirt = countRefsOfType($range['addrlist'][$ip]['references'], 'virtual', 'eq');
                        $numlb = count ($range['addrlist'][$ip]['lbrefs']);
                        $numrs = count ($range['addrlist'][$ip]['rsrefs']);
                        
                        $addr = $range['addrlist'][$ip];
                        if ( ($numshared > 0 && $numreg > 0) || $numreg > 1 )
                                echo "<tr class='trerror'>";
                        elseif ( $addr['reserved'] == 'yes' and $numshared+$numreg+$numvirt+$numlb+$numrs > 0)
                                echo "<tr class='trerror'>";
                        elseif ( $addr['reserved'] == 'yes')
                                echo "<tr class='trbusy'>";
                        elseif ( $numshared > 0 || $numreg > 0 || $numlb > 0 || $numrs > 0)
                                echo "<tr class='trbusy'>";
                        else
                                echo "<tr>";

                        echo "<td><a href='${root}?page=ipaddress&ip=${addr['ip']}'>${addr['ip']}</a></td><td>${addr['name']}</td><td>";
                        $delim = '';
                        $prologue = '';
                        if ( $addr['reserved'] == 'yes')
                        {
                                echo "<b>Reserved</b> ";
                                $delim = '; ';
                        }
                        foreach ($range['addrlist'][$ip]['references'] as $ref)
                        {
                                echo "${delim}<a href='${root}?page=object&object_id=${ref['object_id']}'>";
                                echo $ref['name'] . (empty ($ref['name']) ? '' : '@');
                                echo "${ref['object_name']}</a>";
                                $delim = '; ';
                        }
                        if ($delim != '')
                        {
                                $delim = '';
                                $prologue = '<br>';
                        }
                        foreach ($range['addrlist'][$ip]['lbrefs'] as $ref)
                        {
                                echo $prologue;
                                $prologue = '';
                                echo "${delim}<a href='${root}?page=object&object_id=${ref['object_id']}'>";
                                echo "${ref['object_name']}</a>:<a href='${root}?page=vservice&id=${ref['vs_id']}'>";
                                echo "${ref['vport']}/${ref['proto']}</a>&rarr;";
                                $delim = '; ';
                        }
                        if ($delim != '')
                        {
                                $delim = '';
                                $prologue = '<br>';
                        }
                        foreach ($range['addrlist'][$ip]['rsrefs'] as $ref)
                        {
                                echo $prologue;
                                $prologue = '';
                                echo "${delim}&rarr;${ref['rsport']}@<a href='${root}?page=rspool&pool_id=${ref['rspool_id']}'>";
                                echo "${ref['rspool_name']}</a>";
                                $delim = '; ';
                        }
                        echo "</td></tr>\n";
                }
                else
                {
                        echo "<tr><td><a href='${root}?page=ipaddress&ip=".long2ip($ip)."'>".long2ip($ip)."</a></td><td>&nbsp;</td><td>&nbsp;</td></tr>\n";
                }
        }

        echo "</table>";
        finishPortlet();
        echo "</td></tr></table>\n";
}

function renderIPRangeProperties ($id)
{
        global $pageno, $tabno;
        showMessageOrError();
        $range = getIPRange($id);
        echo "<center><h1>${range['ip']}/${range['mask']}</h1></center>\n";
        echo "<table border=0 cellpadding=10 cellpadding=1 align='center'>\n";
        echo "<form action='process.php'><input type=hidden name=op value=editRange>";
        echo "<input type=hidden name=page value='${pageno}'>\n";
        echo "<input type=hidden name=tab value='${tabno}'>\n";
        echo "<input type=hidden name=id value='${id}'>";
        echo "<tr><td class='tdright'>Name:</td><td class='tdleft'><input type=text name=name size=20 value='${range['name']}'></tr><tr><td colspan=2 class='tdcenter'><input type=submit value='Update range'></td></form></tr>";
        echo "</table>\n";

}

function renderIPAddress ()
{
        global $root;
        $ip = $_REQUEST['ip'];
        $address = getIPAddress($ip);
        echo "<center><h1>$ip</h1>";
        if ($address['exists'] == 1)
                echo "<h2>${address['name']}</h2>";
        echo "</center>\n";

//      echo "<table width='100%' cesspadding=5 cellspacing=0 border=0 align='center'>";
//      echo "<tr valign='top'><td>";

        $numshared = countRefsOfType($address['bonds'], 'shared', 'eq');
        $numreg = countRefsOfType($address['bonds'], 'regular', 'eq');
        $numvirt = countRefsOfType($address['bonds'], 'virtual', 'eq');

        if ($address['reserved'] == 'yes' or ($numshared + $numreg + $numvirt) > 0)
        {
                startPortlet ('Allocation');
                echo "<table class='widetable' cesspadding=5 cellspacing=0 border=0 align='center'>\n";
                echo "<tr><th>Object name</th><th>Interface name</th><th>Interface type</th></tr>\n";
                if ( ($numshared > 0 && $numreg > 0) || $numreg > 1 )
                        $class='trerror';
                elseif ( $address['reserved'] == 'yes' and $numshared+$numreg+$numvirt > 0)
                        $class='trerror';
                else
                        $class='';

                if ($address['reserved'] == 'yes')
                        echo "<tr class='$class'><td colspan='3'><b>RESERVED</b></td></tr>";
                foreach ($address['bonds'] as $bond)
                {
                        echo "<tr class='$class'><td><a href='${root}?page=object&object_id=${bond['object_id']}'>${bond['object_name']}</td><td>${bond['name']}</td><td><b>";
                        switch ($bond['type'])
                        {
                                case 'virtual':
                                        echo "Virtual";
                                        break;
                                case 'shared':
                                        echo "Shared";
                                        break;
                                case 'regular':
                                        echo "Regular";
                                        break;
                        }
                        echo "</b></td></tr>\n";
                }
                echo "</table><br><br>";
                finishPortlet();
        }

        if (count ($address['vslist']))
        {
                startPortlet ('Virtual services (' . count ($address['vslist']) . ')');
                echo "<table class='widetable' cesspadding=5 cellspacing=0 border=0 align='center'>\n";
                echo "<tr><th>VS</th><th>name</th></tr>\n";
                foreach ($address['vslist'] as $vsinfo)
                {
                        echo "<tr><td class=tdleft><a href='${root}?page=vservice&id=${vsinfo['id']}'>";
                        echo buildVServiceName ($vsinfo) . "</a></td><td class=tdleft>";
                        echo $vsinfo['name'] . "</td></tr>\n";
                }
                echo "</table><br><br>";
                finishPortlet();
        }

        if (count ($address['rslist']))
        {
                startPortlet ('Real servers (' . count ($address['rslist']) . ')');
                echo "<table class='widetable' cesspadding=5 cellspacing=0 border=0 align='center'>\n";
                echo "<tr><th>&nbsp;</th><th>port</th><th>RS pool</th></tr>\n";
                foreach ($address['rslist'] as $rsinfo)
                {
                        echo "<tr><td>";
                        if ($rsinfo['inservice'] == 'yes')
                                printImageHREF ('inservice', 'in service');
                        else
                                printImageHREF ('notinservice', 'NOT in service');
                        echo "</td><td class=tdleft>${rsinfo['rsport']}</td><td class=tdleft><a href='${root}?page=rspool&pool_id=${rsinfo['pool_id']}'>";
                        echo $rsinfo['poolname'] . "</a></td></tr>\n";
                }
                echo "</table><br><br>";
                finishPortlet();
        }


//      echo "</td><td>";
//      echo "</td></tr></table>";
}

function renderIPAddressProperties ()
{
        global $pageno, $tabno;
        $ip = $_REQUEST['ip'];
        showMessageOrError();
        $address = getIPAddress($ip);
        echo "<center><h1>$ip</h1></center>\n";
        echo "<table border=0 cellpadding=10 cellpadding=1 align='center'>\n";
        echo "<form action='process.php'><input type=hidden name=op value=editAddress>";
        echo "<input type=hidden name=page value='${pageno}'>\n";
        echo "<input type=hidden name=tab value='${tabno}'>\n";
        echo "<input type=hidden name=ip value='${ip}'>";
        echo "<tr><td class='tdright'>Name:</td><td class='tdleft'><input type=text name=name size=20 value='".($address['exists']==1?$address['name']:'')."'></tr>";
        echo "<td class='tdright'>Reserved:</td><td class='tdleft'><input type=checkbox name=reserved size=20 ".($address['exists']==1?(($address['reserved']=='yes')?'checked':''):'')."></tr>";
        echo "<tr><td colspan=2 class='tdcenter'><input type=submit value='Update address'></td></form></tr>";
        echo "</table>\n";

}

function renderIPAddressAssignment ()
{
        global $pageno, $tabno, $root;
        $ip = $_REQUEST['ip'];
        $address = getIPAddress($ip);

        showMessageOrError();
        echo "<center><h1>$ip</h1></center>\n";


        echo "<table class='widetable' cesspadding=5 cellspacing=0 border=0 align='center'>\n";
        echo "<tr><th>&nbsp;</th><th>Object name</th><th>Interface name</th><th>Interface type</th><th>&nbsp;</th></tr>\n";

        $numshared = countRefsOfType($address['bonds'], 'shared', 'eq');
        $numreg = countRefsOfType($address['bonds'], 'regular', 'eq');
        $numvirt = countRefsOfType($address['bonds'], 'virtual', 'eq');

        
        if ( ($numshared > 0 && $numreg > 0) || $numreg > 1 )
                $class='trerror';
        elseif ( $address['reserved'] == 'yes' and $numshared+$numreg+$numvirt > 0)
                $class='trerror';
        else
                $class='';



        if ($address['reserved'] == 'yes')
                echo "<tr class='$class'><td colspan='5'><b>RESERVED</b></td></tr>";
        foreach ($address['bonds'] as $bond)
        {
                echo "<tr class='$class'><form action='process.php'>";
                echo "<input type=hidden name=op value='editBondForAddress'>";
                echo "<input type=hidden name=page value='${pageno}'>";
                echo "<input type=hidden name=tab value='${tabno}'>";
                echo "<input type=hidden name=ip value='$ip'>";
                echo "<input type=hidden name=object_id value='${bond['object_id']}'>";
                echo "<td><a href='process.php?op=delIpAssignment&page=${pageno}&tab=${tabno}&ip=$ip&object_id=${bond['object_id']}'>";
                printImageHREF ('delete', 'Unallocate address');
                echo "</a></td>";
                echo "<td><a href='${root}?page=object&object_id=${bond['object_id']}'>${bond['object_name']}</td>";
                echo "<td><input type='text' name='bond_name' value='${bond['name']}' size=10></td>";
                echo "<td><select name='bond_type'>";
                switch ($bond['type'])
                {
                        case 'virtual':
                                echo "<option value='regular'>Regular</option>";
                                echo "<option value='virtual' selected>Virtual</option>";
                                echo "<option value='shared'>Shared</option>";
                                break;
                        case 'shared':
                                echo "<option value='regular'>Regular</option>";
                                echo "<option value='virtual'>Virtual</option>";
                                echo "<option value='shared' selected>Shared</option>";
                                break;
                        case 'regular':
                                echo "<option value='regular' selected>Regular</option>";
                                echo "<option value='virtual'>Virtual</option>";
                                echo "<option value='shared'>Shared</option>";
                                break;
                }
                echo "</select></td><td><input type='submit' value='OK'></td></form></tr>\n";
        }
        echo "<form action='process.php'><input type='hidden' name='op' value='bindObjectToIp'>";
        echo "<input type=hidden name=page value='${pageno}'>\n";
        echo "<input type=hidden name=tab value='${tabno}'>\n";
        echo "<input type='hidden' name='ip' value='$ip'>";
        echo "<td colspan=2><select name='object_id'>";

        foreach (explode (',', getConfigVar ('IPV4_PERFORMERS')) as $type) 
                foreach (getObjectList ($type) as $object)
                        echo "<option value='${object['id']}'>${object['dname']}</option>";

        echo "</select></td><td><input type='text' name='bond_name' value='' size=10></td>";
        echo "<td><select name='bond_type'><option value='regular'>Regular</option><option value='virtual'>Virtual</option><option value='shared'>Shared</option></select></td>";
        echo "<td><input type='submit' value='Assign address'></td></form></tr>";
        echo "</table><br><br>";

}

function renderIPAddressPortForwarding ($object_id=0)
{
        global $pageno, $tabno, $root;
        
        $info = getObjectInfo ($object_id);
        $forwards = getObjectForwards ($object_id);
        $addresses = getObjectAddresses ($object_id);
        showMessageOrError();
        echo "<center><h2>locally performed NAT</h2></center>";

        echo "<table class='widetable' cesspadding=5 cellspacing=0 border=0 align='center'>\n";
        echo "<tr><th></th><th>Match endpoint</th><th>Translate to</th><th>Target object</th><th>Comment</th></tr>\n";

        foreach ($forwards['out'] as $pf)
        {
                $class='trerror';
                $name='';
                foreach ($addresses as $addr)
                        if ($addr['ip'] == $pf['localip'])
                        {
                                $class='';
                                $name = $addr['name'];
                                break;
                        }

                echo "<tr class='$class'>";
                echo "<td><a href='process.php?op=delPortForwarding&localip=${pf['localip']}&localport=${pf['localport']}&remoteip=${pf['remoteip']}&remoteport=${pf['remoteport']}&proto=${pf['proto_bin']}&object_id=$object_id&page=${pageno}&tab=${tabno}'>";
                printImageHREF ('delete', 'Delete NAT rule');
                echo "</a></td>";
                echo "<td>${pf['proto']}/${name}: <a href='${root}?page=ipaddress&tab=default&ip=${pf['localip']}'>${pf['localip']}</a>:${pf['localport']}";
                if (!empty ($pf['local_addr_name']))
                        echo ' (' . $pf['local_addr_name'] . ')';
                echo "</td>";
                echo "<td><a href='${root}?page=ipaddress&tab=default&ip=${pf['remoteip']}'>${pf['remoteip']}</a>:${pf['remoteport']}</td>";

                $address=getIPAddress($pf['remoteip']);

                echo "<td class='description'>";
                if (count ($address['bonds']))
                        foreach($address['bonds'] as $bond)
                                echo "<a href='${root}?page=object&tab=default&object_id=${bond['object_id']}'>${bond['object_name']}(${bond['name']})</a> ";
                elseif (!empty ($pf['remote_addr_name']))
                        echo '(' . $pf['remote_addr_name'] . ')';
                echo "</td><form action='process.php'><input type='hidden' name='op' value='updPortForwarding'><input type=hidden name=page value='${pageno}'><input type=hidden name=tab value='${tabno}'><input type='hidden' name='object_id' value='$object_id'><input type='hidden' name='localip' value='${pf['localip']}'><input type='hidden' name='localport' value='${pf['localport']}'><input type='hidden' name='remoteip' value='${pf['remoteip']}'><input type='hidden' name='remoteport' value='${pf['remoteport']}'><input type='hidden' name='proto' value='${pf['proto_bin']}'><td class='description'><input type='text' name='description' value='${pf['description']}'> <input type='submit' value='OK'></td></form>";
                echo "</tr>";
        }
        echo "<form action='process.php'><input type='hidden' name='op' value='forwardPorts'>";
        echo "<input type='hidden' name='object_id' value='$object_id'>";
        echo "<input type=hidden name=page value='${pageno}'>\n";
        echo "<input type=hidden name=tab value='${tabno}'>\n";
        echo "<tr align='center'><td colspan=2>";
        printSelect (readChapter ('Protocols'), 'proto');
        echo "<select name='localip' tabindex=1>";

        foreach ($addresses as $addr)
                echo "<option value='${addr['ip']}'>" . (empty ($addr['name']) ? '' : "${addr['name']}: ") .
                        "${addr['ip']}" . (empty ($addr['address_name']) ? '' : " (${addr['address_name']})") . "</option>";

        echo "</select>:<input type='text' name='localport' size='4' tabindex=2></td>";
        echo "<td><input type='text' name='remoteip' id='remoteip' size='10' tabindex=3>";
        echo "<a href='javascript:;' onclick='window.open(\"${root}/find_object_ip_helper.php\", \"findobjectip\", \"height=700, width=400, location=no, menubar=no, resizable=yes, scrollbars=no, status=no, titlebar=no, toolbar=no\");'>";
        printImageHREF ('find', 'Find object');
        echo "</a>";
        echo ":<input type='text' name='remoteport' size='4' tabindex=4></td><td></td>";
        echo "<td colspan=1><input type='text' name='description' size='20' tabindex=5> <input type='submit' value='Create Forwarding' tabindex=6></td></tr>";
        echo "</form>";

        echo "</table><br><br>";


        echo "<center><h2>arriving NAT connections</h2></center>";
        echo "<table class='widetable' cesspadding=5 cellspacing=0 border=0 align='center'>\n";
        echo "<tr><th></th><th>Source</th><th>Source objects</th><th>Target</th><th>Description</th></tr>\n";

        foreach ($forwards['in'] as $pf)
        {
                echo "<tr>";

                echo "<td><a href='process.php?op=delPortForwarding&localip=${pf['localip']}&localport=${pf['localport']}&remoteip=${pf['remoteip']}&remoteport=${pf['remoteport']}&proto=${pf['proto_bin']}&object_id=${pf['object_id']}&page=${pageno}&tab=${tabno}'>";
                printImageHREF ('delete', 'Delete NAT rule');
                echo "</a></td>";
                echo "<td>${pf['proto']}/<a href='${root}?page=ipaddress&tab=default&ip=${pf['localip']}'>${pf['localip']}</a>:${pf['localport']}</td>";
                echo "<td class='description'><a href='${root}?page=object&tab=default&object_id=${pf['object_id']}'>${pf['object_name']}</a>";
                echo "</td><td><a href='${root}?page=ipaddress&tab=default&ip=${pf['remoteip']}'>${pf['remoteip']}</a>:${pf['remoteport']}</td>";
                echo "<td class='description'>${pf['description']}</td></tr>";
        }

//      echo "<form action='process.php'><input type='hidden' name='op' value='forwardPorts'>";
//      echo "<input type='hidden' name='object_id' value='$object_id'>";
//      echo "<input type=hidden name=page value='${pageno}'>\n";
//      echo "<input type=hidden name=tab value='${tabno}'>\n";
//      echo "<tr align='center'><td colspan=2><select name='proto'><option value='1'>TCP</option><option value='2'>UDP</option><input type='text' name='localip' size='10'>:<input type='text' name='localport' size='4'></td><td><select name='localip'>";
//      foreach ($addresses as $addr)
//              echo "<option value='${addr['ip']}'>${addr['ip']}</option>";
//
//      echo "</select>:<input type='text' name='remoteport' size='4'></td><td><input type='text' name='description' size='20'></td><td><input type='submit' value='Create Forwarding'></td></tr>";
//      echo "</form>";
        echo "</table><br><br>";


}


function renderAddMultipleObjectsForm ()
{
        global $root, $pageno, $tabno, $nextorder;

        $type_id = array();
        $global_type_id = 0;
        $name = array();
        $asset_no = array();
        $keepvalues = FALSE;
        $log = array();
        // Look for current submit.
        if (isset ($_REQUEST['got_fast_data']))
        {
                $keepvalues = TRUE;
                $max = getConfigVar ('MASSCOUNT');
                for ($i = 0; $i < $max; $i++)
                {
                        if (!isset ($_REQUEST["${i}_object_type_id"]))
                        {
                                $log[] = array ('code' => 'error', 'message' => "Submitted form is invalid at line " . $i + 1);
                                break;
                        }
                        assertUIntArg ("${i}_object_type_id", __FUNCTION__, TRUE);
                        assertStringArg ("${i}_object_name", __FUNCTION__, TRUE);
                        assertStringArg ("${i}_object_label", __FUNCTION__, TRUE);
                        assertStringArg ("${i}_object_asset_no", __FUNCTION__, TRUE);
                        assertStringArg ("${i}_object_barcode", __FUNCTION__, TRUE);
                        $type_id[$i] = $_REQUEST["${i}_object_type_id"];
                        // Save user input for possible rendering.
                        $name[$i] = $_REQUEST["${i}_object_name"];
                        $label[$i] = $_REQUEST["${i}_object_label"];
                        $asset_no[$i] = $_REQUEST["${i}_object_asset_no"];
                        $barcode[$i] = $_REQUEST["${i}_object_barcode"];

                        // It's better to skip silently than printing a notice.
                        if ($type_id[$i] == 0)
                                continue;
                        if (commitAddObject ($name[$i], $label[$i], $barcode[$i], $type_id[$i], $asset_no[$i]) === TRUE)
                                $log[] = array ('code' => 'success', 'message' => "Added new object '${name[$i]}'");
                        else
                                $log[] = array ('code' => 'error', 'message' => __FUNCTION__ . ': commitAddObject() failed');
                }
        }
        elseif (isset ($_REQUEST['got_very_fast_data']))
        {
                $keepvalues = TRUE;
                assertUIntArg ('global_type_id', __FUNCTION__, TRUE);
                assertStringArg ('namelist', __FUNCTION__, TRUE);
                $global_type_id = $_REQUEST['global_type_id'];
                if ($global_type_id == 0)
                {
                        if (!empty ($_REQUEST['namelist']))
                                $log[] = array ('code' => 'error', 'message' => 'Object type is not selected, check the form below');
                        else
                                $log[] = array ('code' => 'error', 'message' => 'Empty form has been ignored. Cheers.');
                }
                else
                {
                        // The name extractor below was stolen from ophandlers.php:addMultiPorts()
                        $names1 = explode ('\n', $_REQUEST['namelist']);
                        $names2 = array();
                        foreach ($names1 as $line)
                        {
                                $parts = explode ('\r', $line);
                                reset ($parts);
                                if (empty ($parts[0]))
                                        continue;
                                else
                                        $names2[] = rtrim ($parts[0]);
                        }
                        foreach ($names2 as $cname)
                                if (commitAddObject ($cname, '', '', $global_type_id, '') === TRUE)
                                        $log[] = array ('code' => 'success', 'message' => "Added new object '${cname}'");
                                else
                                        $log[] = array ('code' => 'error', 'message' => "Could not add '${cname}'");
                }
        }
        printLog ($log);

        // Render a form for the next.
        $typelist = getObjectTypeList();
        $typelist[0] = 'select type...';

        startPortlet ('Fast way');
        echo "<form name=fastform method=post action='${root}?page=${pageno}&tab=${tabno}'>";
        echo '<table border=0 align=center>';
        echo "<tr><th>Object type</th><th>Common name</th><th>Visible label</th><th>Asset tag</th><th>Barcode</th></tr>\n";
        // If a user forgot to select object type on input, we keep his
        // previous input in the form.
        $max = getConfigVar ('MASSCOUNT');
        for ($i = 0; $i < $max; $i++)
        {
                echo '<tr><td>';
                // Don't employ DEFAULT_OBJECT_TYPE to avoid creating ghost records for pre-selected empty rows.
                printSelect ($typelist, "${i}_object_type_id", 0);
                echo '</td>';
                echo "<td><input type=text size=30 name=${i}_object_name";
                if ($keepvalues and $type_id[$i] == 0)
                        echo " value='${name[$i]}'";
                echo "></td>";
                echo "<td><input type=text size=30 name=${i}_object_label";
                if ($keepvalues and $type_id[$i] == 0)
                        echo " value='${label[$i]}'";
                echo "></td>";
                echo "<td><input type=text size=20 name=${i}_object_asset_no";
                if ($keepvalues and $type_id[$i] == 0)
                        echo " value='${asset_no[$i]}'";
                echo "></td>";
                echo "<td><input type=text size=10 name=${i}_object_barcode";
                if ($keepvalues and $type_id[$i] == 0)
                        echo " value='${barcode[$i]}'";
                echo "></td>";
                echo "</tr>\n";
        }
        echo "<tr><td class=submit colspan=5><input type=submit name=got_fast_data value='Create'></td></tr>\n";
        echo "</form></table>\n";
        finishPortlet();

        startPortlet ('Very fast way');
        echo "<form name=veryfastform method=post action='${root}?page=${pageno}&tab=${tabno}'>";
        echo 'For each line shown below create an object of type ';
        printSelect ($typelist, "global_type_id", getConfigVar ('DEFAULT_OBJECT_TYPE'));
        echo " <input type=submit name=got_very_fast_data value='Go!'><br>\n";
        echo "<textarea name=namelist cols=40 rows=25>\n";
        if ($keepvalues and $global_type_id == 0)
                echo $_REQUEST['namelist'];
        echo "</textarea></form>\n";
        finishPortlet();
}

function printGreeting ()
{
        global $remote_username, $accounts, $root;
        $account = $accounts[$remote_username];
        echo "Hello, ${account['user_realname']}. This is RackTables " . CODE_VERSION . ". Click <a href='${root}?logout'>here</a> to logout.";
}

function renderSearchResults ()
{
        global $remote_username, $root;
        $terms = trim ($_REQUEST['q']);
        if (empty ($terms))
        {
                showError ('Search string cannot be empty.', __FUNCTION__);
                return;
        }
        if (!authorized ($remote_username, 'object', 'default'))
        {
                showError ('You are not authorized for viewing information about objects.', __FUNCTION__);
                return;
        }
        $nhits = 0;
        // If we search for L2 address, we can either find one or find none.
        if
        (
                preg_match ('/^[0-9a-f][0-9a-f]?:[0-9a-f][0-9a-f]?:[0-9a-f][0-9a-f]?:[0-9a-f][0-9a-f]?:[0-9a-f][0-9a-f]?:[0-9a-f][0-9a-f]?$/i', $terms) or
                preg_match ('/^[0-9a-f][0-9a-f][0-9a-f][0-9a-f][0-9a-f][0-9a-f][0-9a-f][0-9a-f][0-9a-f][0-9a-f][0-9a-f][0-9a-f]$/i', $terms) or
                preg_match ('/^[0-9a-f][0-9a-f][0-9a-f][0-9a-f].[0-9a-f][0-9a-f][0-9a-f][0-9a-f].[0-9a-f][0-9a-f][0-9a-f][0-9a-f]$/i', $terms) or
                // STP bridge ID: bridge priotity + port MAC address. Cut off first 4 chars and look for MAC address.
                preg_match ('/^[0-9a-f][0-9a-f][0-9a-f][0-9a-f][0-9a-f][0-9a-f][0-9a-f][0-9a-f][0-9a-f][0-9a-f][0-9a-f][0-9a-f][0-9a-f][0-9a-f][0-9a-f][0-9a-f]$/i', $terms)
        )
        // Search for L2 address.
        {
                $terms = substr ($terms, -12);
                $result = searchByl2address ($terms);
                if ($result !== NULL)
                {
                        $nhits++;
                        $lasthit = 'port';
                        $summary['port'][] = $result;
                }
        }
        elseif (preg_match ('/^[0-9][0-9]?[0-9]?\.[0-9]?[0-9]?[0-9]?\.[0-9][0-9]?[0-9]?\.[0-9]?[0-9]?[0-9]?$/i', $terms))
        // Search for IP address.
        {
                $result = getRangeByIp ($terms);
                if ($result !== NULL)
                {
                        $nhits++;
                        $lasthit = 'ipv4address1';
                        $summary['ipv4address1'][] = $terms;
                }
        }
        else
        // Search for objects, addresses, networks, virtual services and RS pools by their description.
        {
                $tmp = getObjectSearchResults ($terms);
                if (count ($tmp))
                {
                        $nhits += count ($tmp);
                        $lasthit = 'object';
                        $summary['object'] = $tmp;
                }
                $tmp = getIPv4AddressSearchResult ($terms);
                if (count ($tmp))
                {
                        $nhits += count ($tmp);
                        $lasthit = 'ipv4address2';
                        $summary['ipv4address2'] = $tmp;
                }
                $tmp = getIPv4PrefixSearchResult ($terms);
                if (count ($tmp))
                {
                        $nhits += count ($tmp);
                        $lasthit = 'ipv4network';
                        $summary['ipv4network'] = $tmp;
                }
        }
        if ($nhits == 0)
                echo "<center><h2>Nothing found for '${terms}'</h2></center>";
        elseif ($nhits == 1)
        {
                $record = current ($summary[$lasthit]);
                switch ($lasthit)
                {
                        case 'port':
                                echo "<script language='Javascript'>document.location='${root}?page=object";
                                echo "&hl_port_id=" . $record['port_id'];
                                echo "&object_id=" . $record['object_id'] . "';//</script>";
                                break;
                        case 'ipv4address1':
                                echo "<script language='Javascript'>document.location='${root}?page=ipaddress";
                                echo "&ip=${record}";
                                echo "';//</script>";
                                break;
                        case 'ipv4address2':
                                echo "<script language='Javascript'>document.location='${root}?page=ipaddress";
                                echo "&ip=${record}";
                                echo "';//</script>";
                                break;
                        case 'ipv4network':
                                echo "<script language='Javascript'>document.location='${root}?page=iprange";
                                echo "&id=${record['id']}";
                                echo "';//</script>";
                                break;
                        case 'object':
                                echo "<script language='Javascript'>document.location='${root}?page=object&object_id=${record['id']}';//</script>";
                                break;
                }
                return;
        }
        else
        {
                global $nextorder;
                $order = 'odd';
                echo "<center><h2>${nhits} result(s) found for '${terms}'</h2></center>";
                foreach ($summary as $where => $what)
                        switch ($where)
                        {
                                case 'object':
                                        startPortlet ('Objects');
                                        echo '<table border=0 cellpadding=5 cellspacing=0 align=center class=cooltable>';
                                        echo '<tr><th>Common name</th><th>Visible label</th><th>Asset tag</th><th>barcode</th></tr>';
                                        foreach ($what as $obj)
                                        {
                                                echo "<tr class=row_${order}><td><a href=\"${root}?page=object&object_id=${obj['id']}\">${obj['dname']}</a></td>";
                                                echo "<td>${obj['label']}</td>";
                                                echo "<td>${obj['asset_no']}</td>";
                                                echo "<td>${obj['barcode']}</td></tr>";
                                                $order = $nextorder[$order];
                                        }
                                        echo '</table>';
                                        finishPortlet();
                                        break;
                                case 'ipv4network':
                                        startPortlet ('IPv4 networks');
                                        echo '<table border=0 cellpadding=5 cellspacing=0 align=center class=cooltable>';
                                        echo '<tr><th>Network</th><th>Descritpion</th></tr>';
                                        foreach ($what as $net)
                                        {
                                                echo "<tr class=row_${order}><td class=tdleft><a href='${root}?page=iprange&id=${net['id']}'>${net['ip']}";
                                                echo '/' . $net['mask'] . '</a></td>';
                                                echo "<td class=tdleft>${net['name']}</td></tr>";
                                                $order = $nextorder[$order];
                                        }
                                        echo '</table>';
                                        finishPortlet();
                                        break;
                                case 'ipv4address2':
                                        startPortlet ('IPv4 addresses');
                                        echo '<table border=0 cellpadding=5 cellspacing=0 align=center class=cooltable>';
                                        echo '<tr><th>Address</th><th>Descritpion</th></tr>';
                                        foreach ($what as $addr)
                                        {
                                                echo "<tr class=row_${order}><td class=tdleft><a href='${root}?page=ipaddress&id=${addr['ip']}'>";
                                                echo "${addr['ip']}</a></td>";
                                                echo "<td class=tdleft>${addr['name']}</td></tr>";
                                                $order = $nextorder[$order];
                                        }
                                        echo '</table>';
                                        finishPortlet();
                                        break;
                        }
        }
}

// This function prints a table of checkboxes to aid the user in toggling mount atoms
// from one state to another. The first argument is rack data as
// produced by getRackData(), the second is the value used for the 'unckecked' state
// and the third is the value used for 'checked' state.
// Usage contexts:
// for mounting an object:             printAtomGrid ($data, 'F', 'T')
// for changing rack design:           printAtomGrid ($data, 'A', 'F')
// for adding rack problem:            printAtomGrid ($data, 'F', 'U')
// for adding object problem:          printAtomGrid ($data, 'T', 'W')

function renderAtomGrid ($data)
{
        $rack_id = $data['id'];
        for ($unit_no = $data['height']; $unit_no > 0; $unit_no--)
        {
                echo "<tr><th>${unit_no}</th>";
                for ($locidx = 0; $locidx < 3; $locidx++)
                {
                        $state = $data[$unit_no][$locidx]['state'];
                        echo "<td class=state_${state}";
                        if (isset ($data[$unit_no][$locidx]['hl']))
                                echo $data[$unit_no][$locidx]['hl'];
                        echo ">";
                        if (!($data[$unit_no][$locidx]['enabled'] === TRUE))
                                echo '<input type=checkbox disabled>';
                        else
                                echo "<input type=checkbox" . $data[$unit_no][$locidx]['checked'] . " name=atom_${rack_id}_${unit_no}_${locidx}>";
                        echo '</td>';
                }
                echo "</tr>\n";
        }
}

function renderPermissions ()
{
        startPortlet ('User permissions');
        echo "<table class=cooltable border=0 cellpadding=5 cellspacing=0 align=center>\n";
        echo "<tr><th>Username</th><th>Page</th><th>Tab</th><th>Access</th></tr>";
        global $perms, $nextorder;
        $order = 'odd';
        foreach ($perms as $username => $pages)
                foreach ($pages as $page => $tabs)
                        foreach ($tabs as $tab => $access)
                        {
                                echo "<tr class=row_${order}><td class=tdleft>$username</td><td>$page</td><td>$tab</td><td>$access</td></tr>\n";
                                $order = $nextorder[$order];
                        }
        echo "</table>\n";
        finishPortlet();
}

function renderAccounts ()
{
        global $nextorder, $accounts;
        startPortlet ('User accounts');
        echo "<table class=cooltable border=0 cellpadding=5 cellspacing=0 align=center>\n";
        echo "<tr><th class=tdleft>Username</th><th class=tdleft>Real name</th></tr>";
        $order = 'odd';
        foreach ($accounts as $user)
        {
                echo "<tr class=row_${order}><td class=tdleft><div title='\$userid_${user['user_id']}'>";
                echo "${user['user_name']}</div></td>";
                echo "<td class=tdleft>${user['user_realname']}</td></li>";
                $order = $nextorder[$order];
        }
        echo '</table>';
        finishPortlet();
}

function renderAccountsEditForm ()
{
        global $root, $pageno, $tabno, $accounts;
        startPortlet ('User accounts');
        showMessageOrError();
        echo "<table cellspacing=0 cellpadding=5 align=center class=widetable>\n";
        echo "<tr><th>op</th><th>Username</th><th>Real name</th><th>Password</th><th>&nbsp;</th></tr>\n";
        foreach ($accounts as $account)
        {
                echo "<form action='${root}process.php'>";
                echo "<input type=hidden name=op value=updateAccount>";
                echo "<input type=hidden name=page value='${pageno}'>\n";
                echo "<input type=hidden name=tab value='${tabno}'>\n";
                echo "<input type=hidden name=id value='${account['user_id']}'><tr>";
                echo "<td>";
                if ($account['user_enabled'] == 'yes' && $account['user_id'] != 1)
                {
                        echo "<a href='${root}process.php?op=disableAccount&page=${pageno}&tab=${tabno}&id=${account['user_id']}'>";
                        printImageHREF ('blockuser', 'disable account');
                        echo "</a>\n";
                }
                if ($account['user_enabled'] == 'no' && $account['user_id'] != 1)
                {
                        echo "<a href='${root}process.php?op=enableAccount&page=${pageno}&tab=${tabno}&id=${account['user_id']}'>";
                        printImageHREF ('unblockuser', 'enable account');
                        echo "</a>\n";
                }
                // Otherwise skip icon.
                echo "</td>";
                echo "<td><input type=text name=username value='${account['user_name']}' size=16></td>";
                echo "<td><input type=text name=realname value='${account['user_realname']}' size=24></td>";
                echo "<td><input type=password name=password value='${account['user_password_hash']}' size=64></td>";
                echo "<td><input type='submit' value='OK'></td>";
                echo "</form></tr>\n";
        }
        echo "<form action='${root}process.php' method=post><tr>";
        echo "<input type=hidden name=op value=createAccount>\n";
        echo "<input type=hidden name=page value='${pageno}'>\n";
        echo "<input type=hidden name=tab value='${tabno}'>\n";
        echo "<td colspan=2><input type=text size=16 name=username tabindex=100></td>\n";
        echo "<td><input type=text size=24 name=realname tabindex=101></td>";
        echo "<td><input type=password size=64 name=password tabindex=102></td>";
        echo "<td colspan=4><input type=submit value='Create account' tabindex=103></td></tr></form>";
        echo "</table><br>\n";
        finishPortlet();
}

function printChildrenAsOptions ($root, $depth = 0)
{
        echo "<option value=${root['title']}>";
        if ($depth == 0)
                echo '* ';
        for ($i = 0; $i < $depth; $i++)
                echo '-- ';
        echo $root['title'];
        echo "</option>\n";
        foreach ($root['kids'] as $kid)
                printChildrenAsOptions ($kid, $depth + 1);
}

// 1. Find all parentless pages.
// 2. For each of them recursively find all children.
// 3. Output the tree with recursion tree display.
function printPagesTree ()
{
        global $page;
        echo '<pre>';
        foreach ($page as $ctitle => $cpage)
                if (!isset ($cpage['parent']))
                {
                        $croot['title'] = $ctitle;
                        $croot['kids'] = getAllChildPages ($ctitle);
                        printChildrenAsOptions ($croot);
                }
        echo '</pre>';
}

function renderPermissionsEditForm ()
{
        global $root, $pageno, $tabno, $perms, $accounts;
        startPortlet ('User permissions');
        showMessageOrError();
        echo "<table cellspacing=0 cellpadding='5' align='center' class='widetable'>\n";
        echo "<tr><th>&nbsp;</th><th>Username</th><th>Page</th><th>Tab</th><th>Access</th></tr>\n";
        foreach ($perms as $username => $pages)
                foreach ($pages as $access_page => $tabs)
                        foreach ($tabs as $access_tab => $access)
                        {
                                echo "<td>";
                                if ($username != '%')
                                        $userid = $accounts[$username]['user_id'];
                                else
                                        $userid = 0;
                                echo "<a href='${root}process.php?op=revoke&page=${pageno}&tab=${tabno}&access_userid=${userid}&access_page=${access_page}&access_tab=${access_tab}'>";
                                printImageHREF ('revoke', 'Revoke permission');
                                echo "</a></td>";
                                echo "<td>${username}</td>";
                                echo "<td>${access_page}</td>";
                                echo "<td>${access_tab}</td>";
                                echo "<td>${access}</td>";
                                echo "</tr>\n";
                        }
        echo "<form action='${root}process.php' method=post><tr>";
        echo "<input type=hidden name=op value=grant>\n";
        echo "<input type=hidden name=page value='${pageno}'>\n";
        echo "<input type=hidden name=tab value='${tabno}'>\n";
        // FIXME: border=0 doesn't work here for unknown reason
        echo "<td>";
        printImageHREF ('grant', '', TRUE, 103);
        echo "</td>";
        echo "<td><select name=access_userid>";
        echo "<option value=0>ANY</option>";
        foreach ($accounts as $account)
                echo "<option value=${account['user_id']}>${account['user_name']}</option>";
        echo "</select></td>\n";
        echo "<td><select name=access_page>";
        echo "<option value='%'>ANY</option>";
        printPagesTree();
        echo "</select></td>";
        echo "<td><input type=text size=16 name=access_tab tabindex=102 value=default></td>";
        echo "<td><input type=radio name=access_value value=no checked>no <input type=radio name=access_value value=yes>yes</td>";
        echo "</tr></form>";
        echo "</table><br>\n";
        finishPortlet();
}

function renderPortMapViewer ()
{
        renderPortMap (FALSE);
}

function renderPortMapEditor ()
{
        renderPortMap (TRUE);
}

function renderPortMap ($editable = FALSE)
{
        global $nextorder, $root, $pageno, $tabno;
        showMessageOrError();
        startPortlet ("Port compatibility map");
        $ptlist = getPortTypes();
        $pclist = getPortCompat();
        $pctable = buildPortCompatMatrixFromList ($ptlist, $pclist);
        if ($editable)
        {
                echo "<form method=post action='${root}process.php'>";
                echo "<input type=hidden name=page value='${pageno}'>";
                echo "<input type=hidden name=tab value='${tabno}'>";
                echo "<input type=hidden name=op value=save>";
        }
        echo "<table class=cooltable border=0 cellpadding=5 cellspacing=0 align=center>\n";
        echo "<tr><th class=vert_th>&nbsp;</th>";
        foreach ($ptlist as $name2)
                echo "<th>to ${name2}</th>";
        echo "</tr>";
        // Make a copy to have an independent array pointer.
        $ptlistY = $ptlist;
        $order = 'odd';
        foreach ($ptlistY as $type1 => $name1)
        {
                echo "<tr class=row_${order}><th class=vert_th style='border-bottom: 0px;'>from $name1</th>";
                foreach ($ptlist as $type2 => $name2)
                {
                        echo '<td><input type=checkbox' . ($editable ? " name=atom_${type1}_${type2}" : ' disabled');
                        echo ($pctable[$type1][$type2] ? ' checked' : '') . '></td>';
                }
                echo "</tr>\n";
                $order = $nextorder[$order];
        }
        echo '</table><br>';
        if ($editable)
        {
                echo "<input type=submit value='Save changes'>";
                echo "</form>";
        }
        finishPortlet();
}

function renderConfigMainpage ()
{
        global $pageno, $root;
        $children = getDirectChildPages ($pageno);
        echo '<ul>';
        // FIXME: assume all config kids to have static titles at the moment,
        // but use some proper abstract function later.
        foreach ($children as $cpageno => $child)
                echo "<li><a href='${root}?page=${cpageno}'>" . $child['title'] . "</li>\n";
        echo '';
        echo '</ul>';
}

function renderRackPage ($rack_id)
{
        if ($rack_id == 0)
        {
                showError ('Invalid rack_id', __FUNCTION__);
                return;
        }
        if (($rackData = getRackData ($rack_id)) == NULL)
        {
                showError ('getRackData() failed', __FUNCTION__);
                return;
        }
        echo "<table border=0 class=objectview cellspacing=0 cellpadding=0><tr>";

        // Left column with information.
        echo "<td class=pcleft>";
        startPortlet ('Rack information');
        echo "<table border=0 cellspacing=0 cellpadding=3 width='100%'>\n";
        echo "<tr><th width='50%' class=tdright>Rack row:</th><td class=tdleft>${rackData['row_name']}</td></tr>\n";
        echo "<tr><th width='50%' class=tdright>Name:</th><td class=tdleft>${rackData['name']}</td></tr>\n";
        echo "<tr><th width='50%' class=tdright>Height:</th><td class=tdleft>${rackData['height']}</td></tr>\n";
        echo "<tr><th width='50%' class=tdright>Utilization:</th><td class=tdleft>";
        renderProgressBar (getRSUforRack ($rackData));
        echo "</td></tr>\n";
        echo "<tr><th width='50%' class=tdright>Objects:</th><td class=tdleft>";
        echo getObjectCount ($rackData);
        echo "</td></tr>\n";
        printTagTRs();
        if (!empty ($rackData['comment']))
                echo "<tr><th width='50%' class=tdright>Comment:</th><td class=tdleft>${rackData['comment']}</td></tr>\n";
        echo '</table>';
        finishPortlet();
        echo '</td>';

        // Right column with rendered rack.
        echo '<td>';
        startPortlet ('Rack diagram');
        renderRack ($rack_id);
        finishPortlet();
        echo '</td>';

        echo '</tr></table>';
}

function renderDictionary ()
{
        global $nextorder;
        $dict = getDict (TRUE);
        echo "<br><table class=cooltable border=0 cellpadding=5 cellspacing=0 align=center>\n";
        foreach ($dict as $chapter_no => $chapter)
        {
                $order = 'odd';
                echo "<tr><th>Chapter</th><th>refs</th><th>Word</th></tr>\n";
                $wc = count ($chapter['word']);
                echo "<tr class=row_${order}><td class=tdleft" . ($wc ? " rowspan = ${wc}" : '');
                echo "><div title='number=${chapter_no}'>${chapter['name']} (${wc} records)</div></td>";
                if (!$wc)
                        echo "<td colspan=2>none</td>";
                else
                {
                        $chap_start = TRUE;
                        foreach ($chapter['word'] as $key => $value)
                        {
                                if (!$chap_start)
                                        echo "<tr class=row_${order}>";
                                else
                                        $chap_start = FALSE;
                                echo '<td>' . ($chapter['refcnt'][$key] ? $chapter['refcnt'][$key] : '&nbsp;') . '</td>';
                                echo "<td><div title='key=${key}'>${value}</div></td></tr>\n";
                                $order = $nextorder[$order];
                        }
                }
        }
        echo "</table>\n<br>";
}

function renderDictionaryEditor ()
{
        global $root, $pageno, $tabno, $nextorder;
        $dict = getDict();
        showMessageOrError();
        echo "<br><table class=cooltable border=0 cellpadding=5 cellspacing=0 align=center>\n";
        foreach ($dict as $chapter_no => $chapter)
        {
                $order = 'odd';
                echo "<tr><th>Chapter</th><th>&nbsp;</th><th>Word</th><th>&nbsp;</th></tr>\n";
                $wc = count ($chapter['word']);
                // One extra span for the new record per each chapter block.
                echo "<tr class=row_${order}><td class=tdleft" . ($wc ? ' rowspan = ' . ($wc + 1) : '');
                echo "><div title='number=${chapter_no}'>${chapter['name']} (${wc} records)</div></td>";
                echo "<form action='${root}process.php' method=post>";
                echo "<input type=hidden name=page value='${pageno}'>";
                echo "<input type=hidden name=tab value='${tabno}'>";
                echo "<input type=hidden name=op value=add>";
                echo "<input type=hidden name=chapter_no value='${chapter['no']}'>";
                echo "<td>&nbsp;</td>";
                echo "<td class=tdright><input type=text name=dict_value size=32></td>";
                echo "<td><input type=submit value='Add new'></td>";
                echo '</tr></form>';
                $order = $nextorder[$order];
                foreach ($chapter['word'] as $key => $value)
                {
                        echo "<form action='${root}process.php' method=post>";
                        echo "<input type=hidden name=page value='${pageno}'>";
                        echo "<input type=hidden name=tab value='${tabno}'>";
                        echo "<input type=hidden name=op value='upd'>";
                        echo "<input type=hidden name=chapter_no value='${chapter['no']}'>";
                        echo "<input type=hidden name=dict_key value='${key}'>";
                        echo "<tr class=row_${order}><td>";
                        // Prevent deleting words currently used somewhere.
                        if ($chapter['refcnt'][$key])
                                printImageHREF ('nodelete', 'referenced ' . $chapter['refcnt'][$key] . ' time(s)');
                        else
                        {
                                echo "<a href='${root}process.php?page=${pageno}&tab=${tabno}&op=del&chapter_no=${chapter['no']}&dict_key=${key}'>";
                                printImageHREF ('delete', 'Delete word');
                                echo "</a>";
                        }
                        echo '</td>';
                        echo "<td class=tdright><input type=text name=dict_value size=32 value='${value}'></td>";
                        echo "<td><input type=submit value=OK></td>";
                        echo "</tr></form>\n";
                        $order = $nextorder[$order];
                } // foreach ($chapter['word']
        } // foreach ($dict
        echo "</table>\n";
}

// We don't allow to rename/delete a sticky chapter and we don't allow
// to delete a non-empty chapter.
function renderChaptersEditor ()
{
        global $root, $pageno, $tabno;
        showMessageOrError();
        $dict = getDict();
        echo "<table cellspacing=0 cellpadding=5 align=center class=widetable>\n";
        echo '<tr><th>&nbsp;</th><th>Chapter name</th><th>Words</th><th>&nbsp;</th></tr>';
        foreach ($dict as $chapter)
        {
                $wordcount = count ($chapter['word']);
                $sticky = $chapter['sticky'];
                echo "<form action='${root}process.php' method=post>";
                echo "<input type=hidden name=page value='${pageno}'>";
                echo "<input type=hidden name=tab value='${tabno}'>";
                echo "<input type=hidden name=op value=upd>";
                echo "<input type=hidden name=chapter_no value='${chapter['no']}'>";
                echo '<tr>';
                echo '<td>';
                if ($sticky)
                        printImageHREF ('nodelete', 'system chapter');
                elseif ($wordcount > 0)
                        printImageHREF ('nodelete', 'contains ' . $wordcount . ' word(s)');
                else
                {
                        echo "<a href='${root}process.php?page=${pageno}&tab=${tabno}&op=del&chapter_no=${chapter['no']}'>";
                        printImageHREF ('delete', 'Remove chapter');
                        echo "</a>";
                }
                echo '</td>';
                echo "<td><input type=text name=chapter_name value='${chapter['name']}'" . ($sticky ? ' disabled' : '') . "></td>";
                echo "<td class=tdleft>${wordcount}</td><td>";
                if ($sticky)
                        echo '&nbsp;';
                else
                        echo "<input type=submit value='OK'>";
                echo '</td></tr>';
                echo '</form>';
        }
        echo "<form action='${root}process.php' method=post>";
        echo "<input type=hidden name=page value='${pageno}'>";
        echo "<input type=hidden name=tab value='${tabno}'>";
        echo "<input type=hidden name=op value=add>";
        echo '<tr><td>';
        printImageHREF ('add', '', TRUE);
        echo "</td><td colspan=3><input type=text name=chapter_name></td>";
        echo '</tr>';
        echo '</form>';
        echo "</table>\n";
}

function renderAttributes ()
{
        global $nextorder;
        $attrMap = getAttrMap();
        startPortlet ('Optional attributes');
        echo "<table class=cooltable border=0 cellpadding=5 cellspacing=0 align=center>\n";
        echo "<tr><th class=tdleft>Attribute name</th><th class=tdleft>Attribute type</th><th class=tdleft>Applies to</th></tr>";
        $order = 'odd';
        foreach ($attrMap as $attr)
        {
                echo "<tr class=row_${order}>";
                echo "<td class=tdleft>${attr['name']}</td>";
                echo "<td class=tdleft>${attr['type']}</td>";
                echo '<td class=tdleft>';
                if (count ($attr['application']) == 0)
                        echo '&nbsp;';
                else
                        foreach ($attr['application'] as $app)
                                if ($attr['type'] == 'dict')
                                        echo "${app['objtype_name']} (values from '${app['chapter_name']}')<br>";
                                else
                                        echo "${app['objtype_name']}<br>";
                echo '</td>';
                echo "</tr>\n";
                $order = $nextorder[$order];
        }
        echo "</table><br>\n";
        finishPortlet();
}

function renderEditAttributesForm ()
{
        global $root, $pageno, $tabno;
        $attrMap = getAttrMap();
        showMessageOrError();
        startPortlet ('Optional attributes');
        echo "<table cellspacing=0 cellpadding=5 align=center class=widetable>\n";
        echo '<tr><th>&nbsp;</th><th>Name</th><th>Type</th><th>&nbsp;</th></tr>';
        foreach ($attrMap as $attr)
        {
                echo "<form action='${root}process.php' method=post>";
                echo "<input type=hidden name=page value='${pageno}'>";
                echo "<input type=hidden name=tab value='${tabno}'>";
                echo "<input type=hidden name=op value=upd>";
                echo "<input type=hidden name=attr_id value='${attr['id']}'>";
                echo '<tr>';
                echo "<td><a href='${root}process.php?page=${pageno}&tab=${tabno}&op=del&attr_id=${attr['id']}'>";
                printImageHREF ('delete', 'Remove attribute');
                echo '</a></td>';
                echo "<td><input type=text name=attr_name value='${attr['name']}'></td>";
                echo "<td>${attr['type']}</td>";
                echo "<td><input type=submit value='OK'></td>";
                echo '</tr>';
                echo '</form>';
        }
        echo "<form action='${root}process.php' method=post>";
        echo "<input type=hidden name=page value='${pageno}'>";
        echo "<input type=hidden name=tab value='${tabno}'>";
        echo "<input type=hidden name=op value=add>";
        echo '<tr><td>';
        printImageHREF ('add', '', TRUE);
        echo "</td><td><input type=text name=attr_name></td>";
        echo '<td><select name=attr_type>';
        echo '<option value=uint>uint</option>';
        echo '<option value=float>float</option>';
        echo '<option value=string>string</option>';
        echo '<option value=dict>dict</option>';
        echo '</select></td>';
        echo '</tr>';
        echo '</form>';
        echo "</table>\n";
        finishPortlet();
}

function renderEditAttrMapForm ()
{
        global $root, $pageno, $tabno;
        $attrMap = getAttrMap();
        showMessageOrError();
        startPortlet ('Attribute map');
        echo "<table cellspacing=0 cellpadding=5 align=center class=widetable>\n";
        echo '<tr><th>&nbsp;</th><th>Attribute name</th><th>Object type</th><th>Dictionary chapter</th></tr>';
        foreach ($attrMap as $attr)
        {
                if (count ($attr['application']) == 0)
                        continue;
                foreach ($attr['application'] as $app)
                {
                        echo '<tr>';
                        echo '<td>';
                        echo "<a href='${root}process.php?page=${pageno}&tab=${tabno}&op=del&";
                        echo "attr_id=${attr['id']}&objtype_id=${app['objtype_id']}'>";
                        printImageHREF ('delete', 'Remove mapping');
                        echo "</a>";
                        echo '</td>';
                        echo "<td>${attr['name']}</td>";