Opened by Lukas at 2004-05-23 01:08
User since
2004-04-11
6 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-04-11
6 Artikel
BenutzerIn
ich hab hier im forum schon einiges gefunden, allerdings nur cgi::session und bei puretec ist nur apache::session installiert.
ich habe auch schon testcode gefunden der funktioniert, leider weiss ich nicht ganz genau was der code macht:
Hoffe das wird jetzt nicht zu unüersichtlich
ich habe auch schon testcode gefunden der funktioniert, leider weiss ich nicht ganz genau was der code macht:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
#!/usr/bin/perl
use CGI;
use Apache::Session::File;
my $query = new CGI;
my %session;
my $id = undef;
$id = $query->cookie(-name=>"SID01");
´
# An dieser stelle komme ich nicht weiter. was genau macht # Apache::Session::File, bei Cpan steht da nicht gerade viel # dazu. Ist dieses /tmp/ verzeichnis auf dem client oder auf dem server?
# Wie kann ich überprüfen ob eine Datei erzeugt wurde? Wie kann ich weitere Daten ausser der sid in dieser Datei speichern? Wird die Datei nach einer bestimmten Zeit gelöscht?
# Leider sind bei puretec cronjobs nur ab dem PowerPaket möglich, deshalb wollte ich bei erzeugen einer sid gleich mit prüfen, ob noch alte ungenutze sid's vorliegen, die gelöscht werden
tie %session, 'Apache::Session::File', $id,
{ Directory => "/tmp/",
LockDirectory => "/tmp/"};
if ($id == undef) {
$cookie = $query->cookie( -name=>'SID01',
-value=>$session{_session_id},
-expires=>'+1y',
-path=>'/session');
print $query->header(-cookie=>$cookie);
print "Assigned session ID<br>";
} else {
print $query->header();
print "Not assigned session ID<br>";
};
$id = $session{_session_id};
print "<html>";
print " <head><title>Session ID</title></head>";
print " <body bgcolor=#ffffff>";
print " Your session ID is $id";
print " </body>";
print "</html>";
Hoffe das wird jetzt nicht zu unüersichtlich