-#!/usr/bin/env perl -w
+#!/usr/bin/env perl
#
# gbtosvg.pl
use strict;
+use warnings;
delete @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)}; # clean house for taint mode
my $XALAN_JAR = '/usr/share/java/xalan2.jar';
my $DOT = '/usr/local/bin/dot';
+
+# Check that all the binaries are were want them
+
+my @BINARIES;
+push @BINARIES, ($RXP, $JAVA, $XALAN_JAR, $DOT);
+
+foreach (@BINARIES) {
+ if ( ! -e $_ ) {
+ die "$PROGRAM_NAME: Cannot find binary '".$_."'. Please install it.\n";
+ }
+}
+
+
###
my $bookCode = '';
if( $bookCode eq '' ) { die "Unspecified book code\n$USAGE"; }
if( $bookXML eq '' ) { $bookXML = "$language/xml/$bookCode.xml"; }
-if( $metaFile eq '' ) { $metaFile = "$language/.publisher/rules/standard"; }
+if( $metaFile eq '' ) { $metaFile = "$language/.publisher/rules/dever"; }
if( -e $metaFile && -f $metaFile && -r $metaFile ) {
open( META, '<', $metaFile )