10 Einträge, 1 Seite |
1 2 3 4 5 6
my $cookie = cookie ( -NAME => $Name, -VALUE => "", -EXPIRES => "now", ); print "Set-Cookie: $cookie";
print "Set-Cookie: name=; expires=Mon, 1-Jan-1970 00:00:00 GMT;\n";
1
2
3
Set-Cookie: login=; path=/; expires=Sun, 19-Dez-2003 13:09:36 GMT \ n \ n
Set-Cookie: login=; path=/; expires=Sun, 19-Oct-2003 13:09:36 GMT \ n \ n
HTML Datei,...
1
2
3
4
5
6
7
8
9
10
11
12
use CGI;
my $cgi = CGI->new();
my $cookie = $cgi->cookie(
-name => $name,
-value => $value,
-path => "/",
-expires => '+1d',
);
print $cgi->header(
-type => 'text/html',
-cookie => $cookie,
);
1
2
3
4
5
6
7
8
9
10
11
12
use CGI;
my $cgi = CGI->new();
my $cookie = $cgi->cookie(
-name => $name,
-value => $value,
-path => "/",
-expires => '-1d',
);
print $cgi->header(
-type => 'text/html',
-cookie => $cookie,
);
10 Einträge, 1 Seite |