loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.40.2.1, 2004/02/12 22:50:35	version 1.41, 2004/01/08 19:50:47
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 71 END	Line 70 END
my $noteps;	my $noteps;
foreach $not_eps (@content_of_file) {	foreach $not_eps (@content_of_file) {
if ($not_eps ne '') {	if ($not_eps ne '') {
	$not_eps=~s\|\/\.\/\|\/\|g;
my $eps_f = $not_eps;	my $eps_f = $not_eps;
$eps_f =~ s/\.[^.]*$/\.eps/i;	$eps_f =~ s/\.[^.]*$/\.eps/i;
$_ = $eps_f;	if ($eps_f=~/\/home\/([^\/]+)\/public_html\//) {
m/\/home\/httpd\/html\/res\/(.+)/;	$eps_f=~s/\/home\/([^\/]+)\/public_html/$1/;
$eps_f = '/home/httpd/prtspool/'.$1;	$eps_f = '/home/httpd/prtspool/'.$eps_f;
	} else {
	$eps_f=~m/\/home\/httpd\/html\/res\/(.+)/;
	$eps_f = '/home/httpd/prtspool/'.$1;
	}
my $path=$eps_f;	my $path=$eps_f;
$path=~s/\/([^\/]+)\.eps$//;	$path=~s/\/([^\/]+)\.eps$//;
File::Path::mkpath($path,0,0777);	File::Path::mkpath($path,0,0777);
my $image = Image::Magick->new;	my $image = Image::Magick->new;
$not_eps =~ s/^\s+//;	$not_eps =~ s/^\s+//;
Line 273 END	Line 277 END
} else {	} else {
print "LaTeX file $texfile was not created successfully";	print "LaTeX file $texfile was not created successfully";
}	}
#got what we needed reset ENV in case it is to big for system
%ENV=%origENV;