This script contains HTML tags which make it difficult to display here.
#!/usr/bin/perl
#
# usage: mkbrowse <list of images>
#
# 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 = "<A HREF=../Vol11/catalog.html>< < PREVI
+OUS VOLUME</A>";
} else {
$prev = "<FONT COLOR=#808080>< < PREVIOUS VOLUME
+</FONT>";
}
if ($x < $#files) {
$next_file = $files[$x + 1] . ".html";
$next = "<A HREF=../Vol12/catalog.html>NEXT VOLUME >
+; ></A>";
} else {
$next = "<FONT COLOR=#808080>NEXT VOLUME > ></FO
+NT>";
}
print <<EOM
<HTML>
<HEAD><TITLE>Propaganda: $files[$x]</TITLE></HEAD>
<BODY BGCOLOR="#B28E1C" TEXT="#000000" LINK="#222200" VLINK="#926E00">
<TABLE BORDER=0 WIDTH=100% CELLPADDING=0 CELLSPACING=0>
<TR>
<TD ALIGN=LEFT WIDTH=25%>$prev</TD>
<TD ALIGN=CENTER WIDTH=50%><FONT SIZE=+1
FACE="helvetica,arial">Volume 12: NO SYMPATHY FOR REDMOND 2<br><FONT S
+IZE=+2>$files[$x]<br><FONT SIZE=0></FONT></TD>
<TD ALIGN=RIGHT WIDTH=25%>$next</TD>
</TR>
</TABLE>
<P><TABLE BORDER=0 CELLPADDING=8 CELLSPACING=4>
<TR>
<TD VALIGN=TOP BGCOLOR="#B28E1C"><FONT FACE=HELVETICA,ARIAL SIZE=3>
EOM
;
foreach $pic (@files) {
print "<A HREF=$pic.html>$pic</A>";
if ($pic eq $files[$x]) {
print "<B><BLINK><</BLINK><</B>";
}
print "<BR>\n";
}
print <<EOM
</TD><TD VALIGN=TOP WIDTH=100% BGCOLOR="#000000" BACKGROUND=$files[$x]
+>
<A HREF="$files[$x].tile.html"><b><font color="#cccccc" size=-1>Full-S
+creen</font></b>
</A>
</TD></TABLE>
<P>
<TABLE BORDER=0 WIDTH=100% CELLPADDING=0 CELLSPACING=0>
<TR>
<TD ALIGN=LEFT WIDTH=33%><A HREF=$prev_file>PREVIOUS IMAGE</A></TD>
<TD ALIGN=CENTER WIDTH=33%><A HREF="$files[$x]"><b>DOWNLOAD THIS IMAG
+E</b></A></TD>
<TD ALIGN=RIGHT WIDTH=33%><A HREF=$next_file>NEXT IMAGE</A></TD>
</TR>
</TABLE>
<HR NOSHADE SIZE=1>
<FONT SIZE=-2>This image is Copyleft © 1998,1999 Bowie J. Poag /
+PROPAGANDA
See the file <A HREF="COPYING">COPYING</A>
for details. Tile browser provided by Zachary Beane
</BODY>
</HTML>
EOM
;
close(F);
open(T, ">" . $files[$x] . ".tile.html") || die("$!");
print T <<EOM
<HEAD><TITLE>Propaganda: Tile Example</TITLE></HEAD>
<BODY BACKGROUND=$files[$x]>
<TABLE BORDER=0 BGCOLOR="#FFFFFF" CELLPADDING=5 CELLSPACING=0>
<TR><TD><FONT SIZE=-1 FACE="helvetica,arial"><A
HREF="$files[$x].html">Purty, Aint it! Click here to go back..</A></FO
+NT></TD></TR></TABLE>
EOM
;
close(T);
}
Here's a link to fresh copy: Click Here
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|