#!/usr/bin/perl
# -*- mode: perl; coding: utf-8 -*-
# keitairc
-# $Id: keitairc,v 1.68 2008-08-03 13:33:39 morimoto Exp $
+# $Id: keitairc,v 1.69 2008-12-20 12:25:49 morimoto Exp $
# $Source: /home/ishikawa/work/keitairc/tmp/keitairc/keitairc,v $
#
# Copyright (c) 2003-2008 Jun Morimoto <morimoto@mrmt.net>
$hour,
$min,
$sec);
- my $content = sprintf("sid=%s; expires=%s; \n", $session_id, $expiration);
+ my $content = sprintf("sid=%s; expires=%s; path=%s; \n", $session_id, $expiration, $cf->web_root());
$response->push_header('Set-Cookie', $content);
$response;
}
# -*- mode: perl; coding: utf-8 -*-
# Keitairc::ClientInfo
-# $Id: ClientInfo.pm,v 1.10 2008-08-03 13:33:39 morimoto Exp $
+# $Id: ClientInfo.pm,v 1.11 2008-12-20 12:25:49 morimoto Exp $
# $Source: /home/ishikawa/work/keitairc/tmp/keitairc/lib/Keitairc/ClientInfo.pm,v $
#
# Copyright (c) 2008 Jun Morimoto <morimoto@mrmt.net>
$me->{header}->{$ukey} = $arg->{_headers}->{$key};
}
- if(defined $me->{header}->{Cookie}){
- for my $set (split(/; */, $me->{header}->{Cookie})){
+ if(defined $me->{header}->{cookie}){
+ for my $set (split(/; */, $me->{header}->{cookie})){
my ($name, $value) = split(/=/, $set);
$value =~ s/%([0-9A-Fa-f]{2})/pack('C', hex($1))/eg;
$me->{cookie}->{$name} = $value;