Leser: 20
1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl -T
use strict;
use warnings;
use CGI::Fast;
use CGI;
my $cgi = new CGI;
while (my $q = new CGI::Fast) {
}
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
my %sites = ( 'profil' => \&profil, 'fotos' => \&fotos, 'mailbox' => \&mailbox ); if (exists $sites{$cgi->param('show')}) { $sites{$cgi->param('show')}->(\@args); } else { print "404 Not found"; } sub profil { # aufruf von HTML::Template::Compiled usw... }
1 2 3
while (my $q = new CGI::Fast) { $MyApp->run($dbh); # statische handles werden ans modul übergeben }