|
|
|
|
Member
WRKVLDL
in
WEBSECURE / HTMLSRC
|
|
|
|
1.00 |
/$top *** INITIAL SECTION |
2.00 |
Content-type: text/html |
3.00 |
|
4.00 |
<HTML> |
5.00 |
<head><title>Work with validation list /%XXXVLDL%/</title> |
6.00 |
<META NAME="ROBOTS" content="ALL"> |
7.00 |
<META NAME="OWNER" CONTENT="Giovanni B. Perotti, gb_perotti@easy400.net"> |
8.00 |
<META NAME="REVIEW" CONTENT="20000918"> |
9.00 |
<META NAME="SECURITY" CONTENT="public"> |
10.00 |
<META NAME="ABSTRACT" CONTENT="AS/400 validation list maintenance utility"> |
11.00 |
<META NAME="DESCRIPTION" CONTENT="Free utility to maintain AS/400 validation lists without using ADMIN"> |
12.00 |
<META NAME="KEYWORDS" CONTENT="ibm, as400, as/400, web, cgi, internet, intranet, e-business, e-commerce, e-rpg, |
13.00 |
erpg, rpg, rpg/400, rpg400, security, protection, validation, list, vldl, *vldl, freeware, perotti "> |
14.00 |
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> |
15.00 |
<SCRIPT LANGUAGE="Javascript"> |
16.00 |
function getTimeStamp() { |
17.00 |
RightNow = new Date(); |
18.00 |
year=RightNow.getFullYear(); |
19.00 |
month=(RightNow.getMonth()+1); |
20.00 |
day=RightNow.getDate(); |
21.00 |
hours=RightNow.getHours(); |
22.00 |
minutes=RightNow.getMinutes(); |
23.00 |
seconds=RightNow.getSeconds(); |
24.00 |
TimeStamp="ts"+year+month+day+hours+minutes+seconds; |
25.00 |
return TimeStamp; |
26.00 |
} |
27.00 |
function getTime() { |
28.00 |
RightNow = new Date(); |
29.00 |
year=RightNow.getFullYear(); |
30.00 |
month=(RightNow.getMonth()+1); |
31.00 |
day=RightNow.getDate(); |
32.00 |
hours=RightNow.getHours(); |
33.00 |
minutes=RightNow.getMinutes(); |
34.00 |
seconds=RightNow.getSeconds(); |
35.00 |
TimeNow=hours+":"+minutes+":"+seconds; |
36.00 |
return TimeNow; |
37.00 |
} |
38.00 |
function getMyDate() { |
39.00 |
var now = new Date(); |
40.00 |
var yr = now.getYear(); |
41.00 |
var mName = now.getMonth() + 1; |
42.00 |
var dName = now.getDay() + 1; |
43.00 |
var dayNr = ((now.getDate()<10) ? "0" : "")+ now.getDate(); |
44.00 |
if(dName==1) Day = "Sunday"; |
45.00 |
if(dName==2) Day = "Monday"; |
46.00 |
if(dName==3) Day = "Tuesday"; |
47.00 |
if(dName==4) Day = "Wednesday"; |
48.00 |
if(dName==5) Day = "Thursday"; |
49.00 |
if(dName==6) Day = "Friday"; |
50.00 |
if(dName==7) Day = "Saturday"; |
51.00 |
if(mName==1) Month="January"; |
52.00 |
if(mName==2) Month="February"; |
53.00 |
if(mName==3) Month="March"; |
54.00 |
if(mName==4) Month="April"; |
55.00 |
if(mName==5) Month="May"; |
56.00 |
if(mName==6) Month="June"; |
57.00 |
if(mName==7) Month="July"; |
58.00 |
if(mName==8) Month="August"; |
59.00 |
if(mName==9) Month="September"; |
60.00 |
if(mName==10) Month="October"; |
61.00 |
if(mName==11) Month="November"; |
62.00 |
if(mName==12) Month="December"; |
63.00 |
var todaysDate =(" " + Day + " " + Month |
64.00 |
+ " " + dayNr) |
65.00 |
return todaysDate; |
66.00 |
} |
67.00 |
function chkInput(xxx) { |
68.00 |
var chk=true; |
69.00 |
var inp1=window.document.form1.usnamn.value.length; |
70.00 |
var inp2=window.document.form1.uspwdn.value.length; |
71.00 |
var inp3=window.document.form1.ustxtn.value.length; |
72.00 |
if (inp1==0) { |
73.00 |
chk=false; |
74.00 |
window.document.form1.usnamn.focus(); |
75.00 |
alert("Internet user?"); |
76.00 |
} |
77.00 |
else |
78.00 |
if (xxx=="add") { |
79.00 |
if (inp2==0) { |
80.00 |
chk=false; |
81.00 |
window.document.form1.uspwdn.focus(); |
82.00 |
alert("for 'Add' please enter a 'Password'"); |
83.00 |
} |
84.00 |
else |
85.00 |
if (inp3==0) { |
86.00 |
chk=false; |
87.00 |
window.document.form1.ustxtn.focus(); |
88.00 |
alert("for 'Add' please enter a 'Description'"); |
89.00 |
} |
90.00 |
} |
91.00 |
else |
92.00 |
if (xxx=="chg") { |
93.00 |
var inp23=(inp2==0 && inp3==0); |
94.00 |
if (inp23==true) { |
95.00 |
chk=false; |
96.00 |
window.document.form1.uspwdn.focus(); |
97.00 |
alert("for 'Change' type new 'Password' and/or new 'Description'") |
98.00 |
} |
99.00 |
} |
100.00 |
return chk; |
101.00 |
} |
102.00 |
function doSubmit(xxx) { |
103.00 |
var chkCode=chkInput(xxx); |
104.00 |
if (chkCode==true) { |
105.00 |
window.document.form1.request.value=xxx; |
106.00 |
window.document.form1.submit(); |
107.00 |
} |
108.00 |
return chkCode; |
109.00 |
} |
110.00 |
</SCRIPT> |
111.00 |
</head> |
112.00 |
|
113.00 |
<BODY TEXT="black" LINK="blue" VLINK="purple" ALINK="violet" BGCOLOR="white"> |
114.00 |
<TABLE WIDTH=600 BORDER=0> |
115.00 |
<TR><TD align=center> |
116.00 |
<font face="Souvenir Lt Bt,Verdana,Arial"> |
117.00 |
<font color="blue"> |
118.00 |
<b>Work with validation list <font color="red">/%fullvldl%/</font></b> |
119.00 |
</TD></TR></TABLE> |
120.00 |
/$vldlerrA **** USER NOT ADDED |
121.00 |
<table width=600> |
122.00 |
<tr><td align=center> |
123.00 |
<font face="Arial,Helvetica" size="-1" color="red"> |
124.00 |
<b>User not added</b> |
125.00 |
</td></tr> |
126.00 |
</table> |
127.00 |
/$vldlerrC **** USER NOT CHANGED |
128.00 |
<table width=600> |
129.00 |
<tr><td align=center> |
130.00 |
<font face="Arial,Helvetica" size="-1" color="red"> |
131.00 |
<b>User not changed</b> |
132.00 |
</td></tr> |
133.00 |
</table> |
134.00 |
/$vldlerrR **** USER NOT REMOVED |
135.00 |
<table width=600> |
136.00 |
<tr><td align=center> |
137.00 |
<font face="Arial,Helvetica" size="-1" color="red"> |
138.00 |
<b>User not removed</b> |
139.00 |
</td></tr> |
140.00 |
</table> |
141.00 |
/$ask **** WHICH VALIDATION LIST? |
142.00 |
<table width=600> |
143.00 |
<tr><td width="100%" align=center> |
144.00 |
<table> |
145.00 |
<form name=ask method=post action="/websecp/wrkvldl.pgm"> |
146.00 |
<input type=hidden name=request value=start> |
147.00 |
<script language="JavaScript"> |
148.00 |
document.write("<input type=hidden name=ts value="+getTimeStamp()+">") |
149.00 |
</script> |
150.00 |
<tr><td><font face="Arial,Helvetica" size=2> |
151.00 |
Validation list:</td> |
152.00 |
<td><input name=vldlnam size=10 maxlength=10 |
153.00 |
value="/%vldlnam%/"></td></tr> |
154.00 |
<tr><td><font face="Arial,Helvetica" size=2> |
155.00 |
Library:</td> |
156.00 |
<td> |
157.00 |
<input name=vldllib size=10 maxlength=10 |
158.00 |
value="/%vldllib%/"></td></tr> |
159.00 |
<tr><td colspan=2 align=center> |
160.00 |
<font face="Arial,Helvetica" size=2> |
161.00 |
<input type=submit value="Send"> |
162.00 |
</td></tr> |
163.00 |
</table> |
164.00 |
</form> |
165.00 |
/$form **** INPUT FORM |
166.00 |
<table width=600> |
167.00 |
<tr><td width="100%" align=center> |
168.00 |
<table> |
169.00 |
<form name=form1 method=post action="/websecp/wrkvldl.pgm"> |
170.00 |
<input type=hidden name=request> |
171.00 |
<input type=hidden name=vldllib value="/%vldllib%/"> |
172.00 |
<input type=hidden name=vldlnam value="/%vldlnam%/"> |
173.00 |
<script language="JavaScript"> |
174.00 |
document.write("<input type=hidden name=ts value="+getTimeStamp()+">") |
175.00 |
</script> |
176.00 |
<tr><td><font face="Arial,Helvetica" size="-1" |
177.00 |
color="/%COLOR01%/"> |
178.00 |
Internet user</td> |
179.00 |
<td><input name=usnamn size=20 maxlength=20 |
180.00 |
value="/%USNAMN%/"></td></tr> |
181.00 |
<tr><td><font face="Arial,Helvetica" size="-1" |
182.00 |
color="/%COLOR02%/"> |
183.00 |
Password</td> |
184.00 |
<td><input name=uspwdn size=20 maxlength=20 |
185.00 |
value="/%USPWDN%/"></td></tr> |
186.00 |
<tr><td><font face="Arial,Helvetica" size="-1" |
187.00 |
color="/%COLOR03%/"> |
188.00 |
Description</td> |
189.00 |
<td><input name=ustxtn size=20 maxlength=50 |
190.00 |
value="/%USTXTN%/"></td></tr> |
191.00 |
<tr><td colspan=2 align=center> |
192.00 |
<table width="100%" border=0> |
193.00 |
<tr><td align=center><font face="Arial,Helvetica" size="-1"> |
194.00 |
<input type=button value=" Add " |
195.00 |
onClick=doSubmit("add")></td> |
196.00 |
<td align=center><font face="Arial,Helvetica" size="-1"> |
197.00 |
<input type=button value=" Change " |
198.00 |
onClick=doSubmit("chg")></td> |
199.00 |
<td align=center><font face="Arial,Helvetica" size="-1"> |
200.00 |
<input type=button value=" Remove " |
201.00 |
onClick=doSubmit("rmv")></td> |
202.00 |
</form> |
203.00 |
</tr> |
204.00 |
</table> |
205.00 |
</td></tr> |
206.00 |
</table> |
207.00 |
</td></tr> |
208.00 |
</table> |
209.00 |
/$none *** NO INTERNET USERS |
210.00 |
<table width=600 border=0> |
211.00 |
<tr><td align=center> |
212.00 |
<font face="Arial,Helvetica" size="-1"> |
213.00 |
<font color=red> |
214.00 |
<b>There are no internet users</b></font> |
215.00 |
<br> |
216.00 |
<SCRIPT LANGUAGE="Javascript"> |
217.00 |
document.write(getMyDate()+", "+getTime()) |
218.00 |
</SCRIPT> |
219.00 |
</td></tr> |
220.00 |
</table> |
221.00 |
/$tabstr *** START OF LIST |
222.00 |
<TABLE WIDTH=600> |
223.00 |
<TR><TD ALIGN=CENTER> |
224.00 |
<table border=1> |
225.00 |
<caption><font face="Arial,Helvetica" size="-1"> |
226.00 |
<font color=blue><b>Current internet users</b></font> |
227.00 |
<br> |
228.00 |
<SCRIPT LANGUAGE="Javascript"> |
229.00 |
document.write(getMyDate()+", "+getTime()) |
230.00 |
</SCRIPT> |
231.00 |
</caption> |
232.00 |
<th> </th> |
233.00 |
<th align=left><font face="Arial,Helvetica" size="-1">user</th> |
234.00 |
<th align=left><font face="Arial,Helvetica" size="-1">password</th> |
235.00 |
<th align=left><font face="Arial,Helvetica" size="-1">description</th> |
236.00 |
/$tabrow *** ROW FOR INTERNET USER |
237.00 |
<tr><td valign=top align=right valign=top> |
238.00 |
<font face="Arial,Helvetica" size="-1"><b>/%SEQ%/ </b></td> |
239.00 |
<td valign=top><font face="Arial,Helvetica" size="-1">/%USRNAM%/</td> |
240.00 |
<td valign=top><font face="Arial,Helvetica" size="-1">/%USRPWD%/</td> |
241.00 |
<td valign=top><font face="Arial,Helvetica" size="-1">/%USRTXT%/</td></tr> |
242.00 |
/$tabend *** END OF FOOT MESSAGES |
243.00 |
</table> |
244.00 |
</TD></TR></TABLE> |
245.00 |
/$end *** FINAL SECTION |
246.00 |
<br><br> |
247.00 |
</body></html> |