[BACK]Return to test.cgi CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / html / htmlarea
File:  [LON-CAPA] / loncom / html / htmlarea / Attic / test.cgi
Revision 1.1: download - view: text, annotated - select for diffs
Wed Feb 18 08:07:15 2004 UTC (20 years, 4 months ago) by www
Branches: MAIN
CVS tags: version_2_5_X, version_2_5_99_0, version_2_5_2, version_2_5_1, version_2_5_0, version_2_4_X, version_2_4_99_0, version_2_4_2, version_2_4_1, version_2_4_0, version_2_3_X, version_2_3_99_0, version_2_3_2, version_2_3_1, version_2_3_0, version_2_2_X, version_2_2_99_1, version_2_2_99_0, version_2_2_2, version_2_2_1, version_2_2_0, version_2_1_X, version_2_1_99_3, version_2_1_99_2, version_2_1_99_1, version_2_1_99_0, version_2_1_3, version_2_1_2, version_2_1_1, version_2_1_0, version_2_0_X, version_2_0_99_1, version_2_0_2, version_2_0_1, version_2_0_0, version_1_99_3, version_1_99_2, version_1_99_1_tmcc, version_1_99_1, version_1_99_0_tmcc, version_1_99_0, version_1_3_X, version_1_3_3, version_1_3_2, version_1_3_1, version_1_3_0, version_1_2_X, version_1_2_99_1, version_1_2_99_0, version_1_2_1, version_1_2_0, version_1_1_99_5, version_1_1_99_4, version_1_1_99_3, version_1_1_99_2, version_1_1_99_1, version_1_1_99_0, HEAD
Install HTMLArea

    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
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>