File Coverage

blib/lib/OpenPlugin/Cookie/CGI.pm

Criterion	Covered	Total	%
statement	21	29	72.4
branch	1	2	50.0
condition			n/a
subroutine	6	7	85.7
pod	0	2	0.0
total	28	40	70.0

package OpenPlugin::Cookie::CGI;

# $Id: CGI.pm,v 1.21 2003/04/03 01:51:24 andreychek Exp $

use strict;
use OpenPlugin::Cookie();
use base        qw( OpenPlugin::Cookie );
use CGI         qw( -no_debug );
use CGI::Cookie qw();

$OpenPlugin::Cookie::CGI::VERSION = sprintf("%d.%02d", q$Revision: 1.21 $ =~ /(\d+)\.(\d+)/);


sub init {
    my ( $self, $args ) = @_;

    return $self unless $self->OP->request->object;

    my $cookies = CGI::Cookie->fetch;

    # Tell OpenPlugin about each cookie we were sent
    foreach my $cookie ( keys %{ $cookies } ) {

        $self->set_incoming({ name    => $cookies->{$cookie}->name,
                              value   => $cookies->{$cookie}->value,
                              domain  => $cookies->{$cookie}->domain,
                              path    => $cookies->{$cookie}->path,
                              expires => $cookies->{$cookie}->expires,
                              secure  => $cookies->{$cookie}->secure,
                           })
    }

    return $self;
}

# Cycle through the CGI::Cookie objects and
# call the bake method, which puts the appropriate header
# into the outgoing headers table.

sub bake {
    my ( $self ) = @_;

    foreach my $name ( $self->get_outgoing ) {

        my $args = $self->get_outgoing( $name );
        $args->{name} = $name;

        my $cookie = CGI::Cookie->new( -name     => $args->{name},
                                       -value    => $args->{value},
                                       -path     => $args->{path},
                                       -expires  => $args->{expires},
                                       -secure   => $args->{secure},
                    );
        print "Set-Cookie: $cookie\n";
    }

return 1;
}


1;

__END__