|
Check-in Number:
|
2069 | |
| Date: |
2002-Apr-16 10:37:21 (local)
2002-Apr-16 08:37:21 (UTC) |
| User: | ps |
| Branch: | |
| Comment: |
First not working test version |
| Tickets: |
|
| Inspections: |
|
| Files: |
|
ossp-pkg/tabea/tabea.cgi 1.2 -> 1.3
--- 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);
|
|
