#!/usr/bin/perl

@rows = ('01','02','03','04');
@cols = ('a','b','c','d','e','f','g','h','i','j');
#@rows = ('01','02');
#@cols = ('a','b');

require "../cgi-lib.pl";
ReadParse(*params);
print "Content-Type: text/html\n\n";
if($params{showme}) {
    foreach my $r (@rows) {
	foreach my $c (@cols) {
	    $ENV{QUERY_STRING} = "row=$r&col=$c";
	    $out = `./draw_inst2.pl`;
	    $out =~ s/Content-Type: text\/html//;
	    print $out;
	    print "<div style=\"page-break-after: always;\"></div>\n";
	}
    }
} else {
    print "This html is BIG. It's all 40 pages of the Boston Mosaic-- so don't download unless you really, really mean it. But if you DO mean it, append the text ?showme=1 to the URL, and you'll get it.<br>\n";
}