Configuration du site

#!/usr/bin/perl # # ResooSite v.0.9 - Resoo 2002 # resooconf.pl # require "resoocnf.pl"; ######## configuration du site ######## $dir = "resoo"; $domain = "http://resoo.com/$dir"; $domainreal = "/$dir"; $domaincgi = "$domain/cgi-bin"; $domaincgireal = "$domainreal/cgi-bin"; $private = "private"; $dir_img = "../img"; $dir_img2 = "../img"; $dir_cadre = "$dir_img/cadre"; $dir_fond = "$dir_img2/fond"; $dir_lettr = "$dir_img2/lettr/$lettr"; $ext_lettr = ".gif"; $dir_dujour = "$dir_img/jour"; $dir_txt = "../txt"; $defautcadre = "cadre.gif"; # dans rep cadre $defaut_cadre = "$dir_img/resoo/cadre.gif"; $defautimage = "image.jpg"; # dans rep dujour $defaut_image = "$dir_img/resoo/image.jpg"; $dir_comp = "../cmp"; $dir_bbs = "../bbs/"; $dir_rep = "doc"; $dir_opt1 = ""; $dir_opt2 = ""; $dir_opt3 = ""; $defautretour = "1"; ######## configuration mise en page ######## if ($image_fond) { $background = "$dir_fond/$image_fond"; } else { $background = ""; } $police = "$police1,$police2"; ######## configuration du script ######## $body = ""; $font = ""; $finfont = "<\/FONT>"; $fontpetite = ""; $finfontpetite = "<\/I><\/FONT>"; $fontpetite_i = ""; $finfontpetite_i = "<\/FONT>"; $fontgrande = ""; $finfontgrande = "<\/B><\/I><\/FONT>"; $fontstitre = ""; $finfontstitre = "<\/B><\/FONT>"; $fonttitre = ""; $finfonttitre = "<\/B><\/FONT>"; $header_file = "../header.txt"; $footer_file = "../footer.txt"; ######## affichage configuration du site ######## sub debug{ print "Content-type: text/html\n\n"; print "\n"; print "Configuration du site\n"; print "Configuration du site :

\n\n"; print "
\n\n"; print "couleur texte standard : exemple de couleur$finfont

\n"; print "couleur des lien : exemple de couleur$finfont

\n"; print "couleur des lien vu : exemple de couleur$finfont

\n"; print "couleur des lien actif: exemple de couleur$finfont

\n"; print "format de texte standard 1 : $font exemple de texte 1$finfont

\n"; print "
\n\n"; print "\n"; print "\n"; } ######## routines communes ######## sub hidden { print "\n"; print "\n"; print "\n"; } sub foot { open (FOOTER,"$footer_file"); @footer =
; close (FOOTER); foreach $line (@footer) { print "$line"; } print "\n"; print "\n"; print "\n"; } sub head { print "\n"; print "$titre\n"; print "$body\n"; print "
\n"; open (HEAD,"$header_file"); @head = ; close (HEAD); foreach $line (@head) { print "$line"; } } sub creer_comp { open(COMP,">$dir_comp/$page.cmp"); print COMP "0"; close(COMP); } sub get_comp { open(NUMBER,"$dir_comp/$page.cmp"); $comp = ; close(NUMBER); } sub incr_comp { $comp++; open(NUM,">$dir_comp/$page.cmp") || die $!; print NUM "$comp"; close(NUM); } sub get_numb { $PAGENUMB = "$dir_comp/page.cmp"; if (!(-e $PAGENUMB)){open(NEW,"> $PAGENUMB");print NEW "1";close(NEW); } open(PAGE,"$PAGENUMB"); $numb = ; close(PAGE); $numb++; open(NUMPAGE,">$PAGENUMB") || die $!; print NUMPAGE "$numb"; close(NUMPAGE); } sub maj_date { &get_date; open(INDEX,"$dir_txt/$retour.idx"); @index = ; close(INDEX); # $ligne1 = $index[0]; # $ligne3 = $index[2]; open(INDEX,">$dir_txt/$retour.idx") || die $!; # print INDEX "$ligne1"; # print INDEX "$date\n"; # print INDEX "$ligne3"; foreach $line (@index) { if ($line =~ /(\d{2})\/(\d{2})\/(\d{4})/) { $_=$line; s/(\d{2})\/(\d{2})\/(\d{4})/$date/; print INDEX "$_"; } else { print INDEX "$line"; } } close(INDEX); } sub get_date { # calcule l'heure locale à partir de l'heure locale du serveur $time2 = time() + ( 60 * 60 * 0 ); # changer 0 en 7 pour 7 heures de plus @days = ('dimanche','lundi','mardi','mercredi','jeudi','vendredi','samedi'); @months = ('janvier','fevrier','mars','avril','mai','juin','juillet', 'aout','septembre','octobre','novembre','decembre'); ($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime($time2))[0,1,2,3,4,5,6]; if ($sec < 10) { $sec = "0$sec"; } if ($min < 10) { $min = "0$min"; } if ($hour < 10) { $hour = "0$hour"; } $month = ($mon + 1); if ($month < 10) { $month = "0$month"; } if ($mday < 10) { $mday = "0$mday"; } if ($year > 0) { $year += 1900; } $date = "$mday/$month/$year"; $date_mois = "$mday $months[$mon] $year"; $date_heure = "$mday/$months/$year à $hour\:$min"; $date_long = "$days[$wday] $mday $months[$mon] $year"; $date_tres_long = "$mday $months[$mon], $year à $hour\:$min\:$sec"; }