alertrecreport.prg

<?php
    $monLibrary= dirname(__FILE__) . "/../library";
    $sharedLibrary= dirname(__FILE__) . "/../../shared/library";
    require_once("$monLibrary/cu_top.i");
    require_once("$monLibrary/ck_hticket.i");
    require_once("$monLibrary/cu_pass.i");
    require_once("$sharedLibrary/cu_flagconst.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;
    }

    $results_dir = "/home/homecu/html";
    $view_dir = "/homecu/html";
    $alerts_prefix = "alerts";
    $recur_prefix = "recurltx";

    $month = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec");

    cu_header("Alerts and Recurring");

    // ** this is the results of the file directory
    $alerts_list = Array();
    $recur_list = Array();

    // ** Get a collection of names from the directory
    if (is_dir($results_dir)) {
        if ($dir_hndl = opendir($results_dir)) {
            while (($file = readdir($dir_hndl)) !== false) {

                if (filetype("$results_dir/$file") != "file")
                    continue;

                // ** Check to see if it is an Alerts file
                if (substr($file, 0, strlen($alerts_prefix)) == $alerts_prefix) {
                    if (!in_array($file, array("alerts.runslotlist.conf", "alerts.blacklist.conf"))) {
                        $alerts_list[] = $file;
                    }
                } elseif (substr($file, 0, strlen($recur_prefix)) == $recur_prefix) {
                    // ** Check to see if it is an Recur file
                    $recur_list[] = $file;
                }
            }
            closedir($dir_hndl);
        }
        // ** Order the array
        rsort($alerts_list);
        rsort($recur_list);
    }


    // ** This is the main page that will be used to select the report to view
    print <<< print_html
        <table cellpadding="3" cellspacing="0" border="0" width="500" class='dmsbg'>
  <tr><td colspan='2' class='dtl'>
   <a href="${produrl}/hcuadm/cuilist.prg" target="parent">Credit Union List</a></td></tr>
<tr><td width='50%'>
            <table cellpadding="1" cellspacing="0" border="0" width="100%" bgcolor="white">
                <tr>
                    <td colspan="2" class="bar" align="center">
                        Daily Alerts Reports
                    </td>
                </tr>
                <tr>
                    <td width='5%' align="right" class="hdr" valign='top'>
                        &nbsp;
                    </td>
                    <td width='*' nowrap class='dtll' valign='top'>
print_html;

                    $cnt = 0;
                    foreach ($alerts_list as $value) {
                        $cnt++;
                        $year = substr($value,strlen($alerts_prefix), 4);
                        $mon = intval(substr($value, strlen($alerts_prefix) + 4, 2));
                        $day = intval(substr($value, strlen($alerts_prefix) + 6, 2));
                        $hour = intval(substr($value, strlen($alerts_prefix) + 8, 2));
            $min = intval(substr($value, strlen($alerts_prefix) + 10, 2));

                        $minute = intval(substr($value, strlen($alerts_prefix) + 10, 2));
                              # CALCULATE THE RUNSLOT value --
                              # if we decide to run on the half-hour, use $minute on the end to distinguish
                              # may have to use fancy math to round to 0 or 30, but anyway the minute is there
                        $runslot = strtoupper(date('D',mktime($hour,$minute,0,$mon,$day,$year)) . " " . sprintf("%02d:%02d", $hour, $min));

                        $disp_value = date("F jS, Y", mktime(0, 0, 0, $mon, $day, $year));

                        print "<br><a href='/hcuadm/tfiles.prg$view_dir/$value' title='$runslot'>Alerts $disp_value $runslot</a>";
                    }
    print <<< print_html
                    </td>
                </tr>
            </table>
            </td>
            <td width='*' valign='top'>
            <table cellpadding="1" cellspacing="0" border="0" width="100%" bgcolor="white">
                <tr>
                    <td colspan="2" class="bar" align="center" nowrap>
                        Daily Recurring Reports
                    </td>
                </tr>
                <tr>
                    <td width='5%' align="right" class="hdr" valign='top'>
                        &nbsp;
                    </td>
                    <td width='*' nowrap class='dtl' valign='top'>
print_html;
                    $cnt = 0;
                    foreach ($recur_list as $value) {
                        $cnt++;
                        $year = substr($value,strlen($recur_prefix), 4);
                        $mon = intval(substr($value, strlen($recur_prefix) + 4, 2));
                        $day = intval(substr($value, strlen($recur_prefix) + 6, 2));
                        $disp_value = date("F jS, Y", mktime(0, 0, 0, $mon, $day, $year));
                        print "<br><a href='/hcuadm/tfiles.prg$view_dir/$value' >Recur Tx $disp_value</a>";
                    }
    print <<< print_html
                    </td>
                </tr>
            </table>
            </td></tr></table>
        </body></html>
print_html;
?>