Result:
found more than 356 distributions - search limited to the first 2001 files matching your query
( run in 2.226 )
Apache-AxKit-Language-Svg2AnyFormat
view release on metacpan or search on metacpan
examples/text.svg view on Meta::CPAN
<?xml version="1.0" encoding= "UTF-8"?>
<svg width="800" height="200" xmlns:drawswf="http://drawswf.sf.net/2002/drawswf" xmlns="http://www.w3.org/2000/svg">
<title>Made with DrawSWF 1.2 (http://drawswf.sf.net)</title>
<text x="85.78616352201257" y="116.80503144654084" font-size="64" font-family="Utopia" fill="#009900" fill-opacity="1.0" drawswf:effect="1">Hello DrawSWF Users!</text>
<rect x="47.0" y="37.0" width="705.0" height="112.0" fill="#ffffff" fill-opacity="0.4980392156862745" stroke="#000099" stroke-width="5.0" stroke-opacity="0.0" stroke-linecap="round"/>
<rect x="51.0" y="34.0" width="701.0" height="111.0" fill="#ffffff" fill-opacity="0.4980392156862745" stroke="#000099" stroke-width="5.0" stroke-opacity="0.0" stroke-linecap="round"/>
<rect x="59.0" y="40.0" width="697.0" height="121.0" fill="#ffffff" fill-opacity="0.4980392156862745" stroke="#000099" stroke-width="5.0" stroke-opacity="0.0" stroke-linecap="round"/>
<rect x="47.0" y="27.0" width="707.0" height="142.0" fill="#ffffff" fill-opacity="0.4980392156862745" stroke="#000099" stroke-width="5.0" stroke-opacity="0.0" stroke-linecap="round"/>
<rect x="39.0" y="30.0" width="737.0" height="122.0" fill="#ffffff" fill-opacity="1.0" stroke="#000099" stroke-width="5.0" stroke-opacity="0.0" stroke-linecap="round"/>
<text x="120.31446540880502" y="129.50943396226413" font-size="96" font-family="Bitstream Charter" fill="#0000ff" fill-opacity="1.0" drawswf:effect="2">How are you?</text>
</svg>
Apache-AxKit-Plugin-Upload
view release on metacpan or search on metacpan
lib/Apache/AxKit/Plugin/Upload.pm view on Meta::CPAN
<title>Upload Status</title>
</head>
<body bgcolor="#ffffff" text="#000000">
<table border="0" width="264" cellspacing="0" cellpadding="1" style="table-layout: fixed;">
<tr>
<td width="40" height="24"><font face="sans-serif">$percent\%</font></td>
<td width="224" height="24" bgcolor="#000000"><table border="0" width="222" cellspacing="0" cellpadding="1" style="table-layout: fixed;" bgcolor="#ffffff">
<tr>
<td height="22"><table border="0" width="$showpercent\%" cellspacing="0" cellpadding="0" style="table-layout: fixed;">
<tr><td height="20" bgcolor="#000080"><font size="-7"> </font></td></tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td> </td>
<td align="center"><font face="sans-serif" size="-1">$sizedone / $sizetotal, ${speed}b/s, $todo</font></td>
</tr>
</table>
<font color="#ffffff"><script language="javascript">window.close()</script></font>
</body>
</html>
EOF
} else {
print FH << "EOF";
lib/Apache/AxKit/Plugin/Upload.pm view on Meta::CPAN
<meta http-equiv="Refresh" CONTENT="1; URL=$location" />
</head>
<body bgcolor="#ffffff" text="#000000">
<table border="0" width="264" cellspacing="0" cellpadding="1" style="table-layout: fixed;">
<tr>
<td width="40" height="24"><font face="sans-serif">$percent\%</font></td>
<td width="224" height="24" bgcolor="#000000"><table border="0" width="222" cellspacing="0" cellpadding="1" style="table-layout: fixed;" bgcolor="#ffffff">
<tr>
<td height="22"><table border="0" width="$showpercent\%" cellspacing="0" cellpadding="0" style="table-layout: fixed;">
<tr><td height="20" bgcolor="#000080"><font size="-7"> </font></td></tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td> </td>
<td align="center"><font face="sans-serif" size="-1">$sizedone / $sizetotal, ${speed}b/s, $todo</font></td>
</tr>
</table>
</body>
</html>
EOF
lib/Apache/AxKit/Plugin/Upload.pm view on Meta::CPAN
<title>Upload Status</title>
</head>
<body bgcolor="#ffffff" text="#000000">
<table border="0" width="264" cellspacing="0" cellpadding="1" style="table-layout: fixed;">
<tr>
<td width="40" height="24"><font face="sans-serif" size="-1">$percent\%</font></td>
<td width="224" height="24" bgcolor="#000000"><table border="0" width="222" cellspacing="0" cellpadding="1" style="table-layout: fixed;" bgcolor="#ffffff">
<tr>
<td height="22"><table border="0" width="$showpercent\%" cellspacing="0" cellpadding="0" style="table-layout: fixed;">
<tr><td height="20" bgcolor="#000080"><font size="-7"> </font></td></tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td> </td>
<td align="center"><font face="sans-serif" size="-1">$message</font></td>
</tr>
</table>
<font color="#ffffff"><script language="javascript">window.close()</script></font>
</body>
</html>
EOF
close($lock);
} else {
lib/Apache/AxKit/Plugin/Upload.pm view on Meta::CPAN
<meta http-equiv="Refresh" CONTENT="1; URL=$location" />
</head>
<body bgcolor="#ffffff" text="#000000">
<table border="0" width="264" cellspacing="0" cellpadding="1" style="table-layout: fixed;">
<tr>
<td width="40" height="24"><font face="sans-serif" size="-1">$percent\%</font></td>
<td width="224" height="24" bgcolor="#000000"><table border="0" width="222" cellspacing="0" cellpadding="1" style="table-layout: fixed;" bgcolor="#ffffff">
<tr>
<td height="22"><table border="0" width="$showpercent\%" cellspacing="0" cellpadding="0" style="table-layout: fixed;">
<tr><td height="20" bgcolor="#000080"><font size="-7"> </font></td></tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td> </td>
<td align="center"><font face="sans-serif" size="-1">$message</font></td>
</tr>
</table>
</body>
</html>
EOF
Apache-AxKit-Provider-OpenOffice
view release on metacpan or search on metacpan
dtds/dialog.dtd view on Meta::CPAN
<!ATTLIST dlg:style dlg:style-id CDATA #REQUIRED
dlg:background-color %numeric; #IMPLIED
dlg:text-color %numeric; #IMPLIED
dlg:fill-color %numeric; #IMPLIED
dlg:border (none|3d|simple) #IMPLIED
dlg:font-name CDATA #IMPLIED
dlg:font-height %numeric; #IMPLIED
dlg:font-width %numeric; #IMPLIED
dlg:font-stylename CDATA #IMPLIED
dlg:font-family (decorative|modern|roman|script|swiss|system) #IMPLIED
dlg:font-charset (ansi|mac|ibmpc_437|ibmpc_850|ibmpc_860|ibmpc_861|ibmpc_863|ibmpc_865|system|symbol) #IMPLIED
dlg:font-pitch (fixed|variable) #IMPLIED
dlg:font-charwidth %numeric; #IMPLIED
dlg:font-weight %numeric; #IMPLIED
dlg:font-slant (oblique|italic|reverse_oblique|reverse_italic) #IMPLIED
dlg:font-underline (single|double|dotted|dash|longdash|dashdot|dashdotdot|smallwave|wave|doublewave|bold|bolddotted|bolddash|boldlongdash|bolddashdot|bolddashdotdot|boldwave) #IMPLIED
dlg:font-strikeout (single|double|bold|slash|x) #IMPLIED
dlg:font-orientation CDATA #IMPLIED
dlg:font-kerning %boolean; #IMPLIED
dlg:font-wordlinemode %boolean; #IMPLIED
dlg:font-type (raster|device|scalable) #IMPLIED
>
<!ELEMENT script:event EMPTY>
<!ATTLIST script:event script:location CDATA #IMPLIED
script:language CDATA #REQUIRED
Apache-BabyConnect
view release on metacpan or search on metacpan
eg/perl/onemore.pl view on Meta::CPAN
<!--
.footer { padding-right: 5px;
padding-left: 5px;
padding-bottom: 5px;
padding-top: 5px;
font-size: 100%;
border-top: #ffffff 1px solid;
border-bottom: #ffffff 1px solid;
background: #e5ecf9;
text-align: center;
font-family: arial,sans-serif;
}
-->
</style>
</head>
Apache-Blog
view release on metacpan or search on metacpan
templates/lightblue/entry-template.html view on Meta::CPAN
<head>
<title>my diary...</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
body { background-color: #99CCFF; font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px}
.lightblue { background-color: #D2E9FF; font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; border: 1px #999999 dashed; text-align: justify; padding-top: 5px; padding-right: 5px; padding-bottom: 5px; padding-left: 5px}
-->
</style>
</head>
<body bgcolor="#FFFFFF" text="#000000" tracingsrc="../simpleblue.png" tracingopacity="26">
Apache-CVS
view release on metacpan or search on metacpan
apache_cvs.css view on Meta::CPAN
body {
color: black;
}
a.path_link {
font-size: large;
}
a:link, a:visited {
color: blue;
text-decoration: none;
Apache-DAV
view release on metacpan or search on metacpan
eg/props.epl view on Meta::CPAN
}
-]
<html>
<head>
<style type="text/css">
.cBody {font-family: Geneva,Arial,Helvetica; font-size: 12px; }
.cInputTable {font-family: Geneva,Arial,Helvetica; font-size: 12px; margin: 4px 4px 4px 4px;}
</style>
</head>
<body>
[$if $patchtext $]
Apache-DnsZone
view release on metacpan or search on metacpan
lib/Apache/DnsZone.pm view on Meta::CPAN
$tpl->assign(NEW_PASSWORD_VALUE => encode_entities(apr()->param('password')));
$tpl->assign(CONFIRM_PASSWORD_VALUE => encode_entities(apr()->param('password_confirm')));
if (!($user_email = check_email($user_email))) {
$tpl->assign(EMAIL => qq{<font color="red">} . $lang{EMAIL} . qq{</font>});
}
if (!check_lang($lang_id)) {
$tpl->assign(LANGUAGE => qq{<font color="red">} . $lang{LANGUAGE} . qq{</font>});
}
if (apr()->param('password') && apr()->param('password') ne '' && apr()->param('password_confirm') && apr()->param('password_confirm') ne '') {
if (!(apr()->param('password') eq apr()->param('confirm_password'))) {
$tpl->assign(NEW_PASSWORD => qq{<font color="red">} . $lang{NEW_PASSWORD} . qq{</font>});
$tpl->assign(CONFIRM_PASSWORD => qq{<font color="red">} . $lang{CONFIRM_PASSWORD} . qq{</font>});
}
}
if ((apr()->param('password') && !apr()->param('password_confirm')) || (!apr()->param('password') && apr()->param('password_confirm'))) {
$tpl->assign(NEW_PASSWORD => qq{<font color="red">} . $lang{NEW_PASSWORD} . qq{</font>});
$tpl->assign(CONFIRM_PASSWORD => qq{<font color="red">} . $lang{CONFIRM_PASSWORD} . qq{</font>});
}
$tpl->parse(MENU => "menu");
$tpl->parse(MAIN => ["settings", "layout"]);
lib/Apache/DnsZone.pm view on Meta::CPAN
# do the red-marker assignment
# and the error text getting
my $error_text = $lang{ERROR_CORRECT};
if (!($ip = check_ip($ip))) {
$tpl->assign(IP_ADDRESS => qq{<font color="red">} . $lang{IP_ADDRESS} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_IP}};
}
if (!($host = check_fqdn(apr()->param('host'), $domain))) {
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_HOST}};
}
if (!check_ttl($ttl)) {
$tpl->assign(TTL => qq{<font color="red">} . $lang{TTL} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_TTL}};
}
# check_before_add_A
if ($all_set) {
# this means check_before_add_A failed!
# text for error?
$tpl->assign(IP_ADDRESS => qq{<font color="red">} . $lang{IP_ADDRESS} . qq{</font>});
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_DUPLICATE}};
}
$tpl->assign(EXPLANATION => $error_text);
$tpl->assign(DOM_ID => $dom_id);
lib/Apache/DnsZone.pm view on Meta::CPAN
# do the red-marker assignment
# and the error text getting
my $error_text = $lang{ERROR_CORRECT};
if (!ip_is_ipv6($ipv6)) {
$tpl->assign(IPV6_ADDRESS => qq{<font color="red">} . $lang{IPV6_ADDRESS} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_IPV6}};
}
if (!($host = check_fqdn(apr()->param('host'), $domain))) {
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_HOST}};
}
if (!check_ttl($ttl)) {
$tpl->assign(TTL => qq{<font color="red">} . $lang{TTL} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_TTL}};
}
# check_before_add_AAAA
if ($all_set) {
# this means check_before_add_AAAA failed!
# text for error?
$tpl->assign(IPV6_ADDRESS => qq{<font color="red">} . $lang{IPV6_ADDRESS} . qq{</font>});
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_DUPLICATE}};
}
$tpl->assign(EXPLANATION => $error_text);
$tpl->assign(DOM_ID => $dom_id);
lib/Apache/DnsZone.pm view on Meta::CPAN
$tpl->assign(TTL_VALUE => encode_entities(apr()->param('ttl')));
my $error_text = $lang{ERROR_CORRECT};
if (!check_cname_host($cname)) {
$tpl->assign(CNAME => qq{<font color="red">} . $lang{CNAME} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_CNAME}};
}
if (!($host = check_fqdn(apr()->param('host'), $domain))) {
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_HOST}};
}
if (!check_ttl($ttl)) {
$tpl->assign(TTL => qq{<font color="red">} . $lang{TTL} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_TTL}};
}
if ($all_set) {
# means check_before_add_CNAME failed
$tpl->assign(CNAME => qq{<font color="red">} . $lang{CNAME} . qq{</font>});
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_DUPLICATE}};
}
$tpl->assign(EXPLANATION => $error_text);
$tpl->assign(DOM_ID => $dom_id);
lib/Apache/DnsZone.pm view on Meta::CPAN
$tpl->assign(TTL_VALUE => encode_entities(apr()->param('ttl')));
my $error_text = $lang{ERROR_CORRECT};
if (!($host = check_fqdn(apr()->param('host'), $domain))) {
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_HOST}};
}
if (!check_exchanger($exchanger)) {
$tpl->assign(MX => qq{<font color="red">} . $lang{MX} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_MX}};
}
if (!check_preference($preference)) {
$tpl->assign(PREFERENCE => qq{<font color="red">} . $lang{PREFERENCE} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_PREFERENCE}};
}
if (!check_ttl($ttl)) {
$tpl->assign(TTL => qq{<font color="red">} . $lang{TTL} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_TTL}};
}
if ($all_set) {
# means check_before_add_MX failed
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$tpl->assign(PREFERENCE => qq{<font color="red">} . $lang{PREFERENCE} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_DUPLICATE}};
}
$tpl->assign(EXPLANATION => $error_text);
$tpl->assign(DOM_ID => $dom_id);
lib/Apache/DnsZone.pm view on Meta::CPAN
$tpl->assign(TTL_VALUE => encode_entities(apr()->param('ttl')));
my $error_text = $lang{ERROR_CORRECT};
if (!($zone = check_fqdn_ns(apr()->param('zone'), $domain))) {
$tpl->assign(ZONE => qq{<font color="red">} . $lang{ZONE} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_ZONE}};
}
if (!check_nameserver($nameserver)) {
$tpl->assign(NS => qq{<font color="red">} . $lang{NS} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_NS}};
}
if (!check_ttl($ttl)) {
$tpl->assign(TTL => qq{<font color="red">} . $lang{TTL} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_TTL}};
}
if ($all_set) {
$tpl->assign(ZONE => qq{<font color="red">} . $lang{ZONE} . qq{</font>});
$tpl->assign(NS => qq{<font color="red">} . $lang{NS} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_DUPLICATE}};
}
$tpl->assign(EXPLANATION => $error_text);
lib/Apache/DnsZone.pm view on Meta::CPAN
# do the red-marker assignment
# and the error text getting
my $error_text = $lang{ERROR_CORRECT};
if (!(check_host(apr()->param('host')))) {
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_HOST}};
}
if (!($host = check_reverse(apr()->param('reverse'), $domain))) {
$tpl->assign(REVERSE => qq{<font color="red">} . $lang{REVERSE} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_REVERSE}};
}
if (!check_ttl($ttl)) {
$tpl->assign(TTL => qq{<font color="red">} . $lang{TTL} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_TTL}};
}
# check_before_add_PTR
if ($all_set) {
# this means check_before_add_PTR failed!
# text for error?
$tpl->assign(REVERSE => qq{<font color="red">} . $lang{REVERSE} . qq{</font>});
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_DUPLICATE}};
}
$tpl->assign(EXPLANATION => $error_text);
$tpl->assign(DOM_ID => $dom_id);
lib/Apache/DnsZone.pm view on Meta::CPAN
$tpl->assign(TTL_VALUE => encode_entities(apr()->param('ttl')));
my $error_text = $lang{ERROR_CORRECT};
if (!($host = check_fqdn(apr()->param('host'), $domain))) {
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_HOST}};
}
if (!check_txt($txtdata)) {
$tpl->assign(TXT => qq{<font color="red">} . $lang{TXT} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_TXT}};
}
if (!check_ttl($ttl)) {
$tpl->assign(TTL => qq{<font color="red">} . $lang{TTL} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_TTL}};
}
if ($all_set) {
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$tpl->assign(TXT => qq{<font color="red">} . $lang{TXT} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_DUPLICATE}};
}
$tpl->assign(EXPLANATION => $error_text);
lib/Apache/DnsZone.pm view on Meta::CPAN
$tpl->assign(SERIAL_VALUE => $serial);
my $error_text = $lang{ERROR_CORRECT};
if (!check_ttl($refresh)) {
$tpl->assign(REFRESH => qq{<font color="red">} . $lang{REFRESH} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_REFRESH}};
}
if (!check_ttl($retry)) {
$tpl->assign(RETRY => qq{<font color="red">} . $lang{RETRY} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_RETRY}};
}
if (!check_ttl($expire)) {
$tpl->assign(EXPIRE => qq{<font color="red">} . $lang{EXPIRE} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_EXPIRE}};
}
if (!check_ttl($default_ttl)) {
$tpl->assign(TTL => qq{<font color="red">} . $lang{TTL} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_TTL}};
}
if (!($soa_email = check_email($soa_email))) {
$tpl->assign(ADMIN_EMAIL => qq{<font color="red">} . $lang{ADMIN_EMAIL} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_ADMIN_EMAIL}};
}
if ($soa_email =~ /\..*?\@/) {
# is there a dot before the @ => invalid for a soa email
$tpl->assign(ADMIN_EMAIL => qq{<font color="red">} . $lang{ADMIN_EMAIL} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_ADMIN_EMAIL}};
}
$tpl->assign(EXPLANATION => $error_text);
lib/Apache/DnsZone.pm view on Meta::CPAN
# do the red-marker assignment
my $error_text = $lang{ERROR_CORRECT};
if (!($ip = check_ip(apr()->param('ip')))) {
$tpl->assign(IP_ADDRESS => qq{<font color="red">} . $lang{IP_ADDRESS} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_IP}};
}
if (!($host = check_fqdn(apr()->param('host'), $domain))) {
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_HOST}};
}
if (!check_ttl($ttl)) {
$tpl->assign(TTL => qq{<font color="red">} . $lang{TTL} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_TTL}};
}
if ($all_set) {
$tpl->assign(IP_ADDRESS => qq{<font color="red">} . $lang{IP_ADDRESS} . qq{</font>});
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_DUPLICATE}};
}
$tpl->assign(EXPLANATION => $error_text);
lib/Apache/DnsZone.pm view on Meta::CPAN
# do the red-marker assignment
my $error_text = $lang{ERROR_CORRECT};
if (!ip_is_ipv6($ipv6)) {
$tpl->assign(IPV6_ADDRESS => qq{<font color="red">} . $lang{IPV6_ADDRESS} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_IPV6}};
}
if (!($host = check_fqdn(apr()->param('host'), $domain))) {
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_HOST}};
}
if (!check_ttl($ttl)) {
$tpl->assign(TTL => qq{<font color="red">} . $lang{TTL} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_TTL}};
}
if ($all_set) {
$tpl->assign(IPV6_ADDRESS => qq{<font color="red">} . $lang{IPV6_ADDRESS} . qq{</font>});
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_DUPLICATE}};
}
$tpl->assign(EXPLANATION => $error_text);
lib/Apache/DnsZone.pm view on Meta::CPAN
$tpl->assign(TTL_VALUE => encode_entities(apr()->param('ttl')));
my $error_text = $lang{ERROR_CORRECT};
if (!check_cname_host($cname)) {
$tpl->assign(CNAME => qq{<font color="red">} . $lang{CNAME} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_CNAME}};
}
if (!($host = check_fqdn(apr()->param('host'), $domain))) {
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_HOST}};
}
if (!check_ttl($ttl)) {
$tpl->assign(TTL => qq{<font color="red">} . $lang{TTL} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_TTL}};
}
if ($all_set) {
$tpl->assign(CNAME => qq{<font color="red">} . $lang{CNAME} . qq{</font>});
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_DUPLICATE}};
}
$tpl->assign(EXPLANATION => $error_text);
lib/Apache/DnsZone.pm view on Meta::CPAN
$tpl->assign(TTL_VALUE => encode_entities(apr()->param('ttl')));
my $error_text = $lang{ERROR_CORRECT};
if (!($host = check_fqdn(apr()->param('host'), $domain))) {
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_HOST}};
}
if (!check_exchanger($exchanger)) {
$tpl->assign(MX => qq{<font color="red">} . $lang{MX} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_MX}};
}
if (!check_preference($preference)) {
$tpl->assign(PREFERENCE => qq{<font color="red">} . $lang{PREFERENCE} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_PREFERENCE}};
}
if (!check_ttl($ttl)) {
$tpl->assign(TTL => qq{<font color="red">} . $lang{TTL} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_TTL}};
}
if ($all_set) {
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$tpl->assign(PREFERENCE => qq{<font color="red">} . $lang{PREFERENCE} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_DUPLICATE}};
}
$tpl->assign(EXPLANATION => $error_text);
lib/Apache/DnsZone.pm view on Meta::CPAN
$tpl->assign(TTL_VALUE => encode_entities(apr()->param('ttl')));
my $error_text = $lang{ERROR_CORRECT};
if (!($zone = check_fqdn_ns(apr()->param('zone'), $domain))) {
$tpl->assign(ZONE => qq{<font color="red">} . $lang{ZONE} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_ZONE}};
}
if (!check_nameserver($nameserver)) {
$tpl->assign(NS => qq{<font color="red">} . $lang{NS} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_NS}};
}
if (!check_ttl($ttl)) {
$tpl->assign(TTL => qq{<font color="red">} . $lang{TTL} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_TTL}};
}
if ($all_set) {
$tpl->assign(ZONE => qq{<font color="red">} . $lang{ZONE} . qq{</font>});
$tpl->assign(NS => qq{<font color="red">} . $lang{NS} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_DUPLICATE}};
}
$tpl->assign(EXPLANATION => $error_text);
lib/Apache/DnsZone.pm view on Meta::CPAN
# do the red-marker assignment
my $error_text = $lang{ERROR_CORRECT};
if (!(check_host(apr()->param('host')))) {
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_IP}};
}
if (!($host = check_reverse(apr()->param('reverse'), $domain))) {
$tpl->assign(REVERSE_HOST => qq{<font color="red">} . $lang{REVERSE_HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_REVERSE}};
}
if (!check_ttl($ttl)) {
$tpl->assign(TTL => qq{<font color="red">} . $lang{TTL} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_TTL}};
}
if ($all_set) {
$tpl->assign(REVERSE_HOST => qq{<font color="red">} . $lang{REVERSE_HOST} . qq{</font>});
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_DUPLICATE}};
}
$tpl->assign(EXPLANATION => $error_text);
lib/Apache/DnsZone.pm view on Meta::CPAN
$tpl->assign(TTL_VALUE => encode_entities(apr()->param('ttl')));
my $error_text = $lang{ERROR_CORRECT};
if (!($host = check_fqdn(apr()->param('host'), $domain))) {
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_HOST}};
}
if (!check_txt($txtdata)) {
$tpl->assign(TXT => qq{<font color="red">} . $lang{TXT} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_TXT}};
}
if (!check_ttl($ttl)) {
$tpl->assign(TTL => qq{<font color="red">} . $lang{TTL} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_TTL}};
}
if ($all_set) {
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$tpl->assign(TXT => qq{<font color="red">} . $lang{TXT} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_DUPLICATE}};
}
$tpl->assign(EXPLANATION => $error_text);
Apache-FileManager
view release on metacpan or search on metacpan
FileManager.pm view on Meta::CPAN
return ("
<STYLE TYPE='text/css'>
<!--
BODY {
background-color: white;
font-family: serif;
margin-top: 0;
margin-right: 0;
margin-bottom: 0;
margin-left: 0;
padding-top: 0;
Apache-GDGraph
view release on metacpan or search on metacpan
lib/Apache/GD/Graph.pm view on Meta::CPAN
#
## In megs:
#PerlSetVar CacheSize 5242880
#PerlSetVar ImageType png
#PerlSetVar JpegQuality 75 # 0 to 100
#PerlSetVar TTFFontPath /usr/ttfonts:
#/var/ttfonts:/usr/X11R6/lib/X11/fonts/ttf/:
#/usr/X11R6/lib/X11/fonts/truetype/:
#/usr/share/fonts/truetype
</Location>
Then send requests to:
http://www.server.com/chart?type=lines&
lib/Apache/GD/Graph.pm view on Meta::CPAN
Make sure to use C<cache=0> or C<PerlSetVar CacheSize 0> when debugging,
otherwise you will spend hours being very confused.
=head1 FONTS
GD::Graph has some options that take a font description, such as title_font,
legend_font, etc. (these map to the appropriate set_FOO methods in GD::Graph,
see that manpage).
The following fonts are built-in to GD, these strings will resolve into the
appropriate fonts except when quoted:
gdSmallFont, gdLargeFont, gdMediumBoldFont, gdTinyFont, gdGiantFont
There is also a way to use your own True Type Fonts. See the TTFFontPath
variable under SYNOPSIS for how to set the search path for fonts. MAKE SURE
your fonts are readable by the user the Apache server runs under, this is
usually "www-data" or "nobody". Otherwise your fonts will mysteriously fail
with no notice.
Fonts can also be specified as a relative path to the DocumentRoot of the
server, these must begin with "../". For example, if you have a directory
"fonts" under DocumentRoot, then you might specify a font like so:
../fonts/arial.ttf
If DocumentRoot happens to be C</var/www> then the font that will be looked up
is C</var/www/fonts/arial.ttf>.
Sizes can be specified by using a list with the name and size. For example, if
arial.ttf can be found somewhere in your TTFFontPath, you can do:
...title_font=(arial.ttf,20)
To get a title using font Arial, in 20 points.
Note that GD::Text does not parse out the names of fonts and such, you have to
give it an actual filename, matches are case-insensitive. So if using the
Microsoft Windows core fonts, Arial Bold would be C<arialbd.ttf>. Here's an
example:
http://server/chart?data1=[1,2,3,4,5]&
title_font=(arialbd.ttf,20)&
title=Just%20A%20Line
=head1 COLORS
All colors, including those specified for the captionN option, are specified
lib/Apache/GD/Graph.pm view on Meta::CPAN
image if necessary, making it more convenient for this purpose. The file or URL
can be of any type your copy of GD supports.
=item B<captionN>
Draws a character string using a TrueType font at an arbitrary location. Takes
an array of
C<($fgcolor,$fontname,$ptsize,$angle,$x,$y,$string[,$box_color,$box_offset])>
where $fgcolor is the foreground color, $fontname is the name of a TTF font see
L</FONTS> , $ptsize is the point size, $x and $y are the coordinates, and
$string is the actual characters to draw.
$box_color and $box_offset are optional parameters, if set the caption will be
drawn with a box around it in that color and that distance from the caption
string. The default offset of 9 should work well in most cases.
N is an integer from 1 onward, like for the dataN option. This lets you specify
multiple strings to draw.
B<Note:> you cannot use builtin GD fonts like gdTinyFont for captions, you have
to use a real TTF font.
This uses the GD stringTTF method, see L<GD>. Colour names are indexed using
the GD::Graph::colour builtins (see above), fonts are resolved by font path or
relative to DocumentRoot, parameters are processed as per L</DATA TYPES>.
Angle is in degrees, you will primarily use angle C<0> for normal left-to-right
text. $x and $y are pixel coordinates from the upper left corner. $fontname is
the name of a true-type font that will be found in the font path L</FONTS>.
Example:
http://isis/chart?data1=[1,2,3,4,5]&
caption1=(1,arial.ttf,9,0,30,30,Hello,red)
lib/Apache/GD/Graph.pm view on Meta::CPAN
=item B<http://somewhere/file.png>
Is pulled into a file and the file name is passed to the respective option.
(Can be any scheme besides http:// that LWP::Simple supports.)
=item B<../fonts/arial.ttf>
Paths following this pattern will be interpreted as paths relative to
DocumentRoot of the web server.
=item B<gdSmallFont, gdLargeFont, gdMediumBoldFont, gdTinyFont, gdGiantFont,
lib/Apache/GD/Graph.pm view on Meta::CPAN
use constant SECONDS_IN_DAY => 24 * 60 * 60;
use constant EXPIRES => 30;
use constant CACHE_SIZE => 5242880;
use constant IMAGE_TYPE => 'png';
use constant TTF_FONT_PATH => '/usr/ttfonts:/var/ttfonts:/usr/X11R6/lib/X11/fonts/ttf/:/usr/X11R6/lib/X11/fonts/truetype/:/usr/share/fonts/truetype';
use constant DEFAULT_TYPE => 'lines';
use constant DEFAULT_WIDTH => 400;
use constant DEFAULT_HEIGHT => 300;
lib/Apache/GD/Graph.pm view on Meta::CPAN
# init()
#
# Called only once on the first request received. May be called once per child
# in Apache.
sub init() {
# Set the GD::Text fontpath.
GD::Text->font_path ($r->dir_config('TTFFontPath') || TTF_FONT_PATH);
$cache_size = $r->dir_config('CacheSize');
$cache_size = CACHE_SIZE if $cache_size <= 0;
lib/Apache/GD/Graph.pm view on Meta::CPAN
# Argument 1 is the color, have to resolve GD::Graph::colour builtins into
# indexes on the GD image.
$caption->[0] = resolveColor($graph => $caption->[0]);
# Argument 2 to caption is the font name, GD expects a full path.
$caption->[1] = findFont($caption->[1]);
my @bounds = $image->stringTTF(@$caption[0..6]);
die "Could not draw caption: @{[ join ', ', @$caption ]}: $@" if $@;
lib/Apache/GD/Graph.pm view on Meta::CPAN
# First strips quotes off the ends of $value. Then checks whether $value is a
# URL, and if so, fetches it into a file and returns the (TYPE_URL, file_name),
# otherwise returns (TYPE_SCALAR, $value).
#
# Will also parse paths relative to DocumentRoot, for example
# ../fonts/arial.ttf.
sub parseElement ($;$) {
$_ = shift;
my $dir = shift || '/tmp';
if (defined(my $constant = GD_CONSTANTS->{$_})) {
lib/Apache/GD/Graph.pm view on Meta::CPAN
$r->send_http_header("text/html");
$r->print(<<"EOF");
<html>
<head></head>
<body bgcolor="lightblue">
<font color="red"><h1>Error:</h1></font>
<p>
$message
<p>
The Request was:<br>
@{[ $r->the_request ]}
lib/Apache/GD/Graph.pm view on Meta::CPAN
$r->log_error (__PACKAGE__.': '.$r->the_request.': '.$message);
}
# findFont ($basename)
#
# Searches the true type font path for a file, returns the first match.
#
# Returns undef if no font was found.
sub findFont ($) {
my $name = shift || return undef;
# Don't need to search for qualified file names or font objects.
return $name
if ($name =~ m!^/!) || (ref $name);
my @path = map { m!(.*?)/*$! } split /:/, GD::Text->font_path;
for my $path (@path) {
for my $font (<$path/*>) {
return $font if $font =~ m!/$name$!i;
}
}
}
# resolveColor ($gd_graph_object, $color_name)
Apache-Gallery
view release on metacpan or search on metacpan
lib/Apache/Gallery.pm view on Meta::CPAN
log_error("GalleryTTFFile $GalleryTTFFile was not found\n");
} else {
$GalleryTTFFile =~ s/\.TTF$//i;
$image->add_font_path("$GalleryTTFDir");
$image->load_font("$GalleryTTFFile/$GalleryTTFSize");
my($text_x, $text_y) = $image->get_text_size("$GalleryCopyrightText");
my $x = $image->get_width();
my $y = $image->get_height();
my $offset = 3;
lib/Apache/Gallery.pm view on Meta::CPAN
The default is '\.(mpe?g|avi|mov|asf|wmv|doc|mp3|ogg|pdf|rtf|wav|dlt|txt|html?|csv|eps)$'
=item B<GalleryTTFDir>
To use the GalleryCopyrightText feature you must set this option to the
directory where your True Type fonts are stored. No default is set.
Example:
PerlSetVar GalleryTTFDir '/usr/share/fonts/'
=item B<GalleryTTFFile>
To use the GalleryCopyrightText feature this option must be set to the
name of the True Type font you wish to use. Example:
PerlSetVar GalleryTTFFile 'verdanab.ttf'
=item B<GalleryTTFSize>
Apache-ImageMagick
view release on metacpan or search on metacpan
ImageMagick.pm view on Meta::CPAN
qw (antialias adjoin authenticate
background blue-primary bordercolor
cache-threshold colormap colorspace compression
debug delay density depth dispose dither display
endian
filename file fill font fuzz
gravity green-primary
index iterations interlace
loop
magick mattecolor matte monochrome
page pen pixel pointsize preview
ImageMagick.pm view on Meta::CPAN
dispose
dither
display
file
filename
font
fuzz
green-primary
index
interlace
iterations
ImageMagick.pm view on Meta::CPAN
PerlSetVar AIMCacheDir /var/aimcache
</Location>
Then request
http://localhost/images/whatever.gif/Annotate?font=Arial&x=5&gravity=west&text=Hello+world+!
http://localhost/images/whatever.jpg
=head1 DESCRIPTION
ImageMagick.pm view on Meta::CPAN
http://localhost/images/whatever.jpg/Frame/Shade?Frame:color=gold&Shade:color=true&Set:quality=10
The C<AIMParameter> configuration diretive can be used to set defaults and/or force
parameters values. So you can say
PerlSetVar AIMParameter "font=/usr/images/fonts/arial.ttf !color=red"
By prefixing the parameter with an !, the parameter values is foreced, so it
can't be overridden by parameters passed to the hanlder via th URI.
=head2 Caching
ImageMagick.pm view on Meta::CPAN
script was executed. So it is able to force some default values.
Both sort of scripts takes four parameters. The Apache request record, the Image::Magick
object of the loaded image, an arrayref which contains the names of all filters and a
hashref that contains all arguments. You can use the Apache object to retrives any
information about the request. You can make any operation on the image object and you
can modify the filters and arguments parameters. Here is an example that forces any fontname
to be searched in a certain directory with the extention ttf. This actualy causes
Image::Magick to use true type fonts:
use constant FONTPATH => '/usr/images/fonts/' ;
use constant FONTDEFAULT => 'arial' ;
my ($r, $image, $filters, $args) = @_ ;
my $font ;
if ($args->{font})
{
$args->{font} =~ m#(^|.*/)([a-zA-z0-9_]+)# ;
$font = $2 ;
}
else
{
$font = FONTDEFAULT ;
}
$args -> {font} = FONTPATH . $font . '.ttf' ;
1 ;
=head2 Createing images from scratch
ImageMagick.pm view on Meta::CPAN
$image->Set(size=>'30x105');
$image->Read('gradient:#00f685-#0083f8');
$image->Rotate(-90);
$image->Raise('6x6');
$image->Annotate(text=>'Push Me',font=>'/usr/fonts/arial.ttf',fill=>'black',
gravity=>'Center',pointsize=>18);
1 ;
Of course you can run normal filters on such a created image, so you might like to use
ImageMagick.pm view on Meta::CPAN
$image->Rotate(-90);
$image->Raise('6x6');
push @$filters, 'Annotate' ;
$args -> {font} = '/usr/fonts/arial.ttf' ;
$args -> {gravity} = 'Center' ;
$args -> {pointsize} = 18 ;
1 ;
ImageMagick.pm view on Meta::CPAN
parameters values. It contains a space spearated list of parameter values pairs. If you
need spaces inside your values, you have to quote the parameter/value pair.
Example:
PerlSetVar AIMParameter "font=/usr/images/fonts/arial.ttf !color=red"
By prefixing the parameter with an !, the parameter values is foreced, so it
can't be overridden by parameters passed to the hanlder via th URI. If there is no !
then the parameter acts as a default value.
Apache-ImgIndex
view release on metacpan or search on metacpan
ImgIndex.pm view on Meta::CPAN
output(
qq|<TABLE border=0 bgcolor="#CCCCCC">\n|,
qq| <TR><TD>\n|,
qq| <TABLE border=0 cellpadding=0 cellspacing=0 width="100%">\n|,
qq| <TR><TD align="center" bgcolor="#AAAAAA"><font size="+1"><b>$dirName</font></b></TD></TR>\n|,
qq| </TABLE>\n\n|,
);
my($w, $h) = split('x', $gOptions{'thumb-size'});
ImgIndex.pm view on Meta::CPAN
last if($counter == ($perpage - 1));
$counter++;
}
} else {
output( qq|<tr><td align="center"><font size="+2"><b>No Images Available</b></font</td></tr>\n|);
}
output(qq| </TABLE>\n\n|,);
ImgIndex.pm view on Meta::CPAN
output(qq| <option value="$index">page $pagenum\n|);
}
output(
qq| </SELECT><BR>\n|,
qq| <font size="-1"><i>Total: </i>|, scalar @filelist, qq| images</font>\n|,
qq| </FORM>\n|,
qq| </TD>\n|
);
}
Apache-MP3-Skin
view release on metacpan or search on metacpan
apache_mp3/default.tmpl view on Meta::CPAN
<td align=left>
<table cellpadding=3 cellspacing=0 border=0>
<tr>
<td> </td>
<TMPL_UNLESS NAME="IS_HOME">
<td bgcolor=cccccc> <a href="<TMPL_VAR NAME=HOME_PATH><TMPL_IF NAME=PARAM_plopen>?plopen=1</TMPL_IF>"><b><font color=black size=2 face=arial><TMPL_VAR NAME=HOME_LABEL></font></b></a> </td>
<TMPL_ELSE>
<td bgcolor=333333> <b><font color=white size=2 face=arial><TMPL_VAR NAME=HOME_LABEL></font></b> </td>
</TMPL_UNLESS>
</tr>
</table>
</td>
<td align=right>
<table cellpadding=3 cellspacing=0 border=0>
<tr>
<TMPL_UNLESS NAME=IS_HOME>
<TMPL_LOOP NAME=HOME_DIRS>
<TMPL_IF NAME=IS_DIR_THIS_DIR>
<td align=center width=1 bgcolor=333333> <b><font color=white size=2 face=arial><TMPL_VAR NAME=THIS_DIR></font></b> </td>
<TMPL_ELSE>
<TMPL_IF NAME=IS_DIR_INSIDE_THIS_DIR>
<td align=center width=1 bgcolor=333333> <b><font color=white size=2 face=arial><TMPL_VAR NAME=THIS_DIR></font></b> </td>
<TMPL_ELSE>
<td align=center width=1 bgcolor=cccccc> <a href="<TMPL_VAR NAME=THIS_URL><TMPL_IF NAME=PARAM_plopen>?plopen=1</TMPL_IF>"><b><font color=black size=2 face=arial><TMPL_VAR NAME=THIS_DIR></font></b></a> </td>
</TMPL_IF>
</TMPL_IF>
<td> </td>
</TMPL_LOOP>
<TMPL_ELSE>
<TMPL_LOOP NAME=HOME_DIRS>
<td align=center width=1 bgcolor=cccccc> <a href="<TMPL_VAR NAME=THIS_URL><TMPL_IF NAME=PARAM_plopen>?plopen=1</TMPL_IF>"><b><font color=black size=2 face=arial><TMPL_VAR NAME=THIS_DIR></font></b></a> </td>
<td> </td>
</TMPL_LOOP>
</TMPL_UNLESS>
</tr>
</table>
apache_mp3/default.tmpl view on Meta::CPAN
<tr><td align=center valign=middle>
<table cellpadding=2 border=0 cellspacing=0 bgcolor=999966 width=60% height=60%>
<tr><td>
<table cellpadding=20 border=0 cellspacing=0 bgcolor=ffffcc width=100% height=100%>
<tr><td align=center>
<font size=6 face=arial color=663300><b><TMPL_VAR NAME=HOME_LABEL></b></font>
<br><br><font color=663300 size=4 face=arial>
<TMPL_LOOP NAME=DIRS>
<a href="<TMPL_VAR NAME=THIS_URL><TMPL_IF NAME=PARAM_plopen>?plopen=1</TMPL_IF>" style="color:663300;"><b><TMPL_VAR NAME=THIS_DIR></b></a><br><br>
</TMPL_LOOP>
</font>
</td></tr>
<tr><td align=center>
<font style="font-size:9pt" color=333333 face=arial>
Find this skin and others at <a href="http://www.apachemp3.com" style="color:black;" onmouseover="this.style.background='cccccc';" onmouseout="this.style.background='';">apachemp3.com</a>.<br>
Apache::MP3 was written by <a href="http://stein.cshl.org/" style="color:black;" onmouseover="this.style.background='cccccc';" onmouseout="this.style.background='';">Lincoln D. Stein</a>.<br>
Apache::MP3::Skin was written by <a href="mailto: rgraff@apachemp3.com" style="color:black;" onmouseover="this.style.background='cccccc';" onmouseout="this.style.background='';">Robert Graff</a> at <a href="http://www.workingdemo.com"...
Reports bugs with Apache::MP3::Skin or this skin to our <a href="http://www.apachemp3.com/bugs.html" style="color:black;" onmouseover="this.style.background='cccccc';" onmouseout="this.style.background='';">bugtracker</a></td>
</font>
</td></tr>
</table>
</td></tr>
</table>
</td></tr>
apache_mp3/default.tmpl view on Meta::CPAN
<tr><td align=center>
<!-- Begin Table with Breadcrumb Trail and Album Cover-->
<table cellpadding=0 cellspacing=14 border=0 width=100%>
<tr>
<td>
<font face=arial size=3 color=663300><b>
<TMPL_LOOP NAME=PATH_FORWARD>
<ul style="list-style-type: none; ">
<li><TMPL_UNLESS NAME=__FIRST__><img src="<TMPL_VAR NAME=BASE_DIR>/default/down_and_right_arrow.gif">
</TMPL_UNLESS>
<TMPL_UNLESS NAME=__LAST__>
apache_mp3/default.tmpl view on Meta::CPAN
</TMPL_LOOP>
<TMPL_LOOP NAME=PATH_FORWARD>
</ul>
</TMPL_LOOP>
</b></font>
</td>
<TMPL_IF NAME=COVER>
<td align=right>
<img src="<TMPL_VAR NAME=COVER>" width=100 height=100>
</td>
apache_mp3/default.tmpl view on Meta::CPAN
</TMPL_IF>
</td>
<td colspan=4>
<table cellpadding=4 border=0 cellspacing=0 width=100%>
<tr><td>
<font style="font-family:arial; color:white;font-size:12pt; font-weight:bold;">
Your Playlist Contains <TMPL_VAR NAME=CONTAINS_PLAYLIST> Song(s)
</font>
</td>
<td align=right>
<TMPL_IF NAME=ALLOW_STREAM>
<input type="button" value=" Play Playlist " STYLE="background:#cccc99; color:663300; font-size:8pt; cursor:hand; font-weight: bold;" onclick="location = '<TMPL_VAR NAME=PLAY_ALL_PLAYLIST_URL>';">
</TMPL_IF>
<input type="button" value=" Clear Playlist " STYLE="background:#cccc99; color:663300; font-size:8pt; cursor:hand;" onclick="location = '<TMPL_VAR NAME=CLEAR_ALL_PLAYLIST_URL>';">
</td>
</tr>
</table>
</td>
</tr>
<TMPL_IF NAME=PARAM_plopen>
<TMPL_LOOP NAME=PLAYLIST>
<TMPL_IF NAME=__ODD__><tr bgcolor=ffffcc><TMPL_ELSE><tr bgcolor=cccc99></TMPL_IF>
<td width=28 align=center><TMPL_VAR NAME=CHECKBOX></td>
<td width=300><font style="font-family:tohoma,verdana,arial;font-size:9pt;"> <TMPL_VAR NAME=TITLE></font></td>
<td width=274><font style="font-family:tohoma,verdana,arial;font-size:9pt;"> <TMPL_VAR NAME=ARTIST> — <TMPL_VAR NAME=ALBUM></font></td>
<td width=67><font style="font-family:tohoma,verdana,arial;font-size:9pt;"> <TMPL_VAR NAME=DURATION></font></td>
<td width=75 align=right><a href="<TMPL_VAR NAME=REMOVE_FROM_PLAYLIST_URL>"><img src="<TMPL_VAR NAME=BASE_DIR>/default/delete.gif" width=18 height=18 border=0 vspace=1 hspace=1 alt="Remove"></a>
<TMPL_IF NAME=ALLOW_DOWNLOAD>
<a href="<TMPL_VAR NAME=FETCH_URL>"><img src="<TMPL_VAR NAME=BASE_DIR>/default/save.gif" width=18 height=18 border=0 alt="Download" vspace=1 hspace=1></a>
</TMPL_IF>
<TMPL_IF NAME=ALLOW_STREAM>
apache_mp3/default.tmpl view on Meta::CPAN
<td> </td>
<td colspan=4>
<table cellpadding=4 border=0 cellspacing=0>
<tr><td>
<TMPL_IF NAME=ALLOW_STREAM>
<input type="button" value=" Play Playlist " STYLE="background:#cccc99; color:663300; font-size:8pt; cursor:hand; font-weight: bold;" onclick="location = '<TMPL_VAR NAME=PLAY_ALL_PLAYLIST_URL>';">
<input tye="button" value=" Play Checked " STYLE="background:#cccc99; color:663300; font-size:8pt; cursor:hand;" onclick="<TMPL_VAR NAME=PLAY_SELECTED_SCRIPT>">
</TMPL_IF>
<input type="button" value=" Clear Playlist " STYLE="background:#cccc99; color:663300; font-size:8pt; cursor:hand;" onclick="location = '<TMPL_VAR NAME=CLEAR_ALL_PLAYLIST_URL>';">
<input type="button" value=" Clear Checked " STYLE="background:#cccc99; color:663300; font-size:8pt; cursor:hand;" onclick="<TMPL_VAR NAME=CLEAR_SELECTED_PLAYLIST_SCRIPT>">
</td></tr>
</table>
</td>
</tr>
</TMPL_IF>
apache_mp3/default.tmpl view on Meta::CPAN
<table cellpadding=4 border=0 cellspacing=0>
<tr><td>
<TMPL_IF NAME=CONTAINS_MP3S>
<TMPL_IF NAME=ALLOW_STREAM>
<input type="button" value=" Play All " STYLE="background:#cccc99; color:663300; font-size:8pt; cursor:hand; font-weight: bold;" onclick="<TMPL_VAR NAME=PLAY_ALL_SCRIPT>">
<input type="button" value="Play Checked" STYLE="background:#cccc99; color:663300; font-size:8pt; cursor:hand;" onclick="<TMPL_VAR NAME=PLAY_ALL_SCRIPT>">
</TMPL_IF>
<input type="button" value=" Save All " STYLE="background:#cccc99; color:663300; font-size:8pt; cursor:hand;" onclick="<TMPL_VAR NAME=ADD_TO_PLAYLIST_ALL_SCRIPT>">
<input type="button" value="Save Checked" STYLE="background:#cccc99; color:663300; font-size:8pt; cursor:hand;" onclick="<TMPL_VAR NAME=PLAY_ALL_SCRIPT>">
</TMPL_IF>
</td></tr>
</table>
</td>
</tr>
apache_mp3/default.tmpl view on Meta::CPAN
<img src="<TMPL_VAR NAME=COVER>" width=20 height=20 border=0 hspace=1 vspace=1>
<TMPL_ELSE>
<img src=<TMPL_VAR NAME=BASE_DIR>/default/folder.gif width=20 height=18 border=0 hspace=2 vspace=2>
</TMPL_IF>
</a></td>
<td width=641 colspan=4><font style="font-family: arial;font-size:9pt;"><a href="<TMPL_VAR NAME=THIS_URL><TMPL_IF NAME=PARAM_plopen>?plopen=1</TMPL_IF>" style="text-decoration:none;"><TMPL_VAR NAME=THIS_DIR></a></font></td>
<td width=75 align=rigth><img src=<TMPL_VAR NAME=BASE_DIR>/default/pixel.gif width=18 height=18 border=0 vspace=2 hspace=2>
<TMPL_IF NAME=ALLOW_STREAM>
<a href="<TMPL_VAR NAME=PLAY_ALL_THIS_DIR_RECURSIVE_URL>"><img src=<TMPL_VAR NAME=BASE_DIR>/default/play.gif width=18 height=18 border=0 alt="Play" vspace=2 hspace=2></a>
</TMPL_IF>
</td>
<TMPL_ELSE>
<td width=28 align=center><TMPL_VAR NAME=CHECKBOX></td>
<td width=290><font style="font-family: arial;font-size:9pt;"> <TMPL_VAR NAME=TITLE></font></td>
<td width=30 align=center><font style="font-family: arial;font-size:9pt;"> <TMPL_VAR NAME=TRACK></font></td>
<td width=255><font style="font-family: arial;font-size:9pt;"> <TMPL_VAR NAME=ARTIST> — <TMPL_VAR NAME=ALBUM></font></td>
<td width=67><font style="font-family: arial;font-size:9pt;"> <TMPL_VAR NAME=DURATION></font></td>
<td width=75 align=right>
<a href="<TMPL_VAR NAME=ADD_TO_PLAYLIST_URL><TMPL_IF NAME=PARAM_plopen>?plopen=1</TMPL_IF>"><img src=<TMPL_VAR NAME=BASE_DIR>/default/cart.gif width=18 height=18 border=0 vspace=1 hspace=1 alt="Save"></a>
<TMPL_IF NAME=ALLOW_DOWNLOAD>
<a href="<TMPL_VAR NAME=FETCH_URL>"><img src="<TMPL_VAR NAME=BASE_DIR>/default/save.gif" width=18 height=18 border=0 alt="Download" vspace=1 hspace=1></a>
</TMPL_IF>
apache_mp3/default.tmpl view on Meta::CPAN
<table cellpadding=4 border=0 cellspacing=0>
<tr><td>
<TMPL_IF NAME=CONTAINS_MP3S>
<TMPL_IF NAME=ALLOW_STREAM>
<input type="button" value=" Play All " STYLE="background:#cccc99; color:663300; font-size:8pt; cursor:hand; font-weight: bold;" onclick="<TMPL_VAR NAME=PLAY_ALL_SCRIPT>">
<input type="button" value="Play Checked" STYLE="background:#cccc99; color:663300; font-size:8pt; cursor:hand;" onclick="<TMPL_VAR NAME=PLAY_ALL_SCRIPT>">
</TMPL_IF>
<input type="button" value=" Save All " STYLE="background:#cccc99; color:663300; font-size:8pt; cursor:hand;" onclick="<TMPL_VAR NAME=ADD_TO_PLAYLIST_ALL_SCRIPT>">
<input type="button" value="Save Checked" STYLE="background:#cccc99; color:663300; font-size:8pt; cursor:hand;" onclick="<TMPL_VAR NAME=PLAY_ALL_SCRIPT>">
</TMPL_IF>
</td></tr>
</table>
</td>
</tr>
apache_mp3/default.tmpl view on Meta::CPAN
</td></tr>
</table>
<!-- End the Folder and File List Table -->
<TMPL_IF NAME=STREAM_TIMEOUT>
<font face=arial size=2 color=red><b>DEMO MODE:</b> Playing files is limited to <TMPL_VAR NAME=STREAM_TIMEOUT> seconds.</font>
</TMPL_IF>
<br>
</td></tr>
Apache-MP3
view release on metacpan or search on metacpan
img({-src => $self->cd_icon($dir), $self->aleft, -alt=>
$self->x('Stream All'),
-border=>0})),
$links,
a({-href=>'./playlist.m3u?Shuffle+All+Recursive=1'},
font({-class=>'directory'}, '[',
$self->x('Shuffle All'),
']'
))
.' '.
a({-href=>'./playlist.m3u?Play+All+Recursive=1'},
font({-class=>'directory'}, '[',
$self->x('Stream All'),
']'
)),
br({-clear=>'ALL'}),;
my $indent = 3.0;
my @components = split '/',$uri;
unshift @components,'' unless @components;
my ($path,$links) = ('',br());
my $current_style = "line-height: 1.2; font-weight: bold; color: red;";
my $parent_style = "line-height: 1.2; font-weight: bold;";
for (my $c=0; $c < @components-1; $c++) {
$path .= escape($components[$c]) ."/";
my $idt = $c * $indent;
my $l = a({-href=>$path},$components[$c] || ($home.br({-clear=>'all'})));
$links .= div({-style=>"text-indent: ${idt}em; $parent_style"},
font({-size=>'+1'},$l))."\n";
}
my $idt = (@components-1) * $indent;
$links .= div({-style=>"text-indent: ${idt}em; $current_style"},
font({-size=>'+1'},$components[-1] || $home))."\n";
return $links;
}
# alternative display on one line using arrows
sub generate_navpath_slashes {
my $path;
my $links = br . ' ' ; #start_h1();
for (my $c=0; $c < @components-1; $c++) {
$links .= ' / ' if $path;
$path .= escape($components[$c]) . "/";
$links .= a({-href=>$path},font({-size=>'+1'},$components[$c] || $home));
}
$links .= ' / ' if $path;
$links .= font({-size=>'+1',-style=>'color: red'},($components[-1] || $home));
$links .= br;
return $links;
}
# alternative display on one line using arrows
img({-src=>$self->cd_list_icon($subdir),
-align=>'ABSMIDDLE',
-class=>'subdir',
-alt=>$self->x('Stream'),
-border=>0})),
a({-href=>$uri.'/'},font({-class=>'subdirectory'},$title))
)
.td(
a({-class=>'subdirbuttons',
-href=>$uri.'/playlist.m3u?Shuffle+All+Recursive=1'},
'[' .
-align=>'LEFT',
-class=>'subdir',
-alt=>$self->x('Stream'),
-border=>0}))
).td({-valign => 'CENTER', -align => 'LEFT'},
a({-href=>$uri.'/'},font({-class=>'subdirectory'},$title)).
br."\n".
a({-class=>'subdirbuttons',
-href=>$uri.'/playlist.m3u?Shuffle+All+Recursive=1'},
'['.$self->x('Shuffle').']')
.$nb.
-alt =>
$self->x('Playlist'),
-border => 0}))
. $nb .
a({-href => $url},
font({-class => 'subdirectory'},
$title)));
}
# This generates the link for help
sub get_help {
-class => 'subdir',
-alt => 'Text File',
-border => 0}))
. $nb .
a({-href => $url},
font({-class => 'subdirectory'},
$title)));
}
# this is called to display the subdirs (subdirectories) within the current directory
sub list_subdirs {
Apache-MiniWiki
view release on metacpan or search on metacpan
example/template,v view on Meta::CPAN
@<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" "http://www.w3.org/TR/REC-html40/loose.dtd">
<html>
<head><title>Example Wiki: <TMPL_VAR NAME=title></title></head>
<style><!--
BODY,A,LI,P,FONT,B,H1,H2,H3,STRONG,TD {
font-family:helvetica,arial,tahoma,sans-serif;
text-decoration:none;
}
A,A.link,a.visited,a.active {
font-weight:700;
}
a.active {
color:black;
}
A:hover {
text-decoration:underline;
}
h3 {
font-size: 1.3em;
}
--></style>
<script language="javascript"><!--
example/template,v view on Meta::CPAN
<a href="<TMPL_VAR NAME=vroot>/(newpassword)">Password<sup>1</sup></a>,
<a href="<TMPL_VAR NAME=editlink>">Edit</a>
</td>
</tr>
</TABLE>
<br><div align="right"><span style="bgcolor:black; color:white; font-weight:bold">
Last Modified: <TMPL_VAR NAME=lastmod></span></div>
</body></html>
@
example/template,v view on Meta::CPAN
@align right
@
text
@d58 2
a59 2
<br><span align=right style="bgcolor:black; color:white; font-weight:bold">
Last Modified: <TMPL_VAR NAME=lastmod></span>
@
1.6
example/template,v view on Meta::CPAN
@align right
@
text
@d58 1
a58 1
<br><span style="align:right; bgcolor:black; color:white; font-weight:bold">
@
1.5
log
@last modified
@
text
@d58 1
a58 1
<br><span style="text-align:right; bgcolor:black; color:white; font-weight:bold">
@
1.4
log
Apache-Motd
view release on metacpan or search on metacpan
bgcolor="#000000">
<tr><td align="center">
<table border="0" cellpadding="8" cellspacing="0" width="100%"
bgcolor="#ffffff">
<td align="center">
<font face="Arial,Helvetica"><b>Apache WebServer</b></font>
</td>
</tr><tr>
<td align=left>
<font face="Arial,Helvetica">
The use of this computing system is restricted to
the conduct of company authorized business by authorized
users. All information and communications on this system
are subject to review, monitoring and recording at any time,
without notice or permission. Unauthorized access or use may
be subject to prosecution.
</font>
</td>
</tr></table>
</td>
</tr></table>
<p>
<a href="<VAR_URI>"><font face="Arial,Helvetica"
size="-1">click here to proceed</font></a><p>
</body></html>
Apache-NNTPGateway
view release on metacpan or search on metacpan
NNTPGateway.pm view on Meta::CPAN
$r->print( "\n<hr noshade>\n" );
# Just Inform user
$r->print
(
"<h2 align=\"center\">${NewsUrl}<br>\n<font color=\"red\">",
&message( 'catchup_at', scalar( localtime( $catchupdate ))),
"</font></h2>\n",
"<div align=\"center\">[<a href=\"${Base}/list?force=1\">",
&message( 'list_all' ),
"</a>]</div>\n"
);
NNTPGateway.pm view on Meta::CPAN
$r->print
(
"<table width=\"100%\">\n",
"\t<tr>\n",
"\t<td bgcolor=\"$HEADER_BGCOLOR2\" width=\"15%\">\n",
"\t\t<font size=\"-1\"><a name=\"__${id}__\">${id}</a>: ",
"[<a href=\"${Base}/read/${id}\">", &message('read'), "</a>]",
"[<a href=\"${Base}/followup/${id}\">", &message('followup'), "</a>]",
"</font></td>\n",
"\t<td bgcolor=\"$HEADER_BGCOLOR1\" align=\"center\" width=\"30%\">\n",
"\t\t",
"<span class=\"$article_date_class\"><font size=\"-1\"><em>", $A->{Header}{date}, "</em></font></span>",
"</td>\n",
"\t<td bgcolor=\"$HEADER_BGCOLOR1\" align=\"center\">\n",
"\t\t<font size=\"-1\"><em><a href=\"mailto:", $A->{Header}{_from_email}, "\">",
"<span class=\"$article_from_class\"><strong>", $A->{Header}{_from_name}, "</strong></span>",
"</a></em></font></td>\n",
"\t</tr>\n",
"\t<tr>\n",
"\t<td align=\"right\" width=\"15%\"><font size=\"-1\"><em>",
$A->{Header}{lines}, " lines</em></font> </td>\n",
"\t<td colspan=\"2\" bgcolor=\"$BODY_BGCOLOR\"> "<a href=\"${Base}/read/${id}\">",
"<span class=\"$article_subject_class\">", $A->{Header}{_subject_html}, "</span>",
"</a>"</td>\n",
"\t</tr></table>\n",
);
NNTPGateway.pm view on Meta::CPAN
"<span class=\"$article_id_class\"><strong><a name=\"__${id}__\">$id</a></strong></span>",
": "<a href=\"${Base}/read/${id}\">",
"<span class=\"$article_subject_class\"><em>", $A->{Header}{_subject_html}, "</em></span>",
"</a>" ", lc(&message('from')), " ",
"<<a href=\"mailto:", $A->{Header}{_from_email}, "\">",
"<span class=\"$article_from_class\"><font size=\"-1\">", $A->{Header}{_from_name}, "</font></span>",
"</a>><br>",
"</div>\n",
);
} else {
NNTPGateway.pm view on Meta::CPAN
);
}
$r->print
(
"\t<tr>\n",
"\t<td colspan=\"2\"><font size=\"-1\">",
"[<a href=\"${Base}/read/${id}?headers=min\">", &message('nofullheaders'), "</a>]",
"</font></td>\n",
"\t</tr>\n",
);
} else {
$r->print
(
"\t<tr>\n",
"\t<td colspan=\"2\"><font size=\"-1\">",
"[<a href=\"${Base}/read/${id}?headers=max\">", &message('fullheaders'), "</a>]",
"</font></td>\n",
"\t</tr>\n",
);
}
# The body here ...
$r->print
(
"\t<tr>\n",
"\t<td colspan=\"2\"><hr><pre><font size=\"+1\">", $A->{Body}, "</font></pre>\n",
);
# The .sig ...
if ( $A->{Signature} ) {
if ( $showsig ) {
$r->print( "<a href=\"${Base}/read/${id}?showsig=0\">--</a>\n" );
$r->print( "<pre><font size=\"-1\" color=\"white\"><i>", $A->{Signature}, "</i></font></pre>\n" );
} else {
$r->print( "<a href=\"${Base}/read/${id}?showsig=1\"><b>--</b></a>\n" );
}
}
NNTPGateway.pm view on Meta::CPAN
(
"\t<tr>\n",
"\t<td><u>Article Id</u>: <strong>$id</strong>:</td>\n",
"\t<td bgcolor=\"$MENU_BGCOLOR\">\n",
) if $table;
$r->print( "\t\t<font color=\"blue\" size=\"-1\">\n" );
unless ( $Disabled_Actions{'read'} ) {
if ( $A->{Header}{_prev} ) {
$r->print( "\t\t<<a href=\"${Base}/read/", $A->{Header}{_prev}, "\">",
&message('prev'), "</a><\n" );
} else {
NNTPGateway.pm view on Meta::CPAN
&message('next'), "</a>>\n" );
} else {
$r->print( "\t\t><em>", &message('next'), "</em>>\n" );
}
}
$r->print( "\t</font>\n" );
$r->print
(
"\t</td>\n",
"\t</tr>\n",
) if $table;
NNTPGateway.pm view on Meta::CPAN
if ( $force && $n_arts > 0 ) {
$r->print( "<strong>$n_arts articles<strong>" );
} elsif ( $n_arts > 0 ) {
$r->print( "<strong>", &message( 'n_unread', $n_arts ), "</strong>" );
} else {
$r->print( "<font color=\"red\">", &message( 'no_unread' ), "</font>" );
}
$r->print( "</td><td align=\"center\" bgcolor=\"$MENU_BGCOLOR\"> " );
if ( $n_arts > 0 ) {
if ( $long ) {
NNTPGateway.pm view on Meta::CPAN
} else {
$r->print( "[<a href=\"${Base}/list?long=1&${force_arg}\">", &message( 'long_format' ), "</a>] \n" );
}
}
if ( $force & $n_arts <= 0 ) {
$r->print( "<font color=\"red\">", &message( 'no_arts' ), "<font>" );
} elsif ( $force ) {
$r->print( "[<a href=\"${Base}/list?force=0&${long_arg}\">", &message( 'list_new' ), "</a>] \n" );
} else {
$r->print( "[<a href=\"${Base}/list?force=1&${long_arg}\">", &message( 'list_all' ), "</a>] \n" );
}
NNTPGateway.pm view on Meta::CPAN
$r->print(
"<table width=\"100%\">\n",
"\t<form method=\"POST\" action=\"${Base}/post\">\n",
"\t<tr>\n",
"\t<td> </td>\n",
"\t<td><font size=\"-1\" color=\"red\"><strong>", &message('all_fields'), "</strong></font></td>\n",
"\t</tr>\n",
);
$r->print( "<input type=\"hidden\" name=\"refs\" value=\"$refs\">" ) if $refs;
# Build a choice of From
$r->print(
NNTPGateway.pm view on Meta::CPAN
$StyleSheet?"<LINK REL=StyleSheet HREF=\"$StyleSheet\" TYPE=\"text/css\">":"<!-- no StyleSheet -->",
"</head>\n",
"<body bgcolor=\"$BODY_BGCOLOR\">\n",
"<a name=\"TOP\"> </a>\n",
"<hr noshade>\n",
"<div align=\"right\" class=\"head\"><font size=\"-1\">\n",
"\t<a href=\"$Base\">$PKG_NAME</a> \@ <a href=\"$NewsUrl\">$NewsUrl</a>\n",
"</font></div>\n",
"<h1 align=\"right\" class=\"title\"><a href=\"$Base\">${title}</a></h1>\n",
);
$r->print( "<h3 align=\"right\">($The_GroupDescription)</h3>\n" ) if $The_GroupDescription;
NNTPGateway.pm view on Meta::CPAN
next unless $Menu_Entries_Map{$_};
next if $Disabled_Actions{$_};
my $Aname = &message($_);
$Aname = $_ =~ s/^([a-z]{1,1})/uc( $1 )/e unless $Aname;
if ( $_ eq $action ) {
$r->print( "<font color=\"red\">[ ${Aname} ]</font>" );
} else {
$r->print( "<font color=\"blue\">[ <a href=\"${Base}/$_\">${Aname}</a> ]</font>" );
}
}
$r->print( "</td></tr></table>\n" );
return;
NNTPGateway.pm view on Meta::CPAN
sub print_html_error ( $\$$$ ) {
my ($r, $h1, $err, $msg) = @_;
$h1 ||= &message('error');
$r->print(
"<h1 align=\"center\">$h1</h1>\n<p>",
$err?"<div align=\"center\" class=\"error\"><font color=\"red\"><strong>$err</strong></font></div><p>\n":"",
);
return;
} # end print_html_error();
NNTPGateway.pm view on Meta::CPAN
$r->log->warn( "${Base} NNTP Error: $err" );
&print_html_head( $r );
&print_html_error( $r, "NNTP Error \@ $NewsUrl", $err );
$r->print
(
"<div align=\"center\"><font color=\"red\">",
"[<a href=\"", $r->subprocess_env('SCRIPT_URL'), "\">", &message('try_again'), "</a>]",
"</font></div>\n",
);
&print_html_foot( $r );
return;
} # end print_nntp_error();
Apache-NavBarDD
view release on metacpan or search on metacpan
NavBarDD.pm view on Meta::CPAN
my $style=<<EOF;
<style>
td.master-active {
height: 2ex;
font-family: helvetica,arial;
font-weight: bold;
font-size: 10pt;
color: #003366;
background-color: #FFFFCC;
text-align: center
}
td.master-normal {
height: 2ex;
font-family: helvetica,arial;
font-size: 10pt;
color: #FFFFFF;
background-color: #006633;
text-align:center;
}
td.vassal-active {
height: 4ex;
font-family: helvetica,arial;
font-size: 7pt;
color: #006633;
background-color: #FFFFFF;
}
td.vassal-normal {
height: 4ex;
font-family: helvetica, arial;
font-size: 7pt;
color: #006633;
background-color: #FFFFCC;
}
a.master {
NavBarDD.pm view on Meta::CPAN
The default value of C<style> is:
<style>
td.master-active {
height: 2ex;
font-family: helvetica,arial;
font-weight: bold;
font-size: 10pt;
color: #003366;
background-color: #FFFFCC;
text-align: center
}
td.master-normal {
height: 2ex;
font-family: helvetica,arial;
font-size: 10pt;
color: #FFFFFF;
background-color: #006633;
text-align:center;
}
td.vassal-active {
height: 4ex;
font-family: helvetica,arial;
font-size: 7pt;
color: #006633;
background-color: #FFFFFF;
}
td.vassal-normal {
height: 4ex;
font-family: helvetica, arial;
font-size: 7pt;
color: #006633;
background-color: #FFFFCC;
}
a.master {
Apache-PSP
view release on metacpan or search on metacpan
lib/Apache/PSP.pm view on Meta::CPAN
&$page_code();
};
if ($@)
{
print qq{<font color="red"><tt>$@</tt></font>\n};
# terminate this Apache process to avoid intermediate state problems
# (temporary until a full cleanup handler is available)
$r->child_terminate;
}
}
else
{
# log the failure
$r->log_reason("Could not load page", $r->filename);
print qq{<font color="red"><tt>Can't load page. $@</tt></font>\n};
print qq{<p>Process $$ will be restarted.</p>\n};
# terminate this Apache process to avoid intermediate state problems
# (temporary until a full cleanup handler is available)
$r->child_terminate;
Apache-PageKit
view release on metacpan or search on metacpan
lib/Apache/ErrorReport.pm view on Meta::CPAN
my $repeat = ( 512 < $bytes_sent ) ? 0 : 512 - $bytes_sent ;
# send a large comment in front of the page so MSIE displays it too.
my $html_msg =
'<!-- ' . ( ' ' ) x $repeat . " -->\n"
. qq{<pre><font color="$color">$_[1]: $stacktrace</font></pre><br>};
if ( $bytes_sent ) {
print $html_msg;
}
else {
Apache-Pod
view release on metacpan or search on metacpan
lib/Apache/Pod/HTML.pm view on Meta::CPAN
sub _css {
return <<'EOF';
BODY {
background: white;
color: black;
font-family: times,serif;
margin: 0;
padding: 1ex;
}
TABLE {
lib/Apache/Pod/HTML.pm view on Meta::CPAN
}
H1 {
background: transparent;
color: #006699;
font-size: x-large;
font-family: tahoma,sans-serif;
}
H2 {
background: transparent;
color: #006699;
font-size: large;
font-family: tahoma,sans-serif;
}
.block {
background: transparent;
}
TD .block {
color: #006699;
background: #dddddd;
padding: 0.2em;
font-size: large;
}
HR {
display: none;
}
Apache-PrettyPerl
view release on metacpan or search on metacpan
PrettyPerl.pm view on Meta::CPAN
a
{
color: $temp;
background-color: transparent;
text-decoration: none;
font-weight: bold;
}
a:hover
{
text-decoration: underline;
PrettyPerl.pm view on Meta::CPAN
background-color: $bg;
}
div.source
{
font-family: monospace;
border: 1px solid gray;
padding: 1em;
}
p.generator
{
text-align: right;
font-size: smaller;
}
EOF
}
Apache-ProxyConf
view release on metacpan or search on metacpan
ProxyConf.pm view on Meta::CPAN
<head>
<title>Output of ProxyConf.pm with debug option</title>
<style type="text/css">
code {
font-family: LucidaTypewriter, Courier, "Courier New", monospace;
color: #990000;
}
</style>
</head>
<body bgcolor="#FFFFFF">
Apache-Queue
view release on metacpan or search on metacpan
<meta HTTP-EQUIV="refresh" content="1; URL=[% uri %]">
</head>
<body topmargin=0 leftmargin=0 marginheight=0 marginwidth=0>
<table height=100% width=100%>
<tr><td valign=center align=center>
<font face="arial" size=2>
Click <a href="[% uri %]">here</a> if your download does not start
</font>
</td></tr></table>
</body>
</html>
EOQSH
,
<meta HTTP-EQUIV="refresh" content="300; URL=[% uri %]">
</head>
<body topmargin=0 leftmargin=0 marginheight=0 marginwidth=0>
<table height=100% width=100%>
<tr><td valign=center align=center>
<font face="arial" size=2>
Sorry, the queue is full<BR>Keep this window open to keep trying
</font>
</td></tr></table>
</body>
</html>
EOQFH
,
<meta HTTP-EQUIV="refresh" content="60; URL=[% uri %]">
</head>
<body topmargin=0 leftmargin=0 marginheight=0 marginwidth=0>
<table height=100% width=100%>
<tr><td valign=center align=center>
<font face="arial" size=2>
You are in position [% position %] of [% queue_size %]<BR>
Keep this window open to stay in line
</font>
</td></tr></table>
</body>
</html>
EOQPH
,
'queue_sending.html' => <<EOQS
<html>
<body topmargin=0 leftmargin=0 marginheight=0 marginwidth=0>
<table height=100% width=100%>
<tr><td valign=center align=center>
<font face="arial" size=2>
You are already downloading a file
</font>
</td></tr></table>
</body>
</html>
EOQS
);
Apache-Recorder
view release on metacpan or search on metacpan
recorder.pl view on Meta::CPAN
<p>You are now free to visit static pages and scripts that exist on this domain.
(Note: if you leave this domain, you will no longer have a valid cookie --
this will stop Apache::Recorder from recording your path.</p>
<p>When you have finished visiting the pages and scripts that you want to record,
you will need to write a brief script to automate the testing process. See
<font face='courier'>perldoc HTTP::RecordedSession</font> for a sample program.
You will need to record the following session id for use in this script:
<strong>$semi_random</strong>.</p>
</body>
</html>
Apache-SdnFw
view release on metacpan or search on metacpan
lib/Apache/SdnFw/lib/Core.pm view on Meta::CPAN
print F $html;
close F;
}
my $opts = "--quiet --top 0.5in --bottom 0.5in --left 0.5in --right 0.5in ".
"--webpage --bodyfont Helvetica --footer . --no-numbered ".
"--outfile $outfile";
my $err;
open ERR, "/usr/bin/htmldoc $opts $tmpfile-$id-*.html 2>&1 |";
while (<ERR>) {
lib/Apache/SdnFw/lib/Core.pm view on Meta::CPAN
} elsif ($direction eq 'asc') {
return $s->html_a("$s->{ubase}/$s->{object}/$s->{function}?ob=$key $direction&$params",'^');
}
}
sub html_font {
=head2 html_font
my $html = $s->html_font($text,$size);
=cut
my $s = shift;
my $text = shift;
my $size = shift;
return qq(<font size="$size">$text</font>);
}
sub html_a {
=head2 html_a
Apache-SearchEngineLog
view release on metacpan or search on metacpan
analyse.cgi view on Meta::CPAN
sub end_html
{
print <<EOF;
<hr />
<p style="text-align: right;font-size: 8pt;">This script is part of
<a href="http://verplant.org/SearchEngineLog/">Apache::SearchEngineLog</a>,
written by Florian Forster <octopus at verplant.org></p>
</body>
</html>
Apache-SecSess
view release on metacpan or search on metacpan
demo/ht/adam.acme.com/signout/timeout.html view on Meta::CPAN
unknown =>
'<b>Unknown Reason.</b>'
);
my $content = <<"ENDCONTENT";
<font color="#f42424" size=5>Session Timeout.</font><p>
Your login session has timed out due to the following reason:
<ul>
<li> $messages{$type}
</ul>
Please log in again.
Apache-Status-DBI
view release on metacpan or search on metacpan
lib/Apache/Status/DBI.pm view on Meta::CPAN
while ( my ($driver, $h) = each %drivers) {
my $version = do { no strict; ${"DBD::${driver}::VERSION"} || 'undef' }; ## no critic
my @children = grep { defined } @{$h->{ChildHandles}};
push @s, sprintf "<hr><b>DBD::$driver</b> <font size=-2 color=grey>version $version, %d dbh (%d cached, %d active) $h</font>\n\n",
scalar @children, scalar keys %{$h->{CachedKids}||{}}, $h->{ActiveKids};
@children = sort { ($a->{Name}||"$a") cmp ($b->{Name}||"$b") } @children;
push @s, _apache_status_dbi_handle($_, 1) for @children;
}
push @s, "<hr>";
push @s, "<font size=-2 color=grey>".__PACKAGE__." $VERSION</font>";
push @s, "</pre>\n";
return \@s;
}
lib/Apache/Status/DBI.pm view on Meta::CPAN
);
my @scalar_attr2 = qw();
my @s;
if ($type eq 'db') {
push @s, sprintf "DSN \"<b>%s</b>\" <font size=-2 color=grey>%s</font>\n", $h->{Name}, $h;
@children = sort { ($a->{Statement}||"$a") cmp ($b->{Statement}||"$b") } @children;
push @boolean_attr, qw(AutoCommit);
push @scalar_attr, qw(Username);
}
else {
push @s, sprintf " sth <font size=-2 color=grey>%s</font>\n", $h;
push @scalar_attr2, qw(NUM_OF_PARAMS NUM_OF_FIELDS CursorName);
}
push @s, sprintf "%sAttributes: %s\n", $pad,
join ", ", grep { $h->{$_} } @boolean_attr;
( run in 2.226 seconds using v1.01-cache-2.11-cpan-ceb78f64989 )