Get documents about "CUHOME.SPECFILE_Lukas
Shared by: nuhman10
-
Stats
- views:
- 5
- posted:
- 9/22/2011
- language:
- English
- pages:
- 27
Document Sample
[02/10/2000:SJH: This specfile will allow the user to select one
of five options. The first option is to change a CU@Home password
for a member. The second will create CU@Home Access. The third
will change the audio(TellerPhone) access. The fourth will create
new access to the audio response system. The fifth will unfreeze
both audio and CU@Home.
The Specfile will also count the number of preference records
this account may have and delete all preference records above
the first record(0).
As a precautionary measure every time this specfile is run, it will
set the ACCOUNT:FROZENMODE to 0. This prevents people from simply
changing a password and not inquiring whether or not the account
is currently frozen.]
[Will also now set HBENABLE and HBMODE for Tellerphone, a new
requirement for SYMCONNECT on our new VRU - BL 11/3/04]
[ 02/08/2007 - John Luckas - modified to windowize it, and, to set
the language to 3 automatically when CU@Home access is set up. This
will
force members who haven't registered for secure access to sign-up
before
gaining access to their account. Installed for use: 02/14/2007, 8:00
am ]
[ 03/26/2007 - J. Luckas - started modification to include a random
password
generator. ]
[ April, 2007 - J. Luckas - totally re-did to use post from HTML
functionality
throughout, and, added Secure Access Enrollment as a subroutine ]
WINDOWS
TARGET=ACCOUNT
DEFINE
#INCLUDE "RD.WINDOWS.DEF"
#INCLUDE "RD.GETDATA.DEF"
TMPCHR=CHARACTER
INPUTCOUNT=NUMBER
I=NUMBER
INPUTFORM=CHARACTER ARRAY(30)
QUOTE=CHARACTER(1)
DONE=NUMBER
CHARNEWPIN=CHARACTER
SELECTION=NUMBER
FMERROR=CHARACTER
X=NUMBER
Z=NUMBER
NEWPASS=CHARACTER
NEWPIN=CHARACTER
PREFLOC=NUMBER ARRAY(9)
PREFEXISTS=NUMBER
HASHB=NUMBER
HASAUDIO=NUMBER
HASSECUREACCESS=NUMBER
TRUE=1
FALSE=0
SUBERROR=CHARACTER
ACTION=CHARACTER
END
SETUP
QUOTE=CTRLCHR(34)
HASHB=FALSE
HASAUDIO=FALSE
HASSECUREACCESS=FALSE
FOR EACH TRACKING WITH
(TRACKING:TYPE=62 AND
(TRACKING:EXPIREDATE='--/--/--' OR
TRACKING:EXPIREDATE>=SYSTEMDATE))
DO
HASSECUREACCESS=TRUE
END
UNTIL HASSECUREACCESS=TRUE
FOR X=0 TO 9
DO
PREFLOC(X)=0
END
X=1
FOR EACH PREFERENCE [check to see if there is already a pref rec.]
DO
PREFEXISTS=TRUE
PREFLOC(X)=PREFERENCE:LOCATOR
IF PREFERENCE:HBMODE=1 AND
PREFERENCE:HBPASSWORD<>"" THEN
HASHB=TRUE
IF PREFERENCE:LASTACCESSCHANGEDATE<>'--/--/--' THEN
HASAUDIO=TRUE
X=X+1
END
CALL SELECTOPTION
CALL INITIALIZE
CALL LOADFORMRESULTS
[ if they clicked the cancel button, or didn't choose an option but
clicked submit, just kill it right away ]
CALL TERMINATEPROCESS
CALL SETSELECTION
IF SELECTION=2 OR [change PIN ]
SELECTION=4 THEN [set up TellerPhone ]
DO
CALL NEWAUDIOPIN
CALL INITIALIZE
CALL LOADFORMRESULTS
CALL TERMINATEPROCESS
CALL SETAUDIOPIN
CALL AUDIOACCESSFM
CALL UNFREEZE
CALL LASTPAGE
END
ELSE
IF SELECTION=1 OR SELECTION=3 THEN [ CU@Home set up or
password change ]
DO
CALL NEWPASSWORD
CALL INITIALIZE
CALL LOADFORMRESULTS
CALL SETCUHOMEPASS
CALL CUHOMEFM
CALL UNFREEZE
CALL LASTPAGE
END
ELSE
IF SELECTION=5 THEN [ Unfreeze account ]
DO
CALL UNFREEZE
IF FMERROR="" THEN
POPUPMESSAGE(0,"Account successfully unfrozen.")
ELSE
POPUPMESSAGE(2,"Account not unfrozen! Error: "+FMERROR)
END
ELSE
IF SELECTION=6 THEN [ Secure Access Reset ]
DO
INITSUBROUTINE(SUBERROR)
IF SUBERROR<>"" THEN
POPUPMESSAGE(2,"Init subroutine error: "+SUBERROR)
ELSE
EXECUTE("JL.MFA.RESET",SUBERROR)
IF SUBERROR<>"" THEN
POPUPMESSAGE(2,"Execute subroutine error: "+SUBERROR)
CALL UNFREEZE [ always unfreeze just in case ]
END
END [SETUP ]
PRINT TITLE="CUHOME"
SUPPRESSNEWLINE
END
PROCEDURE SELECTOPTION
HTMLVIEWOPEN(0)
HTMLVIEWLINE("<html>")
HTMLVIEWLINE("<head><title>CUHOME</title>")
HTMLVIEWLINE("<STYLE>")
HTMLVIEWLINE("BODY {FONT: 14PX ARIAL,HELVETICA; COLOR=BLACK;}")
HTMLVIEWLINE("TABLE {FONT: 14PX ARIAL,HELVETICA; COLOR=BLACK;}")
HTMLVIEWLINE("</STYLE>")
HTMLVIEWLINE("</head>")
HTMLVIEWLINE("<body>")
CALL PAGETOP
HTMLVIEWLINE("<BODY>")
HTMLVIEWLINE("<FORM NAME=selectform1"+
" METHOD=POST ACTION=symitar://HTMLView~Action=Post>")
HTMLVIEWLINE("<center><TABLE WIDTH=75% BORDER=0 CELLPADDING=5>")
HTMLVIEWLINE("<TR>")
HTMLVIEWLINE("<TD width=175px>Account Number: </td><td
align=left><B>"+FORMAT("#########9",VALUE(ACCOUNT:NUMBER))+"</B></TD></
TR>")
HTMLVIEWLINE("<TR>")
HTMLVIEWLINE("<TD width=175px>Name: </td><td
align=left><B>"+NAME:LONGNAME+"</B></TD></TR>")
HTMLVIEWLINE("</TABLE></center>")
HTMLVIEWLINE("<center><TABLE WIDTH=75% BORDER=0 CELLPADDING=5>")
HTMLVIEWLINE("<TR>")
HTMLVIEWLINE("<TD colspan=2><HR color=990000></TD></TR>")
HTMLVIEWLINE("<TR>")
HTMLVIEWLINE("<TD colspan=2><font size=-1 color=990000><li><b>")
IF ACCOUNT:FROZENMODE=1 THEN
DO
HTMLVIEWLINE("Account is frozen. </b></font><font size=-1
color=black>")
HTMLVIEWLINE(" (Choosing any option below will also unfreeze the
account)")
HTMLVIEWLINE("</li></font></TD></TR>")
END
ELSE
IF ACCOUNT:FROZENMODE=2 THEN
DO
HTMLVIEWLINE("Account is permanently frozen. You cannot unfreeze
this account")
HTMLVIEWLINE("</b></li></font></TD></TR>")
END
ELSE
DO
HTMLVIEWLINE("Account is not frozen")
HTMLVIEWLINE("</b></li></font></TD></TR>")
END
HTMLVIEWLINE("<TR>")
HTMLVIEWLINE("<TD colspan=2><font size=-1 color=990000><li><b>")
IF HASSECUREACCESS=TRUE THEN
DO
HTMLVIEWLINE("Account is set up for Secure Access")
HTMLVIEWLINE("</b></li></font></TD></TR>")
END
ELSE
DO
HTMLVIEWLINE("Account is not set up for Secure Access.
</b></font><font size=-1 color=black>")
HTMLVIEWLINE("(The member must set themselves up in CU@Home)")
HTMLVIEWLINE("</li></font></TD></TR>")
END
HTMLVIEWLINE("<TR>")
HTMLVIEWLINE("<TD colspan=2><font size=-1 color=990000><li><b>")
IF HASAUDIO=TRUE AND
HASHB=TRUE THEN
DO
HTMLVIEWLINE("Account is set up for TellerPhone and
CU@Home<br><br>")
HTMLVIEWLINE("<TR>")
HTMLVIEWLINE("<TD colspan=2><HR color=990000></TD></TR>")
CALL CHANGETPNOHBSETUP
END
ELSE
IF HASAUDIO=TRUE AND
HASHB=FALSE THEN
DO
HTMLVIEWLINE("Account is set up for TellerPhone but NOT set up for
CU@Home<br><br>")
HTMLVIEWLINE("<TR>")
HTMLVIEWLINE("<TD colspan=2><HR color=990000></TD></TR>")
CALL CHANGETPCREATEHB
END
ELSE
IF HASAUDIO=FALSE AND
HASHB=TRUE THEN
DO
HTMLVIEWLINE("Account is NOT setup for TellerPhone but is set up
for CU@Home<br><br>")
HTMLVIEWLINE("<TR>")
HTMLVIEWLINE("<TD colspan=2><HR color=990000></TD></TR>")
CALL CREATETPCHANGEHB
END
ELSE
IF HASAUDIO=FALSE AND
HASHB=FALSE THEN
DO
HTMLVIEWLINE("Account is NOT set up for CU@Home nor
TellerPhone<br><br>")
HTMLVIEWLINE("<TR>")
HTMLVIEWLINE("<TD colspan=2><HR color=990000></TD></TR>")
CALL CREATEBOTH
END
HTMLVIEWLINE("</b></li></font></TD></TR>")
HTMLVIEWLINE("<TR>")
HTMLVIEWLINE("<TD COLSPAN=2> ")
HTMLVIEWLINE("</TD></TR>")
HTMLVIEWLINE("<TR>")
HTMLVIEWLINE("<TD COLSPAN=3 ALIGN=CENTER VALIGN=CENTER>")
HTMLVIEWLINE("<P><INPUT TYPE=SUBMIT NAME=submitbutton")
HTMLVIEWLINE(" VALUE=Submit> ")
HTMLVIEWLINE("<INPUT TYPE=SUBMIT NAME=cancelbutton")
HTMLVIEWLINE(" VALUE=Cancel></TD></TR>")
HTMLVIEWLINE(" </TABLE>")
HTMLVIEWLINE("</FORM>")
CALL FOOTER
HTMLVIEWLINE(" </body>")
HTMLVIEWLINE("</html>")
HTMLVIEWDISPLAY
END
PROCEDURE NEWPASSWORD
HTMLVIEWOPEN(0)
HTMLVIEWLINE("<html>")
HTMLVIEWLINE("<head><title>CUHOME</title>")
HTMLVIEWLINE("<STYLE>")
HTMLVIEWLINE("BODY {FONT: 16PX ARIAL SANS-SERIF; }")
HTMLVIEWLINE("TABLE {FONT: 16PX TIMES NEW ROMAN; COLOR=333333;}")
HTMLVIEWLINE("</STYLE>")
HTMLVIEWLINE("<SCRIPT LANGUAGE=JavaScript>")
HTMLVIEWLINE("<!--")
HTMLVIEWLINE("// Use the following variable to specify")
HTMLVIEWLINE("// the number of random words")
HTMLVIEWLINE("var NumberOfWords = 171")
HTMLVIEWLINE("var words = new BuildArray(NumberOfWords)")
HTMLVIEWLINE("// Use the following variables to")
HTMLVIEWLINE("// define your random words:")
[ from John Luckas: The first variable below is an example of how and
where to put the words. I removed all the others for security reasons.
I will eventually move this code into the DATAFILES directory, or, just
the words and then use File I/O to read them in dynamically. ]
HTMLVIEWLINE("words[1] = "+QUOTE+"testpassword"+QUOTE+"")
HTMLVIEWLINE("words[2] = "+QUOTE+"<word goes here>"+QUOTE+"")
HTMLVIEWLINE("words[3] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[4] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[5] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[6] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[7] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[8] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[9] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[10] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[11] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[12] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[13] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[14] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[15] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[16] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[17] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[18] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[19] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[20] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[21] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[22] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[23] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[24] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[25] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[26] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[27] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[28] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[29] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[30] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[31] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[32] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[33] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[34] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[35] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[36] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[37] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[38] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[39] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[40] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[41] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[42] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[43] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[44] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[45] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[46] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[47] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[48] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[49] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[50] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[51] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[52] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[53] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[54] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[55] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[56] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[57] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[58] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[59] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[60] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[61] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[62] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[63] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[64] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[65] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[66] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[67] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[68] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[69] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[70] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[71] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[72] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[73] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[74] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[75] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[76] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[77] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[78] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[79] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[80] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[81] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[82] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[83] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[84] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[85] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[86] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[87] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[88] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[89] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[90] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[91] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[92] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[93] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[94] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[95] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[96] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[97] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[98] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[99] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[100] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[101] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[102] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[103] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[104] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[105] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[106] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[107] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[108] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[109] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[110] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[111] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[112] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[113] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[114] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[115] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[116] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[117] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[118] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[119] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[120] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[121] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[122] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[123] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[124] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[125] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[126] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[127] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[128] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[129] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[130] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[131] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[132] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[133] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[134] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[135] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[136] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[137] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[138] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[139] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[140] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[141] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[142] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[143] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[144] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[145] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[146] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[147] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[148] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[149] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[150] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[151] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[152] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[153] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[154] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[155] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[156] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[157] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[158] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[159] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[160] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[161] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[162] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[163] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[164] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[165] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[166] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[167] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[168] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[169] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[170] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[171] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("function BuildArray(size){")
HTMLVIEWLINE(" this.length = size")
HTMLVIEWLINE(" for (var i = 1; i <= size; i++){")
HTMLVIEWLINE(" this[i] = null}")
HTMLVIEWLINE(" return this")
HTMLVIEWLINE("}")
HTMLVIEWLINE("function PickRandomWord(frm) {")
HTMLVIEWLINE(" // Generate a random number between 1 and
NumberOfWords")
HTMLVIEWLINE(" var rnd = Math.ceil(Math.random() * NumberOfWords)")
HTMLVIEWLINE(" // Display the word inside the text box")
HTMLVIEWLINE(" frm.WordBox.value = words[rnd]")
HTMLVIEWLINE("}")
HTMLVIEWLINE("//-->")
HTMLVIEWLINE("</SCRIPT>")
HTMLVIEWLINE("</head>")
HTMLVIEWLINE("<body>")
CALL PAGETOP
HTMLVIEWLINE("<font face=arial,helvetica size=3><P><CENTER><b>")
IF SELECTION=1 THEN
HTMLVIEWLINE("Change CU@Home Password")
ELSE
HTMLVIEWLINE("Create CU@Home Access")
HTMLVIEWLINE("</b><br><br>")
HTMLVIEWLINE("<font face=arial,helvetica size=2>")
IF SELECTION=1 THEN
DO
HTMLVIEWLINE("Click the <b>Password</b> button below to generate a
new CU@Home password for ")
HTMLVIEWLINE("<B>"+CAPITALIZE(NAME:LONGNAME)+"</B>.<br>")
END
ELSE
DO
HTMLVIEWLINE("Click the <b>Set Up</b> button below to enable ")
HTMLVIEWLINE("<B>"+CAPITALIZE(NAME:LONGNAME)+"</B> for CU@Home
access.<br>")
END
HTMLVIEWLINE(" <FORM NAME=WordForm METHOD=POST
ACTION=symitar://HTMLView~Action=Post~NoClose>")
HTMLVIEWLINE(" <INPUT TYPE=HIDDEN SIZE=14 NAME=WordBox><BR>")
HTMLVIEWLINE(" <INPUT TYPE=SUBMIT NAME=submitbutton
onClick=PickRandomWord(document.WordForm)")
IF SELECTION=1 THEN
HTMLVIEWLINE(" VALUE=Password> ")
ELSE
HTMLVIEWLINE(" VALUE=Set Up> ")
HTMLVIEWLINE(" </FORM>")
HTMLVIEWLINE("</center></font><br><br>")
CALL FOOTER
HTMLVIEWLINE(" </body>")
HTMLVIEWLINE("</html>")
HTMLVIEWDISPLAY
END
PROCEDURE NEWAUDIOPIN
HTMLVIEWOPEN(0)
HTMLVIEWLINE("<html>")
HTMLVIEWLINE("<head><title>CUHOME</title>")
HTMLVIEWLINE("<STYLE>")
HTMLVIEWLINE("BODY {FONT: 16PX ARIAL SANS-SERIF; }")
HTMLVIEWLINE("TABLE {FONT: 16PX TIMES NEW ROMAN; COLOR=333333;}")
HTMLVIEWLINE("</STYLE>")
HTMLVIEWLINE("<SCRIPT LANGUAGE=JavaScript>")
HTMLVIEWLINE("<!--")
HTMLVIEWLINE("// Use the following variable to specify")
HTMLVIEWLINE("// the number of random words")
HTMLVIEWLINE("var NumberOfWords = 50")
HTMLVIEWLINE("var words = new BuildArray(NumberOfWords)")
HTMLVIEWLINE("// Use the following variables to")
HTMLVIEWLINE("// define your random words:")
[ from John Luckas: The first variable below is an example of how and
where to put the 4-digit access code. I removed all the others for
security reasons. I will eventually move this code into the DATAFILES
directory, or, just the number and then use File I/O to read them in
dynamically. ]
HTMLVIEWLINE("words[1] = "+QUOTE+"9999"+QUOTE+"")
HTMLVIEWLINE("words[2] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[3] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[4] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[5] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[6] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[7] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[8] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[9] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[10] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[11] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[12] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[13] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[14] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[15] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[16] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[17] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[18] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[19] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[20] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[21] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[22] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[23] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[24] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[25] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[26] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[27] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[28] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[29] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[30] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[31] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[32] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[33] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[34] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[35] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[36] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[37] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[38] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[39] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[40] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[41] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[42] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[43] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[44] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[45] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[46] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[47] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[48] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[49] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[50] = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("function BuildArray(size){")
HTMLVIEWLINE(" this.length = size")
HTMLVIEWLINE(" for (var i = 1; i <= size; i++){")
HTMLVIEWLINE(" this[i] = null}")
HTMLVIEWLINE(" return this")
HTMLVIEWLINE("}")
HTMLVIEWLINE("function PickRandomWord(frm) {")
HTMLVIEWLINE(" // Generate a random number between 1 and
NumberOfWords")
HTMLVIEWLINE(" var rnd = Math.ceil(Math.random() * NumberOfWords)")
HTMLVIEWLINE(" // Display the word inside the text box")
HTMLVIEWLINE(" frm.AudioPIN.value = words[rnd]")
HTMLVIEWLINE("}")
HTMLVIEWLINE("//-->")
HTMLVIEWLINE("</SCRIPT>")
HTMLVIEWLINE("</head>")
HTMLVIEWLINE("<body>")
CALL PAGETOP
HTMLVIEWLINE("<font face=arial,helvetica size=3><P><CENTER><b>")
IF SELECTION=2 THEN
HTMLVIEWLINE("Change TellerPhone PIN")
ELSE
HTMLVIEWLINE("Create TellerPhone Access")
HTMLVIEWLINE("</b><br><br>")
HTMLVIEWLINE("<font face=arial,helvetica size=2>")
IF SELECTION=2 THEN
DO
HTMLVIEWLINE("Click the <b>PIN</b> button below to generate a new
TellerPhone PIN for ")
HTMLVIEWLINE("<B>"+CAPITALIZE(NAME:LONGNAME)+"</B>.<br>")
END
ELSE
DO
HTMLVIEWLINE("Click the <b>Set Up</b> button below to enable ")
HTMLVIEWLINE("<B>"+CAPITALIZE(NAME:LONGNAME)+"</B> for TellerPhone
access.<br>")
END
HTMLVIEWLINE(" <FORM NAME=AudioPIN METHOD=POST
ACTION=symitar://HTMLView~Action=Post~Close>")
HTMLVIEWLINE(" <INPUT TYPE=HIDDEN SIZE=14 NAME=AudioPIN><BR>")
HTMLVIEWLINE(" <INPUT TYPE=SUBMIT NAME=submitbutton
onClick=PickRandomWord(document.AudioPIN)")
IF SELECTION=2 THEN
HTMLVIEWLINE(" VALUE=PIN> ")
ELSE
HTMLVIEWLINE(" VALUE=Set Up> ")
HTMLVIEWLINE(" </FORM>")
HTMLVIEWLINE("</center></font><br><br>")
CALL FOOTER
HTMLVIEWLINE(" </body>")
HTMLVIEWLINE("</html>")
HTMLVIEWDISPLAY
END
PROCEDURE INITIALIZE
FOR INPUTCOUNT=0 TO 30
DO
INPUTFORM(INPUTCOUNT)=""
END
END
PROCEDURE LOADFORMRESULTS
INPUTCOUNT=0
WHILE (INPUTFORM(INPUTCOUNT)<>"EOD")
DO
INPUTCOUNT=INPUTCOUNT+1
INPUTFORM(INPUTCOUNT)=ENTERLINE(0)
END
END
PROCEDURE SETSELECTION
SELECTION=0
FOR I=1 TO INPUTCOUNT
DO
TMPCHR=INPUTFORM(I)
IF UPPERCASE(SEGMENT(TMPCHR,8,LENGTH(TMPCHR)))="CHANGEPWD" THEN
SELECTION=1
ELSE
IF UPPERCASE(SEGMENT(TMPCHR,8,LENGTH(TMPCHR)))="CHANGEPIN" THEN
SELECTION=2
ELSE
IF UPPERCASE(SEGMENT(TMPCHR,8,LENGTH(TMPCHR)))="CREATECUHOME" THEN
SELECTION=3
ELSE
IF UPPERCASE(SEGMENT(TMPCHR,8,LENGTH(TMPCHR)))="CREATEPHONE" THEN
SELECTION=4
ELSE
IF UPPERCASE(SEGMENT(TMPCHR,8,LENGTH(TMPCHR)))="UNFREEZE" THEN
SELECTION=5
ELSE
IF UPPERCASE(SEGMENT(TMPCHR,8,LENGTH(TMPCHR)))="RESET" THEN
SELECTION=6
END
END
PROCEDURE SETAUDIOPIN
NEWPIN=""
ACTION=""
NEWPIN=SEGMENT(INPUTFORM(1),10,13)
ACTION=SEGMENT(INPUTFORM(2),14,LENGTH(INPUTFORM(2)))
END
PROCEDURE SETCUHOMEPASS
NEWPASS=""
ACTION=""
NEWPASS=SEGMENT(INPUTFORM(1),9,LENGTH(INPUTFORM(1)))
ACTION=SEGMENT(INPUTFORM(2),14,LENGTH(INPUTFORM(2)))
END
[
IF UPPERCASE(SEGMENT(TMPCHR,1,8))="WORDBOX=" THEN
NEWPASS=UPPERCASE(SEGMENT(TMPCHR,9,LENGTH(TMPCHR)))
ELSE
]
PROCEDURE PAGETOP
HTMLVIEWLINE("<HTML><HEAD><TITLE>CUHOME Results</TITLE>")
HTMLVIEWLINE("<STYLE>")
HTMLVIEWLINE("BODY {FONT: SIZE=2 ARIAL,HELVETICA ;}")
HTMLVIEWLINE("TABLE {FONT: SIZE=2 ARIAL,HELVETICA ;}")
HTMLVIEWLINE("</STYLE>")
HTMLVIEWLINE("</HEAD>")
HTMLVIEWLINE("<BODY>")
HTMLVIEWLINE("<table width='100%' border='0' cellspacing='0'
cellpadding='0'>")
HTMLVIEWLINE(" <tr>")
HTMLVIEWLINE(" <td height='65'>")
HTMLVIEWLINE(" <table width='100%' border='0' cellspacing='0'
cellpadding='0'>")
HTMLVIEWLINE(" <tr>")
HTMLVIEWLINE(" <td rowspan='2' width='142' height='65'
bgcolor='#B23C48' >")
HTMLVIEWLINE(" <a href='http://www.tscu.org'
target="+QUOTE+"home_page"+QUOTE+">")
HTMLVIEWLINE(" <img src='http://www.tscu.org/ns-
icons/cuname.gif' border='0' ></a>")
HTMLVIEWLINE(" </td>")
HTMLVIEWLINE(" <td rowspan='2' bgcolor='#B23C48' height='65'
width='100%'>")
HTMLVIEWLINE(" <div align='center'><font
color='#CCCCCC'><b><font size='5'><i>")
HTMLVIEWLINE(" <font face='Arial, Helvetica, sans-
serif'> </font></i></font></b></font>")
HTMLVIEWLINE(" </div>")
HTMLVIEWLINE(" </td>")
HTMLVIEWLINE(" </tr>")
HTMLVIEWLINE(" </table>")
HTMLVIEWLINE(" </td>")
HTMLVIEWLINE(" <td rowspan='2' bgcolor='#B23C48' height='65'
>")
HTMLVIEWLINE(" <div align='center'><font
color='#CCCCCC'><b><font size='5'><i>")
HTMLVIEWLINE(" <font face='Arial, Helvetica, sans-
serif'> </font></i></font></b></font></div>")
HTMLVIEWLINE(" </td>")
HTMLVIEWLINE(" </tr>")
HTMLVIEWLINE(" <tr>")
HTMLVIEWLINE(" <td background='http://www.tscu.org/ns-
icons/3lines.gif' colspan='3' height='7'></td>")
HTMLVIEWLINE(" </tr>")
HTMLVIEWLINE(" <tr>")
HTMLVIEWLINE(" <td colspan=3 bgcolor=black height='1' >")
HTMLVIEWLINE(" <div align='center'><font
color='#CCCCCC'><b><font size='0'><i>")
HTMLVIEWLINE(" <font face='Arial, Helvetica, sans-
serif'> </font></i></font></b></font></div>")
HTMLVIEWLINE(" </td>")
HTMLVIEWLINE(" </tr>")
HTMLVIEWLINE("</table>")
END
PROCEDURE FOOTER
HTMLVIEWLINE("<table width='100%' cellspacing='0' cellpadding='0'
align=left>")
HTMLVIEWLINE(" <tr bgcolor='#000000'>")
HTMLVIEWLINE(" <td height='12'>")
HTMLVIEWLINE(" <div align='center'><img
src='http://www.tscu.org/ns-icons/bottom_cuname.gif' width='360'
height='12'></div>")
HTMLVIEWLINE(" </td>")
HTMLVIEWLINE(" </tr>")
HTMLVIEWLINE(" <tr>")
HTMLVIEWLINE(" <td>")
HTMLVIEWLINE(" <table width='100%' border='0' cellspacing='0'
cellpadding='0'>")
HTMLVIEWLINE(" <tr>")
HTMLVIEWLINE(" <td width=100% height='30'><img
src='http://www.tscu.org/ns-icons/bottom_left.gif' width=100%
height='30'></td>")
HTMLVIEWLINE(" <td width=100% height='30'><img
src='http://www.tscu.org/ns-icons/bottom_right.gif' width='28'
height='30'></td>")
HTMLVIEWLINE(" </tr>")
HTMLVIEWLINE(" </table>")
HTMLVIEWLINE(" </td>")
HTMLVIEWLINE(" </tr>")
HTMLVIEWLINE("</table>")
END
PROCEDURE CHANGETPNOHBSETUP
HTMLVIEWLINE("<TR>")
HTMLVIEWLINE("<TD>")
HTMLVIEWLINE("<INPUT TYPE=RADIO NAME=cuhome VALUE=changepwd><B>Change
CU@Home Password</B>")
HTMLVIEWLINE("</TD>")
HTMLVIEWLINE("<TD>")
HTMLVIEWLINE("<INPUT TYPE=RADIO NAME=cuhome VALUE=changepin><B>Change
TellerPhone PIN</B>")
HTMLVIEWLINE("</TD>")
HTMLVIEWLINE("</TR>")
HTMLVIEWLINE("<TR>")
IF ACCOUNT:FROZENMODE=1 THEN
DO
HTMLVIEWLINE("<TD>")
HTMLVIEWLINE("<INPUT TYPE=RADIO NAME=cuhome VALUE=unfreeze
><B>Unfreeze Account</B>")
HTMLVIEWLINE("</TD>")
END
IF HASSECUREACCESS=TRUE THEN
DO
HTMLVIEWLINE("<TD>")
HTMLVIEWLINE("<INPUT TYPE=RADIO NAME=cuhome VALUE=reset><B>Secure
Access Reset</B><font size=-1 color=black>")
HTMLVIEWLINE("(Choose this option
only<br> ")
HTMLVIEWLINE("if they can't remember the answer to their security
question)")
HTMLVIEWLINE("</TD>")
END
HTMLVIEWLINE("</TR>")
END
PROCEDURE CHANGETPCREATEHB
HTMLVIEWLINE("<TR>")
HTMLVIEWLINE("<TD>")
HTMLVIEWLINE("<INPUT TYPE=RADIO NAME=cuhome
VALUE=createcuhome><B>Create CU@Home Access</B>")
HTMLVIEWLINE("</TD>")
HTMLVIEWLINE("<TD>")
HTMLVIEWLINE("<INPUT TYPE=RADIO NAME=cuhome VALUE=changepin><B>Change
TellerPhone PIN</B>")
HTMLVIEWLINE("</TD>")
HTMLVIEWLINE("</TR>")
HTMLVIEWLINE("<TR>")
IF ACCOUNT:FROZENMODE=1 THEN
DO
HTMLVIEWLINE("<TD>")
HTMLVIEWLINE("<INPUT TYPE=RADIO NAME=cuhome VALUE=unfreeze
><B>Unfreeze Account</B>")
HTMLVIEWLINE("</TD>")
END
HTMLVIEWLINE("</TR>")
END
PROCEDURE CREATETPCHANGEHB
HTMLVIEWLINE("<TR>")
HTMLVIEWLINE("<TD>")
HTMLVIEWLINE("<INPUT TYPE=RADIO NAME=cuhome VALUE=changepwd><B>Change
CU@Home Password</B>")
HTMLVIEWLINE("</TD>")
HTMLVIEWLINE("<TD>")
HTMLVIEWLINE("<INPUT TYPE=RADIO NAME=cuhome
VALUE=createphone><B>Create TellerPhone Access</B>")
HTMLVIEWLINE("</TD>")
HTMLVIEWLINE("</TR>")
HTMLVIEWLINE("<TR>")
IF ACCOUNT:FROZENMODE=1 THEN
DO
HTMLVIEWLINE("<TD>")
HTMLVIEWLINE("<INPUT TYPE=RADIO NAME=cuhome VALUE=unfreeze
><B>Unfreeze Account</B>")
HTMLVIEWLINE("</TD>")
END
IF HASSECUREACCESS=TRUE THEN
DO
HTMLVIEWLINE("<TD>")
HTMLVIEWLINE("<INPUT TYPE=RADIO NAME=cuhome VALUE=reset><B>Secure
Access Reset</B><font size=-1 color=black>")
HTMLVIEWLINE("(Choose this option
only<br> ")
HTMLVIEWLINE("if they can't remember the answer to their security
question)")
HTMLVIEWLINE("</TD>")
END
HTMLVIEWLINE("</TR>")
END
PROCEDURE CREATEBOTH
HTMLVIEWLINE("<TR>")
HTMLVIEWLINE("<TD>")
HTMLVIEWLINE("<INPUT TYPE=RADIO NAME=cuhome
VALUE=createcuhome><B>Create CU@Home Access</B>")
HTMLVIEWLINE("</TD>")
HTMLVIEWLINE("<TD>")
HTMLVIEWLINE("<INPUT TYPE=RADIO NAME=cuhome
VALUE=createphone><B>Create TellerPhone Access</B>")
HTMLVIEWLINE("</TD>")
HTMLVIEWLINE("</TR>")
END
PROCEDURE LASTPAGE
HTMLVIEWOPEN(0)
CALL PAGETOP
HTMLVIEWLINE("<font face=arial,helvetica size=3 COLOR=990000><BR>")
IF FMERROR="" AND SELECTION=1 THEN
HTMLVIEWLINE("<b>CU@Home Password successfully changed</b>")
IF FMERROR<>"" AND SELECTION=1 THEN
POPUPMESSAGE(2,"Password not changed. Error: "+FMERROR)
IF FMERROR="" AND SELECTION=2 THEN
HTMLVIEWLINE("<b>TellerPhone PIN successfully changed</b>")
IF FMERROR<>"" AND SELECTION=2 THEN
POPUPMESSAGE(2,"TellerPhone PIN NOT changed. Error: "+FMERROR)
IF FMERROR="" AND SELECTION= 3 THEN
HTMLVIEWLINE("<b>CU@Home successfully set up</b>")
IF FMERROR<>"" AND SELECTION=3 THEN
POPUPMESSAGE(2,"CU@Home NOT set up. Error: "+FMERROR)
IF FMERROR="" AND SELECTION=4 THEN
HTMLVIEWLINE("<b>TellerPhone Access successfully created</b>")
IF FMERROR<>"" AND SELECTION=4 THEN
POPUPMESSAGE(2,"TellerPhone Access not created! Error: "+FMERROR)
HTMLVIEWLINE("</font>")
HTMLVIEWLINE("<font face=arial,helvetica size=3 ><br><br>")
IF SELECTION=2 OR
SELECTION=4 THEN
HTMLVIEWLINE("The temporary TellerPhone password for
<B>"+CAPITALIZE(NAME:LONGNAME)+"</B> is: <B>"+NEWPIN+"</B><P>")
ELSE
IF SELECTION=1 OR
SELECTION=3 THEN
HTMLVIEWLINE("The temporary CU@Home password for
<B>"+CAPITALIZE(NAME:LONGNAME)+"</B> is: <B>"+NEWPASS+"</B><P>")
HTMLVIEWLINE("<FORM NAME=htmlrginputform1"+
" METHOD=POST ACTION=symitar://HTMLView~Action=Close>")
POPUPMESSAGE(0,"Please print next page for the member if applicable.")
HTMLVIEWLINE("<P><INPUT TYPE=SUBMIT NAME=submitbutton")
HTMLVIEWLINE(" VALUE=Close window> ")
IF SELECTION=5 THEN
HTMLVIEWLINE("<center><b>Click the button to the left to unfreeze
the account!</b></center></font>")
HTMLVIEWLINE("<hr width=100% color=990000><br>")
IF SELECTION=2 OR
SELECTION=4 THEN
DO
HTMLVIEWLINE("<center><b>How do you access TellerPhone for the first
time?</b></center></font>")
HTMLVIEWLINE("<font face=arial,helvetica size=3><OL type=1>")
HTMLVIEWLINE("<li>Call TellerPhone at <B>480-829-
TSCU(8728)</b><br><br>")
HTMLVIEWLINE("<li>Enter your account number and 4-digit temporary
PIN when prompted to do so.")
HTMLVIEWLINE("You now have full access to your account via
Tellerphone, however it's important that ")
HTMLVIEWLINE("you change your PIN by following these instructions:
<br><br>")
HTMLVIEWLINE(" <UL type=disc><li>As soon as you have access to the
main menu, go ahead and ")
HTMLVIEWLINE("press the numbers '7', then '2', and then '2' again.
You do not have to wait until")
HTMLVIEWLINE("you are prompted by the voice. This will bring you
directly to the change access ")
HTMLVIEWLINE("code feature. </ul><br>")
HTMLVIEWLINE(" <UL type=disc><li>Enter a new 4-digit PIN when
prompted.</ul><br>")
HTMLVIEWLINE(" <UL type=disc><li>Enter '1' to process the PIN
change.</ul><br>")
HTMLVIEWLINE("<li>TellerPhone has a feature called Expert Mode. This
allows you to bypass all the ")
HTMLVIEWLINE("spoken menus and perform transactions and inquries
simply by entering the service codes for ")
HTMLVIEWLINE("the transaction you would like to perform. You can
find more information and instructions ")
HTMLVIEWLINE("for the Expert Mode feature on our web site:
<b>http://www.tscu.org/tellerPhone.html</b><br><br> ")
HTMLVIEWLINE("</ol>")
HTMLVIEWLINE("<hr width=100% color=990000><br>")
HTMLVIEWLINE("<center>If you experience any problems with
TellerPhone or with accessing ")
HTMLVIEWLINE("your account please contact us during regular
<br>business hours at <b>480-967-9475</b> or ")
HTMLVIEWLINE("<b>1-800-851-7749</b>. You can also contact us via e-
mail at <b>info@tscu.org</b></center></font><br><br> ")
[
HTMLVIEWLINE("<P><INPUT TYPE=SUBMIT NAME=submitbutton")
HTMLVIEWLINE(" VALUE=Close Window> <p>")
]
END
ELSE
IF SELECTION=1 OR
SELECTION=3 THEN
DO
HTMLVIEWLINE("<center><b>How do you access CU@Home for the first
time?</b></center></font>")
HTMLVIEWLINE("<font face=arial,helvetica size=3><OL type=1>")
HTMLVIEWLINE("<li>Access the credit union web site at
<b>http://www.tscu.org</b>")
HTMLVIEWLINE("<li>Enter your account number and temporary password
into the appropriate fields on the home page.<br><br>")
HTMLVIEWLINE(" <UL type=disc><li><b>Note: </b>Your password is
case-sensitive ")
HTMLVIEWLINE("and must be entered exactly as seen above!</UL><br>")
HTMLVIEWLINE("<li>The <b>Secure Access Enrollment</b> page will
appear. You must enroll to use CU@Home. ")
HTMLVIEWLINE("</li><br>")
HTMLVIEWLINE("<li>Click the link that says <b>Click here to enroll
now.</b>")
HTMLVIEWLINE("<li>Complete the Secure Access enrollment process by
following the instructions presented to you:<br><br>")
HTMLVIEWLINE(" <UL type=disc><li><b>Choose a security
image</b></ul><br>")
HTMLVIEWLINE(" <UL type=disc><li><b>Enter a security phrase</b>
and click the <b>Update Phrase</b> button</ul><br>")
HTMLVIEWLINE(" <UL type=disc><li><b>Choose three security
questions</b>, provide the answers, and click the ")
HTMLVIEWLINE("<b>Update Questions</b> button</b></UL><br>")
HTMLVIEWLINE(" <UL type=disc><li>Enter an e-mail address and click
the <b>Update E-mail</b> button</UL><br>")
HTMLVIEWLINE(" <UL type=disc><li>You have completed the Secure
Access Enrollment process</b>. However, you must click ")
HTMLVIEWLINE("the <b>Exit CU@Home</b> button located at the top of
the page then log into your account again</UL><br>")
HTMLVIEWLINE("</ol>")
HTMLVIEWLINE("<hr width=100% color=990000><br>")
HTMLVIEWLINE("<center>If you experience any problems with the Secure
Access Enrollment process or with logging into ")
HTMLVIEWLINE("your account please contact <br>us during regular
business hours at <b>480-967-9475</b> or ")
HTMLVIEWLINE("<b>1-800-851-7749</b>. You can also contact us via e-
mail at <b>info@tscu.org</b></center></font><br><br> ")
[
HTMLVIEWLINE("<P><INPUT TYPE=SUBMIT NAME=submitbutton")
HTMLVIEWLINE(" VALUE=Close Window> <p>")
]
END
CALL FOOTER
HTMLVIEWLINE("<SCRIPT>")
HTMLVIEWLINE("function exit(){")
HTMLVIEWLINE("document.forms[0].submit();")
HTMLVIEWLINE("document.location = 'symitar://HTMLView~Action=Close'")
HTMLVIEWLINE("}")
HTMLVIEWLINE("function close(){")
HTMLVIEWLINE("document.forms[0].submit();")
HTMLVIEWLINE("document.location = 'symitar://HTMLView~Action=Close'")
HTMLVIEWLINE("}")
HTMLVIEWLINE("</SCRIPT>")
HTMLVIEWLINE("</BODY></HTML>")
HTMLVIEWDISPLAY
END [ PROCEDURE LASTPAGE ]
PROCEDURE UNFREEZE
FMPERFORM REVISE ACCOUNT (0,0,FMERROR)
DO
SET FROZENMODE TO 0
SET INVALIDATTEMPTCOUNT TO 0
END
END
PROCEDURE DISPLAYRESULTS
HTMLVIEWOPEN(0)
HTMLVIEWLINE("<HTML><HEAD><TITLE>Form Results</TITLE>")
HTMLVIEWLINE("<STYLE>")
HTMLVIEWLINE("BODY {FONT: 19PX ARIAL, SANS-SERIF;}")
HTMLVIEWLINE("TABLE {FONT: 19PX ARIAL, SANS-SERIF;}")
HTMLVIEWLINE("</STYLE>")
HTMLVIEWLINE("</HEAD>")
HTMLVIEWLINE("<BODY BGCOLOR=WHITE>")
HTMLVIEWLINE("<H3>Form Results</H3><BR>")
FOR I=1 TO INPUTCOUNT
DO
TMPCHR=INPUTFORM(I)
[ CALL CONVERTHTMLSYMBOLS ]
HTMLVIEWLINE(TMPCHR+"<BR>")
END
HTMLVIEWLINE(FORMAT("99",SELECTION)+"<BR>")
HTMLVIEWLINE("</BODY></HTML>")
HTMLVIEWDISPLAY
END
PROCEDURE TERMINATEPROCESS
IF SEGMENT(INPUTFORM(1),14,LENGTH(INPUTFORM(1)))="Submit" THEN
DO
POPUPMESSAGE(2,"No option chosen. Cancelling process.")
TERMINATE
END
IF SEGMENT(INPUTFORM(1),8,LENGTH(INPUTFORM(1)))="unfreeze" AND
ACCOUNT:FROZENMODE=0 THEN
DO
POPUPMESSAGE(2,"TellerPhone/CU@Home is not frozen. Cancelling
process.")
TERMINATE
END
FOR X=1 TO 30
DO
TMPCHR=INPUTFORM(X)
IF UPPERCASE(SEGMENT(TMPCHR,14,LENGTH(TMPCHR)))="CANCEL" THEN
DO
POPUPMESSAGE(0,"Process cancelled.")
TERMINATE
END
END
END
PROCEDURE AUDIOACCESSFM
IF UPPERCASE(ACTION)="SET UP" AND
HASAUDIO=FALSE AND
HASHB=FALSE THEN
DO
FMPERFORM CREATE PREFERENCE AFTERLAST (0,0,FMERROR)
DO
SET AUDIOACCESS TO NEWPIN
SET HBMODE TO 1
SET HBENABLE TO 2
SET LASTACCESSCHANGEDATE TO SYSTEMDATE
END
CALL ERRORCHECK
END
ELSE
DO
[ assuming no one will have more than 5 preference records. All of
them are set to the new
audio access code. ]
IF PREFLOC(1)<>0 THEN
DO
FMPERFORM REVISE PREFERENCE LOC PREFLOC(1) (0,0,FMERROR)
DO
SET AUDIOACCESS TO NEWPIN
SET HBMODE TO 1
SET HBENABLE TO 2
SET LASTACCESSCHANGEDATE TO SYSTEMDATE
END
END
CALL ERRORCHECK
IF PREFLOC(2)<>0 THEN
DO
FMPERFORM REVISE PREFERENCE LOC PREFLOC(1) (0,0,FMERROR)
DO
SET AUDIOACCESS TO NEWPIN
SET HBMODE TO 1
SET HBENABLE TO 2
SET LASTACCESSCHANGEDATE TO SYSTEMDATE
END
END
CALL ERRORCHECK
IF PREFLOC(3)<>0 THEN
DO
FMPERFORM REVISE PREFERENCE LOC PREFLOC(1) (0,0,FMERROR)
DO
SET AUDIOACCESS TO NEWPIN
SET HBMODE TO 1
SET HBENABLE TO 2
SET LASTACCESSCHANGEDATE TO SYSTEMDATE
END
END
CALL ERRORCHECK
IF PREFLOC(4)<>0 THEN
DO
FMPERFORM REVISE PREFERENCE LOC PREFLOC(1) (0,0,FMERROR)
DO
SET AUDIOACCESS TO NEWPIN
SET HBMODE TO 1
SET HBENABLE TO 2
SET LASTACCESSCHANGEDATE TO SYSTEMDATE
END
END
CALL ERRORCHECK
IF PREFLOC(5)<>0 THEN
DO
FMPERFORM REVISE PREFERENCE LOC PREFLOC(1) (0,0,FMERROR)
DO
SET AUDIOACCESS TO NEWPIN
SET HBMODE TO 1
SET HBENABLE TO 2
SET LASTACCESSCHANGEDATE TO SYSTEMDATE
END
END
CALL ERRORCHECK
END
END
PROCEDURE CUHOMEFM
IF UPPERCASE(ACTION)="SET UP" AND
HASAUDIO=FALSE AND
HASHB=FALSE THEN
DO
FMPERFORM CREATE PREFERENCE AFTERLAST (0,0,FMERROR)
DO
SET HBPASSWORD TO NEWPASS
SET HBMODE TO 1
SET HBENABLE TO 2
SET LANGUAGE TO 3
[ SET LASTHBPWCHANGEDATE TO '--/--/--' ]
END
CALL ERRORCHECK
END
ELSE
DO
[ assuming no one will have more than 5 preference records. All of
them are set to the new
audio access code. ]
IF PREFLOC(1)<>0 THEN
DO
FMPERFORM REVISE PREFERENCE LOC PREFLOC(1) (0,0,FMERROR)
DO
SET HBPASSWORD TO NEWPASS
SET HBMODE TO 1
SET HBENABLE TO 2
SET LASTHBPWCHANGEDATE TO '--/--/--'
END
CALL UNFREEZE [ always unfreeze just in case ]
END
CALL ERRORCHECK
IF PREFLOC(2)<>0 THEN
DO
FMPERFORM REVISE PREFERENCE LOC PREFLOC(2) (0,0,FMERROR)
DO
SET HBPASSWORD TO NEWPASS
SET HBMODE TO 1
SET HBENABLE TO 2
SET LASTHBPWCHANGEDATE TO '--/--/--'
END
CALL UNFREEZE [ always unfreeze just in case ]
END
CALL ERRORCHECK
IF PREFLOC(3)<>0 THEN
DO
FMPERFORM REVISE PREFERENCE LOC PREFLOC(3) (0,0,FMERROR)
DO
SET HBPASSWORD TO NEWPASS
SET HBMODE TO 1
SET HBENABLE TO 2
SET LASTHBPWCHANGEDATE TO '--/--/--'
END
CALL UNFREEZE [ always unfreeze just in case ]
END
CALL ERRORCHECK
IF PREFLOC(4)<>0 THEN
DO
FMPERFORM REVISE PREFERENCE LOC PREFLOC(4) (0,0,FMERROR)
DO
SET HBPASSWORD TO NEWPASS
SET HBMODE TO 1
SET HBENABLE TO 2
SET LASTHBPWCHANGEDATE TO '--/--/--'
END
CALL UNFREEZE [ always unfreeze just in case ]
END
CALL ERRORCHECK
IF PREFLOC(5)<>0 THEN
DO
FMPERFORM REVISE PREFERENCE LOC PREFLOC(5) (0,0,FMERROR)
DO
SET HBPASSWORD TO NEWPASS
SET HBMODE TO 1
SET HBENABLE TO 2
SET LASTHBPWCHANGEDATE TO '--/--/--'
END
CALL UNFREEZE [ always unfreeze just in case ]
END
CALL ERRORCHECK
END
END
PROCEDURE ERRORCHECK
IF FMERROR<>"" THEN
POPUPMESSAGE(2,"FM Error: "+FMERROR)
END
