#!/usr/bin/perl
use strict;
use vars qw(%form $VERSION $DATA_DIR $IMG_DIR $HTML_DIR $LANGUE);
use vars qw(%blocs);
my $flagTXT3=0;
my %blocksave3;
my $flagTXT4=0;
my %blocksave4;
$VERSION='0.1';
$DATA_DIR='data';
$IMG_DIR='http://www.impens.com/img/';
$HTML_DIR='../html/';
#decoder les parametres
%form=&receive_getpost;
$LANGUE=$form{'L'};
if ($LANGUE eq'') {$LANGUE='FR'};
print "Content-type: text/html\n\n";
print '
);
if( $num eq $ptrup ) {
my $TXT="";
$TXT=$FR if($LG eq "FR");
$TXT=$UK if($LG eq "UK");
$TXT=~ s/\"//g;
chomp($TXT);
chomp($Justif);
$Justif=&trim($Justif);
chomp($IMG);
$IMG=&trim($IMG);
if( substr($IMG,0,4) eq "PTR=" ) {
my $ptr=substr($IMG,4);
$TXT="".$TXT."";
$l1=$TXT if( $Justif eq "LEFT");
$l2=$TXT if( $Justif eq "CENTER");
$l3=$TXT if( $Justif eq "RIGHT");
}
else {
&editbloc($Justif,$IMG,$TXT,$LG);
}
}
}
close(TXT);
}
#-----------------------------------------------------------------------------
sub editbloc {
my ($STYLE,$FICHIER,$TEXTE,$LG)=@_;
my $langue=0;
$langue=1 if($LG eq "FR");
$langue=2 if($LG eq "UK");
if ( $STYLE eq 'LEFT' ) {
print "";
print " | ";
print "".$TEXTE." | ";
print "
";
};
if ( $STYLE eq 'RIGHT' ) {
print "";
print "".$TEXTE." | ";
print " | ";
print "
";
};
if ( $STYLE eq 'CENTER' ) {
print "";
print "".$TEXTE." | ";
print "
";
};
if ( $STYLE eq 'MAP' ) {
print "";
print "".$TEXTE." | ";
print "
";
};
if ( $STYLE eq '' ) {
print "";
print "".$TEXTE." | ";
print "
";
};
my $hx ="H1";
if ( $STYLE eq 'HEAD1' ) { $hx="H1"; $STYLE="HEADX"; };
if ( $STYLE eq 'HEAD2' ) { $hx="H2"; $STYLE="HEADX"; };
if ( $STYLE eq 'HEAD3' ) { $hx="H3"; $STYLE="HEADX"; };
if ( $STYLE eq 'HEAD4' ) { $hx="H4"; $STYLE="HEADX"; };
if ( $STYLE eq 'HEADX' ) {
print "";
print "<".$hx.">".$TEXTE."".$hx."> | ";
print "
";
};
if ( $STYLE eq 'UPDATE' ) {
printf "%s
",$TEXTE;
my %tbl=&loadUPD("tblnew",0);
my $ccR=0xd0;
my $ccG=0xd0;
my $ccB=0x81;
map {
printf "%s |
%s |
%s |
"
,$ccR,$ccG,$ccB,$tbl{$_}[4],$tbl{$_}[3]
,$ccR,$ccG,$ccB,$tbl{$_}[2]
,$ccR,$ccG,$ccB,$tbl{$_}[1];
$ccR=$ccR-1 if($ccR>5);
$ccG=$ccG-0 if($ccG>5);
$ccB=$ccB-1 if($ccB>5);
} sort keys %tbl;
printf "
"
};
my $sup1=int($form{"P1"}/10);
if ( $sup1==11) { $form{"P2"}="ALL" };
redoit:
my $level=0;
my $htxt="";
if ( $STYLE eq 'SEARCH1' ) { $level=1; $STYLE="SEARCHX"; };
if ( $STYLE eq 'SEARCH2' ) { $level=2; $STYLE="SEARCHX"; };
if ( $STYLE eq 'SEARCH3' ) { $level=3; $STYLE="SEARCHX"; };
if ( $STYLE eq 'SEARCH4' ) { $level=4; $STYLE="SEARCHX"; };
if ( $STYLE eq 'SEARCH5' ) { $level=5; $STYLE="SEARCHX"; };
if ( $STYLE eq 'SEARCHX' ) {
my %tbl=&loadTBL("tblcountry",0);
my $par2="";
my ($C1,$C2,$C3,$C4)=split(",",$form{"X"});
$htxt=$htxt."".$TEXTE."
";
if (( $level==2 ) && ( $C1==1 )){ $htxt=$htxt."";};
if (( $level==2 ) && ( $C1==2 )){ $htxt=$htxt."";};
$htxt=$htxt."";
};
if ( $STYLE eq 'LIST' ) {
my ($C1,$C2,$C3)=split(",",$form{"X"});
my %tbl1=&loadTBL("tblcountry",0);
my %tbl2=&loadTBL("tblregion",$C1);
my %tbl3=&loadTBL("tbldep",$C2);
print "";
print " " .$tbl1{$C1}[$langue]."";
print " > " .$tbl2{$C2}[$langue]."";
print " > " .$tbl3{$C3}[$langue]."";
print "
";
print "".$TEXTE."";
my %tbl4=&loadTBL("tbllieu",$C3);
my $C4max=0;
map { if($C4max<$_){$C4max=$_} } sort keys %tbl4;
map {
my $C4=$_;
#my %tbl5=&loadTBL3("tblbati",$C4,$C4max);
my %tbl5=&loadTBL("tblbati",$C4);
my $C5max=0;
map { if($C5max<$_){$C5max=$_} } sort keys %blocksave3;
map {
my $C5=$_;
my $nomdulieu=$tbl4{$C4}[1];
$nomdulieu=~ s/\-,/ /g;
my $ageo="";
#print "".$ageo.$tbl4{$C4}[$langue]." | ";
print "
" .$tbl4{$C4}[$langue]." | ";
print "" .$tbl5{$C5}[$langue]." |
";
#my %tbl=&loadTBL4("tbldesc",$C5,$C5max);
my %tbl=&loadTBL("tbldesc",$C5);
my $mapyes=0;
map {
$mapyes=1 if(index($tbl{$_}[$langue],"maps.google.be")>0);
} sort keys %tbl;
if($mapyes==1){
if($LG eq "FR") {
print "Pour une description complète et illustrée de ce lieu, cliquez ici. |
" ;
}
else {
print "Click here to see a complete and illustrated description for this place. |
" ;
};
}
else {
map {
print "".$tbl{$_}[$langue]." |
"
if ( (&trim($tbl{$_}[3]) ne "maps")&&(index($tbl{$_}[$langue],"maps.google.be")<0) );
} sort keys %tbl;
};
} sort keys %tbl5;
} sort keys %tbl4;
print "
";
};
if ( $STYLE eq 'SEARCH6' ) {
my ($C1,$C2,$C3,$C4,$C5)=split(",",$form{"X"});
my %tbl1=&loadTBL("tblcountry",0);
my %tbl2=&loadTBL("tblregion",$C1);
my %tbl3=&loadTBL("tbldep",$C2);
my %tbl4=&loadTBL("tbllieu",$C3);
my %tbl5=&loadTBL("tblbati",$C4);
my %tbl=&loadTBL2("tbldesc",$C5);
print "";
print " " .$tbl1{$C1}[$langue]."";
print " > " .$tbl2{$C2}[$langue]."";
print " > " .$tbl3{$C3}[$langue]."";
print " > " .$tbl4{$C4}[$langue]."";
print " > ".$tbl5{$C5}[$langue]."";
print "
";
my $n=0;
map {
my $FICHIER = &trim($tbl{$_}[3]);
if ( $FICHIER ne "" ) {
my @ff=split ",", $FICHIER;
if($#ff<1){
$FICHIER = $FICHIER.".jpg";
if ( ( $n % 2 ) eq 1 ) {
print "";
print " | ";
print "".$tbl{$_}[$langue]." | ";
print " ";
} else
{
print "";
print "".$tbl{$_}[$langue]." | ";
print " | ";
print " ";
}
} else {
print "";
print " | ";
print " | ";
print " ";
}
} else
{
print "";
print "".$tbl{$_}[$langue]." | ";
print " ";
};
$n++;
} sort keys %tbl;
print " |
"
};
}
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
sub editonebox {
my ($DIMG,$LG,$VPOS,$THPOS,$TVPOS,$HREF,$TEXFR,$TEXUK)=@_;
my $TEX=$TEXFR if($LG eq "FR");
$TEX=$TEXUK if($LG eq "UK");
print "";
print "
";
print "
";
print "
";
print "
";
}
sub editonebox2 {
my ($DIMG,$LG,$VPOS,$THPOS,$TVPOS,$HREF,$TEXFR,$TEXUK)=@_;
my $TEX=$TEXFR if($LG eq "FR");
$TEX=$TEXUK if($LG eq "UK");
print "";
print "
";
#print "
";
print "
";
print "
";
}
sub editonebox4 {
my ($DIMG,$LG,$VPOS,$THPOS,$TVPOS,$HREF,$TEXFR,$TEXUK)=@_;
my $TEX=$TEXFR if($LG eq "FR");
$TEX=$TEXUK if($LG eq "UK");
print "";
print "
";
#print "
";
print "
";
print "
";
}
sub editonebox3 {
my ($DIMG,$LG,$VPOS,$THPOS,$TVPOS,$HREF,$TEXFR,$TEXUK)=@_;
my $TEX=$TEXFR if($LG eq "FR");
$TEX=$TEXUK if($LG eq "UK");
print "";
print "
".$TEX."
";
print "
".$TEX."
";
print "
";
}
#-----------------------------------------------------------------------------
sub editdeb {
my ($DIMG,$LG)=@_;
print "";
print "";
print "
";
print "";
&editonebox2($DIMG,$LG, 1,5,1,"'page.cgi?P1=0&L=".$LG."'","Page d'entrée","Home");
&editonebox2($DIMG,$LG, 6,5,1,"'page.cgi?P1=1&L=".$LG."'","Introduction","Introduction");
&editonebox2($DIMG,$LG,11,5,1,"'page.cgi?P1=301&L=".$LG."'","Dernières modif.","Last updates");
&editonebox3($DIMG,$LG,16,5,1,"","Découverte","The visit");
&editonebox2($DIMG,$LG,21,5,1,"'page.cgi?P1=201&L=".$LG."'","Eglise de Brinay","Church of Brinay");
&editonebox2($DIMG,$LG,26,5,1,"'page.cgi?P1=251&L=".$LG."'","Eglise de Jenzat","Church of Jenzat");
&editonebox2($DIMG,$LG,31,5,1,"'page.cgi?P1=101&L=".$LG."'","Autres églises","Other churches");
&editonebox2($DIMG,$LG,36,5,1,"'page.cgi?P1=111&L=".$LG."'","Inventaire
complet","Complete
list");
&editonebox3($DIMG,$LG,41,5,1,"","Références","References");
&editonebox4($DIMG,$LG,46,5,1,"'page.cgi?P1=10&L=".$LG."'","Technique","Techniques");
&editonebox4($DIMG,$LG,51,5,1,"'page.cgi?P1=80&L=".$LG."'","Biblio.","Bibliography");
&editonebox4($DIMG,$LG,56,5,1,"'page.cgi?P1=90&L=".$LG."'","Autres liens","Other links");
&editonebox4($DIMG,$LG,66,5,1,"'page.cgi?P1=405&L=".$LG."'","Crédits","Thanks");
&editonebox4($DIMG,$LG,71,5,1,"'page.cgi?P1=401&L=".$LG."'","contact","Contact");
print "
";
}
#-----------------------------------------------------------------------------
sub editfin {
my $k;
my ($DIMG,$LG,$link1,$link2,$link3)=@_;
print "
";
#menu de droite vide
print "
";
print "";
print "
".$link1."
";
print "
";
print "";
print "
".$link2."
";
print "
";
print "";
print "
".$link3."
";
print "
";
print "";
print "
";
print "
";
print "";
for ($k=5;$k>=0;$k--) {print "
";};
print "
";
print "
(c)Yves Impens, 2007-2012 | ";
print "";
print "";
print " |
";
print "