version 1.68, 2004/08/30 20:05:31
|
version 1.69, 2004/09/09 15:30:49
|
Line 86 END
|
Line 86 END
|
#do we have figures? |
#do we have figures? |
if (-e $figfile) { |
if (-e $figfile) { |
my %done_conversion; |
my %done_conversion; |
my $temporary_file=IO::File->new($figfile) || die "Couldn't open file for reading: $!\n"; |
my $temporary_file=IO::File->new($figfile) || die "Couldn't open fig file $figfile for reading: $!\n"; |
my @content_of_file = <$temporary_file>; |
my @content_of_file = <$temporary_file>; |
close $temporary_file; |
close $temporary_file; |
my $noteps; |
my $noteps; |
Line 210 foreach $texfile (@texfile) {
|
Line 210 foreach $texfile (@texfile) {
|
} #to create index |
} #to create index |
#Do we have a latex error in the log file? |
#Do we have a latex error in the log file? |
my $logfilename = $texfile; $logfilename =~ s/\.tex$/\.log/; |
my $logfilename = $texfile; $logfilename =~ s/\.tex$/\.log/; |
my $temporary_file=IO::File->new($logfilename) || die "Couldn't open file for reading: $!\n"; |
my $temporary_file=IO::File->new($logfilename) || die "Couldn't open log file $logfilename for reading: $!\n"; |
my @content_of_file = <$temporary_file>; |
my @content_of_file = <$temporary_file>; |
close $temporary_file; |
close $temporary_file; |
my $body_log_file = join(' ',@content_of_file); |
my $body_log_file = join(' ',@content_of_file); |
Line 245 foreach $texfile (@texfile) {
|
Line 245 foreach $texfile (@texfile) {
|
print "<a href=\"$logfilename\">Your log file </a></big></b>"; |
print "<a href=\"$logfilename\">Your log file </a></big></b>"; |
print "\n"; |
print "\n"; |
#link tooriginal LaTeX file (included according Michael Hamlin desire) |
#link tooriginal LaTeX file (included according Michael Hamlin desire) |
my $tex_temporary_file=IO::File->new($texfile) || die "Couldn't open file for reading: $!\n"; |
my $tex_temporary_file=IO::File->new($texfile) || die "Couldn't open tex file $texfile for reading: $!\n"; |
my @tex_content_of_file = <$tex_temporary_file>; |
my @tex_content_of_file = <$tex_temporary_file>; |
close $tex_temporary_file; |
close $tex_temporary_file; |
my $body_tex_file = join(' ',@tex_content_of_file); |
my $body_tex_file = join(' ',@tex_content_of_file); |
Line 325 foreach $texfile (@texfile) {
|
Line 325 foreach $texfile (@texfile) {
|
print "<a href=\"$logfilename\">Your log file </a></big></b>"; |
print "<a href=\"$logfilename\">Your log file </a></big></b>"; |
print "\n"; |
print "\n"; |
#link tooriginal LaTeX file (included according Michael Hamlin desire) |
#link tooriginal LaTeX file (included according Michael Hamlin desire) |
my $tex_temporary_file=IO::File->new($texfile) || die "Couldn't open file for reading: $!\n"; |
my $tex_temporary_file=IO::File->new($texfile) || die "Couldn't open tex file $texfile for reading: $!\n"; |
my @tex_content_of_file = <$tex_temporary_file>; |
my @tex_content_of_file = <$tex_temporary_file>; |
close $tex_temporary_file; |
close $tex_temporary_file; |
my $body_tex_file = join(' ',@tex_content_of_file); |
my $body_tex_file = join(' ',@tex_content_of_file); |
Line 380 foreach $texfile (@texfile) {
|
Line 380 foreach $texfile (@texfile) {
|
'a6'=>'<< /PageSize [298.75 421.1] >> setpagedevice', |
'a6'=>'<< /PageSize [298.75 421.1] >> setpagedevice', |
}; |
}; |
if ($paper ne 'letter') { |
if ($paper ne 'letter') { |
open(FFH,'<',$ps_file) || die "Couldn't open file for reading: $!\n"; |
open(FFH,'<',$ps_file) || die "Couldn't open ps file $ps_file for reading: $!\n"; |
my $new_ps_file='new'.$ps_file; |
my $new_ps_file='new'.$ps_file; |
open(FFHS,'>',$new_ps_file) || die "Couldn't open file for reading: $!\n"; |
open(FFHS,'>',$new_ps_file) || die "Couldn't open new ps file $new_ps_file for reading: $!\n"; |
print FFHS $addtoPSfile->{$paper}."\n"; |
print FFHS $addtoPSfile->{$paper}."\n"; |
while (<FFH>) { |
while (<FFH>) { |
print FFHS $_; |
print FFHS $_; |