version 1.5, 2003/07/18 20:42:27
|
version 1.6, 2003/07/18 20:58:33
|
Line 81 while (my $token = $p->get_token())
|
Line 81 while (my $token = $p->get_token())
|
my $file = $attr->{'file'}; |
my $file = $attr->{'file'}; |
my $section = $attr->{'section'}; |
my $section = $attr->{'section'}; |
if (!defined($section)) { $section = ''; } |
if (!defined($section)) { $section = ''; } |
else { $section = "-section $section"; } |
else { |
|
$section = "-section $section"; |
|
# Escape the pipes so they are considered ORs in the |
|
# RE for podselect's "section" option, and not |
|
# pipes by the shell: |
|
$section =~ s/\|/\\\|/g; |
|
} |
$file = '../../loncom/' . $file; |
$file = '../../loncom/' . $file; |
my $tempfile = 't' . substr($file, rindex($file, '/') + 1); |
my $tempfile = 't' . substr($file, rindex($file, '/') + 1); |
system ("cp $file $tmpdir"); |
system ("cp $file $tmpdir"); |
# The "echo" command is necessary; pod2latex can't |
# The "echo" command is necessary; pod2latex can't |
# handle a perl file that *starts* with pod. |
# handle a perl file that *starts* with pod. |
system ("echo > $tmpdir/$tempfile; cat $file | podselect $section >> $tmpdir/$tempfile; cd $tmpdir; pod2latex $tempfile"); |
system ("echo > $tmpdir/$tempfile; cat $file | podselect $section >> $tmpdir/$tempfile; cd $tmpdir; pod2latex -h1level 2 $tempfile"); |
my $latexFile = substr($tempfile, 0, rindex($tempfile, '.')) . '.tex'; |
my $latexFile = substr($tempfile, 0, rindex($tempfile, '.')) . '.tex'; |
open LATEX_FILE, $tmpdir . '/' . $latexFile; |
open LATEX_FILE, $tmpdir . '/' . $latexFile; |
print <LATEX_FILE>; |
print <LATEX_FILE>; |