added missing show() routine

diff --git a/src/www-spong-ack.pl b/src/www-spong-ack.pl
index 655920e4c12d938b413b9381c6ca97ac83998196..e6b664925bb60b86e89ff406324b0c77b2fc19a5 100755 (executable)
--- 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