Le jeudi 18 avril, Philippe BEAU a écrit :
> j'aurais besoin d'un petit script tout con en perl qui me permette d'écrire
> un fichier (tout bete) pour tester mon suexec. Quelqu'un a t il un morceau
> de code vite fait ?
---------- Couper ici ----------
#!/usr/bin/perl
print <<EOF;
Content-Type: text/html; charset=iso-8859-1
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Test CGI</title>
<style type="text/css">
body { background: white; color: black }
h1 {
text-align: center; font-size: x-large;
color: #003399; font-family: Helvetica, sans-serif
}
</style>
</head><body>
<h1>Test CGI</h1>
<p>Petit bout de test écrit en
<a href="
http://www.perl.org/">Perl</a>...</p>
</body></html>
EOF
---------- Couper ici ----------
--
Edgar Bonet Tel: +33 476 881 096
Laboratoire Louis Néel -- CNRS Mobile: +33 677 197 939
25 av. des Martyrs, BP 166 Fax: +33 476 881 191
38042 Grenoble cedex 9, France e-mail: bonet@???
