Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
91-22-5.cml	448 B	-rw-r--r--
91-22-5.cml.xml	448 B	-rw-r--r--
91-22-5.xml	602 B	-rw-r--r--
95-48-7.xml	181 B	-rw-r--r--
95-48-7.xsl	879 B	-rw-r--r--
REC-xml-19980210.xml.gz	44.06 KB	-rw-r--r--
REC-xslt-19991116.xml.gz	54.84 KB	-rw-r--r--
XSLT.html	16.9 KB	-rw-r--r--
XSLT.xml.gz	3.69 KB	-rw-r--r--
XSLT.xsl	1.28 KB	-rw-r--r--
agenda.dtd	1.31 KB	-rw-r--r--
agenda.html	104.98 KB	-rw-r--r--
agenda.xml.gz	5.41 KB	-rw-r--r--
agenda.xsl	3.75 KB	-rw-r--r--
bernhard.xml	419 B	-rw-r--r--
bernhard.xsl	390 B	-rw-r--r--
cml.xsl	1.06 KB	-rw-r--r--
cml2cml.xsl	1.73 KB	-rw-r--r--
grammar.xml.gz	44.06 KB	-rw-r--r--
grammar.xsl	780 B	-rw-r--r--
grammar2.xml.gz	44.06 KB	-rw-r--r--
grammar2.xsl	1.31 KB	-rw-r--r--
identity.xml	2.01 KB	-rw-r--r--
identity.xsl	306 B	-rw-r--r--
identity.xsl_org	334 B	-rw-r--r--
test.dtd	997 B	-rw-r--r--
test.xml	2.01 KB	-rw-r--r--
test.xsl	3.83 KB	-rw-r--r--
test2.xml	2.01 KB	-rw-r--r--
test2.xsl.gz	956 B	-rw-r--r--
xmlspec.xsl.gz	3.4 KB	-rw-r--r--
xpath.xsl	1.73 KB	-rw-r--r--
xslt-parser	2.15 KB	-rwxr-xr-x
xslt.xsl	3.71 KB	-rw-r--r--

Code Editor : xslt-parser

#!/usr/bin/perl -w

# $Id: xslt-parser,v 1.9 2001/03/01 05:22:45 hexmode Exp $

use strict;
use XML::XSLT;
use Getopt::Std;

=head1 NAME

xslt-parser - XSLT transformations

=head1 SYNOPSIS

xslt-parser [options] <project>

=head1 DESCRIPTION

xslt-parser performs stylesheet transformations.

When given a project name, it appends `.xsl' for the XSLT stylesheet
and `.xml' for the XML file to apply the stylesheet to and performs the
transformation using the XML::XSLT perl module.

=head1 OPTIONS

=over 4

=item -c

Pass through HTML::Clean.  You must have HTML::Clean installed.

=item -d

Turns debugging on.  This can produce a lot of noise.

=item -n

NoWeb.  You can use xslt-parser as a CGI script.  With this option,
it will not output the headers that are usually needed.

=item -s <file>

Specify a separate different stylesheet.  Usually, xslt-parser will
simply append `.xsl' to the project name to get the stylesheet.  A
different stylesheet can be specified using this option.

=back

=head1 AUTHORS

Geert Josten <gjosten@sci.kun.nl>,
Mark A. Hershberger <mah@everybody.org>

=head1 SEE ALSO

L<XML::XSLT>

The w3.org XSLT recommendation at L<http://www.w3.org/TR/xslt>

=cut

my %opt;
my $usage = "Usage: $0 [options] <project>

-d	     turn debugging mode on
  -n	     don't print content-type
  -s <file>  use <file> instead of <project>.xsl as template
  -w	     turns warnings on\n";
getopts('cdnws:h', \%opt) || die $usage;

die $usage if $opt{h};

## global vars ##
my $noweb = $opt{n} || 0;
my $debug = $opt{d} || 0;
my $warnings = $opt{w} || 0;
my $project = shift || die $usage;
my $xslfile = $opt{'s'} || "$project.xsl";
my $xmlfile = $project;

my $xslt = XML::XSLT->new (Source   => $xslfile,
			   debug    => $debug,
			   warnings => $debug);

if (! -f $xslfile) {
  die "$xslfile does not exist.";
}

if (! -f $xmlfile) {
  $xmlfile .= ".xml";
  if (! -f $xmlfile) {
    die "$xmlfile does not exist."
  }
}

print STDERR qq{Debug   : "$debug"
NoWeb   : "$noweb"
Warnings: "$warnings"
Project : "$project"
XML-file: "$xmlfile"
XSL-file: "$xslfile"
} if $debug;

print $xslt->serve(Source       => $xmlfile,
		   clean        => $opt{c},
		   http_headers => ! $noweb);

${this.title}

Code Editor : xslt-parser