|
version 1.11, 2002/08/01 15:28:35
|
version 1.12, 2002/08/01 15:41:41
|
|
Line 20 if (-e $figfile) {
|
Line 20 if (-e $figfile) {
|
| if ($not_eps ne '') { |
if ($not_eps ne '') { |
| my $eps_f = $not_eps; |
my $eps_f = $not_eps; |
| $eps_f =~ s/\.[^.]*$/\.eps/i; |
$eps_f =~ s/\.[^.]*$/\.eps/i; |
| print"START $eps_f FINISH\n"; |
|
| $_ = $eps_f; |
$_ = $eps_f; |
| m/\/([^\/]+)$/; |
m/\/([^\/]+)$/; |
| print"START $1 FINISH\n"; |
|
| $eps_f = '/home/httpd/prtspool/'.$1; |
$eps_f = '/home/httpd/prtspool/'.$1; |
| my $image = Image::Magick->new; |
my $image = Image::Magick->new; |
| $not_eps =~ s/^\s+//; |
$not_eps =~ s/^\s+//; |
![[BACK]](/icons/back.gif){kind=icon}
Return to printout.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface