Leser: 1
|< 1 2 3 >| | 25 Einträge, 3 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
<?
function logout() {
global $f;
session_start();
session_destroy();
header ("Set-Cookie: logged=$f; expires=Wed, 2-Jan-1987 00:00:00 GMT; path=/;");
header ("Set-Cookie: modlogin=$f; expires=Wed, 2-Jan-1987 00:00:00 GMT; path=/;");
header ("Set-Cookie: ivadmin=$f; expires=Wed, 2-Jan-1987 00:00:00 GMT; path=/;");
}
if ((isset($f)) && $f == "logout") logout();
?>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
use CGI;
sub logout{
my ($f) = @_;
#Methodenaufrufe
session_start();
session_destroy();
# Cookie-Sache
my @cookies;
for(qw/logged modlogin ivadmin/){
my $cookie = CGI::cookie(-name => $_,
-value => $f,
-expires=>'Wed, 2-Jan-1987 00:00:00 GMT',
-path=>'/',);
push(@cookies,$cookie);
}
print CGI::header(-cookie => [@cookies]);
}
if(defined($f) && $f eq 'logout'){
logout($f);
}
warn "bla";
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
#!/usr/bin/perl
require CGI;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);
use Time::Local;
use File::Spec;
use Fcntl qw(:flock);
use URI;
#use XML::Simple;
use CGI qw(:standard -no_debug);
require "konfiguration.txt";
require "text.txt";
$timeout=45;
my $cgi = new CGI;
my $state = $cgi->param("wmid");
my $sid = "773XXXXXX";
if ($state =~ m/773[0-9]{6,6}/) { }
else {$state =~ s/$state/$sid/}
# Nicht verändern
#########################################################
|< 1 2 3 >| | 25 Einträge, 3 Seiten |