#!/usr/bin/perl -w # # This script helps make html tables of pictures in the # following format: # pic_1 pic_2 ... pic_nc # pic_nc+1 ... # . # . # . # pic_nr ... # # where nc => number of columns in the table # nr => number or rows in the table # np => number of pictures available # # thomas l. gibson July 27, 2000 # $IMAGES = '/home/ritlg/tlghtml/images/gamera_II/gamIIa-0'; # Location for graphics $blank = "\ \;"; # non-breaking space for blank cells $nr = 4; $nc = 4; $np = 14; print ("Input the name of the output file\n"); $file_out = ; chomp($file_out); # Check to see if output file exists---if so, unlink it if (-e "$file_out") { unlink ("$file_out"); } open (OUT, ">>$file_out") || die "Could'nt open output file: $! \n"; # Print out the standard html header stuff print OUT< T.L. Gibson's friends and family Page 18 (August 2001 in Colorado Springs)

A Photo Album of Friends and Family---Page 18

\ \;
Garden of the Gods, Seven Falls, and Zoo in Colorado Springs---August 2001

HEADER # Print out the table print OUT ("

\n"); print OUT ("

\n"); print OUT (" \n"); $count = 1; for ($i = 1; $i <= $nr; $i++) { print OUT (" \n"); for ($j = 1; $j <= $nc; $j++) { print OUT (" \n"); $count++; } print OUT (" \n"); } print OUT ("
\n"); if (($i == $nr) && ($count > $np)) { print OUT (" $blank\n"); } else { if ($count > 9) { $anchor = $IMAGES.$count.".jpg"; } else { $anchor = $IMAGES."0".$count.".jpg"; } print OUT (" Pic $count\n"); } print OUT ("
\n"); print OUT ("
\n"); print OUT ("

\n"); print OUT ("

\n"); print OUT ("\ \;
\n"); print OUT ("

\n"); print OUT ("

Page 19

\n"); print OUT ("
\n"); print OUT ("

\n"); # Print out the standard html closing stuff print OUT<

This page designed and maintained by thomas.gibson\@ttu.edu

\"Return Return to Gibson Homepage

TRAILER close (OUT) || die "Couldn't close ouput file: $! \n";