XHTML results from the CPAN

Apache-UploadMeter

use Apache2::Response ();
use Apache2::Const -compile=>qw(:common);

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">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<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

use Apache2::Const -compile=>qw(:common);

sub 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:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" 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.376 second using v1.01-cache-2.11-cpan-87723dcf8b7 )