From: Stephen L Johnson <sjohnson@monsters.org>
Date: Mon, 6 Mar 2000 00:58:01 +0000 (+0000)
Subject: added missing show() routine
X-Git-Tag: spong-2_7-alpha5~53
X-Git-Url: http://git.etc.gen.nz/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=aaa6c4f1485d8fc059510a829ec297ec11a10a01;p=spong.git

added missing show() routine
---

diff --git a/src/www-spong-ack.pl b/src/www-spong-ack.pl
index 655920e..e6b6649 100755
--- a/src/www-spong-ack.pl
+++ b/src/www-spong-ack.pl
@@ -358,6 +358,17 @@ sub header {
 sub footer { 
    &show( "footer" ) if -f "$main::WWWHTML/footer.html"; }
 
+sub show {
+   my $file = shift;
+   my $show = $main::WWWSPONG . "/help";
+
+   if( -f "$main::WWWHTML/$file.html" ) {
+      open( FILE, "$main::WWWHTML/$file.html" );
+      while( <FILE> ) { s/!!WWWSHOW!!/$show/g; print $_; }
+      close( FILE );
+   }
+}
+
 
 # Converts a command line representation of a host list to a list of hostnames