culist.prg

<?php

$monLibrary = dirname(__FILE__) . "/../library";
require_once("$monLibrary/cu_top.i");
require_once("$monLibrary/ck_hticket.i");
require_once("$monLibrary/cu_pass.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('orderby'=>'string','action'=>'string','rowid'=>'string');

dms_import($dms_ok);

            if (empty($orderby)) $orderby = 'cu';
            if ($orderby == 'start')
                $sql_order = " coalesce(cuadmin.upllaststart, TIMESTAMP '01-01-1970 12:00:00') desc";
            elseif ($orderby == 'end')
                $sql_order = " coalesce(cuadmin.upllastend, TIMESTAMP '01-01-1970 12:00:00') desc";
            else
                $sql_order = "upper(cuadmin.$orderby)";
            $sql = "select cu, user_name, vendor, orgname, upllaststat, histtrunc,
                                to_char(upllaststart, 'MM/DD/YYYY HH24:MI:SS') as upllaststart,
                                to_char(upllastend, 'MM/DD/YYYY HH24:MI:SS') as upllastend,
                                offlinestat
                            from cuadmin order by $sql_order";

            switch ($orderby) {
                case "user_name":
                    $use_field = "user_name";
                    break;
                case "vendor":
                    $use_field = "vendor";
                    break;
                case "orgname":
                    $use_field = "orgname";
                    break;
                case "cu":
                    $use_field = "cu";
                    break;
                default:
                    $use_field = "N";
            }

            $sth = db_query($sql, $dbh);
            if ($sth) {
                cu_header("Server Status");

                echo "<a name=\"top\"></a>";
                echo "<table border=0 cellpadding=3 cellspacing=0 align=center width='100%' class='dmsbg'><tr><td>";
                echo "<table border=0 cellpadding=2 cellspacing=0 align=center width='100%' bgcolor=white>";
                echo "<tr><td colspan=6 class=bar align=center>SELECT CREDIT UNION</td></tr>";
                if ($use_field <> "N") {
                    echo "<tr><td colspan='6' align=center>Index: ";
                    for ($adx=ord("A"); $adx <= ord("Z"); $adx++)
                        echo "<a href=#" . chr($adx) . ">" . chr($adx) . "</a> &nbsp;";
                    echo "</td></tr>";
                }
                echo "<tr>
                    <td class='hdr'>
                        <a href={$_SERVER['PHP_SELF']}?action=list&orderby=cu>Credit Union</a></td>
                    <td class='hdr'>
                        <a href={$_SERVER['PHP_SELF']}?action=list&orderby=orgname>CU Name</a></td>
                    <td class='hdr'>
                        <a href={$_SERVER['PHP_SELF']}?action=list&orderby=vendor>Vendor</a></td>
                    <td class='hdr'>
                        <a href={$_SERVER['PHP_SELF']}?action=list&orderby=start>Last Upload Start</a></td>
                    <td class='hdr'>
                        <a href={$_SERVER['PHP_SELF']}?action=list&orderby=end>Last Upload End</a></td>
                    <td class='hdr'>Status</a></td>
                    </tr>";
                $RGB = "odd";
                if ($use_field <> "N") {
                    $cur_ascii = ord("A") - 1;              // Start at the character before A
                    $lst_ascii = ord("A") - 1;              // Start at the character before A
                }
                for ($row=0; list($cu, $user_name, $vendor, $orgname, $upllaststat, $histtrunc, $upllaststart, $upllastend, $offlinestat) = db_fetch_array($sth,$row); $row++) {
                    $cu = trim($cu);
                    $user_name = trim($user_name);

                    if ($use_field <> "N") {
                        $cur_ascii = (ord(strtoupper(substr($$use_field, 0, 1))) > $cur_ascii && ord(strtoupper(substr($$use_field, 0, 1))) <= ord("Z") ? ord(strtoupper(substr($$use_field, 0, 1))) : $cur_ascii);
                        if (($cur_ascii <> $lst_ascii) && (($cur_ascii >= ord("A")) && ($cur_ascii <= ord("Z")))) {
                            //Insert links for missing letters, but display only the current letter
                            printf("<tr><td colspan=6>\n");
                            for ($adx = $lst_ascii + 1; $adx < $cur_ascii; $adx++)
                                printf("<a name=%s></a>\n", chr($adx));
                            // Now print the current
                            printf("<a name=%s>%s</a>&nbsp;&nbsp;<a href=#top>back to top</a></td></tr>\n", chr($adx), chr($adx));
                            $lst_ascii = $cur_ascii;
                        }
                    }

                    //      display list w/link to self ?action=fetch and ?action=delete
                    $tr_class = ($upllaststat > 0 ? "error" : $RGB);
                    // Now compensate for the Truncate History flag, this will be a Yellow color
                    $tr_class = ($histtrunc == "1" ? "trunc" : $tr_class);
                    $tr_class = ($offlinestat == "Y" || $offlinestat == "U" ? "offstat" : $tr_class);
                  $vend_show = (trim($vendor) == '' ? "" : "&vc=". trim($vendor));
                    $pos = strpos($_SERVER['HTTP_HOST'],".");
                    $shortServer = substr($_SERVER['HTTP_HOST'],0,$pos);
                    $server = in_array($shortServer, array("www", "www3", "www4", "www5", "www6")) ? $shortServer : $_SERVER['HTTP_HOST'];
                    $www_show = "&wc=" . $server;
          $llink = (trim($upllaststart) == '' ? '' : "<a href='https://" . $shortServer .
 ".homecu.net/hcuadm/tfiles/$user_name/public_html/status.txt'>Last</a>");
          $hlink = (trim($upllaststart) == '' ? '' : "<a href='https://" . $shortServer .
          ".homecu.net/hcuadm/html_hist?rowid=$user_name'>History</a>");

                    printf("<TR class=\"%s\"><td><A HREF=\"%s/hcuadm/cuindex.prg?action=fetch&rowid=%s%s%s\" target=\"_top\">
                        %s</a></td>
                        <td><font size=2>%s&nbsp;</td>
                        <td><font size=2>%s&nbsp;</td>
                        <td><font size=2>%s&nbsp;</td>
                        <td><font size=2>%s&nbsp;</td>
                        <td><font size=2>%s&nbsp;%s&nbsp;</td>
                    </tr>\n",$tr_class,$infourl,$user_name, $vend_show, $www_show,
                    $user_name, $orgname, $vendor, $upllaststart, $upllastend,$llink,$hlink);
                    $RGB = ($RGB == "odd" ? "even" : "odd");
                }

                if ($use_field <> "N") {
                    if ($cur_ascii < ord("Z")) {
                        printf("<tr><td colspan=5>\n");
                        for ($adx = $cur_ascii + 1; $adx <= ord("Z"); $adx++)
                            printf("<a name=%s></a>\n", chr($adx));
                        // Now print the current
                        printf("<a href=#top>back to top</a></td></tr>");
                    }
                }
                print <<< print_legend
                    <tr><td colspan="6">&nbsp;</td></tr>
                    <tr><td colspan="6" class='bar'>
                        COLOR LEGEND
                    </td></tr>
                    <tr class="error">
                        <td colspan="6">
                            <font size=2>
                                The 'upllaststat' flag is set to 1 for this credit union.  It could indicate an error or an upload is in process.
                            </font>
                        </td>
                    </tr>
                    <tr class="trunc">
                        <td colspan="6">
                            <font size=2>
                                The 'histtrunc' flag is set to 1 for this credit union.  The next time an upload occurs the history will be truncated.
                            </font>
                        </td>
                    </tr>
                    <tr class="offstat">
                        <td colspan="6">
                            <font size=2>
                                The credit union has been flagged offline by setting the 'offlinestat' flag.
                            </font>
                        </td>
                    </tr>
print_legend;
                echo "</table>
                    </td></tr></table>";
                cu_footer();
            }
?>