charset results from the CPAN

App-Pods2Site


	my $sbName = $self->getStyleName();
	my $sbCssContent = $self->_getCssContent();

	if ($sbCssContent)
	{
		my $sbCssFile = slashify("$sitedir/$sbName.css");
		writeUTF8File($sbCssFile, $sbCssContent);
	
		my $systemCSSContent = <<SYSCSS;
\@charset "UTF-8";
\@import url($sbName.css);
SYSCSS
 	
		my $inUserCSSFile = $args->getCSS();
		if ($inUserCSSFile)
		{
			my $outUserCSSFile = slashify("$sitedir/user.css");
			copy($inUserCSSFile, $outUserCSSFile) || die("Failed to copy CSS '$inUserCSSFile' => '$outUserCSSFile': $!\n");
			$systemCSSContent .= "\@import url(user.css)";
		}

lib/App/Pods2Site/SiteBuilder/AbstractBasicFrames.pm view on Meta::CPAN


use base qw(App::Pods2Site::AbstractSiteBuilder);

use App::Pods2Site::Util qw(slashify readData writeData writeUTF8File);

use HTML::Entities;

sub _getCssContent
{
	return <<MYCSS;
\@charset "UTF-8";

html
{
	font-family: sans-serif;
	font-size: small;
}

MYCSS
}

lib/App/Pods2Site/SiteBuilder/AbstractBasicFrames.pm view on Meta::CPAN

		$mainspan = qq(<span style="float:left"><a href="$mainpage" target="main_frame" style="font-size:250%;font-weight:bold">$title</a></span>);
		$aboutspan = qq(<span style="float:right"><a href="about.html" target="main_frame" style="font-size:125%;font-weight:bold">about</a></span>);
	}

	my $headerContent = <<HDR;
<!DOCTYPE html>
<html>

	<head>
		<title>Pods2Site header</title>
		<meta http-equiv="Content-Type" content="text/html;charset=UTF-8"/>
		<link href="$sysCssName.css" rel="stylesheet"/>
	</head>

	<body>
		$mainspan
		$aboutspan
	</body>

</html>
HDR

lib/App/Pods2Site/SiteBuilder/AbstractBasicFrames.pm view on Meta::CPAN

	$createdUpdated = "<p>\n\t\t\t<strong>Created/Updated:</strong><br/>$createdUpdated\n\t\t</p>\n";
	
	my $sysCssName = $self->getSystemCssName();
	
	my $aboutContent = <<ABOUT;
<!DOCTYPE html>
<html>

	<head>
		<title>Pods2Site main</title>
		<meta http-equiv="Content-Type" content="text/html;charset=UTF-8"/>
		<link href="$sysCssName.css" rel="stylesheet"/>
	</head>
		
	<body>
		$scannedLocations
		$style
		$actualCSS
		$groupDefs
		$createdUpdated
		$builtBy

lib/App/Pods2Site/SiteBuilder/AbstractBasicFrames.pm view on Meta::CPAN

	$self->_rewriteCss($args);
	
	my $sysCssName = $self->getSystemCssName();

	my $tocContent = <<TOC;
<!DOCTYPE html>
<html>

	<head>
		<title>Pods2Site toc</title>
		<meta http-equiv="Content-Type" content="text/html;charset=UTF-8"/>
		<link href="$sysCssName.css" rel="stylesheet"/>
	</head>
		
	<body>
		$sections
	</body>
	
</html>
TOC

lib/App/Pods2Site/SiteBuilder/AbstractBasicFrames.pm view on Meta::CPAN


	my $sysCssName = $self->getSystemCssName();
	my $title = encode_entities($args->getTitle());
	
	my $indexContent = <<INDEX;
<!DOCTYPE html>
<html>

	<head>
		<title>$title</title>
		<meta http-equiv="Content-Type" content="text/html;charset=UTF-8"/>
		<link href="$sysCssName.css" rel="stylesheet"/>
	</head>
		
	<frameset rows="8%,*">
		<frame src="header.html" name="header_frame" />
		<frameset cols="15%,*">
			<frame src="toc.html" name="toc_frame" />
			<frame src="$mainpage" name="main_frame" />
		</frameset>
	</frameset>

( run in 0.237 second using v1.01-cache-2.11-cpan-4d50c553e7e )