Index: ossp-pkg/tabea/tabea.cgi
RCS File: /v/ossp/cvs/ossp-pkg/tabea/tabea.cgi,v
rcsdiff -q -kk '-r1.3' '-r1.4' -u '/v/ossp/cvs/ossp-pkg/tabea/tabea.cgi,v' 2>/dev/null
--- tabea.cgi	2002/04/16 08:37:21	1.3
+++ tabea.cgi	2002/04/16 08:51:02	1.4
@@ -1,6 +1,4 @@
-#!/bin/sh -- # -*- perl -*- -p
-eval 'exec perl -S $0 ${1+"$@"}'
-    if $running_under_some_shell;
+#!/cw/bin/perl -w
 ##
 ##  OSSP tabea - Web Configuration Editor
 ##  Copyright (c) 2001-2002 The OSSP Project <http://www.ossp.org/>
@@ -34,43 +32,25 @@
 use strict;
 use IO;
 use CGI;
-#use Averist;
+
+$|++;
 
 # establish my configuration
 my $MY = {};
 $MY->{PROGNAME} = ($0 =~ m|^.*?([^/]+?)(?:\.[^/.]+)?$|)[0];
-$MY->{HEADER} = '';
-open(FP, "<".$MY->{PROGNAME}.".head.html");
-$MY->{HEADER} .= $_ while (<FP>);
-close(FP);
-$MY->{FOOTER} = '';
-open(FP, "<".$MY->{PROGNAME}.".foot.html");
-$MY->{FOOTER} .= $_ while (<FP>);
-close(FP);
+$MY->{TEMPLATE} = '';
+my $fh = new IO::File ("<".$MY->{PROGNAME}.".html") || die;
+$MY->{TEMPLATE} .= $_ while (<$fh>);
+$fh->close();
 
 #   establish CGI query object
 my $Q = new CGI;
 
-#print header(),
-#	start_html('-title' => "Tabea Test",
-#	           '-bgcolor' => "white"),
-#	end_html();
-
 my $page = '';
-$page .= $Q->header (-expires => '+1s');
-$page .= $MY->{HEADER};
-
-$page .= $MY->{FOOTER};
-
-#$page .= "<table width=100% bgcolor=\"#000000\" cellspacing=0 cellpadding=0>\n";
-#$page .= "<tr>\n" .
-#      "<td align=center>\n" .
-#         "<p>Irgendein Text</p>" .
-#         "</td>\n" .
-#          "</tr>\n" .
-#          "<tr>\n" .
-#          "<td>\n";
+$page .= "fuck";
 
-print STDOUT $page;
+my $out = $MY->{TEMPLATE};
+$out =~ s|%%BODY%%|$page|s;
+print $Q->header(-expires => '+1s') . $out;
 
 exit (0);