cuilist.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;
    }

  $reset_cookie = 0;
  $sql_sys_opt = "";
  $www_server = "";

  $dms_ok=array('sys_opt'=>'array','btnShowType'=>'string','action'=>'string',
  'orderby'=>'string', 'reset_cookie'=>'digits');

  dms_import($dms_ok);

  $bgcolor = "#23497A";

  $ivrHostName = 'ivr.homecu.net';

            $use_cookie = false;
            if ($reset_cookie == 1) {
        HCU_setcookie_env($SYSENV, "Monitor_View", "", $now);

            } elseif (!isset($orderby) && !isset($sys_opt)) {
                // ** Check for the cookie here -- If found then set the values I find
                if (isset($_COOKIE['Monitor_View'])) {
                    // ** This may give the following values
                    // orderby :: cookie_sys_opt
                    parse_str ($_COOKIE['Monitor_View']);
                }
                $use_cookie = true;
            }

            if (empty($orderby)) {
                $orderby = 'cu';
            }
            switch ($orderby) {
                case "www":
                    $sql_order = "www_server,lower(user_name)";
                    $use_field = "N";
                    break;
                case "cu":
                    $sql_order = "lower(user_name)";
                    $use_field = "user_name";
                    break;
                case "vendor":
                    $sql_order = "upper(vendor)";
                    $use_field = "vendor";
                    break;
                case "orgname":
                    $sql_order = "upper(name)";
                    $use_field = "orgname";
                    break;
                case "cu_state":
                    $sql_order = "upper(state), lower(user_name)";
                    $use_field = "cu_state";
                    break;
                case "lb":
                    $use_field = "N";
                    $sql_order = "
                        CASE
                            WHEN (coalesce(system_options, 0) & $SYS_TYPE_CLOSED) = $SYS_TYPE_CLOSED
                                THEN 99
                            WHEN (coalesce(system_options, 0) & ($SYS_TYPE_BATCH + $SYS_TYPE_ASP)) = ($SYS_TYPE_BATCH + $SYS_TYPE_ASP)
                                THEN 2
                            WHEN (coalesce(system_options, 0) & ($SYS_TYPE_BATCH + $SYS_TYPE_IVR)) = ($SYS_TYPE_BATCH + $SYS_TYPE_IVR)
                                THEN 3
                            WHEN (coalesce(system_options, 0) & ($SYS_TYPE_BATCH + $SYS_TYPE_VOIP)) = ($SYS_TYPE_BATCH + $SYS_TYPE_VOIP)
                                THEN 4
                            WHEN (coalesce(system_options, 0) & $SYS_TYPE_BATCH) = $SYS_TYPE_BATCH
                                THEN 1
                            WHEN (coalesce(system_options, 0) & ($SYS_TYPE_LIVE + $SYS_TYPE_ASP)) = ($SYS_TYPE_LIVE + $SYS_TYPE_ASP)
                                THEN 6
                            WHEN (coalesce(system_options, 0) & ($SYS_TYPE_LIVE + $SYS_TYPE_IVR)) = ($SYS_TYPE_LIVE + $SYS_TYPE_IVR)
                                THEN 7
                            WHEN (coalesce(system_options, 0) & ($SYS_TYPE_LIVE + $SYS_TYPE_VOIP)) = ($SYS_TYPE_LIVE + $SYS_TYPE_VOIP)
                                THEN 8
                            WHEN (coalesce(system_options, 0) & $SYS_TYPE_LIVE) = $SYS_TYPE_LIVE
                                THEN 5
                            WHEN (coalesce(system_options, 0) & $SYS_TYPE_IVR) = $SYS_TYPE_IVR
                                THEN 9
                            WHEN (coalesce(system_options, 0) & $SYS_TYPE_VOIP) = $SYS_TYPE_VOIP
                                THEN 10
                            WHEN (coalesce(system_options, 0) & $SYS_TYPE_WEBONLY) = $SYS_TYPE_WEBONLY
                                THEN 11
                            ELSE
                                100
                        END, lower(user_name)
                    ";

                    // ** I did have the idea when ordering by system_options (as done above) to use 'system_options' as the 2nd field
                                // In the order by list...this caused all different combinations to group...I thought it best to order by the main
                                // Option (Batch, Live, IVR, Webonly)...there order by user_name..
                    break;
            }
            $bit_sys_opt = 0;
            $sys_opt_link = "";
            if (isset($sys_opt)) {
                // ** Create a bit-type variable for the addition of these new values
                // *** Figure out the count...
                foreach ($sys_opt as $opt_value) {
                    $bit_sys_opt = ($bit_sys_opt | $opt_value);
                }

                $link_sys_opt = "&sys_opt=$bit_sys_opt";
            } elseif (isset($sys_opt)) {
                $bit_sys_opt = $sys_opt;
                $link_sys_opt = "&sys_opt=$bit_sys_opt";
            } elseif (isset($cookie_sys_opt)) {
                $bit_sys_opt = $cookie_sys_opt;
                $link_sys_opt = "&sys_opt=$bit_sys_opt";
            }

            // *** SET THE COOKIE
            $cookie_val = "orderby=$orderby&cookie_sys_opt=$bit_sys_opt";
      HCU_setcookie_env($SYSENV, "Monitor_View", $cookie_val, time() + 86400);
            if ($bit_sys_opt > 0 ) {
                $sql_sys_opt = " WHERE (system_options & $bit_sys_opt) > 0 ";
            }
            $sql = "SELECT user_name, www_server, vendor, rtrim(name) as name,
                trim(home_page_url), system_options, state, date_live
                            FROM cuinfo
                            $sql_sys_opt
                            ORDER BY $sql_order";

            $sth = db_query($sql, $dbh);

            if ($sth) {

                cu_header("Credit Union Settings Maintenance -- Select Account");
        require( "monitorScriptInclude.prg" ); // html static script header for js and css links


?>
          <style>
            .toTop {
                position: fixed;
                right: 20px;
                top:20px;
                width: 100px;
                z-index: 10010;
                border-radius: 5px;
                box-shadow: 0px 1px 2px #8e8e8e;
            }
            #toTopSection {
                margin: 5px 0 5px 5px;
            }

            #toTopSection a {
              color: #e6f2ff;
              text-decoration: none;
            }
            .k-grid td{
                white-space: nowrap;
                text-overflow: ellipsis;
                line-height: 11px;
                font-size: 14px;
            }
            .lcolor { color: #016103; text-decoration: underline; cursor: pointer; }
            .lcolor:hover {text-decoration: none; }
            .lclosed {color:red}
          </style>
                    <script language="javascript">
                        <!--
                        function view_vendor(vend_code) {
                            var newwin = null;
                            // This function will open a new window and view the vendor information
                            url = "view_vend.prg?vc=" + vend_code;
                            newwin = window.open(url, "VendorInfo", "width=400, height=600, resizeable=yes, scrollbars=yes, status=no, menubar=no, location=no, top=0, left=0");
                        }
                        function keywin() {
                            // This function will open a new window and view the GenKey script
                            window.open("GenKey.prg","GenKey","toolbar=1,location=0,directories=0,status=1,menubar=0,scrollbars=1,resizable=1,width=600,height=430");
                        }
                        function hashwin() {
                            // This function will open a new window for the TicketHash script
                            window.open("TicketHash","TicketHash","toolbar=1,location=0,directories=0,status=1,menubar=0,scrollbars=1,resizable=1,width=600,height=340");
                        }
                        function pktwin(which) {
                            // open a new fullsize window for (www3/www6) packetdump
                            var pktExt = (which == 'my' ? '.prg' : '');
                            window.open("https://" + which + ".homecu.net/hcuadm/packetdump" + pktExt,"packet");
                        }

            var knownServers = ["www", "www3", "www4", "www5", "www6"]; <?php // Everything else is Odyssey. ?>

            $(document).ready(function() {
              $("#menuChoices").kendoMenu({
                  hoverDelay: 300,
                  popupCollision: false
              });

              // make menu visible
              $("#menuChoices").css("display", "block");

              // use a data source to get linkage with the uid
              var dataSource = new kendo.data.DataSource({
                data: gridData,
                schema: {
                  model: {
                    id: "row_id"
                  }
                },
                filter: {field: "closed", operator: "eq", value: false}
              });

              // show the grid
              var cuGrid = $('#cuGrid').kendoGrid({
                  dataSource: dataSource,
                  sortable: {
                    mode: "single",
                    allowUnsort: false
                  },
                  filterable: false,
                  scrollable: false,
                  editable: false,
                  selectable: false,
                  columns: [
                    { field: "cuLink", title: "Credit Union", width:110 },
                    { field: "vendor", title: "Vendor", width:80 },
                    { field: "orgname", title: "CU Name" },
                    { field: "state", title: "State", width:50 },
                    { field: "www", title: "Server", width:50 },
                    { field: "upg_status", title: "Odyssey Status", width:100 },
                    { field: "type", title: "Type", width:90 },
                    { field: "admin", title: " ", width:70 },
                    { field: "bank", title: " ", width:70 },
                    { field: "mindex", title: " ", width:70 }
                  ],
                  dataBound: function(e) {
                     setQuickSearch();
                     $("#showClosedCheckbox").click(function() {
                      var filter= $(this).prop("checked") ? null : {field: "closed", operator: "eq", value: false};
                      cuGrid.dataSource.filter(filter);
                     });
                   },
                  rowTemplate: kendo.template($("#rowTemplate").html())
                }).data("kendoGrid");

                $(cuGrid.tbody).on("click", "td", function (e) {
                  var row = $(this).closest("tr");
                  var colIdx = $("td", row).index(this);
                  var rowId = $(e.currentTarget).closest("tr").attr("id");

                  var dataRow = dataSource.get(rowId);

                  // column name to indices pretties
                  const column = {
                    creditunion : 0,
                    vendorcode  : 1,
                    webpagelink : 2,
                    state       : 3,
                    webserver   : 4,
                    status      : 5,
                    type        : 6,
                    adminlink   : 7,
                    bankinglink : 8,
                    mindexlink  : 9
                  };

                  // handle every cell different
                  if ( colIdx == column.creditunion ) {
                    // either a link or index
                    if ( dataRow["culine"] == true ) {
                      // go to the cu
                      location.href = "<?php echo $infourl?>/hcuadm/cuindex.prg?action=fetch&rowid="+dataRow["cucode"]+"&vc="+dataRow["vendor"]+"&wc="+dataRow["www"];
                    }
                  } else if ( colIdx == column.vendorcode ) {
                    // link to cu web page
                    if ( dataRow["vendor"].length > 0 ) {
                      view_vendor( dataRow["vendor"] );
                    }
                  } else if ( colIdx == column.webpagelink ) {
                    // link to cu web page
                    if ( dataRow["orglink"].length > 0 ) {
                      var urlToOpen = "http://"+dataRow["orglink"];
                      window.open( urlToOpen, "_blank");
                    }
                  } else if ( colIdx == column.webserver ) {
                    // www server
                    if ( dataRow["www"].length > 0 ) {
                      if (dataRow["www"] != 'ivr') {
                        location.href = "<?php echo $infourl?>/hcuadm/servindex.prg?rowid="+dataRow["www"];
                      }
                    }
                  } else if ( colIdx == column.status) {
                    location.href = "<?php echo $infourl?>/hcuadm/cuindex.prg?action=fetch&rowid="+dataRow["cucode"]+"&vc="+dataRow["vendor"]+"&wc=<?php echo $_SERVER['HTTP_HOST']; ?>";
                  } else if ( colIdx == column.adminlink ) {
                    // admin
                    if ( dataRow["admin"] == true && dataRow["www"].length > 0 ) {
                      var urlToOpen = "";
                      if (dataRow["www"] == "ivr") {
                        var server = "https://" + dataRow["www"] + ".homecu.net";
                        urlToOpen = server + "/hcuadm/ivr_mntc?action=admin_login&cu=" + dataRow["cucode"];
                      } else if (dataRow["www"].indexOf("localhost") !== -1) {
                        urlToOpen = "/hcuadm/suAdminUser.prg?cucode=" + dataRow["cucode"] + "&adminuser=" + dataRow["cucode"];
                      } else if (knownServers.indexOf(dataRow["www"]) !== -1) { <?php // Mammoth ?>
                        var server = "https://" + dataRow["www"] + ".homecu.net";
                        urlToOpen = server + "/hcuadm/adm_ticket?username=" + dataRow["cucode"];
                      } else { <?php // Odyssey ?>
                        var server = "https://" + dataRow["www"];
                        urlToOpen = server + "/hcuadm/suAdminUser.prg?cucode=" + dataRow["cucode"] + "&adminuser=" + dataRow["cucode"];
                      }
                      window.open( urlToOpen, "_blank");
                    }
                  } else if ( colIdx == column.bankinglink ) {
                    // banking
                    if ( dataRow["bank"] == true && dataRow["www"].length > 0 ) {
                      var urlToOpen = "";
                      if (dataRow["www"].indexOf("localhost") !== -1) {
                        urlToOpen = "/hcuadm/suCuUser.prg?cucode=" + dataRow["cucode"];
                      } else if (knownServers.indexOf(dataRow["www"]) !== -1) { <?php // Mammoth ?>
                        var server = "https://" + dataRow["www"] + ".homecu.net";
                        urlToOpen = server + "/hcuadm/mem_ticket?cu=" + dataRow["cucode"];
                      } else { <?php // Odyssey ?>
                        var server = "https://" + dataRow["www"];
                        urlToOpen = server + "/hcuadm/suCuUser.prg?cucode=" + dataRow["cucode"];
                      }
                      urlToOpen += dataRow['defBankType'] !== '' ? "&obMbrLogin=" + dataRow['defBankType'] : "";
                      window.open( urlToOpen, "_blank");
                    }
                  } else if ( colIdx == column.mindexlink ) {
                    // mindex
                    var urlToOpen = "";
                    if (dataRow["www"].indexOf("localhost") !== -1) {
                      urlToOpen = "/banking/hcuLogin.prg?cu=" + dataRow["cucode"].toUpperCase();
                    } else if (knownServers.indexOf(dataRow["www"]) !== -1) { <?php // Mammoth ?>
                      var server = "https://" + dataRow["www"] + ".homecu.net";
                      if ([5,6].indexOf(dataRow["mindex"]) !== -1) {
                        urlToOpen = server + "/fi/" + dataRow["cucode"];
                      } else {
                        urlToOpen = server + "/~" + dataRow["cucode"];
                      }
                      urlToOpen += "/mindex.html";
                    } else { <?php // Odyssey ?>
                      var server = "https://" + dataRow["www"];
                      urlToOpen = server + "/banking/hcuLogin.prg?cu=" + dataRow["cucode"].toUpperCase();
                    }
                    window.open( urlToOpen, "_blank");
                  }
                });

                  var keywords = {batch: true, live: true, asp: true, ivr: true, voip: true, webonly: true, upgrade: true, conversion: true, closed: true, setup: true,
                    hbupgrade: true, beta: true, complete: true};
                  var keywordMultiselect = $("#keywordMultiselect").kendoMultiSelect({
                    dataSource: {
                      data: Object.keys(keywords)
                    },
                    placeholder: "Select Keywords...",
                    change: function () {
                      var selected= this.value();
                      var currentString= $("#id_search").val();
                      var oldArray= currentString.split(" ");
                      var newArray= [];
                      var lookup= {};
                      for(var i=0; i!= selected.length; i++)
                      {
                        lookup[selected[i]]= true;
                      }
                      for(var i=0; i!= oldArray.length; i++)
                      {
                        var word= oldArray[i].trim();
                        if (word == "")
                          continue;

                        // If the keyword is not in the predefined list of keywords or if it is selected, then add it the new list.  Otherwise, mark it to not add it later.
                        if (typeof(keywords[oldArray[i]]) == "undefined")
                          newArray.push(oldArray[i]);
                        else if (typeof(lookup[oldArray[i]]) != "undefined" && lookup[oldArray[i]])
                        {
                          newArray.push(oldArray[i]);
                          lookup[oldArray[i]]= false; // prevent adding duplicate words
                        }
                        else
                          lookup[oldArray[i]]= false;
                      }
                      // Add keywords selected in the multiselect if they aren't already in the list.
                      for(var i=0; i!=selected.length; i++)
                      {
                        if (lookup[selected[i]] == "undefined" || lookup[selected[i]])
                          newArray.push(selected[i]);
                      }
                      $("#id_search").val(newArray.join(" "));
                      $("#id_search").keyup();
                    }
                  }).data("kendoMultiSelect");

               /*$('input#id_search').quicksearch('table#culist tbody tr');*/

               function setQuickSearch() {
                  // this has to be after the grid is created!!!
                  $('input#id_search').quicksearch('div#cuGrid tbody tr', {
                      'stripeRows': ['odd', 'even'],
                      'loader': 'span.loading'
                  });

                  $("#id_search").focus();

                  $("#id_search").keyup(function () {
                    var newArray= $(this).val().split(" ");
                    var multiselectArray= [];
                    for (var key in keywords) // clear out flags in keywords.
                    {
                      if (keywords.hasOwnProperty(key))
                        keywords[key]= true;
                    }
                    for (var i=0; i!=newArray.length; i++)
                    {
                      var word= newArray[i].trim();
                      if (word != "" && typeof(keywords[newArray[i]]) != "undefined" && keywords[newArray[i]])
                      {
                        multiselectArray.push(newArray[i]);
                        keywords[newArray[i]]= false; // prevent duplicates in array.
                      }
                    }
                    $("#keywordMultiselect").data("kendoMultiSelect").value(multiselectArray);
                  });
               }
            });
            function Close_DropDown( idToClose ) {
              $("#" +idToClose).css("visibility","hidden");
            }
                        // -->
                    </script>
<script id="rowTemplate" type="text/x-kendo-template">
    <tr data-uid="#= uid #" id="#= id #">
        <td>
          #if ( culine ) {# <span class='lcolor #= color#'>#= cuLink#</span> #} else {# #= cuLink# #}#
        </td>
        <td>
          # if ( vendor.length > 0 ) { # <span class='lcolor'>#=vendor#</span>#}#
        </td>
        <td>
          # if ( orglink.length > 0 ) {# <span class='lcolor'>#= orgname#</span> #} else { # #= orgname # #}#
        </td>
        <td>
          #= state#
        </td>
        <td>
          # if ( www.length > 0 ) {# <span class='lcolor'>#= www#</span> #} else { #  #}#
        </td>
        <td>
          #if ( upg_status ) {# <span class='lcolor #= color#'>#= upg_status #</span> #} else {# #= upg_status # #}#
        </td>
        <td>
          #= type#
        </td>
        <td>
          # if ( admin ) { # <span class='lcolor'>Admin</span>#}#
        </td>
        <td>
          # if ( bank ) { # <span class='lcolor'>Banking</span>#}#
        </td>
        <td>
          # if ( mindex ) { # <span class='lcolor'> # if ( mindex == 999) { # login # } else { # mindex # } #</span>#}#
        </td>
    </tr>
</script>
      <div class='k-block toTop'>
        <div id="toTopSection">
          <a href=#top>Back To Top</a>
        </div>
      </div>
<?php
                echo "<a id=\"top\" name=\"top\"></a>";
        echo "<div class='dmsculist.prg' style='width:95%; border-radius: 5px;'>\n";
        echo "<div class='bar' style='width:100%; text-align:center;'>SELECT CREDIT UNION</div>";
        spewmenu();

        // this feature causes a sorting issue in the grid because extra characters are put in with the CU Name
                if ( false ) {
                    echo "<div style='padding-top:25px; text-align:center;'>";
          echo "Index: ";
                    for ($adx=ord("A"); $adx <= ord("Z"); $adx++) {
                        echo "<a href=#" . chr($adx) . ">" . chr($adx) . "</a> &nbsp;";
          }
                echo "</div>";
                }
?>
<div style='text-align:center; padding-left:40%; padding-top:10px; height: 30px;'>
  <span style='float:left;'>Search List:
    <input type='text' name='search' size=30 id='id_search' placeholder='Search' autofocus style='display: inline;font-size: 1.2em;' class='k-input' />
  </span>
  <span style='float:left; margin-left:5px;'>
    <div id='keywordMultiselect' style='width: 200px;'></div>
  </span>
  <span style="float:left; margin-left: 15px;">
    Show closed: <input id='showClosedCheckbox' type='checkbox'>
  </span>
  <span style='float:left;'><span class='loading' style='display: none;'>Loading...</span></span>
</div>
<?php
                $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
                }
        $gridData = array();
        $totalCount = 0;
        $closedCount = 0;
        $liveCount = 0;
        $batchCount = 0;
        $webonlyCount = 0;
        $upgradeCount = 0;
        $www3Count = 0;
        $www4Count = 0;
        $www5Count = 0;
        $www6Count = 0;
        $myCount = 0;
        $localCount = 0;

                for ($row = 0; list($user_name, $www_server, $vendor, $orgname, $homepage, $system_options, $cu_state, $date_live) = db_fetch_array($sth,$row); $row ++) {
                    $user_name = trim($user_name);

          $indexLink = "";
                    if ( false ) {
                        $cur_ascii = (ord(strtoupper(substr($$use_field, 0, 1))) > $cur_ascii ? 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
                            for ($adx = $lst_ascii + 1; $adx <= $cur_ascii; $adx++) {
                                $indexLink .= sprintf("<a name=%s></a>\n", chr($adx));
              }

              $lst_ascii = $cur_ascii;

                        }
                    }

                    // display list w/link to self ?action=fetch and ?action=delete
                    $admlink = "";
                    $memlink = "";
                    $mnulink = "";

                    // Create the Vendor link for the menu item
                    $vendor_url = "<a href=\"javascript:view_vendor('" . trim($vendor) . "')\" onMouseOver=\"status='View " .
                                                    trim($vendor) . " Information'; return true;\" onMouseOut=\"status='';\">" . trim($vendor) . "</a>";
                    $vend_link = (trim($vendor) == '' ? "" : $vendor_url);
                    $vend_show = (trim($vendor) == '' ? "" : "&vc=". trim($vendor));
                    $www_show = (trim($www_server) == '' ? "" : "&wc=$www_server");

          $orglink = ("$homepage" == "" ? $orgname : "<a href='http://$homepage' target='_blank'>$orgname</a>");

                    if ((($system_options & $SYS_TYPE_CLOSED) != $SYS_TYPE_CLOSED) && !((($system_options & $SYS_TYPE_IVR) == $SYS_TYPE_IVR || ($system_options & $SYS_TYPE_VOIP) == $SYS_TYPE_VOIP) && (($system_options & $SYS_TYPE_BATCH) != $SYS_TYPE_BATCH && ($system_options & $SYS_TYPE_LIVE) != $SYS_TYPE_LIVE))) {
            $admlink = (trim($www_server) == '' ? false : true);
          }
                    if ((($system_options & $SYS_TYPE_CLOSED) != $SYS_TYPE_CLOSED) && (($system_options & $SYS_TYPE_WEBONLY) != $SYS_TYPE_WEBONLY) && !((($system_options & $SYS_TYPE_IVR) == $SYS_TYPE_IVR || ($system_options & $SYS_TYPE_VOIP) == $SYS_TYPE_VOIP) && (($system_options & $SYS_TYPE_BATCH) != $SYS_TYPE_BATCH && ($system_options & $SYS_TYPE_LIVE) != $SYS_TYPE_LIVE))) {
            $memlink = (trim($www_server) == '' ? false : true);
          }
                    if ((($system_options & $SYS_TYPE_CLOSED) != $SYS_TYPE_CLOSED) && (($system_options & $SYS_TYPE_WEBONLY) != $SYS_TYPE_WEBONLY) && !((($system_options & $SYS_TYPE_IVR) == $SYS_TYPE_IVR || ($system_options & $SYS_TYPE_VOIP) == $SYS_TYPE_VOIP) && (($system_options & $SYS_TYPE_BATCH) != $SYS_TYPE_BATCH && ($system_options & $SYS_TYPE_LIVE) != $SYS_TYPE_LIVE))){
            switch (trim(strtolower($www_server))) {
              case "":
                $mnulink = 0;
                break;
              case "www3":
                $mnulink = 3;
                break;
              case "www5":
                $mnulink = 5;
                break;
              case "www6":
                $mnulink = 6;
                break;
              default:
                $mnulink = 999;
                break;
            }
          }
                    $print_HomeCU_Type = "";
                    $print_HomeCU_Type .= ($system_options & $SYS_TYPE_BATCH ? "B" : "");
                    $print_HomeCU_Type .= ($system_options & $SYS_TYPE_LIVE ? (strlen($print_HomeCU_Type) > 0 ? " / " : "") . ($system_options & $SYS_TYPE_LIVE ? "L" : "") : "");
                    $print_HomeCU_Type .= ($system_options & $SYS_TYPE_ASP ? (strlen($print_HomeCU_Type) > 0 ? " / " : "") . ($system_options & $SYS_TYPE_ASP ? "A" : "") : "");
                    $print_HomeCU_Type .= ($system_options & $SYS_TYPE_IVR ? (strlen($print_HomeCU_Type) > 0 ? " / " : "") . ($system_options & $SYS_TYPE_IVR ? "I" : "") : "");
                    $print_HomeCU_Type .= ($system_options & $SYS_TYPE_VOIP ? (strlen($print_HomeCU_Type) > 0 ? " / " : "") . ($system_options & $SYS_TYPE_VOIP ? "V" : "") : "");
                    $print_HomeCU_Type .= ($system_options & $SYS_TYPE_WEBONLY ? (strlen($print_HomeCU_Type) > 0 ? " / " : "") . ($system_options & $SYS_TYPE_WEBONLY ? "W" : "") : "");
                    $print_HomeCU_Type .= ($system_options & $SYS_TYPE_UPGRADE ? (strlen($print_HomeCU_Type) > 0 ? " / " : "") . ($system_options & $SYS_TYPE_UPGRADE ? "U" : "") : "");
                    // $print_HomeCU_Type .= ($system_options & $SYS_TYPE_CLOSED ? (strlen($print_HomeCU_Type) > 0 ? " / " : "") . ($system_options & $SYS_TYPE_CLOSED ? "C" : "") : "");
                    $print_HomeCU_Type = ($system_options & $SYS_TYPE_CLOSED ? "C" : $print_HomeCU_Type);

          // ** CREATE KEY WORDS
          $search_HomeCU_Type = "";
                    $search_HomeCU_Type .= ($system_options & $SYS_TYPE_BATCH ? ":BATCH:" : "");
                    $search_HomeCU_Type .= ($system_options & $SYS_TYPE_LIVE ? ":LIVE:" : "");
                    $search_HomeCU_Type .= ($system_options & $SYS_TYPE_ASP ? ":LIVE:ASP:" : "");
                    $search_HomeCU_Type .= ($system_options & $SYS_TYPE_IVR ? ":IVR:" : "");
                    $search_HomeCU_Type .= ($system_options & $SYS_TYPE_VOIP ? ":VOIP:" : "");
                    $search_HomeCU_Type .= ($system_options & $SYS_TYPE_WEBONLY ? ":WEBONLY:" : "");
                    $search_HomeCU_Type .= ($system_options & $SYS_TYPE_UPGRADE ? ":UPGRADE:CONVERSION:" : "");
                    $search_HomeCU_Type .= ($system_options & $SYS_TYPE_CLOSED ? ":CLOSED" : "");
          /* Add Search String for the Upgrade Status */
          $search_HomeCU_Type .= ($system_options & $SYS_TYPE_UPG_TEST ? ":SETUP:HBUPGRADE:UPGRADE" : "");
          $search_HomeCU_Type .= ($system_options & $SYS_TYPE_UPG_BETA ? ":BETA:HBUPGRADE:UPGRADE" : "");
          $search_HomeCU_Type .= ($system_options & $SYS_TYPE_UPG_COMP ? ":COMPLETE:HBUPGRADE:UPGRADE" : "");

          // gather some stats
          if ( ($system_options & $SYS_TYPE_CLOSED) == $SYS_TYPE_CLOSED ) {
            $closedCount++;
          } else {
            if ( ($system_options & $SYS_TYPE_BATCH) == $SYS_TYPE_BATCH ) {
              $batchCount++;
            }
            if ( ($system_options & $SYS_TYPE_LIVE) == $SYS_TYPE_LIVE ) {
              $liveCount++;
            }
            if ( ($system_options & $SYS_TYPE_WEBONLY) == $SYS_TYPE_WEBONLY ) {
              $webonlyCount++;
            }
          }
          // which server - exclude closed and webonly
          if ( (($system_options & $SYS_TYPE_CLOSED) != $SYS_TYPE_CLOSED) && (($system_options & $SYS_TYPE_WEBONLY) != $SYS_TYPE_WEBONLY) ) {
            $serverTest = trim(strtolower($www_server));
            if ( $serverTest === "www3" ) {
              $www3Count++;
            } else if ( $serverTest === "www4" ) {
              $www4Count++;
            } else if ( $serverTest === "www5" ) {
              $www5Count++;
            } else if ( $serverTest === "www6" ) {
              $www6Count++;
            } else if ( $serverTest === "my.homecu.net") {
              $myCount++;
            } else if ( strpos($serverTest, "localhost") !== false) {
              $localCount++;
            }
          }

          $linkColor = (($system_options & $SYS_TYPE_CLOSED) == $SYS_TYPE_CLOSED ? 'lclosed' : '');
          // place the first letter anchors with the name of the CU
          $cuLink = sprintf( "$indexLink%s", $user_name ); // what about link color if not active???
          $wwwLink = sprintf( "<span class='lcolor'>%s</span>", trim($www_server) );
          $type = sprintf( "%s&nbsp;<span style='display:none;'>%s</span>", $print_HomeCU_Type, $search_HomeCU_Type );

          if ($date_live != '') {
            $obMbrLogin = 'CLS';    // Classic
          } else {
            $obMbrLogin = 'UPG';    // Default to Upgrade if date_live is NOT set, this is a new CU.
          }
          /*
           * Create the string for the HB Upgrade Status
           */
          $hbStatusText = '';
          if ($system_options & $SYS_TYPE_UPG_TEST) {
            $hbStatusText = 'SETUP';
          } elseif ($system_options & $SYS_TYPE_UPG_BETA) {
            $hbStatusText = 'BETA';
          } elseif ($system_options & $SYS_TYPE_UPG_COMP) {
            $hbStatusText = 'COMP';
            $obMbrLogin = 'UPG';    // Upgrade -- Always set to UPG
            // another statistic
            $upgradeCount++;
          } else if ($system_options & $SYS_TYPE_WEBONLY) {
            $hbStatusText = 'N/A';
          }
          // make an array entry of the data
          $dataEntry = array( "row_id" => $row, "culine" => true, "cuLink" => $cuLink, "cucode" => $user_name, "vendor" => trim($vendor),
                              "orgname" => $orgname, "orglink" => $homepage, "color" => $linkColor,
                              "state" => trim($cu_state), "www" => trim($www_server), "upg_status" => $hbStatusText,"type" => $type,
                              "admin" => $admlink, "bank" => $memlink, "defBankType" => $obMbrLogin, "mindex" => $mnulink, "closed" => ($system_options & $SYS_TYPE_CLOSED) != 0);
          // add it to the grid data array
          $gridData[] = $dataEntry;

          $totalCount++;
                }


        echo "<div id='cuGrid'></div>\n";
        $finalIndexLink = "";
                if ($use_field <> "N") {
                    if ($cur_ascii < ord("Z")) {
                        for ($adx = $cur_ascii + 1; $adx <= ord("Z"); $adx++) {
              $finalIndexLink .= sprintf("<a name=%s></a>\n", chr($adx));
            }
                    }
                }
        echo $finalIndexLink;

        echo "Live: $liveCount, Batch: $batchCount, WebOnly: $webonlyCount, Total: $totalCount, Closed: $closedCount, Net: " . ($totalCount - $closedCount);
        echo " &nbsp; &nbsp; &nbsp; Server counts - ";
        $separator = "";
        if ( $www3Count > 0 ) {
          echo "{$separator}www3: $www3Count";
          $separator = ", ";
        }
        if ( $www4Count > 0 ) {
          echo "{$separator}www4: $www4Count";
          $separator = ", ";
        }
        if ( $www5Count > 0 ) {
          echo "{$separator}www5: $www5Count";
          $separator = ", ";
        }
        if ( $www6Count > 0 ) {
          echo "{$separator}www6: $www6Count";
          $separator = ", ";
        }
        if ( $myCount > 0) {
          echo "{$separator}Odyssey: $myCount";
          $separator = ", ";
        }
        if ( $localCount > 0) {
          echo "{$separator}Localhost: $localCount";
          $separator = ", ";
        }

        echo " &nbsp; &nbsp; &nbsp; Odyssey Migrations Remaining: " . ($liveCount + $batchCount - $upgradeCount);

        // end the border
                echo "</div>\n";

        print "<script language=\"javascript\">\n";
                print "<!--\n";
        print "  var gridData = " . json_encode( $gridData ) . "\n";
        print "// -->\n";
        print "</script>\n";

                $set_sys_opt[0] = "";
                $set_sys_opt[1] = "";
                $set_sys_opt[2] = "";
                $set_sys_opt[4] = "";
                $set_sys_opt[8] = "";
                $set_sys_opt[16] = "";
                $set_sys_opt[32] = "";
                $set_sys_opt[64] = "";
                if ($bit_sys_opt > 0) {
                    foreach ($set_sys_opt as $key=>$value) {
                        $set_sys_opt[$key] = (($key & $bit_sys_opt) > 0 ? "CHECKED" : "");
                    }
                }
                print <<< print_html

                    <div id="ShowId" class="dtl" style="position:absolute;left:0px;top:0px;visibility:hidden;border:1px solid black;">
                        <form action="/hcuadm/mtrList.prg?action=list&orderby={$orderby}" method="post">
                        <table border=0 cellpadding=0 cellspacing=0 width='%'>
                            <tr>
                                <td class='iright'>
                                    <input type='checkbox' name='sys_opt[]' value='1' {$set_sys_opt[1]}>Batch
                                </td>
                            </tr>
                            <tr>
                                <td class='iright'>
                                    <input type='checkbox' name='sys_opt[]' value='2' {$set_sys_opt[2]}>Live
                                </td>
                            </tr>
                            <tr>
                                <td class='iright'>
                                    <input type='checkbox' name='sys_opt[]' value='4' {$set_sys_opt[4]}>ASP
                                </td>
                            </tr>
                            <tr>
                                <td class='iright'>
                                    <input type='checkbox' name='sys_opt[]' value='8' {$set_sys_opt[8]}>IVR
                                </td>
                            </tr>
                            <tr>
                                <td class='iright'>
                                    <input type='checkbox' name='sys_opt[]' value='16' {$set_sys_opt[16]}>Web Only
                                </td>
                            </tr>
                            <tr>
                                <td class='iright'>
                                    <input type='checkbox' name='sys_opt[]' value='32' {$set_sys_opt[32]}>Upgrade / Conversion
                                </td>
                            </tr>
                            <tr>
                                <td class='iright'>
                                    <input type='checkbox' name='sys_opt[]' value='64' {$set_sys_opt[64]}>Closed CU
                                </td>
                            </tr>
                            <tr>
                                <td class='iright'>
                                    <input type='checkbox' name='sys_opt[]' value='0' {$set_sys_opt[0]}>ALL
                                </td>
                            </tr>
                            <tr>
                                <td class='iright'>
                                    <hr>
                                </td>
                            </tr>
                            <tr>
                                <td class='iright' >
                                    <a href='javascript:Close_DropDown("ShowId");'>Close</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                                    <input type='submit' name='btnShowType' value='Show'>
                                </td>
                            </tr>
                        </table>
                        </form>
                    </div>
