source:
tags/expresso/2.0.2/workflow/js/htmlarea/examples/test.cgi
@
795
Revision 795, 225 bytes checked in by viani, 15 years ago (diff) | |
---|---|
|
Line | |
---|---|
1 | #! /usr/bin/perl -w |
2 | # |
3 | # |
4 | # |
5 | |
6 | |
7 | |
8 | use CGI; |
9 | |
10 | print "Content-type: text/html\n\n"; |
11 | $c = new CGI; |
12 | $ta = $c->param('ta'); |
13 | |
14 | print <<EOF; |
15 | <html> |
16 | <body> |
17 | <textarea style="width: 100%; height: 200px">$ta</textarea> |
18 | $ta |
19 | </body> |
20 | </html> |
21 | EOF |
Note: See TracBrowser
for help on using the repository browser.