#!/usr/bin/perl # # ResooSite v.0.9 - Resoo 2002 # resooboardconf.pl # ############################################################################## # tips : # pour court-circuiter la modération et autoriser le postage immédiat des # messages sur le forum, il suffit d'écraser dans le répertoire cgi-bin # le script resooboard.pl par une copie du script resooboardadmin.pl ############################################################################## # Definition des variables $mondir="../bbs"; $mon_dir="../bbspriv"; $mesgdir = "../bbs/mess"; $mesg_dir = "../bbs/message"; $cgidir = "../cgi-bin"; $ext1 = "html"; $ext2 = "shtml"; $datafile = "data.txt"; $datafiletmp = "data2.txt"; $fileboard = "index"; $fileboardvalid = "ok"; $fileboardvalid2 = "ok-raz"; $faqfile = "faq"; $resooboard1 = "resooboard.pl"; $resooboard2 = "resooboardadmin.pl"; $resooSSIh = ''; $resooSSIf = ''; $resooSSIhm = ''; $resooSSIfm = ''; $fond_url = ""; $fonttxt = ""; #$fontname = ""; #$fontmess = ""; $fontname = ""; $fontmess = ""; $fontend = ""; $page = ""; $bbstitle = "Forum ResooSite"; # Fin des variables ########################################################################### ########################################################################### # Configurer les options $show_faq = 1; # 1 = OUI; 0 = NON $allow_html = 0; # 1 = OUI; 0 = NON $quote_text = 0; # 1 = OUI; 0 = NON $subject_line = 0; # 0 = Reprendre l'objet (champ editable) # 1 = Reprendre l'objet (champ non-editable) # 2 = Ne pas reprendre l'objet (champ editable) $use_time = 0; # 1 = OUI; 0 = NON $use_SSI = 1; # 1 = OUI; 0 = NON # Fin des options ########################################################################### if ($use_SSI == "1"){ $ext = "$ext2"; require "resooconf.pl"; } else { $ext = "$ext1"; } ########################################################################### # Retourner un message d'erreur HTML a l'utilisateur - Subroutine sub error { $error = $_[0]; print "Content-type: text/html\n\n"; if ($error eq 'no_name') { if ($use_SSI == 1) { &headbbs; } else { print "$bbstitle ERREUR: Pas de nom\n"; print "$page\n"; print "$fonttxt\n"; } print "

ERREUR: absence de nom

\n"; print "Vous avez oublié de servir le champ 'Nom' de votre envoi.
Corriger le ci-dessous et envoyez-le à nouveau.
Les champs obligatoires sont: Nom, Titre et Message.


\n"; &rest_of_form; } elsif ($error eq 'no_subject') { if ($use_SSI == 1) { &headbbs; } else { print "$bbstitle ERREUR: Pas de titre\n"; print "$page\n"; print "$fonttxt\n"; } print "

ERREUR: absence de titre

\n"; print "Vous avez oublié de servir le champ 'Titre' de votre envoi.
Corriger le ci-dessous et envoyez-le à nouveau.
Les champs obligatoires sont: Nom, Titre et Message.


\n"; &rest_of_form; } elsif ($error eq 'no_body') { if ($use_SSI == 1) { &headbbs; } else { print "$bbstitle ERREUR: Pas de message\n"; print "$page\n"; print "$fonttxt\n"; } print "

ERREUR: absence de message

\n"; print "Vous avez oublié de servir le champ 'Message' de votre envoi.
Corriger le ci-dessous et envoyez-le à nouveau.
Les champs obligatoires sont: Nom, Titre et Message.


\n"; &rest_of_form; } elsif ($error eq 'mess_non_vide') { if ($use_SSI == 1) { &headbbs; } else { print "$bbstitle ERREUR: répertoire non vide\n"; print "$page\n"; print "$fonttxt\n"; } print "ERREUR : fichier $line

\n"; print "(Tous les messages présents sur la page validation doivent être
\n"; print "\"validés\" ou \"supprimés\" avant la remise à zéro de cette page)\n"; if ($use_SSI == 1) { &footbbs; } else { print "$fontend\n"; } } else { if ($use_SSI == 1) { &headbbs; } else { print "$bbstitle ERREUR: indéfinie\n"; print "$page\n"; print "$fonttxt\n"; } print "ERREUR! Indéfinie.\n"; if ($use_SSI == 1) { &footbbs; } else { print "$fontend\n"; } } exit; } ########################################################################### ########################################################################### # Recuperation de la date ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); if ($sec < 10) { $sec = "0$sec"; } if ($min < 10) { $min = "0$min"; } if ($hour < 10) { $hour = "0$hour"; } if ($mon < 10) { $mon = "0$mon"; } if ($mday < 10) { $mday = "0$mday"; } if ($year > 0) { $year += 1900; } $month = ($mon + 1); @months = ("Janvier","Fevrier","Mars","Avril","Mai","Juin","Juillet","Aout","Septembre","Octobre","Novembre","Decembre"); if ($use_time == 1) { $date = "$hour\:$min\:$sec $mday/$month/$year"; } else { $date = "$mday/$month/$year"; } chop($date) if ($date =~ /\n$/); $long_date = "$mday $months[$mon], 19$year à $hour\:$min\:$sec"; ########################################################################### ########################################################################### # Routine forum pour page temporaire sub footbbs { print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; } sub headbbs { print "\n"; print "$bbstitle\n"; print "\n"; print "

\n"; print "\n"; print "\n"; print "
\n"; print "$font\n"; }