Egg-Release
4 results

 view release on metacpan or  search on metacpan

lib/Egg/Helper/Build/Project.pm  view on Meta::CPAN 

  	font:italic 10pt Times;
  	color:#555;
  	}
---
filename: comp/html-header.tt
filetype: text
value: |
  <%init>
  my $lang= $e->response->content_language;
  </%init>
  <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
              "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  <html xmlns="http://www.w3.org/1999/xhtml" lang="<% $lang %>">
  <head>
  <meta http-equiv="Content-Language" content="<% $lang %>" />
  <meta http-equiv="Content-Type" content="<% $e->response->content_type %>" />
  <title><% $e->page_title %></title>
  <meta http-equiv="Content-Style-Type" content="text/css" />
  <link rel="stylesheet" type="text/css" href="/css/index.css" />
  %
  % if ($s->{load_prototype}) {

lib/Egg/Plugin/Response/Redirect.pm  view on Meta::CPAN 

END_SCRIPT

	my $body_style= $attr->{body_style} || $style->{body};
	my $div_style = $attr->{div_style}  || $style->{div};
	my $h1_style  = $attr->{h1_style}   || $style->{h1};

	my $clang = $res->content_language($c->{content_language} || 'en');
	my $ctype = $res->content_type($c->{content_type} || 'text/html');

	<<END_OF_HTML;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="${clang}">
<head>
<meta http-equiv="content-language" content="${clang}" />
<meta http-equiv="Content-Type" content="${ctype}" />
<meta http-equiv="Content-Style-Type" content="text/css" />
<meta http-equiv="refresh" content="${wait};url=${url}" />
${alert}
<style type="text/css">
body { ${body_style} }

lib/Egg/Util/BlankPage.pm  view on Meta::CPAN 


our $VERSION= '3.00';

sub out {
	my($dispatch, $e)= @_;
	my $version; eval{ $version= $e->VERSION };
	   $version ||= '*.**';
	my $d_class= ref($e->dispatch);
	   $d_class=~s{\:+handler$} [];
	<<END_OF_HTML;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<title>@{[ $e->namespace ]}-${version}</title>
<head>
<style type="text/css">@{[ _style() ]}</style>
</head>
<body>
<div id="shadow"><div id="container">
<div id="banner">
<img alt="Egg - WEB application framework."

lib/Egg/Util/DebugScreen.pm  view on Meta::CPAN 

	if ($param= $e->request->params and %$param) {
		$querys = q{ <div class="querys"><b>Request Querys:</b><table>};
		while (my($key, $value)= each %$param) {
			$querys.= q{<tr><th>}. encode_entities($key, $escape). qq{</th>};
			$value  = encode_entities($value, $escape) unless ref($value);
			$querys.= qq{<td>${value}</td></tr>\n};
		}
		$querys.= q{</table></div>};
	}
	<<END_OF_DISP;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
         "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="@{[
  $res->content_language($e->config->{content_language} || 'en')
  ]}">
<head>
<meta http-equiv="Content-Language" content="@{[ $res->content_language ]}" />
<meta http-equiv="Content-Type" content="@{[
  $res->content_type($e->config->{content_type} || 'text/html')
  ]}" />
<meta http-equiv="Content-Style-Type" content="text/css" />



( run in 0.499 second using v1.01-cache-2.11-cpan-49f99fa48dc )