#!/usr/bin/perl

###################################################################
##  Script ecrit par : Berger Christophe                         ##
##  Modifier par     : Sesko Yves le 24/04/2001                  ##
##  Copyright Berger Christophe                                  ##
##  Script soumis a la licence GNU                               ##
###################################################################
##  Version: 2.2 - Derniere modification: 10 juin 2001           ##
###################################################################

require 'cgi-lib.cgi';
require "annonces.cfg";
&ReadParse;

&print_form if ($ENV{'QUERY_STRING'} eq 'ajout');
&print_form_modif if ($ENV{'QUERY_STRING'} eq 'modif');
&execmodif if ($in{action} eq 'modifier');
&modif if ($in{action} eq 'entrermodif');
&ajout if ($in{action} eq 'ajouter');
&annonces if ($in{rub});
&exec_search if ($in{execsearch});
&details if ($in{ann});
&rubriques;

sub rubriques {open(BASE,"$config{dossierlogs}/base.txt");
if ($config{flock}) {flock BASE, 2;}
@BASE=<BASE>;
close(BASE);
$nombre=@BASE;
&print_header;
print qq~<table border=0 width=90%><TR><TD BGCOLOR='$config{td_bgcolor}' width=33% align=center><A href="$ENV{'SCRIPT_NAME'}"><FONT FACE='$config{fontface}' color='$config{td_fontcolor}' size=-1>[ Retour ]</FONT></A></TD><TD BGCOLOR='$config{td_bgcolor}' width=33% align=center><A href="$ENV{'SCRIPT_NAME'}?ajout"><FONT FACE='$config{fontface}' color='$config{td_fontcolor}' size=-1>[ Ajouter une annonce ]</FONT></A></TD><TD BGCOLOR='$config{td_bgcolor}' width=33% align=center><A href="$ENV{'SCRIPT_NAME'}?modif"><FONT FACE='$config{fontface}' color='$config{td_fontcolor}' size=-1>[ Modifier une annonce ]</FONT></A></TD></TR></table><BR><BR><CENTER><Table border=0 width=60%><TR><TD BGCOLOR='$config{td_bgcolor}' width=100%><FONT FACE='$config{fontface}' color='$config{td_fontcolor}' align=center valign=center><CENTER><BR><H3>Catégories disponibles:</H3>Nombre d'annonces total: $nombre<BR><BR><Table border=0>~;
foreach $mot (@rubriques) {@resul=<resul>;
foreach $ligne (@BASE) {($numero,$date,$code,$rubrique,$titre,$nom,$email,$dep,$url,$photo,$annonce)=split(/\|\|/,$ligne);
if ($rubrique eq $mot) {push(@resul,$ligne);}}
$qtt=@resul;
close(resul);
if ($mot ne '') {$lien=$mot;
$lien=~s/ //g;
print qq~<TR><TD width=50% align=center><A href="$ENV{'SCRIPT_NAME'}?rub=$lien">$mot</A></TD><TD width=50% align=center><font style='arial' size=-1 color='yellow'>$qtt</font></TD></TR>~;}}
print qq~</TABLE></center><BR></TD></TR></TABLE><BR>~;
&formsearch;
&print_footer;
exit;}

