CGI-AppBuilder-HTML
view release on metacpan or search on metacpan
$cgi = $home_url if ! $cgi;
$cgi = $home_loc if ! $cgi;
my $hr = (exists $ar->{html_header}) ? $ar->{html_header} : {};
my $tit = (exists $hr->{-title}) ? $hr->{-title} : "";
my $atr = (exists $hr->{-author}) ? $hr->{-author} : "";
my $tgt = (exists $hr->{-target}) ? $hr->{-target} : "";
my $t = "";
$t .= "Content-Type: text/html\n\n" if $add_ct;
# $t .= '<?xml version="1.0" encoding="iso-8859-1"?>' . "\n";
# $t .= '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"' . "\n";
# $t .= "\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">\n";
# $t .= '<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US">';
$t .= "<html>\n<head>\n";
$t .= " <title>$tit</title>\n" if $tit;
$t .= " <link rev=\"made\" href=\"mailto:$atr\" />\n" if $atr;
$t .= sprintf $f_bs, $cgi, $tgt if $tgt;
foreach my $k (keys %{$hr->{meta}}) {
my $v = $hr->{meta}{$k};
$t .= sprintf $f_ma, $k, $v;
( run in 0.513 second using v1.01-cache-2.11-cpan-49f99fa48dc )