Re: Petit test en CGI

トップ ページ

このメッセージに返信
著者: Edgar Bonet
日付:  
To: guilde
題目: Re: Petit test en CGI
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@???