sub annonces {
&print_header;
open(BASE,"$config{dossierlogs}/base.txt");
if ($config{flock}) {flock BASE, 2;}
@BASE=<BASE>;
close(BASE);
foreach $ligne (@BASE) {
($numero,$date,$code,$rubrique,$titre,$nom,$email,$dep,$url,$photo,$annonce)=split(/\|\|/,$ligne);
$rubrique=~s/ //g;
if ($rubrique=~/\b$in{rub}/) {push(@resultats,$ligne);}}
$nombre=@resultats;
print qq~<table border=0 width=90%><TR><TD BGCOLOR='$config{td_bgcolor}' width=33% align=center><A href="$ENV{'SCRIPT_NAME'}"><FONT FACE='$config{fontface}' color='$config{td_fontcolor}' size=-1>[ Retour ]</FONT></A></TD><TD BGCOLOR='$config{td_bgcolor}' width=33% align=center><A href="$ENV{'SCRIPT_NAME'}?ajout"><FONT FACE='$config{fontface}' color='$config{td_fontcolor}' size=-1>[ Ajouter une annonce ]</FONT></A></TD><TD BGCOLOR='$config{td_bgcolor}' width=33% align=center><A href="$ENV{'SCRIPT_NAME'}?modif"><FONT FACE='$config{fontface}' color='$config{td_fontcolor}' size=-1>[ Modifier une annonce ]</FONT></A></TD></TR>~;
if (!$nombre) {print qq~<TR><TD colspan=3 align=center><BR><FONT FACE='$config{fontface}' color='$config{td_fontcolor}'><BR><BR><BR><BR>Il n'y a pas d'annonces dans cette catégorie<BR><BR><BR></FONT></TD></TR>~;}
else {$i=1;
$debut=0;
if ($in{debut}) {$debut=$in{debut};}
$fin=$debut+$config{affparpage};
if ($fin > $nombre) {$fin=$nombre;}
($numero,$date,$code,$activerub,$titre,$nom,$email,$dep,$url,$photo,$annonce)=split(/\|\|/,$resultats[0]);
print qq~<TR><TD width=100% colspan=3 align=center valign=center><BR><BR><Font color="$config{td_fontcolor}"><H3>Affichage des annonces</H3><CODE>$nombre annonces dans '$activerub'</CODE><BR><CODE>visualisation de $debut à $fin</CODE></FONT></TD></TR>~;
if ($config{affliste}) {print qq~<TR><TD colspan=3><BR><BR></TD></TR><TR><TD bgcolor="$config{td_bgcolor}"><FONT FACE='$config{fontface}' color='$config{td_fontcolor}'>Département<BR><Font size=-2>(date)</FONT></FONT></TD><TD colspan=2 bgcolor="$config{td_bgcolor}" align=center valign=center><FONT FACE='$config{fontface}' color='$config{td_fontcolor}'>Titre de l'annonce</FONT></TD></TR>~;
for ($s=$debut; $s < $fin; $s++) {($numero,$date,$code,$rubrique,$titre,$nom,$email,$dep,$url,$photo,$annonce)=split(/\|\|/,$resultats[$s]);
if ($i eq '1') {$couleur=$config{col2};$i=2;}
else {$couleur=$config{col1};$i='1';}
print qq~<TR><TD bgcolor="$couleur"><FONT FACE='$config{fontface}' color='$config{td_fontcolor}'>$dep<BR><Font size=-2>(le $date)</FONT></FONT></TD><TD colspan=2 bgcolor="$couleur" align=center valign=center><A href="$ENV{'SCRIPT_NAME'}?ann=$numero"><FONT FACE='$config{fontface}' color='$config{td_fontcolor}'>$titre</FONT></A></TD></TR>~;}}
else {print qq~<TR><TD colspan=3><CENTER><FONT FACE='$config{fontface}' color='$config{td_fontcolor}'>~;
for ($s=$debut; $s < $fin; $s++) {($numero,$date,$code,$rubrique,$titre,$nom,$email,$dep,$url,$photo,$annonce)=split(/\|\|/,$resultats[$s]);
print qq~<HR width=50%><BR></CENTER>De: <a href="mailto:$email"><FONT FACE='$config{fontface}' color='$config{td_fontcolor}'>$nom</FONT></A>, le $date<BR>~;
if ($url) {print qq~Site web: <a href="$url">$url</A>~;}
if ($photo) {print qq~<BR><CENTER><table><tr><TD><img src="$config{url_photos}/$photo" alt="$numero"></TD><TD>$annonce</TD></TR></TABLE>~;}
else {print qq~<BR><CENTER>$annonce~;}}
print qq~</FONT></CENTER></TD></TR>~;}}
if (($debut ne '0')&&($debut)) {$prec=$debut-$config{affparpage};
$lienprecedent=qq|[ <A HREF="$ENV{'SCRIPT_NAME'}?rub=$in{rub}&debut=$prec">Réponses précédentes</A> ]|;}
if ($nombre>$fin) {$suiv=$fin;
$liensuite=qq|[ <A HREF="$ENV{'SCRIPT_NAME'}?rub=$in{rub}&debut=$suiv">Réponses suivantes</A> ]|;}
print qq~<TR><TD colspan=2 align=center>$lienprecedent $liensuite</TD></TR></TABLE><BR><bR>~;
&formsearch;
&print_footer;
exit;}

sub details {
open(BASE,"$config{dossierlogs}/base.txt");
if ($config{flock}) {flock BASE, 2;}
@BASE=<BASE>;
close(BASE);
foreach $ligne (@BASE) {($numero,$date,$code,$rubrique,$titre,$nom,$email,$dep,$url,$photo,$annonce)=split(/\|\|/,$ligne);
if ($numero eq $in{ann}){&print_header;
print qq~<table border=0 width=90%><TR><TD BGCOLOR='$config{td_bgcolor}' width=33% align=center><A href="$ENV{'SCRIPT_NAME'}"><FONT FACE='$config{fontface}' color='$config{td_fontcolor}' size=-1>[ Index ]</FONT></A></TD><TD BGCOLOR='$config{td_bgcolor}' width=33% align=center><A href="$ENV{'SCRIPT_NAME'}?ajout"><FONT FACE='$config{fontface}' color='$config{td_fontcolor}' size=-1>[ Ajouter une annonce ]</FONT></A></TD><TD BGCOLOR='$config{td_bgcolor}' width=33% align=center><A href="$ENV{'SCRIPT_NAME'}?modif"><FONT FACE='$config{fontface}' color='$config{td_fontcolor}' size=-1>[ Modifier une annonce ]</FONT></A></TD></TR></TABLE><BR><BR><CENTER><Table border=0 width=60%><TR><TD BGCOLOR='$config{td_bgcolor}' width=100%><FONT FACE='$config{fontface}' color='$config{td_fontcolor}' align=center valign=center><CENTER><BR><H3>Détails de cette annonce:</H3><BR>De: <a href="mailto:$email"><FONT FACE='$config{fontface}' color='$config{td_fontcolor}'>$nom</FONT></A>, le $date<BR>~;
if ($url) {print qq~Site web: <a href="$url">$url</A>~;}
print qq~<BR><BR>Département/Pays: $dep<BR><BR>~;
if ($photo) {print qq~<BR><CENTER><table><tr><TD><img src="$config{url_photos}/$photo" alt="$numero"></TD><TD>$annonce<BR>mail : $email</TD></TR></TABLE>~;}
else {print qq~<BR><CENTER>$annonce<BR>mail : $email~;}
print qq~</center><BR></TD></TR></TABLE><BR>~;
&print_footer;
exit;}}
&erreur("L'annonce numero $numero n'a pas été trouvée");
exit;}

