[BACK]Return to test.cgi CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / html / htmlarea

Annotation of loncom/html/htmlarea/test.cgi, revision 1.1

1.1     ! www         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>