egroupware_official/phpgwapi/js/htmlarea/test.cgi

22 lines
225 B
Plaintext
Raw Normal View History

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