---------------------
PatchSet 9926 
Date: 2007/09/02 12:17:20
Author: adri
Branch: errorpages
Tag: (none) 
Log:

A basic template thingy for making error pages.

Members: 
	scripts/ErrorPage.pl:1.1->1.1.2.1 

--- /dev/null	Mon Sep  3 00:20:47 2007
+++ squid/scripts/ErrorPage.pl	Mon Sep  3 00:20:47 2007
@@ -0,0 +1,63 @@
+#!/usr/bin/perl -w
+
+# Written by Adrian Chadd <adrian@squid-cache.org>
+
+# $Id
+
+use strict;
+use IO::File;
+
+if (scalar @ARGV < 3) {
+	print "Usage: <template> <input file> <output file>\n";
+	exit 127;
+}
+
+my ($template) = $ARGV[0];
+my ($ifile) = $ARGV[1];
+my ($ofile) = $ARGV[2];
+
+# Suck in the input file and create the sections
+my ($section) = "";
+my (%sections);
+my ($if) = new IO::File;
+$if->open($ifile, "r") || die "Couldn't read $ifile: $!\n";
+
+while (<$if>) {
+	chomp;
+	if (m/^\[([A-Za-z0-9_\-]*)\]/) {
+		$section = $1;
+		$sections{$section} = "";
+		next;
+	}
+	if (m/^\[\/([A-Za-z0-9_\-]*)\]/) {
+		$section = "";
+		next;
+	}
+	next if ($section eq "" && $_ eq "");
+
+	if ($section eq "") {
+		print "ERROR: Text not in a section: $_\n";
+		next;
+	}
+	$sections{$section} .= $_ . "\n";
+}
+
+$if->close();
+undef $if;
+
+# Next, time to read in the template file
+my ($tf);
+$tf = new IO::File;
+$tf->open($template, "r") || die "Couldn't read $template: $!\n";
+
+my ($of);
+$of = new IO::File;
+$of->open($ofile, "w") || die "Couldn't write to template file: $!\n";
+
+while (<$tf>) {
+	chomp;
+	s/@([A-Za-z0-9\-_]*?)@/$sections{$1}/ge;
+	print $of $_ . "\n";
+}
+$tf->close();
+$of->close();