# -*- perl -*- -w
eval '(exit $?0)' && eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
  & eval 'exec /usr/bin/perl -S $0 $argv:q'
  if 0; # suppress this stuff in perl

# The above lines start up perl on almost every shell,
# below we find usual perl code

package main;
require 5.00305;
use strict;
use vars qw($LATEX2HTMLDIR $SCRIPT $TEXLIVEROOT);

# Set LATEX2HTMLDIR

my $tool = $0;
$tool =~ s:^.*/::; # strip path
$tool =~ s:[.][^/.]*$::; # strip extension

BEGIN {
    unless($LATEX2HTMLDIR = $ENV{'LATEX2HTMLDIR'}) {
        $LATEX2HTMLDIR = $ENV{'LATEX2HTMLDIR'} = '/usr/lib64/latex2html';
    }
    sub try {
        my ($path) = @_;
        $path =~ m|^(.*)/bin/[^/]*/([^/]*)$| ? $1 : '';
    }
}

if(-d $LATEX2HTMLDIR) {
    push(@INC,$LATEX2HTMLDIR);
} else {
    die qq{Fatal: Directory "$LATEX2HTMLDIR" does not exist.\n};
}

# now start the main script!
$SCRIPT = "$LATEX2HTMLDIR/$tool.pl";

require $SCRIPT
    || die "Fatal: Cannot load script $SCRIPT\n";

