Leser: 1
![]() |
![]() |
2 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
my $sessir=$para{"sessid"};
#falls eine session ID übermittelt wurde die alte Session wiederherstellen und die Daten lesen (klappt nicht)
if (!($sessir eq "")) {
$se = new CGI::Session(undef, $sessir, {Directory=>'/tmp'});
$l_name = $se->param(-loginname);
$up= $se->param(-loginpw);
}
###wenn der User erfolgreich eingeloggt ist wird eine neue Session angelegt:
my $session = new CGI::Session(undef, undef, {Directory=>'/tmp'});
my $CGISESSID = $session->id();
$session->param('loginname', $userlogin);
$session->param('loginpw', $md5pass);
print $session->header();
###und schliesslich noch der Link mit dem ich die session id übergebe
"travel-base.cgi?sessid=".$CGISESSID
![]() |
![]() |
2 Einträge, 1 Seite |