build

#! /usr/bin/perl -w

$NumPuzzles = 7;

sub include_pages {
    my ($filename) = @_;
    local $/;

    open(PUZ, $filename) || die "Can't open $filename: $!";
    $page = <PUZ>;  # slurp
    close PUZ;

    for (1..$NumPuzzles) {
        $thispage = $page;

	# Perform various substitutions on $page
	#
        $thispage =~ s/IDPUZZLE/$_/g;
	$thispage =~ s/IDGRID/grid$_/g;
	$thispage =~ s/IDFOUND/found$_/g;
	$thispage =~ s/IDPERCENT/percent$_/g;
	$thispage =~ s/IDSOLUTION/solution$_/g;
	$thispage =~ s/IDNUM/$NumPuzzles/g;
	print $thispage;
    }
}

sub include_javascript {
    my ($filename) = @_;

    # print "include_javascript $filename\n";
    open(F, "$filename") || die;
    while (<F>) {
        next if /debugging/;   # remove instrumentation
        if (/BEGIN/../END/) {
	    s/_STANDALONE = .*/_STANDALONE = 0;/;
	    print;
	}
    }
    close F;
}

while (<>) {
    s/IDNUM/$NumPuzzles/g;
    s/DESCRIPTION/free printable boggle worksheets and boggle boards with solutions/;

    if (/PAGES/) {
	include_pages("puzzle.tem");
    }
    elsif (/SOLUTION/) {
        include_pages("solution.tem");
    }
    elsif (/RANDSFC32/) {
        include_javascript("rand-sfc32.js");
    }
    elsif (/BOGGLE/) {
        include_javascript("boggle.js");
    }
    elsif (/SOLVER/) {
        include_javascript("solver.js");
    }
    elsif (/HIST/) {
        include_javascript("History.js");
    }
    else {
        print;
    }
}