Leser: 1
|< 1 2 3 >| | 21 Einträge, 3 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
use strict;
package anfang;
my $sessionid = param('SESSIONID');
package alles_andere;
&modify_sid;
sub modify_sid {
my $new_sessionid = get_new_sid();
$anfang::sessionid = $new_sessionid;
}
package ende;
print $anfang::sessionid;
my $main::sessionid = $main::cgi->param('SESSIONID')
1
2
3
4
5
6
sub handler {
my $sessionid = $main::cgi->param('SESSIONID');
sub router {
# print $sessionid;
}
}
1
2
3
4
5
6
7
8
9
10
sub public_vars {
my %my_vars = (
'home' => \&home
);
if (exists($my_vars{$main::cgi->param('PAGEID')})) {
&{$my_vars{$main::cgi->param('PAGEID')}};
} else {
# Fehler 404
}
}
|< 1 2 3 >| | 21 Einträge, 3 Seiten |