#!/usr/bin/perl
# Title : index.pl
# Function : automaticly create webpage's showing pics in selected DIR
# Author : P.Schiks (C)2002 GNU / GPL
# Platform : PERL 5
#
use strict;
#
# Customise default variables
#
# picture files path
my $DIRPATH = ".";
# page title
my $TITLE = "Picture index";
# name of index file
my $INDEXNAME = "index.html";
my $INDEXTITLE = "Picture main index";
# name of preview file
my $PAGENAME = "page_";
# max pictures / page , preview picture size and nr pic's / line
my $MAXPICS = 30;
my $HEIGHT = 120;
my $WIDTH = 160;
my $COUNT = 4;
#
# Program variables
#
my $FILENAME;
my $page;
my $pagenr = 0;
my $prevpagenr;
my $nextpagenr;
my $pagename;
my $count;
my $piccount;
my $totalpics;
#
# Program start
#
print "Picweb v1.0 by Pascal\n\n";
print "Page Title = $TITLE\n";
print "Index filename = $INDEXNAME\n";
print "Previewname = $PAGENAME\n\n";
#
if(opendir DIRECTORY, $DIRPATH)
{
$totalpics=0;
$piccount=0;
$count=0;
#
if(open INDEX,">$INDEXNAME")
{
print INDEX "\n\n$INDEXTITLE\n\n\n"; print INDEX "$INDEXTITLE
";
#
while($FILENAME=readdir(DIRECTORY))
{
# Filter for .jpg .JPG .gif .GIF
$_ = $FILENAME;
if((m/.jpg$/)||(m/.JPG$/)||(m/.gif$/)||(m/.GIF$/))
{
if($piccount==0)
{
$prevpagenr=$pagenr;
$pagenr++;
$nextpagenr=$pagenr+1;
$pagename = "$PAGENAME$pagenr.html";
print "\nNew file $pagename\n";
print INDEX "$pagename";
$page = open(PAGE,">$pagename");
if($page)
{
print "Creating file $pagename\n";
print PAGE "\n\n$TITLE\n\n";
print PAGE "\n";
print PAGE "$TITLE
\n";
print PAGE "Index ";
if($pagenr>1)
{
print PAGE "Previous ";
}
if($nextpagenr)
{
print PAGE " Next";
}
print PAGE "\n
\n";
}
else
{
print "File $pagename could not be created\n";
}
}
#
print $FILENAME," ";
if($page)
{
printf(PAGE "",$FILENAME);
printf(PAGE "![\"%s\"](\"%s\")
\n",$FILENAME,$FILENAME);
$count++;
if($count>=$COUNT)
{
printf(PAGE "
\n");
$count = 0;
}
} # end preview
$piccount++;
$totalpics++;
} # end Filter
#
if($piccount>=$MAXPICS)
{
if($page)
{
print PAGE "
\n";
print PAGE "Index ";
if($pagenr>1)
{
print PAGE "Previous ";
}
print PAGE " Next";
print PAGE "\n
\n";
print PAGE "\n\n";
close(PAGE);
}
$piccount = 0;
$count = 0;
}
} # end while $FILENAME
#
if($totalpics==0)
{
print INDEX "No pictures indexed
\n";
}
#
if($page)
{
print PAGE "
\n";
if($pagenr>1)
{
print PAGE "
\nPrevious";
}
print PAGE "\n\n";
close(PREVIEW);
}
print "\n\n$totalpic's Pictures indexed\n";
print INDEX "
\n";
close(INDEX);
closedir(DIRECTORY);
} # end if open INDEX
else
{
print "Error, could not create $INDEXNAME\n";
}
} # end if opendir
else
{
print "Fout, kan de directory $DIRPATH niet openen\n";
}