Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
Leser: 26
+2 replies![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
use ModPerl::Util ();
use Apache2::RequestRec ();
use Apache2::RequestIO ();
use Apache2::RequestUtil ();
use Apache2::ServerRec ();
use Apache2::ServerUtil ();
use Apache2::Connection ();
use Apache2::Log ();
use Apache2::Const -compile => ':common';
use APR::Const -compile => ':common';
use APR::Table ();
use Apache2::compat ();
use ModPerl::Registry ();
use CGI ();
1;
1
2
3
4
5
6
7
8
9
10
<IfModule mime_module>
# Perl handlers / types
<Files ~ "\.(cgi|pl|plx)$">
SetHandler perl-script
Options +ExecCGI
PerlHandler ModPerl::Registry
PerlSendHeader On
PerlSetupEnv On
</Files>
</IfModule>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
use strict;
use lib1;
my $q=new CGI;
my $name = lc($q->param('name'));
my $sessionid = $q->param('sessionid');
my $DB = $wacsapi::WACSDB;
#SQL
....
print ( "Content-Type: text/html\n\n" );
print "<html>";
print "<head>";
&wacsInitMenuAndButtons;
...
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
use strict;
use lib1;
#Variablen
my $q = new CGI;
my $DB=$marisapi::WACSDB;
#mitgeg. Variablen
my $remote_user=lc($q->param('name'));
my $remote_password=$q->param('passwort');
print ( "Content-Type: text/html\n\n" );
print "<html>";
print "<head>";
print " <link rel='stylesheet' type='text/css' href='/WUI/styles/wacsstyle.css'>";
print " <link rel='stylesheet' type='text/css' href='/WUI/styles/roundedges/niftyCorners.css'>";
print " <title>Anmeldung</title>";
&wacsInitMenuAndButtons;
...
![[Homepage]](/battie/theme/default/homepage.gif)
Schrift
Tipp zum Debugging
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
![[Powered by Battie]](/battie/img/powered.png)
