init III

2024-10-14 00:08:40 +02:00
parent dbfba56f66
commit 1462d52e13
4572 changed files with 2658864 additions and 0 deletions
--- a/Engine/cgi-bin/index.pl
+++ b/Engine/cgi-bin/index.pl
@@ -0,0 +1,42 @@
+#!/usr/bin/perl -w
+
+use CGI;
+use CGI::Carp qw(fatalsToBrowser);
+
+require "config.search.pl";
+
+my $cgi = new CGI;
+print $cgi->header();
+
+print <<START;
+<html>
+ <head>
+ </head>
+ <body>
+START
+
+print <<BODY;
+ <div align="center">
+  <p>
+   <a href="$M_HOME_LOGO_TARGET"><img width="$M_HOME_LOGO_WIDTH" height="$M_HOME_LOGO_HEIGHT" src="$M_BASE_URL/$M_HOME_LOGO"></a><br>
+  </p>
+  <p>
+  <form action="/cgi-bin/search.pl" method="post">
+   <input type="hidden" name="mose" value="mose">
+   <input type="input" size="50" name="search"><br>
+   <input type="submit" value="Suche">
+  </form>
+  </p>
+ </div>
+
+ <div style="position: relative">
+  <p style="position: fixed; bottom: 0; width:100%; text-align: center">
+   <font size="-2">copyright by andre geissler 2013</font>
+  </p>
+ </div>
+BODY
+
+print <<FOOTER;
+ </body>
+</html>
+FOOTER