1@rem = '--*-Perl-*--
2@echo off
3set arg=
4set prog=%0
5:one
6if "%1"=="" goto two
7set arg=%arg% %1
8shift
9goto one
10:two
11#if @TEXLIVE@
12perl -x -S %prog% %arg%
13#else
14@PERL@ -x -S %prog% %arg%
15#fi
16set arg=
17set prog=
18goto endofperl
19@rem ';
20#! perl -w
21
22# Here we are in the perl script, finally. The stuff above
23# collects command line arguments and starts up perl and this
24# script
25
26package main;
27require 5.00305;
28use strict;
29use vars qw($LATEX2HTMLDIR $SCRIPT $TEXLIVEROOT);
30
31# Set LATEX2HTMLDIR
32
33my $tool = $0;
34$tool =~ s:^.*[\\/]::; # strip path
35$tool =~ s:[.][^\\/.]*$::; # strip extension
36
37BEGIN {
38    unless($LATEX2HTMLDIR = $ENV{'LATEX2HTMLDIR'}) {
39#if @texlive@
40        my $root = try($0) || ( -s $0 ?
41        do {
42            use Cwd;
43            my $path = join('\\',cwd(),$0);
44            1 while($path =~ s|[/\\]\.?[/\\]|\\|g); # simplify
45            try($path);
46        } :
47        do {
48            my $path = '';
49            foreach(split(/;/, $ENV{PATH} || '')) {
50                $path = "$_\\$0";
51                last if(-s $path);
52                $path = '';
53            }
54            try($path);
55        }) || die "Cannot determine TeXlive root path\n";
56
57        $TEXLIVEROOT = $root;
58        $LATEX2HTMLDIR = $ENV{'LATEX2HTMLDIR'} = "$root\\latex2html";
59#else
60        $LATEX2HTMLDIR = $ENV{'LATEX2HTMLDIR'} = '@LATEX2HTMLDIR@';
61#fi
62    }
63    sub try {
64        my ($path) = @_;
65        $path =~ m:^(.*)[/\\]bin[/\\][^/\\]*[/\\]([^/\\]*)(\.bat|)$:i ?
66            $1 : '';
67    }
68}
69
70if(-d $LATEX2HTMLDIR) {
71    push(@INC,$LATEX2HTMLDIR);
72} else {
73    die qq{Fatal: Directory "$LATEX2HTMLDIR" does not exist.\n};
74}
75
76# now start the main script!
77$SCRIPT = "$LATEX2HTMLDIR\\$tool.pl";
78require $SCRIPT
79    || die "Fatal: Cannot load script $SCRIPT\n";
80
81__END__
82:endofperl
83