#!/usr/bin/perl
# Программа удобного просмотра большого количества картинок

$dir='/grabber_img';#Директория с картинками
$entr=10;
$temp=$ENV{'QUERY_STRING'};
@pairs=split(/&/,$temp);
foreach $item(@pairs) {
	($key,$content)=split (/=/,$item,2);
	$content=~tr/+/ /;
	$content=~ s/%(..)/pack("c",hex($1))/ge;
	$FORM{$key}=$content;
}


if(!$FORM{'img'}){
print"Content-type: text/html\n\n";
print"<center><table weigth=100%>\n";

opendir (NW,"$dir");
@fil=readdir(NW);close (NW);
foreach(@fil){if($_=~/jpg/i){push(@image, $_);}}
$m=$FORM{'m'};
$e=$m+$entr-1;
$a=0;
$many=@image-1;
foreach(@image[$m..$e]){
         # if($a==0){
print"<tr>";
                    #}
          print "<td>image $_<br><img src=viever.cgi?img=$_></td>\n"; $a++;
         # if($a==2){
print"</tr>";
                   # $a=0;}
                       }
print "</table><hr>";
$pages = int($many / $entr) + 1;
print "Страницы: ";
for($i=1;$i<=$pages;$i++) {
$m = $i * $entr - $entr;
print "[<a href=viever.cgi?m=$m>$i</a>] ";
}
}
else{
 $file=$dir."/".$FORM{'img'};
              print"Content-type: image/jpeg\n\n";
#print"Content-type: text/html\n\n"; print $file;
              open (F,"$file");
              binmode F; binmode STDOUT;
              @q=<F>;
              close(F);
              foreach(@q){print;}


}
exit;
