File: test1.tcl

package info (click to toggle)
aolserver4 4.0.10-7
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 11,188 kB
  • ctags: 14,155
  • sloc: ansic: 39,138; tcl: 5,256; sh: 2,939; makefile: 318; php: 13
file content (68 lines) | stat: -rw-r--r-- 1,364 bytes parent folder | download | duplicates (9)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
ns_return 200 text/html "
<HTML>

<HEAD>
<TITLE>AOLserver Confidence Test</TITLE>
</HEAD>

<BODY BGCOLOR=\"#ffffff\">

<H2>Test 1</H2>

<P>

Test submitting forms to a Tcl page.  Tcl pages are nothing more than
Tcl scripts that are sourced in-place in your pageroot.  They are far
inferior to ADP's but some really antiquated applications still use
them.  You need to enable Tcl pages in your nsd.tcl for these tests to
work at all -- they are off by default since they represent a
significant security risk.

<HR>

FORM METHOD=GET ACTION=\"test1a.tcl\"

<P>
<FORM METHOD=GET ACTION=\"test1a.tcl\">

<INPUT TYPE=hidden NAME=\"thehidden\" VALUE=\"blah\">
<INPUT TYPE=text   NAME=\"atext\">

<INPUT TYPE=submit VALUE=\"Submit it...\">
</FORM>

<HR>

FORM METHOD=POST ACTION=\"test1a.tcl\"

<P>
<FORM METHOD=POST ACTION=\"test1a.tcl\">

<INPUT TYPE=hidden NAME=\"thehidden\" VALUE=\"blah\">
<INPUT TYPE=text   NAME=\"atext\">

<INPUT TYPE=submit VALUE=\"Submit it...\">
</FORM>


<HR>

This page does nothing with the data and merely returns an html page.
Only the most sloppy scripts do this in real life, though.

<BR>
FORM METHOD=GET ACTION=\"test1b.tcl\"

<P>
<FORM METHOD=POST ACTION=\"test1b.tcl\">

<INPUT TYPE=hidden NAME=\"thehidden\" VALUE=\"blah\">
<INPUT TYPE=text   NAME=\"atext\">

<INPUT TYPE=submit VALUE=\"Submit it...\">
</FORM>


</BODY>
</HTML>
"