#!/usr/local/bin/perl
#===================================================================#
# Author : Navid Mehregani (99mehreh@utsc.utoronto.ca) #
# #
# Description: Given a directory that contains .jpg and/or .gif #
# files, it will organize all the pics in HTML format. #
# There are two main HTML files created. The first #
# one organizes the pictures in a table format and the #
# second one allows for easy browsing of each single #
# picture. #
#===================================================================#
use Getopt::Std;
if ($#ARGV < 0) {
usage();
}
$ret = getopts('');
if (!$ret)
{
usage();
}
# Save all JPG and GIF files in this array
@directory = `dir $ARGV[0]\\\*\.jpg $ARGV[0]\\\*\.gif /on/b 2>&1`;
if ($#directory == 0) {
print "The specified directory doesn't contain any pictures.\n";
exit;
}
# Create the required directories
if (!(-e "$ARGV[0]\\FullSize")) {
`md $ARGV[0]\\FullSize`;
}
if (!(-e "$ARGV[0]\\SmallerSize")) {
`md $ARGV[0]\\SmallerSize`;
}
open (WRITE, ">$ARGV[0]\\allPics.html") || die ("Cannot open $ARGV[0]\\allPics.html\n");
open (NEXTPIC, ">$ARGV[0]\\singlePic.html") || die ("Cannot open $ARGV[0]\\singlePic.html\n");
open (BOTTOM, ">$ARGV[0]\\SmallerSize\\bottom.html") || die ("Cannot open $ARGV[0]\\SmallerSize\\bottom.html\n");
print WRITE "
\t
\t\tPics Pics!!
\t
\t
\t\t
\t\t\t Pictures Pictures!!
\t\t\t
\t\t\t\t\n";
print NEXTPIC "
\t
\t\tPics Pics!!
\t
\t
\n";
print BOTTOM "
\n";
$count = 0;
$WIDTH = 150;
$HEIGHT = 140;
$NUM_PICS_EACH_ROW = 5;
if (($ARGV[1]) && ($ARGV[1] > 0)) {
$WIDTH = $ARGV[1];
}
if (($ARGV[2]) && ($ARGV[2] > 0)) {
$HEIGHT = $ARGV[2];
}
if (($ARGV[3]) && ($ARGV[3] > 0)) {
$NUM_PICS_EACH_ROW = $ARGV[3];
}
foreach $pic (@directory) {
chomp($pic);
if (($pic =~ m%\.(jpg|JPG)%)||($pic =~ m%\.(gif|GIF)%)) {
$count++;
open (WRITESUB, ">$ARGV[0]\\FullSize\\pic$count\.html") || die ("Can't open $ARGV[0]\\FullSize\\pic$count\.html\n");
open (SINGLE, ">$ARGV[0]\\SmallerSize\\single$count\.html") || die ("Can't open $ARGV[0]\\SmallerSize\\single$count\.html\n");
print WRITESUB "\n\t\n\t\t$pic\n\t\n\t\n\t\t![](\"\.\.\\$pic\"/)
\n\t\n";
print SINGLE "\n\t\n\t\t$pic\n\t\n\t\n\t\t![](\"\.\.\\$pic\")
\n\t
$count\/$#directory \n";
print WRITE "\t\t\t\t\t ![](\"$pic\") | \t\t\t\t\n";
if (($count%$NUM_PICS_EACH_ROW)==0) {
print WRITE "\t\t\t\t
\n\t\t\t\t\n";
}
}
}
print WRITE "\t\t\t\t
\t\t\t
\t\t
\t
";
print "\n Done...Files created in: $ARGV[0]\n\n";
#=========================================================#
# #
# Function: Print the usage of this perl script and exit #
# #
#=========================================================#
sub usage
{
print "\n\n=======================================================================
Incorrect Usage: perl $0 directory width height pics_on_each_row
example: perl $0 c:\\pics 150 140 5\n
Note: by default width=150 height=140 num_pics_on_each_row=5\n
=======================================================================\n\n";
exit;
}