diff -r 000000000000 -r 6474c204b198 docshell/test/chrome/gen_template.pl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/docshell/test/chrome/gen_template.pl	Wed Dec 31 06:09:35 2014 +0100
@@ -0,0 +1,37 @@
+#!/usr/bin/perl
+#
+#  gen_template.pl
+#  Makes docshell test case templates.
+#  Takes one argument:
+#
+#  -b : a bugnumber
+#
+#  e.g.: perl gen_template.pl -b 303267
+#
+#  Writes test case template files for bug 303267 to the current directory.
+use FindBin;
+use Getopt::Long;
+GetOptions("b=i"=> \$bug_number);
+
+$template = "$FindBin::RealBin/test.template.txt";
+
+open(IN,$template) or die("Failed to open input file for reading.");
+open(OUT, ">>test_bug" . $bug_number . ".xul") or die("Failed to open output file for appending.");
+while((defined(IN)) && ($line = <IN>)) {
+        $line =~ s/{BUGNUMBER}/$bug_number/g;
+        print OUT $line;
+}
+close(IN);
+close(OUT);
+
+$template = "$FindBin::RealBin/window.template.txt";
+
+open(IN,$template) or die("Failed to open input file for reading.");
+open(OUT, ">>bug" . $bug_number . "_window.xul") or die("Failed to open output file for appending.");
+while((defined(IN)) && ($line = <IN>)) {
+        $line =~ s/{BUGNUMBER}/$bug_number/g;
+        print OUT $line;
+}
+close(IN);
+close(OUT);
+