#!/usr/bin/perl # # usage: mkbrowse # # creates an indexed browsable thingy with links to tiled pages # @files = @ARGV; for ($x = 0; $x < $#files + 1; $x++) { print STDOUT $files[$x], ".html\n"; open(F, ">" . $files[$x] . ".html") || die("$!"); select(F); if ($x > 0) { $prev_file = $files[$x - 1] . ".html"; $prev = "< < PREVIOUS VOLUME"; } else { $prev = "< < PREVIOUS VOLUME"; } if ($x < $#files) { $next_file = $files[$x + 1] . ".html"; $next = "NEXT VOLUME > >"; } else { $next = "NEXT VOLUME > >"; } print < Propaganda: $files[$x]
$prev Volume 12: NO SYMPATHY FOR REDMOND 2
$files[$x]
 $next

EOM ; foreach $pic (@files) { print "$pic"; if ($pic eq $files[$x]) { print "<<"; } print "
\n"; } print <		 Full-Screen

PREVIOUS IMAGE DOWNLOAD THIS IMAGE NEXT IMAGE

This image is Copyleft © 1998,1999 Bowie J. Poag / PROPAGANDA See the file COPYING for details. Tile browser provided by Zachary Beane EOM ; close(F); open(T, ">" . $files[$x] . ".tile.html") || die("$!"); print T <Propaganda: Tile Example
Purty, Aint it! Click here to go back..
EOM ; close(T); }