makecu.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('Cu'=>'string','Cl'=>'string','cu_name'=>'string','Cv'=>'string','Cr'=>'string','Cs'=>'string');

dms_import($dms_ok);

    cu_header("HomeCU - Credit Union Implementation");
// ** SET UP GENERAL INFORMATION for cuset
    $cuset = "/usr/local/bin/cuset";

    // If the batch type is 'W', then always set vendor to WEBONLY
    if ($Cl == 'W') {
        $set_vend = "WEBONLY";
        $opt_val = " -w";
        $t_val = "W";
    } else {
        if ( $Cv == 'ST-BSDC' ||
            $Cv == 'ST-DSOT' ||
            $Cv == 'ST-GBS' ||
            $Cv == 'ST-NDS' ) {
            $set_vend = "SHARETEC";
        } else {
            $set_vend = $Cv;
        }
        $opt_val = "";
        $t_val = ($Cl == "L" ? "L" : "B");
    }


print "<LINK REL=stylesheet HREF='/monitor/css/monitor.css' TYPE='text/css'>
<form>
<center>
<table width='500' border=0 cellpadding=3 cellspacing=0 class='dmsbg'>
<tr><td>
<table width='100%' border=0 cellpadding=2 cellspacing=0 bgcolor='white'>
    <tr>
        <td colspan=2 class='bar' align='center'>
            <font size='5'>Create Credit Union User</font>
        </td>
    </tr>
    <tr>
        <td align=right width='30%' class='hdr'>
            CU User Name:
        </td>
        <td width='70%' class='dtl'>" .
            htmlspecialchars(trim($Cu)) .
        "</td>
    </tr>
    <tr>
        <td align=right width='30%' class='hdr'>
            Name:
        </td>
        <td width='70%' class='dtl'>" .
            htmlspecialchars(trim($cu_name)) .
        "</td>
    </tr>";
        $err = "";
        // Check for the creation of the credit union already,
        // If the home directory exists on this server, OR
        // the record exists in this cuadmin table, then

        if (!isset($cu_name) || strlen($cu_name) == 0) {
            $err .= "<li>The name of the credit union code.  Be sure the information was saved.<br>";
        }
        if (!isset($Cu) || strlen($Cu) == 0) {
            $err .= "<li>The credit union code is missing.  Be sure the information was saved.<br>";
        }
        if (!isset($Cl) || strlen($Cl) == 0) {
            $err .= "<li>The credit union CU Type is missing.  Be sure the information was saved.<br>";
        }
        if (!isset($Cv) || strlen($Cv) == 0) {
            $err .= "<li>The credit union vendor is missing.  Be sure the information was saved.<br>";
        } else {
                if ($Cl == 'B') {
            // ** Validate the Vendor has a .pi file
            // *** Use set_vend as this script will be adjusted for Sharetec and webonly $vend_file = "/home/cuskel/bin/{$Cv}.pi";
            $vend_file = "/home/cuskel/bin/{$set_vend}.pi";
            if (!is_file($vend_file)){
                // The file was not found, report this error so they no that it still needs to be setup
                $err .= "<li>The vendor does not have an upload script.  One must be created before this credit union can be used.<br>";
            }
        }
        }
        $sql = "SELECT cu, user_name
                        FROM cuadmin
                        WHERE user_name = '" . prep_save($Cu) . "' ";

        $cu_rs = db_query($sql, $link);
        if ($cu_row = db_fetch_array($cu_rs, 0)) {
            // Only fetch the first row
            // There is already a record
            $err .= "<li>The credit union {$Cu} already has a record in the credit union table.<br>";
        } else {
            // There was no record, so this is good,
            // Now we want to take the current home directory and see if it exists
            $cu_home_dir = "/home/{$Cu}";
            if (is_dir($cu_home_dir)) {
                // the directory exists, report an error here
                $err .= "<li>The credit union {$Cu} already has a home directory.<br>";
            }
        }
        db_free_result($cu_rs);

        if (strlen($err) > 0) {
            $err = "The credit union you selected can not be setup at this time.<br>
                             This is the reason it can not be setup.<br>$err<br><br>
                             Please see the Credit Union Admininstrator if this information is incorrect.<br>
                             Thank you for using this utility<br><br>
                             <a href='$infourl/hcuadm/imp_menu.prg'>Return to the Implementation Menu</a>";
            print "<tr>
                <td colspan='2' align='center' class='err'>$err
                </td>
            </tr>";


        } else {
            $field_val = "";
            switch($Cl) {
                case "B":
                    $field_val = "Batch";
                    break;
                case "L":
                    $field_val = "Live";
                    break;
                case "W":
                    $field_val = "Web ONLY";
                    break;
                case "I":
                    $field_val = "IVR";
                    break;
                default:
                    $field_val = "UNKNOWN";
                    break;
            }
        print "<tr>
                <td align=right class='hdr'>
                Home CU Type:
                    </td>
                    <td  class='dtl'>
                        $field_val
                    </td>
                </tr>
            <tr><td align=right class='hdr'>Home Page URL: </td>
                <td class='dtl'>" .
                    htmlspecialchars(trim($Cr)) .
                "</td>
            </tr>
            <tr><td align=right class='hdr'>Vendor: </td>
                <td class='dtl'>" .
                     htmlspecialchars(trim($Cv)) .
                "</td>
            </tr>
            <tr>
                <td colspan='2' class='ahd'>
                    Login into the server <b> {$Cs} </b>
                    <br>
                    You will need to be root to setup the credit union.
                    <br>
                    This is the command to setup credit union <b> {$Cu} </b>
<br><br><nobr>";

                        $domain = $Cr;
                        $domain = preg_replace("/^http[s]?:\/\//i","",$domain);
                        $domain = preg_replace("/^www./i","",$domain);
                        $domain = trim($domain);

                        $param = " -u {$Cu} -n \"" . $cu_name . "\"" ;
                        if ($domain > '') {
                            $param .= " -d $domain";
                        }
                            $param .= " -v $set_vend"
                                             . " -t $t_val"
                                             . $opt_val;

                        $command = $cuset . " " . $param;
                        print "$command
                </nobr></td>
            </tr>
            <tr>
                <td colspan='2'>
                    <a href='$infourl/hcuadm/imp_menu.prg'>Return to Implementation Menu</a><br>
                    <a href='$infourl/hcuadm/imp_main.prg?cuid={$Cu}'>Return to information on {$Cu} </td></tr>";
    }
print "</table>
            </td></tr></table>
            </form>
            </body>
        </html>";
?>