#!/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);

 }