insilmaril@37: #!/usr/bin/perl insilmaril@37: # insilmaril@37: # Script to convert vym files to arbitrary formats insilmaril@37: # Using xml stylesheets insilmaril@37: # insilmaril@37: # written by Uwe Drechsel insilmaril@37: # insilmaril@37: insilmaril@37: my $version="0.1"; insilmaril@37: my $PARSER="xsltproc"; insilmaril@37: my $OUTDIR=""; insilmaril@37: my $INPUTDIR=""; insilmaril@37: my $XSL="vym2html.xsl"; insilmaril@37: insilmaril@37: insilmaril@37: use Getopt::Long; insilmaril@37: GetOptions ( insilmaril@37: "o=s" => \$opt_outdir, insilmaril@37: "x=s"=> \$opt_xst, insilmaril@37: "h!" => \$opt_usage ) || usage (); insilmaril@37: insilmaril@37: insilmaril@37: insilmaril@37: if ($opt_usage) { insilmaril@37: $0 =~ s#.*/##g; insilmaril@37: print <