#!/usr/bin/perl use strict; use Image::Magick; my $script = "img-magick.pl"; my $version = "$script v. 20061224"; require("img-magick.conf"); my ($galrep,$password,$back_txt,$back_url,$galerie_txt,$multirep,$monorep,$SIGNATURE,$ADMIN,$HEADER,$FOOTER,$CSS,$diapowait) = &init1(); my ($defautformat,$mini,$xmini,$screen,$xscreen,$max_image,$sub_title,$galerie_title,$use_sample,$use_ico,$use_text,$use_alpha,$use_order) = &init2(); my ($BODYcolor,$BODYimg,$BODYtext,$BODYlink,$FONTface,$FONTsize,$TABLEcolor,$TDcolor,$pagemax,$backtxt,$backurl) = &init_html(); $ADMIN = "admin"; ######################################################################### #### parametres utilisateur : my $repmini_base = ""; my $repscreen_base = ""; my $repico_base = ".ico"; my $errmsg = "Aucune vue n'est disponible"; my $next2_txt = "page suiv."; my $prev2_txt = "page préc."; my $next_txt = "image suiv."; my $prev_txt = "image préc."; my $list_txt = "vue galerie"; my $home_txt = "début"; my $end_txt = "fin"; my $diapostart_txt = "diaporama"; my $diapostop_txt = "stop"; my $tableHmax = 80; ## je garantis une valeur (taille max des vignette vue index) ## html : my $html = 1; ## ico : my $next_ico = "next.gif"; my $prev_ico = "prev.gif"; my $next2_ico = "next2.gif"; my $prev2_ico = "prev2.gif"; my $list_ico = "up.gif"; my $home_ico = "home.gif"; my $end_ico = "end.gif"; my $galerie_ico = "stop.gif"; my $down_ico = "down.gif"; my $play_ico = "play.gif"; my $pause_ico = "pause.gif"; my $blank_ico = "blank.gif"; ## fin parametres utilisateur ######################################################################### ######################################################################### #### parametrage programme my $ARGS = @ARGV[0]; # nettoyage de la requete $ARGS =~ s/%([0-9A-F][0-9A-F])/pack("C",oct("0x$1"))/ge; $ARGS =~ tr/+/ /; $ARGS =~ s/\///g; $ARGS =~ s/\.\.//g; $ARGS =~ s/^\.$//g; my @ARGS = split(/@@/, $ARGS); my ($request,$format,$comp)=@ARGS; if(!$monorep){ $monorep = "defaut_galerie"; } if((!$multirep) and ($monorep)){ $request = $monorep; } my ($gal_title,$backtxt2,$backurl2); if (-e "$galrep/.conf"){ require("$galrep/.conf"); ($defautformat,$mini,$xmini,$screen,$xscreen,$max_image,$sub_title,$galerie_title,$use_sample,$use_ico,$use_text,$use_alpha,$use_order) = &init2(); ($BODYcolor,$BODYimg,$BODYtext,$BODYlink,$FONTface,$FONTsize,$TABLEcolor,$TDcolor,$pagemax,$backtxt,$backurl) = &init_html(); } if (-e "$galrep/$request.conf"){ require("$galrep/$request.conf"); ($defautformat,$mini,$xmini,$screen,$xscreen,$max_image,$sub_title,$gal_title,$use_sample,$use_ico,$use_text,$use_alpha,$use_order) = &init2(); ($BODYcolor,$BODYimg,$BODYtext,$BODYlink,$FONTface,$FONTsize,$TABLEcolor,$TDcolor,$pagemax,$backtxt2,$backurl2) = &init_html(); } if (-d "$galrep/$request/$repico_base"){ $repico_base = $request."/".$repico_base; } if(!$BODYcolor){$BODYcolor = "white";} if(!$TABLEcolor){$TABLEcolor = $BODYcolor;} if(!$TDcolor){$TDcolor = $BODYcolor;} my $BODY = ""; my $FONT = ""; my ($next_txt2,$prev_txt2,$next2_txt2,$prev2_txt2,$list_txt2,$home_txt2,$end_txt2,$galerie_txt2) = ("$next_txt","$prev_txt","$next2_txt","$prev2_txt","$list_txt","$home_txt","$end_txt","..."); my $next2_alt = $next2_txt; my $prev2_alt = $prev2_txt; my $next_alt = $next_txt; my $prev_alt = $prev_txt; my $list_alt = $list_txt; my $home_alt = $home_txt; my $end_alt = $end_txt; my $galerie_alt = $galerie_txt; my $backalt = $backtxt; my $backalt2 = $backtxt2; my $diapostart_alt = $diapostart_txt; my $diapostop_alt = $diapostop_txt; my $blank_txt; if($use_ico > 1){ $next_txt = "\"$next_txt\""; $prev_txt = "\"$prev_txt\""; $next2_txt = "\"$next2_txt\""; $prev2_txt = "\"$prev2_txt\""; $list_txt = "\"$list_txt\""; $home_txt = "\"$home_txt\""; $end_txt = "\"$end_txt\""; if($galerie_txt){$galerie_txt = "\"$galerie_txt\"";} if($backurl){$backtxt = "\"$backtxt\"";} if($backurl2){$backtxt2 = "\"$backtxt2\"";} $blank_txt = "\"...\""; $diapostart_txt = "\"$diapostart_txt\""; $diapostop_txt = "\"$diapostop_txt\""; ($next_txt2,$prev_txt2,$next2_txt2,$prev2_txt2,$list_txt2,$home_txt2,$end_txt2,$galerie_txt2) = ($blank_txt,$blank_txt,$blank_txt,$blank_txt,$blank_txt,$blank_txt,$blank_txt,$blank_txt,); } if (!$defautformat){ $defautformat = 1; } my $diapo = ""; if (!$format){ $format = $defautformat; } elsif ($format == 100){ $format = 100+$defautformat; } elsif ($format > 1000){ $format = $format-1000; $diapo = 1; } my $tableHW; ## $tableHmax est définit par constante utilisateur if ($xmini){ $tableHW = "height=\"".($xmini+10)."\""; $tableHmax = $xmini; } elsif ($mini){ my ($tableW,$tableH) = split(/x/, $mini); $tableHW = "width=".($tableW+10)." height=".($tableH+10).""; $tableHmax = $tableH; } my $nobig=0; if($screen =~ /X/){ $screen =~ s/X/x/; $nobig = 1; } if (!$back_url){ $back_txt = ""; } else{ if (!$back_txt){ $back_txt = $back_url; } } if (!$backurl){ $backtxt = ""; } if (!$backurl2){ $backtxt2 = ""; } if (!$galerie_title){ $galerie_title = $galerie_txt; } my $max = 9999; if (!$max_image){ $max_image = $max; } my $rep; if ($request eq ".index"){ $rep = "$galrep"; } else{ $rep = "$galrep/$request"; } if($HEADER){ if(-e "$rep/$HEADER"){$HEADER = "$rep/$HEADER";} elsif(-e "$galrep/$HEADER"){$HEADER = "$galrep/$HEADER";} else{$HEADER = "";} } if($FOOTER){ if(-e "$rep/$FOOTER"){$FOOTER = "$rep/$FOOTER";} elsif(-e "$galrep/$FOOTER"){$FOOTER = "$galrep/$FOOTER";} else{$FOOTER = "";} } if($CSS){ if(-e "$rep/$CSS"){$CSS = "$rep/$CSS";} elsif(-e "$galrep/$CSS"){$CSS = "$galrep/$CSS";} else{$CSS = "";} } my ($repmini,$repscreen); my ($title,$file,$image,$x); my $cmp = 0; ## formatage retour a la ligne my $cmprep; ## total image du repertoire my $cmpimg = 0; ## compteur des image lues my $cmpimage; ## depart du comptage ($comp est le parametre d appel) if ($comp){ $cmpimage = $comp; } else{ $cmpimage = 1; } my @rep_work = glob("$rep/*"); ## recuperation des images du repertoire my @rep; foreach $file(@rep_work){ if ($file =~ /.([jJ][pP][eE]?[gG]|[gG][iI][fF]|[pP][nN][gG])$/){ $cmprep++; push(@rep, $file); } } if($use_alpha == 1){ @rep = sort{lc($a) cmp lc($b)}(@rep); } elsif($use_alpha == 2){ @rep = sort{lc($b) cmp lc($a)}(@rep); } elsif($use_alpha == 3){ @rep = sort(@rep); } elsif($use_alpha == 4){ @rep = sort{$a<=>$b}(@rep); } elsif($use_alpha == 5){ @rep = sort{$b<=>$a}(@rep); } elsif($use_alpha > 5){ my @temp; my $shuf = $use_alpha-5; while($shuf){ while(@rep){ push(@temp, pop(@rep)); if(@rep){ push(@temp, shift(@rep)); } } @rep = @temp; if ($shuf%2){ @rep = reverse(@rep); } @temp = (); $shuf--; } } my ($next,$prev,$list,$home,$end,$page_idx,$diapostart,$diapostop); my ($starttxt,$endtxt); if($use_ico > 1){ $starttxt = $blank_txt; $endtxt = $blank_txt; } else{ $starttxt = " ["; $endtxt = "] "; } ######################################################################### #### main prog if($request eq ".index"){ if($multirep){ $title = $galerie_title; $title =~ s/_/ /g; if ($backtxt){ $sub_title = " $starttxt$backtxt$endtxt "; } $request = ""; printhead(); index_gal(); printfoot(); } else{ $title = $errmsg; printhead(); printfoot(); } } elsif($request){ init_rep(); purge(); renew(); create_rep(); if ($gal_title){ $title = $gal_title; } else{ $title = $request; $title = lc($title); $title =~ s/-|_/ /g; } do_bouton(); printhead(); if (($format ne ".new") and ($format ne ".purge") and ($format ne ".create")){ printit(); } printfoot(); purge_img(); purge_rep(); } else{ print "\n$version\n\n"; } ######################################################################### #### routines ## affichage head sub printhead{ if($html){ print "Content-type: text/html\n\n"; } if($HEADER){ open(FILE, "$HEADER"); my @file = ; close(FILE); foreach(@file){ $_ =~ s/\[\[DIAPORAMA\]\]/$diapo/g; $_ =~ s/\[\[TITRE\]\]/$title/g; $_ =~ s/\[\[STITRE\]\]/$sub_title/g; $_ =~ s/\[\[SIGNATURE\]\]/$SIGNATURE/g; $_ =~ s/\[\[ADMIN\]\]/$ADMIN/g; print $_; } } else{ print "\n"; print "\n"; print "$title\n"; if($diapo){ print "$diapo\n"; } if($CSS){ print "\n"; } print "\n"; print "$BODY\n"; print "$FONT\n"; print "
"; print "

