80 Thumbs pro Seite.

[Marcus Vieß]

Dieses Programm soll Thumbs anzeigen.
aber nur 70 Stk. Pro Seite.
Es liest jetzt die Datei xxx aus und soll zuerste nur dir ersten 80 thumbs ausgeben.

Dann bei der übergabe cgi-bin/thumb.cgi?Index=70

Solles von 70-140 ausgeben

bei ?Index=140

140 - 210 usw.

Irgendwo ist ein fehler drin, kann mir vielleicht einer helfen ?

use CGI;

my $query = new CGI;
my $images_per_pages = 70;

&header;
open(file, "$filename");
@lines=<file>;
close(file);

my $Index = $query->param('Index');
if ($Index eq ''){$Index = 0;}

my $linecount;
my $maxcount = $query->param('Index')+ $images_per_pages;
$maxcount = $#lines if $maxcount>$#lines;

my $nextIndex = $maxcount+1;
my $prevIndex = $query->param('Index') - $images_per_pages;
$prevIndex = 0 if $prevIndex <0;

for($linecount = $query->param('Index');$linecount <$maxcount;$linecount++)
  {
  chomp $lines[$linecount];
  }
foreach $line (@lines)
  {
@fields=split(/\s*|\s*/,$line);
$thumb=$fields[5];

print <<HTMLF;
<blablabla>
HTMLF
  }
&footer;
exit;