~;
}
# End of user-configurable variables. You should not edit anything past this line.
# The following variable defines any special HTML code that you want to place in
# between the and tags on each page. This could include meta tags
# or JavaScript, but in most cases, you'll probably just want to leave this set
# equal to "". Be sure to put a backslash in front of any quotation marks that
# appear inside of your header code, and in front of the @ symbol anywhere that
# it appears.
$head_code = "";
# The following variable defines the background color of all pages.
$bgcolor = "#ffffff";
# The following variable defines the background graphic (if any) to be used on
# all pages.
$background = "http://www.agora-aqua.com/images/back/Classic2.jpg";
# The following variable defines the default text color.
$text_color = "#000000";
# The following variable defines the color for hypertext links.
$link_color = "#0000ff";
# The following variable defines the color for visited links.
$vlink_color = "#ff0000";
# The following variable defines the color for active links.
$alink_color = "#ffff00";
# The following variable defines the HTML that will appear in the upper left hand
# corner of the pages. Please begin your HTML code on the
# line after the <Agora de l'aquariophilie
END_OF_HTML
# The following subroutine (pagesetup) defines the HTML that will appear at
# the beginning of every page created by this program. You should modify
# only the text in between the "print qq~" and the "~;" statements.
sub pagesetup
{
local ($title) = @_;
print qq~
$title
$head_code
~;
}
# The following subroutine (pageclose) defines the HTML that will appear
# at the end of every page created by this program. You should modify
# only the text in between the "print qq~" and the "~;" statements.
sub pageclose
{
print qq~
$footer
~;
}
########################################################################
sub print_header {
print "Content-type: text/html\n\n";
}
#######################################################################
# Read and Parse Form Data #
#######################################################################
# Get the input
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
# Split the name-value pairs
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
# Un-Webify plus signs and %-encoding
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s///g;
if ($allow_html != 1) {
$value =~ s/<([^>]|\n)*>//g;
}
else {
unless ($name eq 'body') {
$value =~ s/<([^>]|\n)*>//g;
}
}
$in{$name} = $value;
}
$current_date = &get_date;
&get_required_files;
if (($in{'add_item_button'} ne "") || ($ENV{'QUERY_STRING'} =~ /place_ads/))
{
&print_header;
&pagesetup("Post Classified Ad Form");
&generic_form_header;
&add_entry_form;
&pageclose;
exit;
}
elsif ($in{'post_ad_button'} ne "") {
&print_header;
&post_ad;
}
elsif (($in{'delete_item_button'} ne "") || ($ENV{'QUERY_STRING'} =~ /delete_ads/))
{
&print_header;
&pagesetup("Delete Classified Ad Form");
&generic_form_header;
&delete_search_form;
&pageclose;
exit;
}
elsif ($in{'delete_button'} ne "") {
&print_header;
&delete;
}
elsif (($in{'admin_button'} ne "") || ($ENV{'QUERY_STRING'} =~ /admin/))
{
&print_header;
&pagesetup("Admin Logon");
&generic_form_header;
&delete_all_form;
&pageclose;
exit;
}
elsif ($in{'delete_all_button'} ne "") {
&print_header;
&delete_all;
}
elsif ($in{'view_ads_button'} ne "") {
&view_ads;
}
else {
&print_header;
&pagesetup;
&display_frontpage;
&pageclose;
}
sub view_ads {
if ($in{'category'} eq "") {
&print_header;
&category_error;
}
if (-e "$classdir/$in{'category'}.html") {
# print "\n";
print "Location: $htmldir/$in{'category'}.html\n\n";
}
else {
&print_header;
&no_ads_message;
}
exit;
}
sub no_ads_message
{
&pagesetup("Pas d'annonces à votre demande");
print qq~
Pas d'annonces à votre demande
Nous sommes désolés mais nous n'avons pas d'annonce dans la catégorie demandée. SVP, retournez en arrière et essayez une autre catégorie.
~;
&pageclose;
}
sub add_entry_form {
print qq~
Information - Contact
SVP remplissez les champs Informations-Contacts qui suivent. Les champs obligatoires sont signalés par une *.
Votre Nom*
Adresse
Ville
Etat/Province
Code Postal
Pays
Numéro de téléphone
Addresse E-mail*
adresse de votre site WEB
Cochez ici si vous voulez afficher votre adresse postale et votre numéro de téléphone dans votre annonce
Votre annonce
SVP, remplissez en détails votre annonce. Les champs obligatoires sont signalés par une *.
Catégories*
SVP, cochez la catégorie dans laquelle vous voulez placer votre annonce
Si aucune des catégories ci-dessus ne correspond pas à votre annonce, quelle catégorie voudriez-vous que nous ajoutions à ce site?
Titre de votre annonce*
Texte de votre annonce (le code HTML n'est pas autorisé. Appuyez sur la touche retour une fois pour un retour à la ligne, deux fois pour un nouveau paragraphe) TEXTE OBLIGATOIRE*
~;
}
sub post_ad {
$counter = 0;
if (($in{'name'} eq "") || ($in{'email'} eq "") || ($in{'category'} eq "") || ($in{'caption'} eq "") || ($in{'text'} eq "")) {
&required_error;
}
@fields = split (/\|/, $in{'category'});
$long_category_name = $fields[0];
$short_category_name = $fields[1];
$in{'text'} =~ s/\n/ /g;
# Lock the file for security so the file is not damaged if more than one user tries to access it at the same time.
$quit = 0;
while ($quit != 1) {
if (-e "$classdir/$short_category_name.lock") {
# The file exists, time to take a nap
sleep(1);
}
else {
# Create the lock file, thereby locking the Classified Ad file
open (LOCK,">$classdir/$short_category_name.lock");
close LOCK;
}
# Open the data file to read the number of the last post
open (ADFILE, "$classdir/ads.counter");
$old_counter = ;
# chop $old_counter;
# Update the Ad Number by one
$old_counter++;
$new_counter = $old_counter;
# Rewrite the data file
open (ADFILE, ">$classdir/ads.counter");
print ADFILE "$new_counter";
close(ADFILE);
$password = $new_counter * $password_multiplier + 13;
# If it doesn't already exist, create the HTML file where the ads will be
# stored for this category
unless (-e "$classdir/$short_category_name.html") {
open (HTMLFILE,"+>$classdir/$short_category_name.html");
&print_default_html;
close (HTMLFILE);
}
# Append the user's ad and description to the ad file
open(ADFILE,"$classdir/$short_category_name.html") || die $!;
@main = ;
close(ADFILE);
open(ADFILE,">$classdir/$short_category_name.html") || die $!;
foreach $main_line (@main) {
if ($main_line =~ //) {
print ADFILE "\n";
print ADFILE "\n";
print ADFILE qq~
\n
~;
print ADFILE "\n";
}
else {
print ADFILE "$main_line";
}
}
# unlock the lock file
unlink("$classdir/$short_category_name.lock");
if (($reply_user eq "on") && ($sendmail ne "")) {
open( MAIL, "|$sendmail -t " )
|| die "can't open sendmail: $email: $!\n";
print MAIL "To: $in{'email'}\n";
print MAIL "From: $master_admin_email_address\n";
print MAIL "Subject: $sitename Annonces\n";
print MAIL "Reply-to: $master_admin_email_address\n\n";
print MAIL "Merci pour avoir soumis votre annonce dans la $long_category_name section of the $sitename Annonces. Votre annonce a été envoyée et apparaît ainsi:\n\n";
print MAIL "Annonce Numéro: $new_counter\n";
print MAIL "Sujet: $in{'caption'}\n";
print MAIL "Posté sur: $current_date\n";
print MAIL "Répondre à: $in{'name'} at $in{'email'}\n";
print MAIL "Texte de l'annonce: $in{'text'}\n";
print MAIL "Adresse de votre site si vous en avez une: $in{'url'}\n\n";
print MAIL "Vous pouvez revenir à tout moment et effacer votre envoi si c'est nécessaire. Nous vous souahitons une agréable visite sur notre site $sitename Classified Ads et revenez souvent nous voir.
Nous avons assigné à votre annonce un mot de passe pour que vous puissiez éventuellement en modifier les caractéristiques. SVP prenez bien note du chiffre et de votre mot de passe maintenant, qui vous servira comme référence future. Vous en aurez besoin si vous voulez effacer votre annonce classée. Voici le chiffre et le mot passe qui s'attachent à votre annonce, notez-les bien :
Annonce numéro: $new_counter
Mot de passe: $password
Si vous n'avez pas posté une annonce sur notre site $sitename et que vous croyez que vous avez reçu ce message par erreur, SVP, acceptez nos excuses et informez-nous immédiatement. Par mesure de sécurité vous avez reçu ce message parceque quelqu'un a utilisé votre adresse Email quand il a posté une annonce sur notre site $sitename Annonces.\n\n";
print MAIL "Sincèrement,\n\n";
print MAIL "$admin_name, Webmaster\n";
print MAIL "$sitename\n";
print MAIL "$siteurl\n";
print MAIL "$slogan\n";
close(MAIL);
}
if (($master_admin_email_address ne "") && ($notify_add eq "on") && ($sendmail ne ""))
{
open( MAIL, "|$sendmail -t " )
|| die "can't open sendmail notify: $master_admin_email_address: $!\n";
print MAIL "To: $master_admin_email_address\n";
print MAIL "From: $master_admin_email_address\n";
print MAIL "Subject: Nouvelle Annonce\n";
print MAIL "L'annonce classée suivante a été ajoutée dans la catégorie $long_category_name à la section suivante $sitename Annonces par $in{'name'}:\n\n";
print MAIL "Numéro annonce: $new_counter\n";
print MAIL "Mot de passe: $password\n";
print MAIL "Sujet: $in{'caption'}\n";
print MAIL "Posté sur: $current_date\n";
print MAIL "Répondre à: $in{'name'} at $in{'email'}\n";
print MAIL "Texte de l'annonce: $in{'text'}\n";
print MAIL "Adresse de votre site si vous en avez une: $in{'url'}\n\n";
print MAIL "Nouvelles catégories recommandées (ceci restera en blanc si vous ne faites aucune suggestion): $in{'category_wanted'}";
close(MAIL);
}
&successful_addition_message;
$quit = 1;
}
} # End of sub post_ad
sub successful_addition_message
{
&pagesetup("Succès: Votre annonce a été postée avec succès à notre site Annonces classées");
print qq~
Votre annonce a été postée avec succès!
Nous avons assigné à votre annonce un numéro et un mot de passe pour que vous puissiez éventuellement effacer votre annonce vous-même. Voici le Numéro et le mot passe qui s'attachent à votre annonce, notez-les bien :
Numéro: $new_counter
Mot de passe: $password
~;
&pageclose;
}
sub required_error
{
&pagesetup("Champ non rempli");
print qq~
Champ(s) non rempli()s
\n
Nous sommes désolés, mais vous n'avez sélectionné aucune valeur dans un champ obligatoire. Tous les champs obligatoires doivent être remplis. SVP, retournez en arrière et assurez-vous que vous avez sélectionné tous les champs requis. Merci.
~;
&pageclose;
exit;
}
sub delete_search_form {
print qq~
Effacer votre Annonce
Pour effacer votre annonce, SVP remplissez tousles champs du formulaire ci-dessous et cliquez surle bouton "Effacer cette annonce". Pour effacer votre annonce, vous devez sélectionner la catégorie dans laquelle elle apparaît et entrer votre nom et votre adresse Email exactement comme ils apparaissent dans votre annonce. Vous devez ensuite entrer le numéro et le mot de passe qui vous ont été attribué quand vous avez posté votre annonce. Si le formulaire est incomplet, votre annonce ne sera pas effacée.
Information Annonce
SVP, sélectionnez la catégorie dans laquelle votre annonce est située:
Votre nom
Votre adresse E-mail
Votre numéro d'annonce
Votre mot de passe
~;
}
sub delete {
if (($in{'name'} eq "") || ($in{'email'} eq "") || ($in{'addno'} eq "") || ($in{'password'} eq "") || ($in{'category'} eq "")) {
&required_error;
}
unless (-e "$classdir/$in{'category'}.html") {
&no_ads_message;
exit;
}
# Lock the file for security so the file is not damaged if more than one user tries to access it at the same time.
$quit = 0;
while ($quit != 1) {
if (-e "$classdir/$in{'category'}.lock") {
# The file exists, time to take a nap
sleep(1);
}
else {
# Create the lock file, thereby locking the Classified Ad file
open (LOCK,">$classdir/$in{'category'}.lock");
close LOCK;
}
# Delete the user's ad and description from the ad file
open(ADFILE,"$classdir/$in{'category'}.html") || die $!;
@main = ;
close(ADFILE);
$ad_to_delete = "0";
$deleted_ad_found = "0";
open(ADFILE,">$classdir/$in{'category'}.html") || die $!;
foreach $main_line (@main) {
if ($main_line =~ //) {
$ad_to_delete = "0";
}
}
else {
print ADFILE "$main_line";
}
}
close(ADFILE);
# unlock the lock file
unlink("$classdir/$in{'category'}.lock");
if ($incorrect_password eq "1"){
&password_error;
}
elsif ($deleted_ad_found eq "0"){
&unsuccessful_modification_message;
}
else {
&successful_deletion_message;
if (($master_admin_email_address ne "") && ($notify_delete eq "on") && ($sendmail ne ""))
{
open( MAIL, "|$sendmail -t " )
|| die "can't open sendmail notify: $master_admin_email_address: $!\n";
print MAIL "To: $master_admin_email_address\n";
print MAIL "From: $master_admin_email_address\n";
print MAIL "Subject: L' annonce a été effacée\n";
print MAIL "Reply-to: $in{'email'}\n\n";
print MAIL "Annonce Numéro $in{'addno'} a été effacée dans la $in{'category'} catégorie dans la section suivante $sitename Annonces par $in{'name'}.\n\n";
close(MAIL);
}
}
$quit = 1;
} # End of while ($quit != 1)
exit;
}
sub password_error
{
&pagesetup("Erreur: Mot de passe incorrect");
print qq~
Erreur: Mot de passe incorrect
\n
Nous sommes désolés mais vous n'avez pas entré le bon mot de passe. SVP, retournez en arrière et assurez-vous que vous avez entré le bon mot de passe. Merci.
~;
&pageclose;
}
sub unsuccessful_modification_message
{
&pagesetup("Erreur: Annonce non trouvée");
print qq~
Erreur: Annonce non trouvée
L'annonce que vous avez choisie n'a pas été trouvée. SVP, assurez-vous que vous avez entré dans le formumaire votre nom et votre adresse E-mail ainsi que le numéro correspondant à votre annonce. Merciu.~;
&pageclose;
}
sub successful_deletion_message
{
&pagesetup("Success: Votre annonce a été effacée avec succès de notre site");
print qq~
Votre annonce a été effacée avec succès de notre site!
L'annonce suivante a bien été effacée:
$deleted_ad
~;
&pageclose;
}
sub delete_all_form {
print qq~
Effacer toutes les annonces dans une catégorie
Si vous êtes administrateur, vous pouvez effacer toutes les annonces dans une catégorie en particulier en utilisant le formulaire ci-dessous. Vous aurez besoin de votre mot de passe Administrateur pour le faire. SVP, choisissez la catégorie que vous souhaitez effacer et entrez votre mot de passe administrateur dans le formulaire ci-dessous et cliquez sur le boutton "Effacer toutes les Annonces"
Informations - Annonces
SVP, sélectionnez la catégorie que vous souhaitez effacer:
Toutes les annonces dans la catégorie $in{'category'} ont été effacées.
~;
&pageclose;
if (($master_admin_email_address ne "") && ($notify_delete_all eq "on") && ($sendmail ne ""))
{
open( MAIL, "|$sendmail -t " )
|| die "Ouverture de la notification Email impossible: $master_admin_email_address: $!\n";
print MAIL "To: $master_admin_email_address\n";
print MAIL "From: $master_admin_email_address\n";
print MAIL "Subject: Vos annonces ont été effacées\n";
print MAIL "Ceci est une simple notification que toutes vos annonces dans la $in{'category'} catégorie du site $sitename ont été effacées. Si vous n'arrivez pas à effacer vos annonces, c'est que quelqu'un a obtenu votre mot de passe et a effacé vos annonces du site.\n\n";
close(MAIL);
}
exit;
}
sub display_frontpage
{
print qq~
Pour visualiser les annonces, choisissez parmi l'une des catégories ci-dessous. Les catégories qui ne sont pas en hypertexte ne comportent aucune annonce. Vous pouvez aussi choisir parmi les options du menu à votre gauche.
