gant: Bildergallerie

Beitrag lesen

Hallo

Ist zwar ein ganz anderer Ansatz, und das Script ist ziemlich dirty, aber vielleicht hilft dir dies Perl-Ding:

#!c:\Program Files\Perl\bin\perl.exe -w

use strict;
#variables for iteration on directory content
my @files;
my $file;
my $count = 0;
#variables for user input
my $filename;
my $directory;

print("Geben Sie den Pfad zu den Bilddateien an (BSP: C:/daten/bilder)\n");
$directory = <STDIN>;
print("Geben Sie den Namen der zu erstellenden HTML-Datei an (BSP: gallery.html)\n");
$filename = <STDIN>;
chomp($directory);
chomp($filename);

open(MAP, ">".$filename);
 print(MAP "<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">\n");

opendir(DIR, $directory);
 @files = readdir(DIR);

closedir(DIR);

print($file."\n\n".$directory."\n\n".@files."\n\n".$!."\n\n");

print(MAP "<script language="javascript1.2">\n");
 print(MAP "var i = 0;\n");
 print(MAP "var pic = new Array()\n");

foreach $file (@files) {
   if ($file =~ /.jpg\b/ || $file =~ /.gif\b/ || $file =~ /.png\b/ || $file =~ /.JPG\b/ || $file =~ /.GIF\b/ || $file =~ /.PNG\b/)
  {

print(MAP "pic[".$count."] = new Image(); pic[".$count."].src ="img/".$file."";\n");
   $count = $count + 1;
  }
 }

print MAP <<"ENDEGUTALLESGUT";

function PicUp()
{
    if(i > 63) i = 0;
    i = i + 1;
    document.images[0].src = pic[i].src;
}
function PicDown()
{
    if(i < 0) i = 63;
    i = i - 1;
    document.images[0].src = pic[i].src;
}

</script>
<style type="text/css">

.textNorm             { font-family: Arial, Helvetica, sans-serif; font-size: 10pt; color: #000000; text-decoration: none; vertical-align:bottom;}

</style>

</head>
<body>

<table align="center" width="640">
<tr>
    <td width="20">&nbsp;<td>
 <td colspan="2" width="640" height="480" align="center"><img src="img/blank.jpg"></td>
 <td width="20">&nbsp;<td>
</tr>
<tr>
<td width="20">&nbsp;<td>
 <td align="left" class="textNorm"><a href="javascript:PicDown()">Zurück</a></td>
 <td align="right" class="textNorm"><a href="javascript:PicUp()">Vorwärts</a></td>
 <td width="20">&nbsp;<td>
</tr>
</table>

</body>
</html>

ENDEGUTALLESGUT
close(MAP);

print("NEXT STEPS:\nIm aktuellen Verzeichnis wurde eine HTML-Datei mit dem von Ihnen gewuenschten\nNamen erstellt.\n\n");
print("Kopieren Sie diese Datei in das HTML-Verzeichnis auf Ihrem Webserver. Verschieben sie nun\nIhre Bilddateien\n ");
print("in ein Unterverzeichnis /img Ihres Webservers.");

Gruss