#!/usr/bin/perl -w
# tcimage.pl
# by: Chris Cantrall
# on: 2003 May 12
# syntax: perl tcimage.pl *.jpg > photos.html
# create web page from list of images provided on command line
#
# WARNING: no checking of any kind is performed on input. Caveat usor.
use strict;
# get list of filenames from command line arguments
my @filenames = @ARGV;
my $counter = 0;
# add thumbnail image and link text to each filename
foreach my $name (@filenames) {
if ($counter % 2){ #odd rows
$name = qq{
$name | \n};
}else{ #even rows
$name = qq{
$name |
\n};
}
$counter++;
}
# create overhead for HTML page
my $header = qq{
Images of the Prime Focus Camera Shutter Controller
Photos of the Shutter Controller
};
my $footer = qq{
};
# create output array
my @output = ($header, @filenames, $footer);
# output to screen or piped to file
print @output;