common/scripts/gbtosvg.pl

   1 #!/usr/bin/env perl
   2 #
   3 # gbtosvg.pl
   4
   5 use strict;
   6 use warnings;
   7
   8 delete @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)}; # clean house for taint mode
   9
  10 my $PROGRAM_NAME    = 'gbtodot';
  11 my $USAGE           = "$PROGRAM_NAME [options] book-code\n\t--meta=[metadata file]\n\t--xml=[book XML]\n\t--xsl=[XSL transformation]\n\t--baseURI=[URI of linked XHTML book]\n\t--language=[language area of input data (output determined by meta file)]\n\t--verbose\n";
  12
  13 my $FILENAME_SEPARATOR = '/';
  14
  15 my $RXP        = '/usr/bin/rxp';
  16 my $JAVA       = '/usr/bin/java';
  17 my $XALAN_JAR  = '/usr/share/java/xalan2.jar';
  18 my $DOT        = '/usr/local/bin/dot';
  19
  20
  21 # Check that all the binaries are were want them
  22
  23 my @BINARIES;
  24 push @BINARIES, ($RXP, $JAVA, $XALAN_JAR, $DOT);