Leser: 1
3 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/usr/bin/perl
use strict;
use warnings;
use CGI::Cookie ();
my $c = CGI::Cookie->new(
-name => 'updated',
-value => time,
-expires => '+1M',
-path => '/',
);
print "Set-Cookie: $c\n";
print "Content-Type: text/css\n";
print "\n";
1
2
3
4
5
6
my $cookie = $cgi->cookie(-NAME => '',
-VALUE => '',
-EXPIRES...
);
print $cgi->header('image/jpeg', -cookie => $cookie);
Quote
HTTP/1.1 200 OK
Date: Tue, 20 Feb 2007 23:25:53 GMT
Server: Apache/1.3.33 (Unix)
Set-Cookie: updated=1172013953; path=/; expires=Thu, 22-Mar-2007 23:25:53 GMT
Transfer-Encoding: chunked
Content-Type: text/css
3 Einträge, 1 Seite |