
<!--WSS
/*
 * Written by Scott Auge scott_auge@yahoo.com sauge@amduus.com
 * Copyright (c) 2001 Amduus Information Works, Inc.  www.amduus.com
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. All advertising materials mentioning features or use of this software
 *    must display the following acknowledgement:
 *      This product includes software developed by Amduus Information Works
 *      Inc. and its contributors.
 * 4. Neither the name of Amduus Information Works, Inc. nor the names of 
 *    its contributors may be used to endorse or promote products derived 
 *    from this software without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY AMDUUS AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE AMDUUS OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 *
 */
-->


<!--WSS
/* InputCreateAccount.html */

DEF VAR RCSVersion AS CHARACTER INIT "$Header: /home/appl/srvexp/src/oper/RCS/oprInputCreateAccount.html,v 1.5 2001/12/15 20:39:18 sauge Exp $" NO-UNDO.

DEF VAR lAuthorizationCode  AS CHARACTER NO-UNDO.
DEF VAR lUserID             AS CHARACTER NO-UNDO.
DEF VAR lPassword           AS CHARACTER NO-UNDO.
DEF VAR lFirstName          AS CHARACTER NO-UNDO.
DEF VAR lLastName           AS CHARACTER NO-UNDO.
DEF VAR lEmail              AS CHARACTER NO-UNDO.
DEF VAR pError              AS CHARACTER NO-UNDO.
DEF VAR lUserSeq            AS CHARACTER NO-UNDO.

{web/AlertBox.inc}
{api/Error.inc}
{Log.i NEW}

{LogIt.i '"Begin Program"'}

/* Determine our inputs (if any!) */

ASSIGN
lAuthorizationCode = GET-VALUE("AuthorizationCode")
lUserID            = GET-VALUE("UserID")
lPassword          = GET-VALUE("Password")
lFirstName         = GET-VALUE("FirstName")
lLastName          = GET-VALUE("LastName")
lEmail             = GET-VALUE("Email").

/* Are we handling a post of data to the page? */

IF lAuthorizationCode <> ""
AND lUserID <> ""
AND lPassword <> ""
THEN DO:

  RUN ipCreateAccount.

END. /* IF */

PROCEDURE ipCreateAccount:

  /* Determine if the authorization code is good */

  FIND Parms NO-LOCK
  WHERE Parms.Application = "ServiceExpress"
    AND Parms.GroupName = "Security"
    AND Parms.ParmName = "AuthCode"
  NO-ERROR.

  IF NOT AVAILABLE Parms THEN DO:

    ASSIGN pError = {&MISSINGPARM}.
    RETURN.

  END. /* IF NOT AVAILABLE Parms */


  IF lAuthorizationCode <> Parms.ParmValue THEN DO:

    ASSIGN pError = {&MISMATCHPASSWORD}.
    RETURN.

  END. /* IF lAuthorizationCode <> Parms.ParmValue */


  /* Create the account */

/* Create the user.  Again, if there is a problem, pass the error back  */
/* to the calling program.  We do this before the address because the   */
/* api does some checking and might pass back an error which would have */
/* left a dangling address.                                             */

RUN oper/Register.p (
INPUT "" ,
INPUT lUserID,
INPUT lPassword,
INPUT lPassword,
INPUT lFirstName,
INPUT lLastName,
INPUT "",
INPUT "",
INPUT "",
INPUT "",
INPUT "",
INPUT "",
INPUT "",
INPUT lEmail,
INPUT "",
INPUT "",
INPUT "",
OUTPUT pError
).
/*
RUN api/records/CreateUser.p (lUserID,
                           lFirstName,
                           lLastName,
                           lPassword,
                           lEmail,
                           "I",
                           OUTPUT lUserSeq,
                           OUTPUT pError).
*/
END. /* PROCEDURE ipCreateAccount */
-->

<!--WSS

IF pError = {&NOERROR} THEN DO:

  AlertBox ("Account Created").

END.
ELSE IF pError <> "" THEN DO:

  AlertBox(pError).

END.

-->

<html>
<head>
<title>Create Internal User Account</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF">

<p>&nbsp;</p>
<p>&nbsp;</p>
<p align="center"><font size="5">Service Express</font></p>
<p align="center">Create Account</p>
<p align="center">This page will create an internal user account.</p>
<p align="center"><a href="oprLogin.html">Back to Login page.</a></p>
<form method="post">
  <table width="80%" border="0" cellspacing="0" align="center">
    <tr> 
      <td>Authorization Code</td>
      <td> 
        <input type="text" name="AuthorizationCode">
      </td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td>User ID</td>
      <td>
        <input type="text" name="UserID">
      </td>
    </tr>
    <tr> 
      <td>Password</td>
      <td>
        <input type="password" name="Password">
      </td>
    </tr>
    <tr>
      <td>First Name</td>
      <td>
        <input type="text" name="FirstName">
      </td>
    </tr>
    <tr>
      <td>Last Name</td>
      <td>
        <input type="text" name="LastName">
      </td>
    </tr>
    <tr>
      <td>Email</td>
      <td>
        <input type="text" name="Email">
      </td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td colspan="2"> 
        <center>
          <input type="submit" name="Submit" value="Submit">
        </center>
      </td>
    </tr>
  </table>
</form>
<p>&nbsp;</p>
</body>
</html>