#!/usr/bin/perl

require"read\.pl";
require"kopf\.lib";

&ReadParse;

$zahl=$in{'zahl'}||"0";
$verzeichnissname=$ENV{DOCUMENT_ROOT}."/button_counter/gif";

print "Content-type: text/html\n\n";

opendir(DH,$verzeichnissname) || die("Kann $verzeichnissname nicht oeffnen!");
@dirent = sort grep(!/^\./, readdir(DH));
closedir DH;
$SCRIPT_NAME=substr($ENV{SCRIPT_NAME},0,rindex($ENV{SCRIPT_NAME},"/"));
$gesamtzahl=@dirent;

#print @dirent;

#exit(0);
print &Load_Kopf11;
print"<BR>";
print"<center><H3>Bitte auf den gew&uuml;nschten Button klicken !</H3></center>";

print &Table_Kopf;
$max=$zahl+7;if($max >$gesamtzahl){$max=$gesamtzahl;}

for($zahl..($gesamtzahl-1))
{
if($_ ne ""){
$wert=substr($dirent[$_],0,index($dirent[$_],"."));
print"<TR><TD WIDTH=20%>$wert</TD>";
print "<TD WIDTH=80%><A HREF=\"".$SCRIPT_NAME."/link_button_2.pl?f=$wert\"><IMG SRC=\"/button_counter/gif/".$dirent[$_]."\" border=0></A></TD></TR>";
}
}

print &Table_Fuss;



exit(0);

