Tfe

Old stuff/Perl/dhtml/index.pl

#!/usr/bin/perl -w
$|++;
use CGI qw/:standard/;
use CGI::Cookie;
use CGI::Carp(fatalsToBrowser);
use DBI;

do("func.pl");

our @url = split(/\//,url(-path_info=>1));
#print @url;
shift(@url);
shift(@url);
$|++; 




print header();
print start_html(
    -style=>{-src=>'style.css'},
    -title=>'test',
    -script=>{-language=>'JAVASCRIPT',-src=>'truc.js'});

print "<div>";
    print "<p id=\"ok\">Entrez un texte</p>";
    print "<form action=\"index.pl\" method=\"post\">
    <textarea rows=\"5\" cols=\"50\" onkeyup=\"fonc()\" name=\"message\"></textarea>
    </form>
    ";


print "</div>";
print end_html;