stmnt_reports.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("$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;
  }

$dms_ok=array('report'=>'digits','csv'=>'string','pos'=>'digits','cdate'=>'string','ctime'=>'string',
              's0'=>'digits','s1'=>'digits','s2'=>'digits','s3'=>'digits','s4'=>'digits','s5'=>'digits','s6'=>'digits', 's7'=>'digits');
dms_import($dms_ok);

$report = (isset($report) ? $report : 0);
$cdate = isset($cdate) ? $cdate : "NONE";
$ctime = isset($ctime) ? $ctime : "NONE";
$s0 = isset($s0) ? $s0 : 0;
$s1 = isset($s1) ? $s1 : 0;
$s2 = isset($s2) ? $s2 : 0;
$s3 = isset($s3) ? $s3 : 0;
$s4 = isset($s4) ? $s4 : 0;
$s5 = isset($s5) ? $s5 : 0;
$s6 = isset($s6) ? $s6 : 0;
$s7 = isset($s7) ? $s7 : 0;
$csv = isset($csv) ? $csv : "";

$self = $_SERVER['PHP_SELF'];

if ($report == 2) {$cdate='NONE';$ctime='NONE';}
if ($report == 3) {$ctime='NONE';}
#
$msg='';
if ($cdate && $cdate != 'NONE' && !(preg_match("/^\d{8}$/",$cdate))) {
                $msg .= "Please use 'YYYYMMDD' format for cutoff date<br>";
                unset ($cdate);
}
if ($cdate && $cdate <= '20030101') {
                $msg .= "Please provide a cutoff date after 20030101<br>";
                unset ($cdate);
}
if ($s0 && $s0 != 1 && $s0 != 0) {
                $msg .= "Invalid setting for 'Summary Only'<br>";
                unset ($s0);
}
if ($ctime && $ctime != 'NONE' && !(preg_match("/^\d{2}:\d{2}:\d{2}$/",$ctime))) {
                $msg .= "Please use 'HH:MM:SS' format for cutoff time<br>";
                unset ($ctime);
}
#
if ($report && $cdate && $ctime) {
    switch ($report) {
        case 1:
            $rptname='stmntcount';
        break;
        case 2:
            $rptname='stmntfrags';
        break;
        case 3:
            $rptname='stmntstatus';
        break;
    }

    $q="cdate=$cdate&ctime=$ctime";
    if ($s0 == 1) {$q .= "&s0=1";}
    $servers=array();
    if ($s1 == 1) {array_push($servers,"www");$q .= "&s1=1";}
    if ($s3 == 1) {array_push($servers,"www3");$q .= "&s3=1";}
    if ($s5 == 1) {array_push($servers,"www5");$q .= "&s5=1";}
    if ($s6 == 1) {array_push($servers,"www6");$q .= "&s6=1";}
    if ($s7 == 1) {array_push($servers,"my");$q .= "&s7=1";} // For Odyssey
    if (sizeof($servers) == 0) {
        $servers=array('www3','www5','www6','my'); // Add 'my' to this list when able
    }
    $culist = array();
    foreach ($servers as $ask) {
// ** New method -- make a system call --
                                // * the system call will actually be a curl call that will
                                // * send the cookie so it can be processed as normal with all
                                // * validation
                // ** Be sure the cookie value on the command line is URL Encoded  --mws 11/28/2006
        $cmd = "";
        if ($ask == "my") {
            $cmd = "https://$ask.homecu.net/monitor/cgi-bin/$rptname.mp?csv=raw&$q";
        } else {
            $cmd = "https://$ask.homecu.net/hcuadm/$rptname.pl?csv=raw&$q";
        }
$ch=curl_init($cmd);
$curlcookies = "";
$curlcookies .= "HCUTicket=" . urlencode($_COOKIE['HCUTicket']);


if ($ask == "my") {
    $curlcookies .= ";homecu_dev_oauth2_proxy={$_COOKIE['homecu_dev_oauth2_proxy']}";
}

curl_setopt($ch,CURLOPT_COOKIE,$curlcookies);
curl_setopt($ch,CURLOPT_USERPWD,"nobody:no1home");
curl_setopt($ch,CURLOPT_RETURNTRANSFER,1); # get response as string
$rawresp=curl_exec($ch);
curl_close($ch);
$response=array();
if ($rawresp) {
    foreach(explode("\r\n",$rawresp) as $get_line) {
                if (trim($get_line) != "") {
                    $response[] = $get_line;
                }
    }
}

# $cmd = "https://nobody:no1home@$ask.homecu.net/hcuadm/{$rptname}.pl?csv=raw&$q";
#
#       $cmd = "/usr/bin/curl " . escapeshellarg("-b HCUTicket=" . urlencode($_COOKIE['HCUTicket'])) . " " . escapeshellarg("$cmd");
#       // ** Now pass the command to the command line
#       $response = Array(); // Reset the array
#       // ** Take the command -- open a pipe -- then retrieve the information -- stuff into an array
#       if ($handle = popen($cmd, 'r')) {
#           while (!feof ($handle)) {
#               $get_line = fgets($handle, 4096);
#               if (trim($get_line) != "") {
#                   $response[] = $get_line;
#               }
#           }
#
#           // ** Be sure to close the handle
#           pclose($handle);
#       }

        if (sizeof($response)) {
            $titles = explode("\t",rtrim(array_shift($response),"\r\n"));
            $ftypes = explode("\t",rtrim(array_shift($response),"\r\n"));
            array_walk($response, 'save_server', "$ask");
            array_walk($response, 'sort_by', key($servers));
            array_push($titles,"Server");
            array_push($ftypes,"char");
            $culist = array_merge($culist, $response);
        }
    }

#
    $culist = array_unique($culist);
    sort($culist);
    $title = array_shift($titles);
    $num_fields = sizeof($titles);
    $num_rows = sizeof($culist);

if (($csv == 'csv') && sizeof($culist)) {
  unset($csv);
  $ostring = "";
  $osep = "";

#
# First record has the field names
#
    for ($i_field = 0; $i_field < $num_fields; $i_field++) {
        $field_name = $titles[$i_field];
    $ostring .= "$osep\"$field_name\"";
    $osep = ",";
    }
  $ostring .= "\r\n";

#
# Now the data
#
     foreach ($culist as $cu) {
            $cu = rtrim($cu);
        $osep="";
            $row = explode("\t",$cu);

   # throw away the sort column
      array_shift($row);

        $hdrdtl=array_shift($row);

         for ($i_field = 0; $i_field < $num_fields; $i_field++) {
            $field_type = $ftypes[$i_field];
            if (preg_match("/(int|numeric)/i", $field_type)) {
               $ostring .= "${osep}${row[$i_field]}";
            } elseif (preg_match("/(text|char)/i", $field_type)) {
                 $ostring .= "${osep}\"${row[$i_field]}\"";
            } elseif ($field_type == "bool") {
                 $ostring .= "${osep}\"${row[$i_field]}\"";
            } else {
                 $ostring .= "${osep}\"${row[$i_field]}\"";
            }
         $osep=",";
        }
    $ostring .= "\r\n";

    }

  header("Content-length: " . strlen( $ostring ) );
  header("Content-type: application/octetstream");
  header("Content-disposition: inline; filename=\"${Cu}report${report}.csv\"");
  print ( $ostring );
  exit;
}
#
$cfgShowBlob = false;
$cfgQuotes="\"";
$cfgBorder=1;
$cfgMaxRows=99999;
$cfgMaxPages=5;
$cfgMaxText=255;
$strShowingRecords = "Showing records ";
$strTotal = "total";
$strPrevious = "Previous";
$strNext = "Next";
$strPos1 = "Begin";
$strEnd = "End";
$strMore = "More";
$strEmptySet = "No records found";

    if (!isset($pos))
        $pos = 0;

    $pos_next = $pos + $cfgMaxRows;
    $pos_prev = $pos - $cfgMaxRows;

    $num_rows = sizeof($culist);

    $num_fields = sizeof($ftypes);

    $iNumRows = $num_rows;
    if ($num_rows < $pos_next) {
        $pos_next = $num_rows;
    }

    $strNavigation = "";
    $strNavigation .= "<table border=0 width='100%' cellspacing=0 cellpadding=2><tr>\n";
    $strNavigation .=  "<td align=left class='dtl'>";
    if ($pos >= $cfgMaxRows) {
        //doj added link to beginning of results
        $strNavigation .= "<a href=\"$self?report=$report&title=$title&sql_order=" . urlencode($sql_order) . "&pos=0$q\">&lt;&lt; $strPos1 </a> | ";

        $strNavigation .= " <a href=\"$self?report=$report&title=$title&sql_order=" . urlencode($sql_order) . "&pos=$pos_prev$q\">&lt; $strPrevious </a> | ";
    } else {
        $strNavigation .= "&nbsp;";
    }
    $strNavigation .= "</td>\n";

    $strNavigation .= "<td align=center class='dtl'>\n";

    //doj now only the previous and next $cfgMaxPages pages will be shown
    if (empty($cfgMaxPages)) {
        $cfgMaxPages = 5;
    }

    $iCount = $pos - ($cfgMaxRows * $cfgMaxPages);
    if ($iCount < 0)
        $iCount = 0;

    $iPageCnt = (int)($iCount / $cfgMaxRows);
    $iPageStop = $pos + ($cfgMaxRows * ($cfgMaxPages + 1));

    $strPages = "";
    for (; $iCount < $iNumRows && $iCount < $iPageStop; $iCount += $cfgMaxRows) {
      //doj until here
        $iPageCnt++;
        if ($iCount != $pos) {
            $strPages .= "<a href=\"$self?report=$report&title=".urlencode($title)."&sql_order=".urlencode($sql_order)."&pos=$iCount$q\">$iPageCnt</a> | ";
        } else {
            if ($iNumRows > $cfgMaxRows) {
                $strPages .= "$iPageCnt | ";
            }
        }
    }
    $strNavigation .= preg_replace("/ \| $/", "", $strPages);

    $strNavigation .= "</td>\n";

    $strNavigation .= "<td align=right class='dtl'>";
    if ($pos_next < $num_rows) {
        $strNavigation .= " | <a href=\"$self?report=$report&title=".urlencode($title)."&sql_order=".urlencode($sql_order)."&pos=$pos_next$q\"> $strNext &gt;</a>";

        //doj link to end of results
        $pos_end = $num_rows - $cfgMaxRows;
        $strNavigation .= " | <a href=\"$self?report=$report&title=".urlencode($title)."&sql_order=".urlencode($sql_order)."&pos=$pos_end$q\"> $strEnd &gt;&gt;</a>";
    } else {
        $strNavigation .= "&nbsp;";
    }
    $strNavigation .= "</td>\n";
    $strNavigation .= "</tr></table>\n";

header("Expires: Sat 20 May 1995 03:32:38 GMT");
header("Pragma: no-cache");
header("Cache-Control: no-cache, must-revalidate");
cu_header("$title");
    echo "<table border=0 align=center width='90%' class='dmsbg' cellpadding=3 cellspacing=0><tr><td>";
    echo "<table border=0 align=center width='100%' bgcolor=white cellpadding=2 cellspacing=0>";
        echo "<tr><td class='dtl' align='left'>";
        echo "<a href='$produrl/hcuadm/cuilist.prg'>Credit Union List</a>&nbsp;&nbsp;&nbsp;
              <a href='$self?report=0'>Report Menu</a>&nbsp;&nbsp;&nbsp;
              <A HREF='$self?csv=csv&report=$report&$q'>Download CSV</a></td><td class='dtl' align='right'>&nbsp; ";
    if ($num_rows > 1) {
        echo "$strShowingRecords $pos - $pos_next ($num_rows $strTotal)";
    }
        echo "</td></tr></table>";

    echo $strNavigation;
    echo "<table cellspacing=0 border=$cfgBorder align=center width='100%'>";
    echo "<tr><td class='hdr' colspan='$num_fields' align='center'>$title</td></tr><tr>";

    for ($i_field = 0; $i_field < $num_fields; $i_field++) {
        $field_name = $titles[$i_field];
            echo "<th class='hdr'>$field_name</th>";
    }
    echo "</tr>\n";
        if ((sizeof($culist)) < 1) {
           echo "<tr class='odd'><td class='dtl' colspan='$num_fields'>$strEmptySet</td></tr>";
        } else {

    for ($i_row = $pos; $i_row < $pos_next; $i_row++) {
        $row = explode("\t",rtrim($culist[$i_row],"\r\n"));

   # throw away the sort column
      array_shift($row);


        $hdrdtl=array_shift($row);

        $rbg=($hdrdtl == 's' ? 'dtl' : 'odd_small');

        echo "<tr class=$rbg>";
        for ($i_field = 0; $i_field < sizeof($row); $i_field++) {
            if (!isset($row[$i_field]))
                unset($row[$i_field]);
            $field_type = $ftypes[$i_field];
            $field_name = $titles[$i_field];
            if (preg_match("/(int|numeric)/i", $field_type)) {

                echo "<td class='$rbg' align=right valign=top>&nbsp;$row[$i_field]&nbsp;</td>\n";
            } elseif ($cfgShowBlob == false && preg_match("/BLOB/i", $field_type)) {
                echo "<td class='$rbg' align=right valign=top>&nbsp;[BLOB]&nbsp;</td>\n";
            } elseif (preg_match("/(text|char)/i", $field_type)) {
                // If the text is longer than $cfgMaxText characters, let's cut it short
                if (strlen($row[$i_field]) > $cfgMaxText && !empty($cfgMaxText)) {
                    $strLgText =  nl2br(htmlspecialchars(substr($row[$i_field], 0, $cfgMaxText))) . " <br><b>... $strMore ...</b>";
                } else {
                    $strLgText = nl2br(htmlspecialchars($row[$i_field]));
                }
                echo "<td class='$rbg' valign=top>&nbsp;$strLgText</td>\n";
            } elseif ($field_type == "bool") {
                echo "<td class='$rbg' valign=top>&nbsp;", bool_YesNo($row[$i_field]), "&nbsp;</td>\n";
            } else {
                echo "<td class='$rbg' valign=top>&nbsp;", nl2br(htmlspecialchars($row[$i_field])), "&nbsp;</td>\n";
            }
        }
        echo "</tr>";

    }
}

    echo "</table>\n";
    echo $strNavigation;

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


} else {
 # show list of selections
header("Expires: Sat 20 May 1995 03:32:38 GMT");
header("Pragma: no-cache");
header("Cache-Control: no-cache, must-revalidate");
cu_header("Select Report");
print <<<EOF
            <form action='$self' method='GET'>
      <table width='500' border='0' align='center' cellpadding=3 cellspacing=0 class='dmsbg'><tr><td>
      <table width='100%' border='0' align='center' bgcolor=white cellpadding2 cellspacing=0>
        <tr class='barb'><td align='center'><font size=+1>Please Select Report</font></td></tr>
        <tr><td><a href="$produrl/hcuadm/cuilist.prg" target="parent">Credit Union List</a></td></tr>
        <tr class='hdr'><td>E-Statement Reports</td></tr>
                <tr class='msg'><td>$msg</td></tr>
        <tr class='odd_small'><td>&nbsp;&nbsp;&nbsp;<input type='radio' name='report' value='1'>&nbsp;E-Statement Count</td></tr>
        <tr class='even_small'><td>&nbsp;&nbsp;&nbsp;<input type='radio' name='report' value='2'>&nbsp;Missing Fragments</td></tr>
        <tr class='odd_small'><td>&nbsp;&nbsp;&nbsp;<input type='radio' name='report' value='3'>&nbsp;Last Status</td></tr>
        <tr class='hdr'><td>&nbsp;</td></tr>
        <tr class='odd_small'><td>
                <table align='center'><tr><td class='odd_small'>&nbsp;Cutoff Date (YYYYMMDD)</td><td>&nbsp;<input type='text' size='10' maxlength='8' name='cdate'></td></tr>
        <tr><td class='odd_small'>&nbsp;Cutoff Time (HH:MM:SS)</td><td>&nbsp;<input type='text' name='ctime' value='00:00:00' size='10' maxlength='8'></td></tr>
                <tr><td colspan=2 class='odd_small'><input type='checkbox' name='s0' value='1'>&nbsp;Summary Only&nbsp;</td></tr></table>
</td></tr>
        <tr class='hdr'><td>&nbsp;</td></tr>
        <tr class='odd_small'><td>&nbsp; Include Data from <br>
<!--&nbsp;&nbsp;<input type='checkbox' name='s1' value='1'>&nbsp;www
&nbsp;&nbsp;<input type='checkbox' name='s2' value='1'>&nbsp;www2
&nbsp;&nbsp;<input type='checkbox' name='s4' value='1'>&nbsp;www4-->
&nbsp;&nbsp;<input type='checkbox' name='s3' value='1'>&nbsp;www3
&nbsp;&nbsp;<input type='checkbox' name='s5' value='1'>&nbsp;www5
&nbsp;&nbsp;<input type='checkbox' name='s6' value='1'>&nbsp;www6
&nbsp;&nbsp;<input type='checkbox' name='s7' value='1'>&nbsp;Odyssey
</td></tr>
        <tr class='hdr'><td>&nbsp;</td></tr>
        <tr class='hdrc'><td><input type='submit' value='Go'></td></tr>
</table>
</td></tr></table>
EOF;
        exit;

   }
function save_server(&$response, $key, $server)
{
     $row = explode("\t",$response);
     if ($row[0]=='s' || $row[0]=='T') {
        $response = rtrim($response,"\r\n") . "\t$server\r\n";
     } else {
        $response = rtrim($response,"\r\n") . "\t\r\n";
     }
}

function sort_by(&$response, $key, $server)
{
     $row = explode("\t",$response);
     if ($row[0]=='T') {
    $response = "zzzzzzzz" . $row[1] . $server . sprintf('%05d',$key) . "\t$response";
     } else {
    $response = $row[1] . $server . sprintf('%05d',$key) . "\t$response";
     }
}

?>