serv_menu.prg

<?php
  $monLibrary= dirname(__FILE__) . "/../library";
  require_once("$monLibrary/cu_top.i");
  require_once("$monLibrary/ck_hticket.i");

    if (!CheckPerm($link, $Hu, basename($_SERVER['SCRIPT_NAME']), $_SERVER['REMOTE_ADDR'])) {
        // ** Permissions failed
        // ** redirect to new page
        header("Location: /hcuadm/hcu_noperm.prg");
        exit;
    }

$dms_ok=array('rowid'=>'string');
dms_import($dms_ok);


    // Don't allow more than 64 characters for rowid - try to prevent any maliceous intent for simple cases
    if (strlen($rowid) >64) $rowid ="";
    $rowid = preg_replace("/[^a-zA-Z0-9. ]/","",$rowid);
    
    // $infourl is built with the HTTP_HOST value in cu_top.i, this will either be localhost:8000
    // for dev or my.homecu.net for production odyssey.
    if (isMammothServer($rowid)) {
        $servurl = "https://".$rowid.".homecu.net/hcuadm";
    } else {
        $servurl = "$infourl/hcuadm";
    }

    $prg = "";
    $memlogin = "";
    $culogin = "";
    $pktlink = "";
    $txtlink = "";
    switch ($rowid) {
        case 'www3':
        case 'www4':
        case 'www6':
            $pktlink = "<a href='$servurl/packetdump' target='packet'>Packet Tester</a><br>";
        case 'www5':
            $memlogin = "<a href='$servurl/adm_ticket' target='new_memlog'>Member Login</a>";
            $culogin = "<a href='$servurl/mem_ticket' target='new_culog'>CU Login</a>";
            $txtlink = "<br><a href='$servurl/txtbanklog' target='CONTENT'>TXT Banking Log</a>";
            break;
        default:
            $prg = ".prg";
            $pktlink = "<a href='$servurl/packetdump.prg' target='packet'>Packet Tester</a><br>";
            $memlogin = "<a href='$servurl/suCuUser.prg' target='new_memlog'>Member Login</a>";
            $culogin = "<a href='$servurl/suAdminUser.prg' target='new_culog'>CU Login</a>";
            break;
    }

    cu_header("Server $rowid");

    print <<<EOF
        <TABLE WIDTH="99%" BORDER="0" CELLSPACING="0" CELLPADDING="3" ALIGN="CENTER" class='dmsbg'><tr><td>
        <TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="2" ALIGN="CENTER" bgcolor="white">
            <TR><TD ALIGN="CENTER" CLASS='bar' nowrap>Server $rowid</TD></TR>
            <tr><td class='dtl' nowrap>
        <a href="$servurl/culist{$prg}" target="CONTENT">CU List on $rowid</a><br>
        <a href="$servurl/adm_reports{$prg}" target="CONTENT">Banking Reports</a><br>
        <a href="$servurl/totalstats{$prg}" target="CONTENT">Web Stats</a><br>
        <a href="$servurl/alertrecreport{$prg}" target="CONTENT">Alerts/Recur Reports</a><br>
        {$txtlink}
        
<br>
                     </td></tr>
            <tr><td class='dtl'>
                <hr>
                <a href="$infourl/hcuadm/cuilist.prg" target="parent">Credit Union List</a><br>
                <a href="$servurl/servSettings{$prg}" target="CONTENT">Services Settings</a><br>

$pktlink
            </td></tr>
            <tr>
                <td class='hdr'>Login:</td>
            </tr>
            <tr>
                <td class='dtl'>{$memlogin}</td>
            </tr>
            <tr>
                <td class='dtl'>{$culogin}</td>
            </tr>
        </table>
        </td></tr></table>
EOF;
    cu_footer();
?>