html_hist.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);

    cu_header("$rowid HTML History");
    print "<form>
    <table border=1 cellpadding=1 cellspacing=1>
        <tr>
            <td class='bar' align=center>
                $rowid HTML History
            </td>
        </tr>";
    $cu_dir = $rowid . "/admin/";
    $protectdir = "/home/";

    $filepath = $protectdir . $cu_dir;
    // The filepath should be the admin directory for the credit union

    $fp = popen("ls -1r $filepath/*.html", "r");
    // Now fp points to all the filenames that are in the directory

    while (!feof($fp)) {
        $filename = fgets($fp, 4096);
        // Strip the filepath off the file and the .out off the file to get the filename
        $filename = str_replace($filepath . "/", "", $filename);
        $filename = trim(str_replace(".html", "", $filename));

        // Don't show the status file
        if ($filename != "status" && trim($filename != "")) {
            // What can happen is the first characters will be based on 100 instead of 2000,
            // So if the first characters is 1, then format one way, if 2 then format another
            if (substr($filename, 0, 1) == '1') {
                $disp_filename = preg_replace("/^([0-9]{3})([0-9]{2})([0-9]{2})([0-9]{2})([0-9]{2})([0-9]{2})([0-9]{1,6})$/",
                "\\1-\\2-\\3 \\4:\\5:\\6.\\7", $filename);
            }
            else {
                // What needs to be done is to parse the file up into pieces so it can be more easily read.
                $disp_filename = preg_replace("/^([0-9]{4})([0-9]{2})([0-9]{2})([0-9]{2})([0-9]{2})([0-9]{2})([0-9]{1,6})$/",
                "\\1-\\2-\\3 \\4:\\5:\\6.\\7", $filename);
            }
            printf ("<tr>\n<td class='hdr'>\n<a href=\"files/%s%s.html\" target=\"CONTENT\">%s</a></td>\n</tr>\n", $cu_dir, $filename, $disp_filename);
        }
    }
    pclose($fp);
?>
    </table>
    </form>
</body>
</html>