#!/bin/perl
# werist.pl

use strict;

use CGI qw(:standard);
use myHTML;

my $path = my_wer_path();

#print header();
p2 "<html>",
   " <head>",
   " </head",
   " <body>";

opendir WERDIR, $path;
my @pic_files = grep { /^[^.]/ } readdir WERDIR;
closedir WERDIR;

p2 "<p>Hi. Ich brauche eure Hilfe ...<br><br>",
   "Unten findet ihr einige Bilder aus verschiedensten Quellen. Leider weiß ich nicht wer auf diesen Bildern zu sehen ist.<br>",
   "Vielleicht könnt ihr mir ja helfen.<br><br>Schaut sie euch einfach mal an. Einige dürften bekannt sein ;-)</p>";
my $count=2;

my $slide = my_button_slide();
p "<a href='slide_werist.pl?num=0' target='slide_werist'><img src='$slide' width='50' border='0'></a>";

foreach (@pic_files) {
   $count = 1 if ($count == 6);   
   p2 "<table align='left' border='0'>" if ($count != 1);
   p2 "<table              border='0'>" if ($count == 1);
   $count ++;

   p2 " <tr>",
      "  <td colspan='2' align='center'>",
      "   <font size='-1' color='#ff0000'>$_</font>",
      "  </td>",
      "  <td>",
      "  </td>",
      " </tr>",
      " <tr>",
      "  <td colspan='2' align='center'>",
      "   <img src='$path$_' height='100'>",
      "  </td>",
      "  <td width='10'>",
      "  </td>",
      " </tr>",
      " <tr>",
      "  <td align='center'>",
      "   <a href='$path$_' target='zeigewer'>zeigen</a>",
      "  </td>",
      "  <td align='center'>",
      "   <a href='mailto:webmaster\@bildergallerie.de?subject=bildergallerie.de%20Wer%20ist...&body=Hallo%20Webmaster%0D%0A%0D%0AAuf%20dem Bild%20$_%20sieht man%0D%0A%0D%0A%0D%0A'>helfen</a>",
      "  </td>",
      "  <td>",
      "  </td>",
      " </tr>",
      "</table>";
}
p "</div>";

p2 " </body>",
   "</html>";

end_html;
