FWS-V2
view release on metacpan or search on metacpan
lib/FWS/V2/Database.pm view on Meta::CPAN
#
if ( !$paramHash{templateGUID} ) {
( $title, $template, $css, $js, $paramHash{templateGUID} ) = @{$self->runSQL( SQL => "select " . $returnFields . " from templates where guid='" . $self->safeSQL( $defaultGUID ) . "'" )};
}
#
# wtf, still didn't get one yet???? lets build out a basic one so the page will render
#
if ( !$paramHash{templateGUID} ) {
$title = "FWS template";
$template = "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n".
"<html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"en\">\n" .
"<head>\n" .
"#FWSHead#" .
"</head>\n" .
"<body>\n" .
"#FWSMenu#" .
"<div id=\"loc_wrapper\">" .
"<div id=\"loc\">" .
"<div id=\"loc_1_wrapper\">" .
"<div id=\"loc_1\">" .
lib/FWS/V2/Display.pm view on Meta::CPAN
#
# build the cookies for display
#
$cookie .= 'Set-Cookie: ' . $self->{sessionCookieName} . '=' . $self->formValue( 'session' ) . ';' . $cookieDomain . ' Path=/;' . ' Expires=' . $self->formatDate( format => 'cookie', monthMod => 1 ) . "\n";
$cookie .= 'Set-Cookie: fbsr_' . $self->siteValue( 'facebookAppId' ) . '=deleted; Path=/;' . " Expires=Thu, 01-Jan-1970 00:00:01 GMT\n";
#
# simple page rendering
#
if ( $paramHash{head} ) {
$paramHash{content} = "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n<html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"en\">\n<head>\n" . $paramHash{head} . "</hea...
}
#
# always return a 200
#
my $theHeader = "Status: 200 OK\n";
#
# if the contentType doesn't have HTML in it, lets not pass the cookies
#
( run in 0.508 second using v1.01-cache-2.11-cpan-49f99fa48dc )