egroupware_official/phpgwapi/js/htmlarea/examples/test.cgi

22 lines
225 B
Plaintext
Raw Normal View History

2004-04-21 00:45:00 +02:00
#! /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