RestrictTran.prg

<?php 
require_once("dms_imp_val.i");

$dms_ok=array('set_restrict'=>'string','unset_restrict'=>'string',
'mode'=>'string','ft'=>'digits');
dms_import($dms_ok);

    $err_msg = "";
    // ** CHECK FOR SETTING THE VALUE
    if (isset($set_restrict)) {
        // ** SET THE VALUE TO RESTRICT
        $Tran_Ret = Restrict_Tran('rt');
        if ($Tran_Ret == "000") {
            $err_msg = "Transactions are now set to restricted.";
        } else {
            $err_msg = "An error occurred while trying to set transactions to restricted.  Please try again.";
        }
    } elseif (isset($unset_restrict)) {
        // ** UNSET THE RESTRICT VALUE
        $Tran_Ret = Restrict_Tran('ut');
        if ($Tran_Ret == "000") {
            $err_msg = "Transactions have been set to unrestricted.";
        } else {
            $err_msg = "An error occurred while trying to unrestrict transactions.  Please try again.";
        }
    }


    // ** Get the current status of the flag
    $Tran_Ret = Restrict_Tran('qt');
    switch ($Tran_Ret) {
        case "999":
            $restrict_set = true;
            break;
        case "000":
            $restrict_set = false;
            break;
        default:
            // ** FOR ALL ELSE -- FUNCTION FAILED
            break;
    }
?>
    <form name="checkinfo" method="post" action="<?php echo $menu_link; ?>?ft=<?php echo intval($ft); ?>">
        <input type="hidden" name="mode" value="VIEW">
        <br>
        <table width="90%" border=0 cellpadding=0 cellspacing=0>
            <tr>
                <td class="bar" align="center">
                    Restrict Transactions for <?php echo $Cu; ?>
                </td>
            </tr>
            <?php if ($err_msg != ""): ?>
                <tr>
                    <td class="msg" align="center">
                        <?php echo $err_msg; ?>
                    </td>
                </tr>
            <?php endif; ?>
            <tr>
                <td align=center class='dtl'>
                        <font size="4" color="red">
                            WARNING!<br>
                          This will restrict all transactions from being processed.  <br>Be sure this is what you want to do.
                        </font>
                    </td>
                </tr>
                <tr>
                    <td class='dtl'>
                        Currently Restrict Transactions is set to 
                            <span style="font-weight: bold; color: red;" class="err2"><?php echo ($restrict_set ? "Restrict" : "UnRestrict"); ?></span>
                    </td>
                </tr>
                <tr><td class="dtl"><hr></td></tr>
                <tr>
                    <td class='dtl'>
                        You may change the transactions setting for <?php echo $Cu; ?> by selecting a button below.
                    </td>
                </tr>
                <tr>
                    <td class='dtl'>
                        <input type="submit" value="Set to Restrict" name="set_restrict">
                        <input type="submit" value="Set to UnRestrict" name="unset_restrict">
                    </td>
                </tr>
                <tr><td class="dtl">&nbsp;</td></tr>
            </table>
            </td></tr></table>
        </form>

<?php

/* 
    * Function:     Restrict_Tran
    * Purpose:      this function will get the status and set the Restrict function based on the parameter passed
    * Parameters: stat_type - qt -- Query For the current Transaction Setting
                                                        rt --   Set the Transactions to Restricted
                                                        ut -- Set the Transactions to UnRestricted
*/
function Restrict_Tran($stat_type) {
global $Cu, $dbh;

    // ** FOR THIS CU -- Setup information so I can contact the CORE system
    $sql = "SELECT liveserver
                    FROM cuadmin 
                    WHERE cu = '$Cu' ";
    $sth = db_query($sql,$dbh);
    list($Cs) = db_fetch_array($sth,0);
    db_free_result($sth);

    $FETCHER = $Cs;

    // ** FETCH STATUS
    $fd = @fopen("$FETCHER?type=$stat_type&member=99999999", "r");
    if ($fd)  {
        // ** Start reading file
        while ($buff = fread ($fd, 1500)) {
            $packet .= $buff;
        }

        // break file up into pieces
        $pktpieces = array();
        $pktpattern='/<([^<>\/]*)>(.*)<\/\\1>/Us';
        $inqpattern='/<\/*Inquiry>/i';


        preg_match_all("$pktpattern",preg_replace($inqpattern,"",$packet),$pktpieces);

        array_shift($pktpieces);
        foreach ($pktpieces[0] as $pos => $tag) {
            $tags[(strtolower($tag))] = $pos;
        }
        array_shift($pktpieces);
        list($mem, $pcutoff) = explode("\t",$pktpieces[0][($tags['parameters'])]);
        // if the packet presents a cutoff date, let it override our request
        $cutoff = (trim($pcutoff) == "" ? trim($cutoff) : trim($pcutoff));
        list($mem, $statcode, $statdesc) = explode("\t",$pktpieces[0][($tags['status'])]);

        fclose($fd);
    } else {
        $statcode = "";
    }

    return $statcode;
}
?>