source:
trunk/workflow/js/htmlarea/test.cgi
@
795
Revision 795, 225 bytes checked in by viani, 15 years ago (diff) | |
---|---|
|
Rev | Line | |
---|---|---|
[795] | 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.