$title

"; if ($sub_title){ print "$sub_title

"; } } if ($request){ print "\n$home$prev$list$diapostart$diapostop$next$end\n"; print "
\n"; if (($cmpimage <= $cmprep) and ($format > 99)){ print ""; print "($cmpimage/$cmprep)"; if($diapo){ print " - (diaporama/$diapowait \sec.)\n"; } print ""; } else{ print ""; print "$page_idx\n"; print ""; } print "
\n"; } } ## affichage main sub printit{ if ((($format > 2) and ($format < 101)) or ($format > 102)){ if ($use_sample == 3){ print "
\n"; print "\n"; } else{ print "
\n"; } } if (($format == 2) or ($format == 102)){ print "
\n"; print "\n"; print "\n"; print "
\n"; } if ($format > 102){ print "\n"; if ($use_sample == 3){ print "\n"; } elsif ($use_sample == 2){ print "
\n"; } else{ print "
\n"; } print "
\n"; } if ($format > 99){ while((@rep) and (($cmp == 0) or ($cmpimg == $cmpimage))){ $file = shift(@rep); $cmpimg++; if ($cmpimg == $cmpimage){ $cmp++; my $filename = $file; my $screenfile; if($xscreen){ $screenfile = $filename; $filename =~ s/$rep\///; } else{ $filename =~ s/$rep\///; $screenfile = $repscreen."/".$filename; if (($screen) and (!-e $screenfile)){ $image = Image::Magick->new; $image->Read($file); $image->Scale(geometry=>"$screen"); $image->Write("$screenfile"); } } if(($use_text == 2) or ($use_text == 3) or ($use_text == 4) or ($use_text == 5)){ my $legend = legend($filename); if($legend){ if($format == 101){ print "
\n"; print "$legend\n"; print "
\n"; } if($format == 102){ print "\n"; print "
\n"; print "$legend"; print "
\n"; } if($format > 102){ print "$legend
"; if ($use_sample == 3){ print "\n"; } elsif ($use_sample == 2){ print "
\n"; } else{ print "
\n"; } print "\n"; if($cmp%$format==0){ print "\n"; print "\n"; } } } } } if ($format > 102){ print "\n"; print "\n"; print "\n"; print "
\n"; } } } if($xscreen > 1){ if($nobig){ print "\"...\"\n"; } else{ print "\"format\n"; } } elsif($xscreen == 1){ print "\"format\n"; } else{ if($nobig){ print "\"...\"\n"; } else{ print "\"format\n"; } } } } } else{ while((@rep) and (($cmp == 0) or ($cmp%$max_image))){ $file = shift(@rep); $cmpimg++; if (($max_image == $max) or ($cmpimg >= $cmpimage)) { $cmp++; my $filename = $file; $filename =~ s/$rep\///; my $filenamecomplet = $filename; my $minifile = $repmini."/".$filename; $filename =~ s/\.(.*)$//; $filename =~ s/_/ /g; if ((!-e $minifile) and ($mini)){ $image = Image::Magick->new; $image->Read($file); $image->Scale(geometry=>"$mini"); $image->Write("$minifile"); } if ($format > 2){ print "\n"; if ($use_sample == 2){ print "\n"; } elsif ($use_sample == 3){ print "
\n"; print "\n"; } else{ print "
\n"; } print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; } if (($screen) or ($xscreen)){ print ""; } else{ print ""; } if (($mini) and ($use_sample)){ print "\n"; } elsif ($use_sample){ if ($xmini){ print "\n"; } else{ print "\n"; } } else{ print "$filename
\n"; if(($use_text == 3) or ($use_text == 4)){ my $legend = legend($filenamecomplet); if($legend){ print "$legend
\n"; } } } if ($format > 2){ if ((($use_text==1) or ($use_text==3) or ($use_text == 4)) and ($use_sample)){ print "
\n"; if(($use_text == 3) or ($use_text == 4)){ my $legend = legend($filenamecomplet); if($legend){ print "$legend
\n"; } } print "$filename\n"; } print "
\n"; if ($use_sample == 3){ print "
\n"; } print "
\n"; } if ((($format > 1) and ($format < 101)) or ($format > 101)){ print "
\n"; if ($use_sample == 3){ print "
\n"; } } else{ print "
\n"; } } ## affichage foot sub printfoot{ if (!$cmp){ print "

$errmsg

"; } if ($request){ print "\n
\n"; print "$home$prev$list$diapostart$diapostop$next$end"; print "\n

\n"; } if($FOOTER){ open(FILE, "$FOOTER"); my @file = ; close(FILE); foreach(@file){ $_ =~ s/\[\[TITRE\]\]/$title/g; $_ =~ s/\[\[STITRE\]\]/$sub_title/g; $_ =~ s/\[\[SIGNATURE\]\]/$SIGNATURE/g; $_ =~ s/\[\[ADMIN\]\]/$ADMIN/g; print $_; } } else{ print "
"; print ""; print "$SIGNATURE"; print " / "; print "$ADMIN"; print ""; print "

"; print "
"; if ($FONT){ print "\n"; } print "\n"; print "\n"; } } ## purge mini/screen sub purge{ if($format eq ".purge"){ if(($password) and ($comp eq $password)){ while($file = <$repmini/*>){ unlink($file); } while($file = <$repscreen/*>){ unlink($file); } $errmsg = "[ OK ]"; } else{ $errmsg = "[ erreur mot de passe ]"; } $cmpimage = $max; } } ## purge et renouvelle mini et screen sub renew{ if($format eq ".new"){ if(($password) and ($comp eq $password)){ while(@rep){ $file = shift(@rep); my $filename = $file; $filename =~ s/$rep\///; if(($screen) and (!$xscreen)){ my $screenfile = $repscreen."/".$filename; if (!-e $screenfile){ $image = Image::Magick->new; $image->Read($file); $image->Scale(geometry=>"$screen"); $image->Write("$screenfile"); } } my $minifile = $repmini."/".$filename; if ((!-e $minifile) and ($mini)){ $image = Image::Magick->new; $image->Read($file); $image->Scale(geometry=>"$mini"); $image->Write("$minifile"); } } $errmsg = "[ OK ]"; } else{ $errmsg = "[ erreur mot de passe ]"; } $cmpimage = $max; } } ## purge images supprimees sub purge_img{ while($file = <$repmini/*>){ my $realfile = $file; $realfile =~ s/$repmini/$rep/; my $screenfile = $file; $screenfile =~ s/$repmini/$repscreen/; if (!-e $realfile){ unlink($file); if (-e $screenfile){ unlink($screenfile); } } } } ## purge repertoire sub purge_rep{ if ($format ne ".create"){ rmdir("$repmini"); rmdir("$repscreen"); rmdir("$rep"); if (!-d "$rep"){ unlink("$rep.conf"); unlink("$rep.txt"); } } } ## init repertoire sub init_rep{ if ($repmini_base){ $repmini = $repmini_base."/".$request."_mini"; } else{ $repmini = $rep."/mini"; } if ($repscreen_base){ $repscreen = $repscreen_base."/".$request."_screen"; } else{ $repscreen = $rep."/screen"; } if (!-e "$repmini"){ mkdir("$repmini", 0755); } if (($screen) and (!$xscreen) and (!-e "$repscreen")){ mkdir("$repscreen", 0755); } } sub create_rep{ if(($format eq ".create") and ($multirep)){ if(($password) and ($comp eq $password)){ if (!-d "$rep"){ mkdir($rep); # $errmsg = "[ OK ]"; $errmsg = "[ $ADMIN ]"; } else{ $errmsg = "[ erreur nom de repertoire ]"; } } else{ $errmsg = "[ erreur mot de passe ]"; } $cmpimage = $max; } } ## presente les repertoires gallerie sub index_gal{ my @rep_gal_work = glob("$galrep/*"); ## recuperation des repertoires my @rep_gal; foreach my $gal(@rep_gal_work){ if (-d $gal){ my $galname = $gal; $galname =~ s/$galrep\///; my @rep_work = glob("$gal/*"); ## recuperation des images du repertoire my @rep; my $cmprep = 0; my $random = (rand(scalar(@rep_work)-1))+1; if ($repmini_base){ $repmini = $repmini_base."/".$galname."_mini"; } else{ $repmini = $rep."/$galname/mini"; } my $sample; foreach my $file(@rep_work){ if ($file =~ /.([jJ][pP][eE]?[gG]|[gG][iI][fF]|[pP][nN][gG])$/){ $cmprep++; my $samplefile = $file; if($use_order == 1){ $samplefile =~ s/$gal/$repmini/; if(($xmini) or (!-d $repmini)){ $sample = $file; } elsif(-e "$samplefile"){ $sample = $samplefile; } } elsif($use_order == 2){ if(!$sample){ $samplefile =~ s/$gal/$repmini/; if(($xmini) or (!-d $repmini)){ $sample = $file; } elsif(-e "$samplefile"){ $sample = $samplefile; } } } elsif($use_order == 3){ if($cmprep < $random){ $samplefile =~ s/$gal/$repmini/; if(($xmini) or (!-d $repmini)){ $sample = $file; } elsif(-e "$samplefile"){ $sample = $samplefile; } } } } } my($gal_title,$gal_subtitle); if (-e "$galrep/$galname.conf"){ require("$galrep/$galname.conf"); ($gal_title,$gal_subtitle) = init3(); } my $link_title; if($gal_title){ $link_title = $gal_title; } else{ $link_title = $galname; $link_title =~ s/_/ /g; } push(@rep_gal, "$link_title\t$galname\t$cmprep\t$sample\t$gal_subtitle"); } } if($use_alpha == 1){ @rep_gal = sort{lc($a) cmp lc($b)}(@rep_gal); } elsif($use_alpha == 2){ @rep_gal = sort{lc($b) cmp lc($a)}(@rep_gal); } elsif($use_alpha == 3){ @rep_gal = sort(@rep_gal); } elsif($use_alpha == 4){ @rep_gal = sort{$a<=>$b}(@rep_gal); } elsif($use_alpha == 5){ @rep_gal = sort{$b<=>$a}(@rep_gal); } elsif($use_alpha > 5){ my @temp; my $shuf = $use_alpha-5; while($shuf){ while(@rep_gal){ push(@temp, pop(@rep_gal)); if(@rep_gal){ push(@temp, shift(@rep_gal)); } } @rep_gal = @temp; if ($shuf%2){ @rep_gal = reverse(@rep_gal); } @temp = (); $shuf--; } } $cmp = 0; $cmpimg = 0; if($format>$max_image){ $max_image=$format; } if($cmpimage =~ m/^\./){ $cmpimage =~ s/^\.//; my $test = 1; foreach my $linetest(@rep_gal){ my @linetest = split(/\t/, $linetest); if ($linetest[1] eq $cmpimage){ $cmpimage = $test; } else{ $test++; } } } if($cmpimage > @rep_gal){ $cmpimage = 1; } if((($cmpimage%$max_image)==0) or (($cmpimage%$max_image)>1)){ while(($cmpimage%$max_image)!=1){ $cmpimage--; } } if(@rep_gal>$max_image){ print "
\n"; if(($use_ico == 1) or ($use_ico == 3)){ print "index: "; } my $indexcmp = 1; while($indexcmp<=@rep_gal){ if($cmpimage==$indexcmp){ if(($use_ico == 1) or ($use_ico == 3)){ print "[".((int($indexcmp/$max_image))+1)."] "; } else{ print "[index ".((int($indexcmp/$max_image))+1)."] "; } } else{ if(($use_ico == 1) or ($use_ico == 3)){ print "[".((int($indexcmp/$max_image))+1)."] "; } else{ print "[index ".((int($indexcmp/$max_image))+1)."] "; } } $indexcmp = $indexcmp + $max_image; } print "
\n"; } else{ print "
\n"; } if($format>1){ if (($format > 2) and ($use_sample == 3)){ print "
\n"; print "\n"; } elsif($format == 2){ print "
\n"; } else{ print "
\n"; } } foreach my $line(@rep_gal){ while((@rep_gal) and (($cmp == 0) or ($cmpimg%$max_image))){ $line = shift(@rep_gal); $cmpimg++; if($cmpimg>=$cmpimage){ $cmp++; my @line = split(/\t/, $line); my $link_subtitle; if($line[4]){ $link_subtitle = $line[4]; } else{ $link_subtitle = ""; } if($format < 2){ print "
\n"; print "
  • $line[0]
    \n"; if (($use_text == 1) or ($use_text > 3)){ print "\n"; if($link_subtitle){ print "$link_subtitle
    \n"; } print "(@line[2] images)
    \n"; } print "    \n"; if(($line[3]) and ($use_sample)){ if($xmini){ print "\n"; } elsif ($line[3] =~ /[\/\_]mini\//){ print "\n"; } else{ print "\n"; } } } elsif($format == 2){ print "
    • \n\n" } else{ ## format > 2 print "\n"; if($cmp%$format==0){ print "\n"; print "\n"; } } } } } if ($format > 1){ print "\n"; print "\n"; print "
    \n"; print "
  • $line[0]
    \n"; if (($use_text == 1) or ($use_text > 3)){ print "\n"; if($link_subtitle){ print "$link_subtitle
    \n"; } print "(@line[2] images)
    \n"; } print "    \n"; print "
    		• \n"; if(($line[3]) and ($use_sample)){ if($xmini){ print "\n"; } elsif ($line[3] =~ /[\/\_]mini\//){ print "\n"; } else{ print "\n"; } } print "
    \n"; if ($use_sample == 3){ print "
    \n"; print "\n"; } elsif ($use_sample == 2){ print "
    \n"; } else{ print "
    \n"; } print "\n"; print "\n"; print "\n"; print "
    \n"; if ($use_text){ print "$line[0]
    \n"; } if(($line[3]) and ($use_sample)){ if($xmini){ print "
    \n"; } elsif ($line[3] =~ /[\/\_]mini\//){ print "
    \n"; } else{ print "
    \n"; } } if (($use_text == 1) or ($use_text > 3)){ print "\n"; if($link_subtitle){ print "$link_subtitle
    \n"; } print "(@line[2] images)
    \n"; } } if ($format > 2){ print "
    \n"; if ($use_sample == 3){ print "
    \n"; } print "
    \n"; if ($use_sample == 3){ print "
    \n"; } } else{ print "
    \n"; } print "

    "; } ## prepare les boutons de navigation sub do_bouton{ if ($format > 99){ if ($diapowait){ if ($diapo){ if (($cmpimage) and ($cmpimage == $cmprep)){ $diapo = ""; $diapostop = "$starttxt$diapostop_txt$endtxt"; } elsif (($cmpimage) and ($cmpimage < $cmprep)){ $diapo = ""; $diapostop = "$starttxt$diapostop_txt$endtxt"; } } else{ if (($cmpimage) and ($cmpimage <= $cmprep)){ $diapostart = "$starttxt$diapostart_txt$endtxt"; } } } if (($cmpimage > 1) and ($cmpimage <= $cmprep)){ $home = "$starttxt$home_txt$endtxt"; } else{ $home = "$starttxt$home_txt2$endtxt"; } if (($cmpimage > 1) and ($cmpimage <= $cmprep)){ $prev = "$starttxt$prev_txt$endtxt"; } else{ $prev = "$starttxt$prev_txt2$endtxt"; } if (($cmpimage) and ($cmpimage <= $cmprep)){ $list = "$starttxt$list_txt$endtxt"; } else{ $list = "$starttxt$list_txt2$endtxt"; } if (($cmpimage) and ($cmpimage < $cmprep)){ $next = "$starttxt$next_txt$endtxt"; } else{ $next = "$starttxt$next_txt2$endtxt"; } if (($cmpimage) and ($cmpimage < $cmprep)){ $end = "$starttxt$end_txt$endtxt"; } else{ $end = "$starttxt$end_txt2$endtxt"; } } else{ if (($cmpimage > 1) and ($cmpimage <= $cmprep)){ $home = "$starttxt$home_txt$endtxt"; } elsif($max_image != $max){ $home = "$starttxt$home_txt2$endtxt"; } if (($cmpimage > $max_image) and ($cmpimage <= $cmprep)){ $prev = "$starttxt$prev2_txt$endtxt"; } elsif($max_image != $max){ $prev = "$starttxt$prev2_txt2$endtxt"; } if ($backtxt2){ $list = "$starttxt$backtxt2$endtxt"; } elsif (($multirep) and ($galerie_txt)){ $list = "$starttxt$galerie_txt$endtxt"; } elsif ($backtxt){ $list = "$starttxt$backtxt$endtxt"; } else{ $list = "$galerie_txt2"; } if (($cmpimage+$max_image) <= $cmprep){ $next = "$starttxt$next2_txt$endtxt"; } elsif($max_image != $max){ $next = "$starttxt$next2_txt2$endtxt"; } if (($cmpimage) and ($cmpimage < (((int(($cmprep-1)/$max_image))*$max_image)+1))){ $end = "$starttxt$end_txt$endtxt"; } elsif($max_image != $max){ $end = "$starttxt$end_txt2$endtxt"; } if (($format ne ".new") and ($format ne ".purge") and ($format ne ".create")){ if (($pagemax) and ($max_image) and ((int(@rep/($max_image+1)))>=1)){ my $test=1; my $pagenum=1; my $pagemaxtemoin = $pagemax; my $depassement = 0; if((@rep%$max_image)){$depassement = 1;} ## nb de page : (int(@rep/$max_image)+$depassement); #décalage necessaire : ((int(@rep/$max_image)+$depassement)-$pagemax); #je suis sur la page : ".(int($cmpimage/$max_image)+1)."
    "; if($cmpimage > ($max_image*($pagemax-1))){ while(((($cmpimage/$max_image)-$pagenum)>1) and ($pagemax < (int(@rep/$max_image)+$depassement))){ $pagenum++; $pagemax++; $test = $test + $max_image; } } $page_idx = $page_idx."
    [".(int(@rep/$max_image)+$depassement)." pages]    "; if($pagenum > 1){ if (($test-($max_image*$pagemaxtemoin))>=0){ $page_idx = $page_idx." [...]"; } else{ $page_idx = $page_idx." [...]"; # $page_idx = $page_idx." [..]"; } } while(($test <= @rep) and ($pagenum <= $pagemax)){ if($test == $cmpimage){ $page_idx = $page_idx." [$pagenum]"; } else{ $page_idx = $page_idx." [$pagenum]"; } $test = $test + $max_image; $pagenum++; } if(($test <= @rep) and ($pagenum == $pagemax+1)){ $page_idx = $page_idx." [...]"; # $page_idx = $page_idx." [..]"; } $page_idx = $page_idx."     [".scalar(@rep)." images]"; $page_idx = "".$page_idx.""; } } } } sub legend{ my $image = @_[0]; my $filename = $image; $filename =~ s/$rep\///; my @textimg; if (($request) and (-e "$galrep/$request.txt")){ open(FILE, "$galrep/$request.txt"); @textimg = ; close(FILE); foreach my $line(@textimg){ chomp($line); my @line = split(/\t/, $line); if ($line[0] eq $image){ return($line[1]); } } } }