Index: ossp-pkg/tabea/tabea.cgi
RCS File: /v/ossp/cvs/ossp-pkg/tabea/tabea.cgi,v
rcsdiff -q -kk '-r1.2' '-r1.3' -u '/v/ossp/cvs/ossp-pkg/tabea/tabea.cgi,v' 2>/dev/null
--- tabea.cgi	2002/04/15 14:45:23	1.2
+++ tabea.cgi	2002/04/16 08:37:21	1.3
@@ -34,5 +34,43 @@
 use strict;
 use IO;
 use CGI;
-use Averist;
+#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);
+
+#   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";
+
+print STDOUT $page;
+
+exit (0);