sub formsearch {print qq~<table border=0><TR><TD BGCOLOR='$config{td_bgcolor}' align=center><BR><Font color="$config{td_fontcolor}"><form name="form" action="$ENV{'SCRIPT_NAME'}" method=post><input type=hidden name="execsearch" value="1"><FONT SIZE=-1>Mots clé: <input type="TEXT" name="motcle" size="20"><INPUT TYPE=submit value="GO !"><br>Mode de recherche: <input type="radio" name="mode" value="ET" checked>ET &nbsp; &nbsp;<input type="radio" name="mode" value="OU">OU<BR></FORM></FONT></TD></TR></TABLE>~;}

sub exec_search {
open(BASE,"$config{dossierlogs}/base.txt");
if ($config{flock}) {flock BASE, 2;}
@BASE=<BASE>;
close(BASE);
if ($in{motcle} eq '') {&erreur("Vous n'avez pas entré de mots clé");}
$achercher=lc($in{motcle});
$achercher=~ s/\+/ /g;
($d1,$d2,$d3,$d4,$d5)=split(/ /,$achercher);
&print_header;
foreach $ligne (@BASE){
$lignetemp=lc($ligne);
($numero,$date,$code,$rubrique,$titre,$nom,$email,$dep,$url,$photo,$annonce)=split(/\|\|/,$lignetemp);
$ou_chercher="$titre $dep $annonce";
if ($in{mode} eq 'ET') {if ($ou_chercher=~/\b$d1/ && $ou_chercher=~/\b$d2/ && $ou_chercher=~/\b$d3/ && $ou_chercher=~/\b$d4/  && $ou_chercher=~/\b$d5/) {push(@reponses,"$ligne");}}
elsif ($in{mode} eq 'OU') {if ((($ou_chercher=~$d1)&&($d1)) || (($ou_chercher=~$d2)&&($d2)) || (($ou_chercher=~$d3)&&($d3)) || (($ou_chercher=~$d4)&&($d4)) || (($ou_chercher=~$d5)&&($d5))){push(@reponses,"$ligne");}}
else {if ((($ou_chercher=~$d1)&&($d1)) || (($ou_chercher=~$d2)&&($d2)) || (($ou_chercher=~$d3)&&($d3)) || (($ou_chercher=~$d4)&&($d4)) || (($ou_chercher=~$d5)&&($d5))){push(@reponses,"$ligne");}}}
$nombre=@reponses;
print qq~<table border=0 width=90%><TR><TD BGCOLOR='$config{td_bgcolor}' width=33% align=center><A href="$ENV{'SCRIPT_NAME'}"><FONT FACE='$config{fontface}' color='$config{td_fontcolor}' size=-1>[ Retour ]</FONT></A></TD><TD BGCOLOR='$config{td_bgcolor}' width=33% align=center><A href="$ENV{'SCRIPT_NAME'}?ajout"><FONT FACE='$config{fontface}' color='$config{td_fontcolor}' size=-1>[ Ajouter une annonce ]</FONT></A></TD><TD BGCOLOR='$config{td_bgcolor}' width=33% align=center><A href="$ENV{'SCRIPT_NAME'}?modif"><FONT FACE='$config{fontface}' color='$config{td_fontcolor}' size=-1>[ Modifier une annonce ]</FONT></A></TD></TR>~;
if (!$nombre) {print qq~<TR><TD colspan=3 align=center><BR><FONT FACE='$config{fontface}' color='$config{td_fontcolor}'><BR><BR><BR><BR>aucune annonce ne correspond à vos critères de recherche.<BR><BR><BR></FONT><BR><BR></TD></TR>~;}
else {$i=1;
$debut=0;
if ($in{debut}) {$debut=$in{debut};}
$fin=$debut+$config{affparpage};
if ($fin > $nombre) {$fin=$nombre;}
print qq~<TR><TD width=100% colspan=3 align=center valign=center><BR><BR><Font color="$config{td_fontcolor}"><H3>Affichage des annonces</H3><CODE>$nombre annonces correspondent à votre recherche</CODE><BR><CODE>visualisation de $debut à $fin</CODE></FONT></TD></TR>~;
if ($config{affliste}) {print qq~<TR><TD colspan=3><BR><BR></TD></TR><TR><TD bgcolor="$config{td_bgcolor}"><FONT FACE='$config{fontface}' color='$config{td_fontcolor}'>Département<BR><Font size=-2>(date)</FONT></FONT></TD><TD colspan=2 bgcolor="$config{td_bgcolor}" align=center valign=center><FONT FACE='$config{fontface}' color='$config{td_fontcolor}'>Titre de l'annonce</FONT></TD></TR>~;
for ($s=$debut; $s < $fin; $s++) {($numero,$date,$code,$rubrique,$titre,$nom,$email,$dep,$url,$photo,$annonce)=split(/\|\|/,$reponses[$s]);
if ($i eq '1') {$couleur=$config{col2};$i=2;}
else {$couleur=$config{col1};$i='1';}
print qq~<TR><TD bgcolor="$couleur"><FONT FACE='$config{fontface}' color='$config{td_fontcolor}'>$dep<BR><Font size=-2>(le $date)</FONT></FONT></TD><TD colspan=2 bgcolor="$couleur" align=center valign=center><A href="$ENV{'SCRIPT_NAME'}?ann=$numero"><FONT FACE='$config{fontface}' color='$config{td_fontcolor}'>$titre</FONT></A></TD></TR>~;}}
else {print qq~<TR><TD colspan=3><CENTER><FONT FACE='$config{fontface}' color='$config{td_fontcolor}'>~;
for ($s=$debut; $s < $fin; $s++) {($numero,$date,$code,$rubrique,$titre,$nom,$email,$dep,$url,$photo,$annonce)=split(/\|\|/,$reponses[$s]);
print qq~<HR width=50%><BR></CENTER>De: <a href="mailto:$email"><FONT FACE='$config{fontface}' color='$config{td_fontcolor}'>$nom</FONT></A>, le $date<BR>~;
if ($url) {print qq~Site web: <a href="$url">$url</A>~;}
if ($photo) {print qq~<BR><CENTER><table><tr><TD><img src="$config{url_photos}/$photo" alt="$numero"></TD><TD>$annonce</TD></TR></TABLE>~;}
else {print qq~<BR><CENTER>$annonce~;}}
print qq~</FONT></CENTER></TD></TR>~;}}
$in{motcle}=~s/ /\+/g;
if (($debut ne '0')&&($debut)) {$prec=$debut-$config{affparpage};
$lienprecedent=qq|[ <A HREF="$ENV{'SCRIPT_NAME'}?execsearch=1&motcle=$in{motcle}&debut=$prec&mode=$in{mode}">Réponses précédentes</A> ]|;}
if ($nombre>$fin) {$suiv=$fin;
$liensuite=qq|[ <A HREF="$ENV{'SCRIPT_NAME'}?execsearch=1&motcle=$in{motcle}&debut=$suiv&mode=$in{mode}">Réponses suivantes</A>]|;}
print qq~<TR><TD colspan=2 align=center>$lienprecedent $liensuite</TD></TR></TABLE><BR><bR>~;
&formsearch;
&print_footer;
exit;}

