43 lines
824 B
Perl
43 lines
824 B
Perl
#!/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
|