File Coverage

blib/lib/AxKit/XSP/Cookie.pm

Criterion	Covered	Total	%
statement	4	6	66.6
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	6	8	75.0

package AxKit::XSP::Cookie;
use strict;
use Apache::AxKit::Language::XSP;
use Apache::Cookie;

use vars qw/@ISA $NS $VERSION/;

@ISA = ('Apache::AxKit::Language::XSP');
$NS = 'http://axkit.org/NS/xsp/cookie/v1';

$VERSION = "1.41";

## Taglib subs

# NONE! ;-)

my $cookie_context  = '';

## Parser subs

sub parse_start {
    my ($e, $tag, %attribs) = @_;
    #warn "Checking: $tag\n";

    if ($tag eq 'create') {
        $cookie_context = 'create';
        my $code = '{ my $__cookie = Apache::Cookie->new($r);';

        if ($attribs{name}) {
            $code .= '$__cookie->name(q|' . $attribs{name} . '|);';
        }
        if ($attribs{value}) {
            $code .= '$__cookie->value(q|' . $attribs{value} . '|);';
        }
        if ($attribs{domain}) {
            $code .= '$__cookie->domain(q|' . $attribs{domain} . '|);';
        }
        if ($attribs{path}) {
            $code .= '$__cookie->path(q|' . $attribs{path} . '|);';
        }
        if ($attribs{secure}) {
            $code .= '$__cookie->secure(q|' . $attribs{secure} . '|);';
        }
        if ($attribs{expires}) {
            $code .= '$__cookie->expires(q|' . $attribs{expires} . '|);';
        }

        return $code;
    }
    elsif ($tag eq 'name') {
        if ($cookie_context eq 'create') {
           return '$__cookie->name(""';
        }
    }
    elsif ($tag eq 'value') {
        return '$__cookie->value(""';
    }
    elsif ($tag eq 'domain') {
        return '$__cookie->domain(""';
    }
    elsif ($tag eq 'expires') {
        return '$__cookie->expires(""';
    }
    elsif ($tag eq 'path') {
        return '$__cookie->path(""';
    }
    elsif ($tag eq 'secure') {
        return '$__cookie->secure(""';
    }
    elsif ($tag eq 'fetch') {
        $cookie_context = 'fetch';
        $e->start_expr($tag);
        my $code = 'my (%__cookies, $__cookie, $__cookie_name);' . "\n";
        $code .= '%__cookies = Apache::Cookie->fetch;';
        $code .= '$__cookie_name = ""';
        if ($attribs{name}) {
            $code .= '. q|' . $attribs{name} . '|;';
            $code .= '$__cookie = $__cookies{$__cookie_name} || Apache::Cookie->new($r);';
        }
       return $code;
    }
    else {
        die "Unknown cookie tag: $tag";
    }
}


sub parse_char {
    my ($e, $text) = @_;
    $text =~ s/^\s*//;
    $text =~ s/\s*$//;

    return '' unless $text;

    $text =~ s/\|/\\\|/g;
    return ". q|$text|";
}


sub parse_end {
    my ($e, $tag) = @_;

    if ($tag eq 'create') {
        $cookie_context = '';
        return '$__cookie->bake;}' . "\n";
    }
    elsif ($tag eq 'name') {
        if ($cookie_context eq 'create') {
            return ');';
        }
        else {
            return ';$__cookie = $__cookies{$__cookie_name} || Apache::Cookie->new($r);';

        }
    }
    elsif ($tag eq 'value') {
        if ($cookie_context eq 'create') {
            return ');';
        }
    }
    elsif ($tag eq 'expires') {
        if ($cookie_context eq 'create') {
            return ');';
        }
    }
    elsif ($tag eq 'domain') {
        if ($cookie_context eq 'create') {
            return ');';
        }
    }
    elsif ($tag eq 'path') {
        if ($cookie_context eq 'create') {
            return ');';
        }
    }
    elsif ($tag eq 'secure') {
        if ($cookie_context eq 'create') {
            return ');';
        }
    }
    elsif ($tag eq 'fetch') {
        $cookie_context = '';
        $e->append_to_script('$__cookie->value;');
        $e->end_expr;
        return '';
    }
}

sub parse_comment {
    # compat only
}

sub parse_final {
   # compat only
}

1;

__END__