sub header {
my $self = shift;
my $cgi = $self->{_SESSION_OBJ};
unless ( defined $cgi ) {
require CGI;
$self->{_SESSION_OBJ} = CGI->new();
return $self->header();
}
my $cookie = $cgi->cookie($self->name(), $self->id() );
return $cgi->header(
-type => 'text/html',
-cookie => $cookie,
@_
);
}
####
1222c1222
< return $self->header();
---
> $cgi = $self->{_SESSION_OBJ};
##
##
# call header to instantiate CGI object, but throw away the result
$sess->header();
# _now_ print the header
print $sess->header(expires => '+1M');
__END__
output:
Set-Cookie: CGISESSID=e438a0cb3647f362bd9934d048dca443; path=/
Expires: Mon, 18 Oct 2004 21:52:43 GMT
Date: Mon, 18 Oct 2004 21:42:43 GMT
Content-Type: text/html; charset=ISO-8859-1