forked from extern/egroupware
22 lines
225 B
Plaintext
22 lines
225 B
Plaintext
|
#! /usr/bin/perl -w
|
||
|
|
#
|
||
|
|
#
|
||
|
|
#
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
use CGI;
|
||
|
|
|
||
|
|
print "Content-type: text/html\n\n";
|
||
|
|
$c = new CGI;
|
||
|
|
$ta = $c->param('ta');
|
||
|
|
|
||
|
|
print <<EOF;
|
||
|
|
<html>
|
||
|
|
<body>
|
||
|
|
<textarea style="width: 100%; height: 200px">$ta</textarea>
|
||
|
|
$ta
|
||
|
|
</body>
|
||
|
|
</html>
|
||
|
|
EOF
|