version 1.40.2.3, 2004/03/15 19:26:49
|
version 1.43, 2004/02/03 21:39:11
|
Line 32 use File::Path;
|
Line 32 use File::Path;
|
use IO::File; |
use IO::File; |
use Image::Magick; |
use Image::Magick; |
|
|
my %origENV=%ENV; |
|
if (! &LONCAPA::loncgi::check_cookie_and_load_env()) { |
if (! &LONCAPA::loncgi::check_cookie_and_load_env()) { |
print <<END; |
print <<END; |
Content-type: text/html |
Content-type: text/html |
Line 58 END
|
Line 57 END
|
my $tableofcontents = $ENV{'cgi.'.$identifier.'tableofcontents'}; |
my $tableofcontents = $ENV{'cgi.'.$identifier.'tableofcontents'}; |
my $tableofindex = $ENV{'cgi.'.$identifier.'tableofindex'}; |
my $tableofindex = $ENV{'cgi.'.$identifier.'tableofindex'}; |
my $advans_role = $ENV{'cgi.'.$identifier.'role'}; |
my $advans_role = $ENV{'cgi.'.$identifier.'role'}; |
|
my $back_ref = $ENV{'cgi.'.$identifier.'backref'}; |
|
my $number_of_files = $ENV{'cgi.'.$identifier.'numberoffiles'}+1; |
|
|
#got what we needed reset ENV in case it is to big for system |
|
%ENV=%origENV; |
|
|
|
my $figfile = $texfile; |
my $figfile = $texfile; |
$figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/; |
$figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/; |
Line 68 END
|
Line 67 END
|
$duefile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.due/; |
$duefile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.due/; |
#do we have figures? |
#do we have figures? |
if (-e $figfile) { |
if (-e $figfile) { |
|
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 file for reading: $!\n"; |
my @content_of_file = <$temporary_file>; |
my @content_of_file = <$temporary_file>; |
close $temporary_file; |
close $temporary_file; |
Line 90 END
|
Line 90 END
|
my $image = Image::Magick->new; |
my $image = Image::Magick->new; |
$not_eps =~ s/^\s+//; |
$not_eps =~ s/^\s+//; |
$not_eps =~ s/\s+$//; |
$not_eps =~ s/\s+$//; |
|
if ( exists($done_conversion{$not_eps})) { |
|
next; |
|
} |
|
$done_conversion{$not_eps}=1; |
$status = $image->Read($not_eps); |
$status = $image->Read($not_eps); |
if ($status) {print " $status ";} |
if ($status) {print " $status ";} |
$image->Set(page => '+100+200'); |
$image->Set(page => '+100+200'); |
Line 107 END
|
Line 111 END
|
} |
} |
} |
} |
} |
} |
#print "$texfile\n"; #name of the tex file for debugging only |
#print "$texfile\n"; #name of the tex file for debugging only |
|
my @texfile=($texfile); |
|
if ($number_of_files>1) { |
|
for (my $i=1;$i<=$number_of_files-1;$i++) { |
|
my $new_texfile=$texfile; |
|
$new_texfile=~s/\.tex/_add$i\.tex/; |
|
push @texfile,$new_texfile; |
|
} |
|
} |
|
foreach $texfile (@texfile) { |
if (-e $texfile) { |
if (-e $texfile) { |
$texfile =~ m/^(.*)\/([^\/]+)$/; |
$texfile =~ m/^(.*)\/([^\/]+)$/; |
my $name_file = $2; |
my $name_file = $2; |
Line 281 END
|
Line 294 END
|
} else { |
} else { |
print "LaTeX file $texfile was not created successfully"; |
print "LaTeX file $texfile was not created successfully"; |
} |
} |
|
} |
|
|
|
|
|
|