sub print_form {
&print_header;
print qq~
<form method=POST action="$ENV{'SCRIPT_NAME'}" enctype="multipart/form-data">
<CENTER><H4><FONT FACE="$config{fontface}" color="$config{td_fontcolor}">Ajout d'une annonce:</FONT></H4>
<BR><input type=hidden name="action" value="ajouter"><TABLE BORDER="1" width='90%' BGCOLOR="$config{td_bgcolor}">
<TR><TD WIDTH="25%" BGCOLOR="$config{td_bgcolor}"><FONT FACE="$config{fontface}" color="$config{td_fontcolor}">Nom ou pseudo:</FONT></TD><TD BGCOLOR="$config{td_bgcolor}"><input type=text name="nom" size=30><FONT FACE="$config{fontface}" color="$config{td_fontcolor}"><I>(obligatoire)</I></FONT></TD></TR>
<TR><TD WIDTH="25%" BGCOLOR="$config{td_bgcolor}"><FONT FACE="$config{fontface}" color="$config{td_fontcolor}">Votre Adresse E-Mail:</FONT></TD><TD BGCOLOR="$config{td_bgcolor}"><input type=text name="email" size=30><FONT FACE="$config{fontface}" color="$config{td_fontcolor}"><I>(obligatoire)</I></FONT></TD></TR>
<TR><TD WIDTH="25%" BGCOLOR="$config{td_bgcolor}"><FONT FACE="$config{fontface}" color="$config{td_fontcolor}">URL:</FONT></TD><TD BGCOLOR="$config{td_bgcolor}"><input type=text name="url" size=30 value="http://"></TD></TR>
<TR><TD WIDTH="25%" BGCOLOR="$config{td_bgcolor}"><FONT FACE="$config{fontface}" color="$config{td_fontcolor}">Departement, Pays:</FONT></TD><TD BGCOLOR="$config{td_bgcolor}"><input type=text name="dep" size=15></TD></TR>
<TR><TD WIDTH="25%" BGCOLOR="$config{td_bgcolor}"><FONT FACE="$config{fontface}" color="$config{td_fontcolor}">Votre code:</FONT></TD><TD BGCOLOR="$config{td_bgcolor}"><input type=text name="code" size=15><FONT FACE="$config{fontface}" color="$config{td_fontcolor}"><I>(obligatoire)</I></FONT></TD></TR>
<TR><TD COLSPAN=2 align=center BGCOLOR="$config{td_bgcolor}"><FONT FACE="$config{fontface}" color="$config{td_fontcolor}"><U>Votre annonce:</U></FONT></TD></TR>~;
if ($config{affliste}) {print qq~<TR><TD WIDTH="25%" BGCOLOR="$config{td_bgcolor}"><FONT FACE="$config{fontface}" color="$config{td_fontcolor}">Titre:</FONT></TD><TD BGCOLOR="$config{td_bgcolor}"><input type=text name="titre" size=30><FONT FACE="$config{fontface}" color="$config{td_fontcolor}"><I>(obligatoire)</I></FONT></TD></TR>~;}
print qq~<TR><TD WIDTH="25%" BGCOLOR="$config{td_bgcolor}"><FONT FACE="$config{fontface}" color="$config{td_fontcolor}">Rubrique:</FONT></TD><TD BGCOLOR="$config{td_bgcolor}"><select name="rubrique"><option value="" selected> veuillez la sélectionner...</OPTION>~;
foreach $mot (@rubriques) {if ($mot ne '') {print qq|<option value="$mot">$mot</option>|;}}
print qq~</select></TD></TR>~;
if ($config{ajoutphoto}) {print qq~<TR><TD WIDTH="25%" BGCOLOR="$config{td_bgcolor}"><FONT FACE="$config{fontface}" color="$config{td_fontcolor}">Photo:</FONT></TD><TD BGCOLOR="$config{td_bgcolor}"><input type=file name="photo" size=30></TD></TR>~;}
print qq~<TR><TD WIDTH="25%" BGCOLOR="$config{td_bgcolor}"><FONT FACE="$config{fontface}" color="$config{td_fontcolor}">Texte de l'annonce:</FONT></TD><TD BGCOLOR="$config{td_bgcolor}"><textarea name="annonce" COLS="30" ROWS="6"></textarea></TD></TR>
<TR><TD ALIGN="CENTER" COLSPAN="2" BGCOLOR="$config{td_bgcolor}"><input type=submit value="Ajouter"> &nbsp; &nbsp; &nbsp; <input type="reset" Value="Annuler"></TD>
</TR></TABLE><BR><BR></CENTER>~;
&print_footer;
exit;}

