X-Git-Url: http://git.projectaon.org/?p=project-aon.git;a=blobdiff_plain;f=common%2Fscripts%2Fgbtosvg.pl;h=4f53b380a87f4da45f79d8fd1467f169a94ed3eb;hp=f996ccbe8a44958e91e6d9e66bd2fc8cce5d6132;hb=ae3a572980f015a1266cbb3c0c7fe45f696cd8db;hpb=74c5762fd3e4d1cf8d9562b35dbf9f90f13d4f48

diff --git a/common/scripts/gbtosvg.pl b/common/scripts/gbtosvg.pl
index f996ccb..4f53b38 100755
--- a/common/scripts/gbtosvg.pl
+++ b/common/scripts/gbtosvg.pl
@@ -1,8 +1,9 @@
-#!/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
 
@@ -16,6 +17,19 @@ my $JAVA       = '/usr/bin/java';
 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     = '';