From 680ea7322f8fd2ffc246bd67f104183db6ec2037 Mon Sep 17 00:00:00 2001
From: Alex Schroeder <alex@gnu.org>
Date: Fri, 13 Jun 2003 19:06:40 +0000
Subject: [PATCH] Use the new Init function.

---
 test-wrapper.pl | 19 +++----------------
 1 file changed, 3 insertions(+), 16 deletions(-)

diff --git a/test-wrapper.pl b/test-wrapper.pl
index 9084fd03..bb395b86 100644
--- a/test-wrapper.pl
+++ b/test-wrapper.pl
@@ -21,25 +21,12 @@
 # This program reads the input from stdin, applies the markup rules,
 # and prints the output to stdout.
 
+# Example usage: echo test | perl test-wrapper.pl
+
 package OddMuse;
 $_ = 'nocgi';
 do 'wiki.pl';
-
-if ($UseConfig && (-f $ConfigFile)) {
-  do $ConfigFile;
-}
-&InitLinkPatterns();
-$q = new CGI;
-$Now = time;
-my @ScriptPath = split('/', $q->script_name());
-$ScriptName = pop(@ScriptPath);
-$IndexInit = 0;
-$InterSiteInit = 0;
-%InterSite = ();
-$MainPage = '.';
-$OpenPageName = '';
-
+Init();
 undef $/;
-
 $input = <STDIN>;
 &ApplyRules($input,1);