#!/usr/bin/perl print "MIME-Version: 1.0","\n"; print "Content-type: text/html","\n\n"; print "\n \n Voici les annonces correspondantes:\n \n"; print ""; &parse_form; &return_html; sub parse_form { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $FORM{$name} = $value; } } #$compt=int(@annonces*1.2); $comptvil=@annoncevil; $comptmot=@annoncemot; $compt=$compt+$comptvil; $comptauto=@annonce; $comptauto=$comptauto+600+$comptmoto; $comptrenc=@annoncerenc+150; ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(); print "

Bonjour, il est $hour heures et $min minutes. Aujourd'hui sur le site Plus de 6000 annonces en immobilier, $comptauto annonces en automobile et $comptrenc annonces rencontre !
\n"; sub return_html { open(FILE, "immo.txt") || die ("Impossible de l'ouvrir \n"); @annonces=; open(FILE, "auto.txt") || die ("Impossible de l'ouvrir \n"); @annonce=; open(FILE, "villegiature.txt") || die ("Impossible de l'ouvrir \n"); @annoncevil=; open(FILE, "moto.txt") || die ("Impossible de l'ouvrir \n"); @annoncemot=; open(FILE, "pa-rencontre.txt") || die ("Impossible de l'ouvrir \n"); @annoncerenc=; }