sub ajout {
if ((!$in{rubrique})||(!$in{nom})||(!$in{dep})||(!$in{code})||(!$in{annonce})||(!($in{email}=~ /\w+@\w+.\w+/))||(($config{affliste})&&(!$in{titre}))) {
if ($config{affliste}) {$titre=qq|<TR><TD BGCOLOR='$config{td_bgcolor}'><FONT FACE='$config{fontface}' color='$config{td_fontcolor}'>Le titre de votre annonce</FONT></TD><TD BGCOLOR='$config{td_bgcolor}'><input type=text name='titre' value='$in{titre}' maxlength="100"></TD></TR>|;}
if ($config{ajoutphoto}) {$photo=qq|<TR><TD BGCOLOR='$config{td_bgcolor}'><FONT FACE='$config{fontface}' color='$config{td_fontcolor}'>Votre photo</FONT></TD><TD BGCOLOR='$config{td_bgcolor}'><input type=file name='photo'></TD></TR>|;}
foreach $mot (@rubriques) {if ($mot ne '') {$rubriques.=qq|<option value='$mot'>$mot</option>|;}}
&erreur("<H3><FONT FACE='$config{fontface}' color='$config{td_fontcolor}'>Vous n'avez pas rempli tous les champs obligatoires:</FONT></H3>
<form method=POST action='$ENV{'SCRIPT_NAME'}' enctype='multipart/form-data'><input type=hidden name='action' value='ajouter'><TABLE border=0 bgcolor='$config{td_bgcolor}'>
<TR><TD BGCOLOR='$config{td_bgcolor}'><FONT FACE='$config{fontface}' color='$config{td_fontcolor}'>Votre nom</FONT></TD><TD BGCOLOR='$config{td_bgcolor}'><input type=text name='nom' value='$in{nom}'></TD></TR>
<TR><TD BGCOLOR='$config{td_bgcolor}'><FONT FACE='$config{fontface}' color='$config{td_fontcolor}'>Votre email</FONT></TD><TD BGCOLOR='$config{td_bgcolor}'><input type=text name='email' value='$in{email}'></TD></TR>
<TR><TD BGCOLOR='$config{td_bgcolor}'><FONT FACE='$config{fontface}' color='$config{td_fontcolor}'>Votre URL</FONT></TD><TD BGCOLOR='$config{td_bgcolor}'><input type=text name='url' value='$in{url}'></TD></TR>
<TR><TD BGCOLOR='$config{td_bgcolor}'><FONT FACE='$config{fontface}' color='$config{td_fontcolor}'>Votre département</FONT></TD><TD BGCOLOR='$config{td_bgcolor}'><input type=text name='dep' value='$in{dep}'></TD></TR>
<TR><TD BGCOLOR='$config{td_bgcolor}'><FONT FACE='$config{fontface}' color='$config{td_fontcolor}'>Votre code</FONT></TD><TD BGCOLOR='$config{td_bgcolor}'><input type=text name='code' value='$in{code}'></TD></TR>
$titre<TR><TD BGCOLOR='$config{td_bgcolor}'><FONT FACE='$config{fontface}' color='$config{td_fontcolor}'>La rubrique</FONT></TD><TD><SELECT name='rubrique'><option value=''>... Choisissez ...</OPTION>$rubriques</SELECT></TD></TR>
$photo<TR><TD BGCOLOR='$config{td_bgcolor}'><FONT FACE='$config{fontface}' color='$config{td_fontcolor}'>Votre annonce</FONT></TD><TD><textarea name='annonce' cols=25 rows=6>$in{annonce}</TEXTAREA></TD></TR><TR><TD colspan=2 align=center><input type=submit value='Poster l\'annonce'></TD></TR></TABLE></FORM>");}
$redirection="$ENV{'SCRIPT_NAME'}?rub=$in{rubrique}";
$redirection=~s/\ //g;
$in{annonce}=~s/\015?\012/<BR>/g;
if (($in{url} eq 'http://') || ($in{url} eq '')) {$in{url}='';}
open(LOG,"$config{dossierlogs}/anns.log");
$verif_annonce=<LOG>;
close(LOG);
$verif_annonce=~s/\n//g;
if ($verif_annonce eq $in{annonce}){print "Content-type: text/html\nLocation: $redirection\n\n";exit;}
&date;
if ($in{photo}) {if (!$incfn{photo}) {&erreur("Votre navigateur semble ne pas supporter l'upload de fichiers.");}
$incfn{photo}=~ /.*\\(.*)\.(.*)/;
($nom,$ext)=($1,$2);
$ext=lc($ext);
if (($ext eq "gif") || ($ext eq "jpg") || ($ext eq "jpeg")) {$fichierphoto="$numero.$ext";}
else {&erreur("Ce fichier n'est pas une image gif ou jpg, tout autre type de fichier est interdit.");}
chmod 0766, $config{dir_photos};
open (photoout,">$config{dir_photos}/$fichierphoto");
binmode(photoout);
print photoout $in{photo};
close(photoout);
chmod 0755, $config{dir_photos};
chmod 0755, "$config{dir_photos}/$fichierphoto";}
open(BASE,"$config{dossierlogs}/base.txt");
@base = <BASE>;
close(BASE);
&date;
if ($config{html_ok} ne 1) {$in{titre}=~ s/<([^>]|\n)*>//g;$in{nom}=~ s/<([^>]|\n)*>//g;$in{email}=~ s/<([^>]|\n)*>//g;$in{dep}=~ s/<([^>]|\n)*>//g;$in{url}=~ s/<([^>]|\n)*>//g;$in{annonce}=~ s/<([^>]|\n)*>//g;}
unshift (@base, "$numero||$date||$in{code}||$in{rubrique}||$in{titre}||$in{nom}||$in{email}||$in{dep}||$in{url}||$fichierphoto||$in{annonce}\n");
open(BASE,">$config{dossierlogs}/base.txt");
if ($config{flock}) {flock BASE, 2;}
print BASE @base;
close(BASE);
open(LOG,">$config{dossierlogs}/anns.log");
if ($config{flock}) {flock LOG, 2;}
print LOG "$in{annonce}";
close(LOG);
$in{annonce}=~ s/\015?\012?<BR>/\n\t/g;
if ($config{mailtoadmin}) {&envoimail("$in{email} ($in{nom})","$config{emailadmin}","Ajout d'une annonce","Annonce numero: $numero\nNom: $in{nom}\nEmail: $in{email}\nUrl: $in{url}\nRubrique: $in{rubrique}\nDepartement: $in{dep}\n\nANNONCE: $in{annonce}\n\nIP: $ENV{'REMOTE_ADDR'} $ENV{'REMOTE_HOST'}\n$ENV{'HTTP_USER_AGENT'}\nLe $date à $heure.\n");}
if ($config{mailtovisit}) {&envoimail("$config{emailadmin} ($config{titresite})","$in{email}","Ajout d'une petite annonce","Votre annonce à été ajoutée le $date à $heure.\nNumero d'annonce: $numero\nVotre code: $in{code}\n-----------\nRubrique: $in{rubrique}\nAnnonce: $in{annonce}\n\n\n\tNous vous remercions\n$config{titresite} sur $config{urlsite}");}
&print_header;
print qq~<CENTER><BR><BR><BR><TABLE width=60%><TR><TD width="100%" BGCOLOR="$config{td_bgcolor}" valign=center height=150><BR><FONT FACE="$config{fontface}" color="$config{td_fontcolor}">&nbsp; &nbsp; Votre annonce a été ajoutée avec succès!<DD> Numero: $numero<DD>code: $in{code}</DD><CENTER><BR><BR>Vous pouvez maintenant aller la voir: <A HREF="$redirection">rubrique "$in{rubrique}" $taillephoto</A>.</CENTER></FONT><BR><BR></TD></TR></TABLE><BR><BR>~;
&print_footer;
exit;}

sub erreur {
local($erreur)=@_;
&print_header;
print qq~<BR>$erreur<BR><BR>Veuillez contacter l'<A HREF='mailto:$config{emailadmin}'>administrateur</A> pour toute question.<BR>~;
&print_footer;
exit;}

sub print_form_modif {
&print_header;
print qq~
<form method=POST action="$ENV{'SCRIPT_NAME'}" enctype="multipart/form-data">
<CENTER><H4><FONT FACE="$config{fontface}" color="$config{td_fontcolor}">Modification de votre annonce:</FONT></H4>
<BR><input type=hidden name="action" value="entrermodif"><TABLE BORDER="1" width='90%' BGCOLOR="$config{td_bgcolor}">
<TR><TD WIDTH="100%" colspan=2 BGCOLOR="$config{td_bgcolor}"><FONT FACE="$config{fontface}" color="$config{td_fontcolor}">Veuillez entrez vos numero d'annonce et mot de passe</FONT></TD></TR>
<TR><TD WIDTH="25%" BGCOLOR="$config{td_bgcolor}"><FONT FACE="$config{fontface}" color="$config{td_fontcolor}">Numero:</FONT></TD><TD BGCOLOR="$config{td_bgcolor}"><input type=text name="numero" size=30></TD></TR>
<TR><TD WIDTH="25%" BGCOLOR="$config{td_bgcolor}"><FONT FACE="$config{fontface}" color="$config{td_fontcolor}">Code:</FONT></TD><TD BGCOLOR="$config{td_bgcolor}"><input type=text name="code" size=30></TD></TR>
<TR><TD ALIGN="CENTER" COLSPAN="2" BGCOLOR="$config{td_bgcolor}"><input type=submit value="Rechercher l'annonce"> &nbsp; &nbsp; &nbsp; <input type="reset" Value="Annuler"></TD>
</TR></TABLE><BR><BR></CENTER>~;
&print_footer;
exit;}

sub modif {
open(BASE,"$config{dossierlogs}/base.txt");
if ($config{flock}) {flock BASE, 2;}
@BASE=<BASE>;
close(BASE);
foreach $ligne (@BASE) {($numero,$date,$code,$rubrique,$titre,$nom,$email,$dep,$url,$photo,$annonce)=split(/\|\|/,$ligne);
if ($numero eq $in{numero}){if ($code eq $in{code}) {&print_header;
$annonce=~ s/\015?\012?<BR>/\n/g;
print qq~<form method=POST action="$ENV{'SCRIPT_NAME'}" enctype="multipart/form-data">
<CENTER><H4><FONT FACE="$config{fontface}" color="$config{td_fontcolor}">Vous pouvez modifier ou supprimer votre annonce:</FONT></H4><BR><input type=hidden name="action" value="modifier"><input type=hidden name="oldcode" value="$code"><input type=hidden name="numero" value="$numero">
<TABLE BORDER="1" width='90%' BGCOLOR="$config{td_bgcolor}"><TR><TD WIDTH="25%" BGCOLOR="$config{td_bgcolor}"><FONT FACE="$config{fontface}" color="$config{td_fontcolor}">Nom ou pseudo:</FONT></TD><TD BGCOLOR="$config{td_bgcolor}"><input type=text name="nom" size=30 value="$nom"><FONT FACE="$config{fontface}" color="$config{td_fontcolor}"><I>(obligatoire)</I></FONT></TD></TR>
<TR><TD WIDTH="25%" BGCOLOR="$config{td_bgcolor}"><FONT FACE="$config{fontface}" color="$config{td_fontcolor}">Votre Adresse E-Mail:</FONT></TD><TD BGCOLOR="$config{td_bgcolor}"><input type=text name="email" size=30 value="$email"><FONT FACE="$config{fontface}" color="$config{td_fontcolor}"><I>(obligatoire)</I></FONT></TD></TR>
<TR><TD WIDTH="25%" BGCOLOR="$config{td_bgcolor}"><FONT FACE="$config{fontface}" color="$config{td_fontcolor}">URL:</FONT></TD><TD BGCOLOR="$config{td_bgcolor}"><input type=text name="url" size=30 value="$url"></TD></TR>
<TR><TD WIDTH="25%" BGCOLOR="$config{td_bgcolor}"><FONT FACE="$config{fontface}" color="$config{td_fontcolor}">Departement, Pays:</FONT></TD><TD BGCOLOR="$config{td_bgcolor}"><input type=text name="dep" size=15 value="$dep"></TD></TR>
<TR><TD WIDTH="25%" BGCOLOR="$config{td_bgcolor}"><FONT FACE="$config{fontface}" color="$config{td_fontcolor}">Votre code:</FONT></TD><TD BGCOLOR="$config{td_bgcolor}"><input type=text name="code" size=15 value="$code"><FONT FACE="$config{fontface}" color="$config{td_fontcolor}"><I>(obligatoire)</I></FONT></TD></TR>
<TR><TD COLSPAN=2 align=center BGCOLOR="$config{td_bgcolor}"><FONT FACE="$config{fontface}" color="$config{td_fontcolor}"><U>Votre annonce:</U></FONT></TD></TR>~;
if ($config{affliste}) {print qq~<TR><TD WIDTH="25%" BGCOLOR="$config{td_bgcolor}"><FONT FACE="$config{fontface}" color="$config{td_fontcolor}">Titre:</FONT></TD><TD BGCOLOR="$config{td_bgcolor}"><input type=text name="titre" size=30 value="$titre"><FONT FACE="$config{fontface}" color="$config{td_fontcolor}"><I>(obligatoire)</I></FONT></TD></TR>~;}
print qq~<TR><TD WIDTH="25%" BGCOLOR="$config{td_bgcolor}"><FONT FACE="$config{fontface}" color="$config{td_fontcolor}">Rubrique:</FONT></TD><TD BGCOLOR="$config{td_bgcolor}"><select name="rubrique"><option value="$rubrique" selected>$rubrique</OPTION>~;
foreach $mot (@rubriques) {if ($mot ne '') {print qq|<option value="$mot">$mot</option>|;}}
print qq~</select></TD></TR>~;
if ($config{ajoutphoto}) {print qq~<TR><TD WIDTH="25%" BGCOLOR="$config{td_bgcolor}"><FONT FACE="$config{fontface}" color="$config{td_fontcolor}">Photo:</FONT></TD><TD BGCOLOR="$config{td_bgcolor}">~;
if ($photo) {print qq~<img src="$config{url_photos}/$photo" width=100>~;}
print qq~<BR><input type=radio name='actionphoto' value=''>Laisser tel quel
<BR><input type=radio name='actionphoto' value='suppr'>supprimer la photo
<BR><input type=radio name='actionphoto' value='modifier'>Modifier la photo
<BR><input type=file name="photo" size=30></TD></TR>~;}
print qq~<TR><TD WIDTH="25%" BGCOLOR="$config{td_bgcolor}"><FONT FACE="$config{fontface}" color="$config{td_fontcolor}">Texte de l'annonce:</FONT></TD><TD BGCOLOR="$config{td_bgcolor}"><textarea name="annonce" COLS="30" ROWS="6">$annonce</textarea></TD></TR>
<TR><TD ALIGN="CENTER" COLSPAN="2" BGCOLOR="$config{td_bgcolor}"><input type=submit name="todo" value="modifier"> &nbsp; &nbsp; &nbsp; <input type="reset" Value="Annuler"> &nbsp; &nbsp; &nbsp; <input type=submit name="todo" value="supprimer"></TD>
</TR></TABLE><BR><BR></CENTER>~;
&print_footer;
exit;}
else {&erreur("Numero ou mot de passe incorrect");}}}
&erreur("L'annonce numero $in{numero} n'a pas été trouvée");
exit;}

sub execmodif {
open(BASE,"$config{dossierlogs}/base.txt");
if ($config{flock}) {flock BASE, 2;}
@BASE=<BASE>;
close(BASE);
foreach $ligne (@BASE) {($numero,$date,$code,$rubrique,$titre,$nom,$email,$dep,$url,$photo,$annonce)=split(/\|\|/,$ligne);
if ($numero eq $in{numero}){
if ($code eq $in{oldcode}) {&print_header;
$in{annonce}=~ s/\015?\012/<BR>/g;
if ($in{todo} eq "supprimer") {$ligne='';}
else {if ($in{actionphoto} eq 'modifier') {
if ($in{photo}) {if (!$incfn{photo}) {&erreur("Votre navigateur semble ne pas supporter l'upload de fichiers.");}
$incfn{photo}=~ /.*\\(.*)\.(.*)/;
($nom,$ext)=($1,$2);
$ext=lc($ext);
if (($ext eq "gif") || ($ext eq "jpg") || ($ext eq "jpeg")) {$photo="$numero.$ext";}
else {&erreur("Ce fichier n'est pas une image gif ou jpg, tout autre type de fichier est interdit.");}
chmod 0766, $config{dir_photos};
open (photoout,">$config{dir_photos}/$photo");
binmode(photoout);
print photoout $in{photo};
close(photoout);
chmod 0755, $config{dir_photos};
chmod 0755, "$config{dir_photos}/$photo";}}
elsif ($in{actionphoto} eq 'suppr') {unlink "$config{dir_photos}/$photo" || &envoimail("$email","$config{emailadmin}","Erreur sur le site","Administrateur je te salue,\n\nLe systeme de petites annonces $config{titresite} sur $config{urlsite} dont je suis le représentant n'a pas pu détruire la photo: '$config{dir_photos}/$photo'\n\nVeillez à le faire manuellement\n\nPERL-ZONE'S PETITES ANNONCES MANAGER sur http://$ENV{'SERVER_NAME'}\n");
$photo='';}
$ligne="$numero||$date||$in{code}||$in{rubrique}||$in{titre}||$in{nom}||$in{email}||$in{dep}||$in{url}||$photo||$in{annonce}\n";}
open(BASE,">$config{dossierlogs}/base.txt");
if ($config{flock}) {flock BASE, 2;}
print BASE @BASE;
close(BASE);
$in{rubrique}=~ s/\ //g;
print qq~<BR><BR><font size=2>Votre annonce a bien été modifiée ou supprimée: <a href="$ENV{'SCRIPT_NAME'}?rub=$in{rubrique}">La voir</A>.</FONT><BR><bR>~;
&print_footer;
exit;}
else {&erreur("Numero ou mot de passe incorrect");}}}
&erreur("L'annonce numero $in{numero} n'a pas été trouvée");
exit;}

sub print_header {print "Content-type: text/html\n\n";
print $config{header};}
sub print_footer {print $config{footer};}

sub date {
@nbre=('0','1','2','3','4','5','6','7','8','9');
$random=$nbre[rand(@nbre)];
@days=("Dimanche","Lundi","Mardi","Mercredi","Jeudi","vendredi","Samedi");
($sec,$min,$hour,$mday,$mon,$year,$wday)=(gmtime(time))[0..6];
if ($sec < 10) {$sec="0$sec";}
if ($min < 10) {$min="0$min";}
if ($hour < 10) {$hour="0$hour";}
if ($mday < 10) {$mday="0$mday";}
$mon++;
if ($mon < 10) {$mon="0$mon";}
$year += 1900;
$numero="$year$mon$mday$hour$min$sec$random";
$date="$days[$wday] $mday/$mon/$year";
$heure="$hour:$min:$sec GMT";}

sub envoimail{
local($from,$to,$sujet,$texte)=@_;
if ($config{modemail} eq 'sendmail') {
open (MAIL, "|$config{server} -t");
print MAIL "To: $to\n";
print MAIL "From: $from\nX-From: $ENV{'REMOTE_ADDR'} - $ENV{'HTTP_USER_AGENT'}\nX-Script: PA Manager v2.2 (http://perl-zone.ovh.org)\nX-SENDER-LOCATION: $ENV{'SERVER_NAME'}$ENV{'SCRIPT_NAME'}\n";
print MAIL "Subject: $sujet\n\n";
print MAIL "$texte";}
elsif ($config{modemail} eq 'smtp') {
eval('use IO::Socket; 1;') or &erreur("IO::Socket n'est pas présent sur votre serveur. La version de Perl doit etre < 5");
$remote = IO::Socket::INET->new("$server:smtp(25)");
$remote->autoflush();
print $remote "HELO\r\n";
$trash = <$remote>;
print $remote "MAIL From:<$from>\r\n";
$trash = <$remote>;
print $remote "RCPT To:<$to>\r\n";
$trash = <$remote>;
print $remote "DATA\r\n";
$trash = <$remote>;
print $remote "From: <$from>\r\nX-From: $ENV{'REMOTE_ADDR'}\r\nSubject: $sujet\r\n\r\n";
print $remote $texte;
print $remote "\r\n.\r\n";
$trash = <$remote>;
print $remote "QUIT\r\n";}
else {open (MAIL, ">>mail.txt");
print MAIL "\n-----------------------\nTo: $to\nFrom: $from\nSubject: $sujet\n\n$texte";}}