print_html;
                            cu_footer();
    }
function spewmenu() {
# actual menu code is in menu.js
global $use_cookie, $PHP_SELF, $ivrHostName, $Hu, $infourl, $SYSENV, $link;
    $checkhost = substr(strtolower($_SERVER['HTTP_HOST']),0,4);
        $rdcinq=' <li>Mobile RDC Inquiry
                <ul>
                  <li><a href="https://my.homecu.net/hcuadm/hcuRDCStatus.prg">Odyssey</a></li>
                  <li><a href="https://www3.homecu.net/hcuadm/hcuRDCStatus">Live (www3)</a></li>
                  <li><a href="https://www6.homecu.net/hcuadm/hcuRDCStatus">Live (www6)</a></li>
                  <li><a href="https://www5.homecu.net/hcuadm/hcuRDCStatus">Batch</a></li>
                </ul>
              </li>';
        $loggingReportLink= "
              <li>Vendor Logging Report
                <ul>
                  <li><a href=\"https://my.homecu.net/hcuadm/loggingReport.prg\">Odyssey</a></li>
                  <li><a href=\"https://www3.homecu.net/hcuadm/loggingReport\">Live (www3)</a></li>
                  <li><a href=\"https://www6.homecu.net/hcuadm/loggingReport\">Live (www6)</a></li>
                  <li><a href=\"https://www5.homecu.net/hcuadm/loggingReport\">Batch</a></li>
                </ul>
              </li>";

    // Only show Translation Maintenance in devmode=1
    $transAm = "";
    if ($SYSENV['devmode'] == 1) {
      $transAm = "<li><a href=\"hcuTransAm.prg?callback={$_SERVER["HTTP_HOST"]}\">Translation Maintenance</a></li>";
    }

    $server = strtolower($_SERVER['HTTP_HOST']);

    $trustedReportLink = "<li><a href='TrustedReport.prg'>Trusted Vendor Report</a></li>";

    $billingMenu = CheckPerm($link, $Hu, "billing", $_SERVER['REMOTE_ADDR']) ? "<li><a href='/billing/index.prg'>Billing System</a></li>" : "";

// This feature was taken out since not being implemented yet
//      <li><a href="ProdImpStat">Product Feature Status</a></li>
//print '<div style="width:90%; margin-left:5%;">';
print <<< MENU
<ul id="menuChoices" style='display:none;'>
    <li>Tools
        <ul>
        <li><a href="javascript:keywin()">Generate Key</a></li>
    <li>Packet Tester
      <ul>
        <li><a href="javascript:pktwin('my')">Odyssey</a></li>
        <li><a href="javascript:pktwin('www3')">www3</a></li>
        <li><a href="javascript:pktwin('www6')">www6</a></li>
      </ul>
    </li>
        <li><a href="quickedit.prg">Quick Edits</a></li>
        <li><a href="javascript:hashwin()">Ticket Hashes</a></li>
        
    <li><a href="https://wiki.boi.homecu.int/">HomeCU Wiki</a></li>

        $transAm
        $rdcinq
        $loggingReportLink
        $billingMenu
        <li>App Report<ul><li><a href="appreport_gp_client.prg">Google Play</a></li></ul></li>
        <li><a href="/hcuadm/mBroadcastEmail.prg">Broadcast Emails</a></li>
        </ul>
  </li>

    <li>Reports
        <ul>
    <li><a href="cuissues_report.prg">Current Jobs</a></li>
        <li><a href="adm_reports.prg">Banking Reports</a></li>
        <li><a href="stmnt_reports.prg">eStatement Reports</a></li>
        <li><a href="info_reports.prg">Info Reports</a></li>
        <li><a href="showflags.prg">Processing Flags</a></li>
        <li><a href="showhavetrans.prg">Transaction Settings</a></li>
        <li><a href="domain_email_report.prg">E-Mail Reporting</a></li>
    <li><a href="miPayReport.prg">iPay Reporting</a></li>
    <li>Alerts / Recur
      <ul>
        <li><a href="https://my.homecu.net/hcuadm/alertrecreport.prg">Odyssey</a></li>
        <li><a href="https://www3.homecu.net/hcuadm/alertrecreport">www3</a></li>
        <li><a href="https://www6.homecu.net/hcuadm/alertrecreport">www6</a></li>
      </ul>
    </li>
        <li><a href="gatherlaststatus.prg">Last Live Status</a></li>
        <li><a href="cuproduct_report.prg?show_product=1">Current CU Products</a></li>
        <li><a href="https://{$ivrHostName}/hcuadm/ivr_report">IVR Report</a></li>
    <li>Core Requests
      <ul>
        <li><a href="mCorerequestsReport.prg">Odyssey</a></li>
        <li><a href="https://www3.homecu.net/hcuadm/corerequests_report">www3</a></li>
        <li><a href="https://www6.homecu.net/hcuadm/corerequests_report">www6</a></li>
      </ul>
    </li>
        $trustedReportLink
        <li><a href="TrustedVendorByCu.prg">Vendor Report by CU</a></li>
        </ul>

  </li>
    <li>Tables
        <ul>
        <li><a href="cuinfoedit.prg">Add CU</a></li>
        <li><a href="admin_msg.prg">Admin Messages</a></li>
        <li><a href="cuprogmntc.prg">Admin Programs</a></li>
        <li><a href="admin_survey.prg">Surveys</a></li>
        <li><a href="cuquest.prg">Challenge Questions</a></li>
        <li><a href="cuimage.prg">Image Vendors</a></li>
        <li><a href="cuissuesmntc.prg">Maintain Job Templates</a></li>
        <li><a href="hcuusers.prg">Monitor Users</a></li>
        <li><a href="cusso.prg">SSO Vendors</a></li>
        <li><a href="cutrans.prg">Transaction Codes</a></li>
        <li><a href="cuvndr.prg">Vendors</a></li>
    <li><a href="cutrustvendor.prg">Trusted Vendors</a></li>
    <li><a href="hcu_prod_list.prg">Products</a></li>
    <li><a href="lnappLookup.prg">Online Loan Lookups</a></li>
        <li><a href="hcu_custom_mntc.prg">Custom Content Files</a></li>
    <li><a href="mEstmntMntc.prg">eStatement Maintenance</a></li>
        <li><a href="https://{$ivrHostName}/hcuadm/ivr_mntc_msg.prg">IVR Message Codes</a></li>
    <li><a href="mFeatureLst.prg">Home CU Features</a></li>
        </ul>
  </li>
MENU;

//  if ($use_cookie) {
        // * Print Reset Link for Cookie
        print "<li><a href='$PHP_SELF?action=list&reset_cookie=1'>Reset Monitor View</a></li>";
//  }

// note: there is some pixel width used by a border or something
print <<<MENU
  <li><a href="/hcuadm/hcu_logout.prg">Logoff Monitor</a></li>
</ul>
MENU;

//print '</div>';

}