diff -r 000000000000 -r dba9303a1a5c scripts/exportvym --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/scripts/exportvym Wed May 18 07:39:58 2005 +0000 @@ -0,0 +1,70 @@ +#!/usr/bin/perl +# +# Script to convert vym files to arbitrary formats +# Using xml stylesheets +# +# written by Uwe Drechsel <vym@insilmaril.de> +# + +my $version="0.1"; +my $PARSER="xsltproc"; +my $OUTDIR=""; +my $INPUTDIR=""; +my $XSL="vym2html.xsl"; + + +use Getopt::Long; +GetOptions ( + "o=s" => \$opt_outdir, + "x=s"=> \$opt_xst, + "h!" => \$opt_usage ) || usage (); + + + +if ($opt_usage) { + $0 =~ s#.*/##g; + print <<Helpende; + +exportvym written by Uwe Drechsel - Version $version + +usage: $0 [-h] VYMFILE + +...TODO... + +Helpende +} + + +if ($opt_xst) { $XST=$opt_XST; } +if ($opt_outdir) { $OUTDIR="$opt_outdir/"; } +if ($#ARGV <0) +{ + die "not enough parameters given"; +} else +{ + # get MAPNAME + $MAPNAME=pop(@ARGV); + if ($MAPNAME=~/\//) + { + # Get inputdir from path + $MAPNAME=~/(.*\/)(.*)/; + $INPUTDIR=$1; + $MAPNAME=$2; + } + if ($MAPNAME=~/(.*)(\.xml)/) { $MAPNAME=$1;} +} + +transform(); + +exit; + +######################################################## +sub transform { +######################################################## + my $command="$PARSER -o $OUTDIR$MAPNAME.html $XSL $INPUTDIR$MAPNAME.xml"; + print "$command\n"; + system ($command); +} + + +