#########
# Author: rmp
# Maintainer: $Author: zerojinx $
# Created: 2007-06-07
# Last Modified: $Date: 2009-08-17 09:40:40 +0100 (Mon, 17 Aug 2009) $
# Id: $Id: decorator.pm 342 2009-08-17 08:40:40Z zerojinx $
# Source: $Source: /cvsroot/clearpress/clearpress/lib/ClearPress/decorator.pm,v $
# $HeadURL: https://clearpress.svn.sourceforge.net/svnroot/clearpress/branches/prerelease-1.26/lib/ClearPress/decorator.pm $
#
package ClearPress::decorator;
use strict;
use warnings;
use CGI qw(param);
use base qw(Class::Accessor);
our $VERSION = do { my ($r) = q$LastChangedRevision: 342 $ =~ /(\d+)/smx; $r; };
our $DEFAULTS = {
'meta_content_type' => 'text/html',
'meta_version' => '0.1',
'meta_description' => q[],
'meta_author' => q$Author: zerojinx $,
'meta_keywords' => q[clearpress],
'username' => q[],
};
our $ARRAY_FIELDS = {
'jsfile' => 1,
'rss' => 1,
'atom' => 1,
'stylesheet' => 1,
'script' => 1,
};
__PACKAGE__->mk_accessors(__PACKAGE__->fields());
sub fields {
return qw(title stylesheet style jsfile script atom rss
meta_keywords meta_description meta_author meta_version
meta_refresh meta_cookie meta_content_type meta_expires
onload onunload onresize username)
}
sub get {
my ($self, $field) = @_;
if($ARRAY_FIELDS->{$field}) {
my $val = $self->{$field} || $DEFAULTS->{$field} || [];
if(!ref $val) {
$val = [$val];
}
return [map { split /,/smx, $_ } @{$val}];
} else {
return $self->{$field} || $DEFAULTS->{$field};
}
}
sub defaults {
my ($self, $key) = @_;
return $DEFAULTS->{$key};
}
sub new {
my ($class, $ref) = @_;
if(!$ref) {
$ref = {};
}
bless $ref, $class;
return $ref;
}
sub header {
my ($self) = @_;
return $self->http_header() . $self->site_header();
}
sub cookie {
my ($self, @cookies) = @_;
if(scalar @cookies) {
$self->{'cookie'} = \@cookies;
}
return @{$self->{'cookie'}||[]};
}
sub http_header {
my $self = shift;
my @cookies = grep { $_ } ($self->cookie());
my @headers = (q(Content-type: text/html; charset=iso8859-1),
map {
"Set-Cookie: $_";
} @cookies);
return join "\n", @headers, "\n";
}
sub site_header {
my ($self) = @_;
my $cgi = $self->cgi();
my $ss = qq(@{[map {
qq( );
} grep { $_ } @{$self->stylesheet()}]});
if($self->style()) {
$ss .= q();
}
my $rss = qq(@{[map {
qq( \n);
} grep { $_ } @{$self->rss()}]});
my $atom = qq(@{[map {
qq( \n);
} grep { $_ } @{$self->atom()}]});
my $js = qq(@{[map {
qq( \n);
} grep { $_ } @{$self->jsfile()}]});
my $script = qq(@{[map {
qq( \n);
} grep { $_ } @{$self->script()}]});
my $onload = (scalar $self->onload()) ? qq( onload="@{[ join q(;), $self->onload()]}") : q[];
my $onunload = (scalar $self->onunload()) ? qq( onunload="@{[join q(;), $self->onunload()]}") : q[];
my $onresize = (scalar $self->onresize()) ? qq( onresize="@{[join q(;), $self->onresize()]}") : q[];
return qq(
@{[(scalar $self->meta_cookie())?(map { qq( \n) } $self->meta_cookie()):q[]]}@{[$self->meta_refresh()?qq():q[]]}@{[$self->meta_expires()?qq():q[]]}
@{[$self->title || 'ClearPress Application']}
$ss$rss$atom$js$script
\n);
}
sub footer {
return q(