my $fname = "JPGfilelist.txt"; my $settitle = shift; open (IN, $fname) || die "can't open $fname\n"; my $count = 0; my $prevpic = undef; while () { chomp; my ($picname, $pictext) = split (/:/,$_); my $picroot = $picname; $picroot =~ s/\.JPG//i; $captions{$picroot} = $pictext; push @pics, $picroot; if (defined($prevpic)) { $prev{$picroot} = $prevpic; } else { $prev{$picroot} = "index" }; $next{$prevpic} = $picroot unless $prevpic eq ""; $prevpic = $picroot; } $next{$prevpic} = "index"; for (@pics) { my $filename = "$_.html"; open OUT, ">$filename" || die "can't open $filename $!\n"; $nextpagename = "$next{$_}.html"; $prevpagename = "$prev{$_}.html"; my $nextlink = ""; my $prevlink = ""; $nextlink = "Next" unless ($nextpagename eq "index.html"); if ($prevpagename eq "index.html") { $prevlink = "Index Page "; } else { $prevlink = "Previous Index Page "; } print OUT "\n"; print OUT "$settitle\n"; print OUT "\n"; print OUT "

$settitle

\n"; print OUT "

$prevlink$nextlink

\n"; print OUT "\n"; print OUT "
\n"; print OUT "

$captions{$_}

\n"; print OUT "
\n"; print OUT "

(c) Deanna Rubin 2008.

\n"; print OUT "\n"; close OUT; }