loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.37, 2003/09/01 03:30:57	version 1.38, 2003/10/16 15:30:43
Line 26	Line 26
# http://www.lon-capa.org/	# http://www.lon-capa.org/
#	#

	use File::Path;
use IO::File;	use IO::File;
use Image::Magick;	use Image::Magick;
print "Content-type: text/html\n\n";	print "Content-type: text/html\n\n";
Line 48 use Image::Magick;	Line 49 use Image::Magick;
my $eps_f = $not_eps;	my $eps_f = $not_eps;
$eps_f =~ s/\.[^.]*$/\.eps/i;	$eps_f =~ s/\.[^.]*$/\.eps/i;
$_ = $eps_f;	$_ = $eps_f;
m/\/([^\/]+)$/;	m/\/home\/httpd\/html\/res\/(.+)/;
$eps_f = '/home/httpd/prtspool/'.$1;	$eps_f = '/home/httpd/prtspool/'.$1;
	my $path=$eps_f;
	$path=~s/\/([^\/]+)\.eps$//;
	File::Path::mkpath($path,0,0777);
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+$//;
Line 69 use Image::Magick;	Line 73 use Image::Magick;
}	}
}	}
}	}
unlink $figfile;
}	}
#print "$texfile\n"; #name of the tex file for debugging only	#print "$texfile\n"; #name of the tex file for debugging only
if (-e $texfile) {	if (-e $texfile) {