#!/usr/bin/perl -w
use Net::SMTP;
use Getopt::Long;
my $imageDir = ".";
my $targetDir = "";
my $pname = 'index';
my $verbose = 0;
my $ret;
$ret = GetOptions(
'imageDir=s' => \$imageDir,
'targetDir=s' => \$targetDir,
'name=s' => \$pname,
'help' => sub { usage() });
if(!$ret)
{
usage();
}
if( length($targetDir) <= 0)
{
print "please set --targetDir\n";
exit 1;
}
if( ! -d $targetDir)
{
mkdir $targetDir;
}
open(FD, "> $targetDir/$pname.html") || die "can't open file $targetDir/$pname.html: $!";
print FD "\n";
print FD "\n";
print FD "\n";
opendir(DIR, $imageDir) || die "can't opendir $imageDir: $!";
my $i = 0;
print FD "\n";
print FD "\n";
while( $ARG = readdir(DIR))
{
if( $ARG ne "." && $ARG ne ".." )
{
print "$ARG\n";
if($i > 3)
{
print FD "
\n";
print FD "\n";
$i = 0;
}
print FD "\n";
print FD "\n";
mklink(\*FD, $ARG, $imageDir, $targetDir);
print FD " \n";
print FD " | \n";
$i++;
}
}
closedir(DIR);
print FD "
\n";
print FD "
\n";
print FD "\n";
print FD "\n\n";
close(FD);
print "\nfinished!\n";
sub mklink
{
my $fd = $_[0];
my $arg = $_[1];
my $s = $_[2];
my $t = $_[3];
my $fname = "$arg.html";
print $fd "\n";
print $fd "\n";
print $fd "![](\"T$arg\") \n";
`/bin/cp $s/$arg $t`;
`/usr/bin/convert -size 180x180 $s/$arg -resize 180x180 +profile "*" $t/T$arg`;
open(FD1, "> $t/$fname") || die "can't open file $fname: $!";
print FD1 "\n";
print FD1 "\n";
print FD1 "![](\"$arg\") \n";
print FD1 "\n";
print FD1 "\n";
close(FD1);
print $fd " | \n";
print $fd "
\n";
print $fd "\n";
print $fd "| \n";
print $fd "Full size\n";
print $fd " | \n";
print $fd "
\n";
}
sub usage
{
print "Usage: mkImagePage.pl OPTIONS\n";
print "\t--imageDir=DIR (directory with all the images)\n";
print "\t--targetDir=DIR (where to put images, thumbs and html)\n";
print "\t--name=NAME (name of the html file)\n";
exit 1;
}