version 1.9, 2003/09/02 18:29:58
|
version 1.10, 2004/09/14 21:18:44
|
Line 36 use File::Temp;
|
Line 36 use File::Temp;
|
my $p = HTML::TokeParser->new( $ARGV[0] ); |
my $p = HTML::TokeParser->new( $ARGV[0] ); |
my $dirprefix = "../../loncom/html/adm/help/tex/"; |
my $dirprefix = "../../loncom/html/adm/help/tex/"; |
|
|
|
my $include_filenames = ($ARGV[1] eq '--with-filenames'); |
# Make myself a temp dir for processing POD |
# Make myself a temp dir for processing POD |
my $tmpdir = File::Temp::tempdir('loncapahelpgenXXXXXXX', TMPDIR => 1); |
my $tmpdir = File::Temp::tempdir('loncapahelpgenXXXXXXX', TMPDIR => 1); |
|
|
Line 68 while (my $token = $p->get_token())
|
Line 69 while (my $token = $p->get_token())
|
my $file = $attr->{'name'}; |
my $file = $attr->{'name'}; |
open (LATEX_FILE, $dirprefix . $file) or |
open (LATEX_FILE, $dirprefix . $file) or |
($! = 1, die "Can't find LaTeX file $dirprefix/$file; terminating build."); |
($! = 1, die "Can't find LaTeX file $dirprefix/$file; terminating build."); |
|
my $esc_file=$file; |
|
$esc_file=~s/_/\\_/g; |
|
if ($include_filenames) { |
|
print "\\textrm{File: \\bf $esc_file}\\\\\n"; |
|
} |
print <LATEX_FILE>; |
print <LATEX_FILE>; |
print "\n\n"; |
print "\n\n"; |
} |
} |