Apache-UploadMeter
view release on metacpan or search on metacpan
lib/Apache/UploadMeter/Resources/HTML.pm view on Meta::CPAN
91011121314151617181920212223242526272829use
Apache2::Response ();
sub
json_popup {
my
$r
=
shift
;
$r
->content_type(
"text/html"
);
$r
->set_etag();
return
Apache2::Const::OK
if
$r
->header_only();
my
$output
=<<
"EOF"
;
<?xml version=
"1.0"
encoding=
"UTF-8"
?>
<!DOCTYPE html PUBLIC
"-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"
>
<head>
<script type=
"text/javascript"
src=
"js/prototype.js"
></script>
<script type=
"text/javascript"
src=
"js/scriptaculous.js"
></script>
<script type=
"text/javascript"
src=
"js/behaviour.js"
></script>
<script type=
"text/javascript"
src=
"js/aum.js"
></script>
<
link
rel=
"StyleSheet"
type=
"text/css"
href=
"css/aum.css"
/>
<script type=
"text/javascript"
>
// <![CDATA[
var um;
lib/Apache/UploadMeter/Resources/XML.pm view on Meta::CPAN
101112131415161718192021222324252627282930sub
xsl {
my
$r
=
shift
;
$r
->content_type(
"text/xml; charset=utf-8"
);
$r
->set_etag();
return
Apache2::Const::OK
if
$r
->header_only();
my
$output
=<<
'XSL-END'
;
<?xml version=
"1.0"
?>
<xsl:output method=
"html"
indent=
"yes"
doctype-
system
=
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"
doctype-public=
"-//W3C//DTD XHTML 1.0 Transitional//EN"
/>
<!-- root rule -->
<xsl:template match=
"/"
>
<xsl:apply-templates/>
</xsl:template>
<!-- main rule
for
document element -->
<xsl:template match=
"APACHE_UPLOADMETER"
>
<html>
<head>
<title>Downloading <xsl:value-of
select
=
"@FILE"
/>
</title>
( run in 0.644 second using v1.01-cache-2.11-cpan-87723dcf8b7 )