egroupware_official/phpgwapi/js/htmlarea/examples/test.cgi
2004-04-20 22:45:00 +00:00

22 lines
225 B
Perl
Executable File

#! /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