Perl won't load GD::Graph::pie in Apache, but does with terminal.

Question

It took me forever to get GD to work at all. Now I'm totally stuck. I hope someone can help me. If I run my cgi file from terminal using "perl /Library/WebServer/CGI-Executables/GraphTest.cgi" it prints the "jpeg". If I run it from apache using "http://localhost/cgi-bin/GraphTest.cgi", I get an error saying "Can't locate GD/Graph/pie.pm" along with the typical PATH settings and such. Why can perl run the script without issue, but using web sharing/apache perl can't find the perl module? I assume this is an apache issue?
More details:
*I finally got GD installed using port
*Every time I attempted to install GD and it failed, I erased the HDD and reinstalled OSX. So, this is a very fresh install.
*This is Snow Leopard, not Snow Leopard Server
*If I add the following two lines and run, "sudo perl /Library/WebServer/CGI-Executables/GraphTest.cgi" it will create the graph in my profile directory:
open(GRAPH,">graph5.jpg") || die "Cannot open graph5.jpg: $!\n";
print GRAPH $graph->gd->jpeg(100);
*The cgi file:
#!/usr/bin/perl -w
use strict;
use GD::Graph::pie;
use Text::CSV_XS;
my @data;
my $csv = new Text::CSV_XS;
open(FILE,"/Library/WebServer/data/testmetrics.csv") || die "Cannot open testmetrics.csv: $!\n";
while (my $line = <FILE>) {
$csv->parse($line);
my @col = $csv->fields;
push(@data,\@col);
my $graph = new GD::Graph::pie(300, 300);
$graph->set(
title => 'Revenue by Category for 2001',
label => 'Category',
axislabelclr => 'black',
'3d' => 1,
start_angle => 90,
suppress_angle => 5,
) or warn $graph->error;
$graph->plot(\@data) or die $graph->error;
print $graph->gd->jpeg(100);

Answer 1

Charles Minow wrote:
Hi--
Welcome to the Apple Discussions.
I see some problems with your script, though they wouldn't be a problem with GD::Graph::pie. I'm not sure yet what that problem is.
This script works on my computer:
#!/usr/bin/perl
use strict;
use GD::Graph::pie;
use CGI qw(:standard);
my @data = (
["1st","2nd","3rd","4th","5th","6th"],
[ 4, 2, 3, 4, 13, 3.5]
my $my_graph = new GD::Graph::pie( 250, 200 );
#$my_graph = new GD::Graph::pie( );
$my_graph->set(
title => 'A Pie Chart',
label => 'Label',
axislabelclr => 'black',
pie_height => 36,
l_margin => 15,
r_margin => 15,
start_angle => 235,
transparent => 0,
$my_graph->plot(@data);
print header('Content-type' => 'image/jpeg');
binmode STDOUT;
print $my_graph->gd->jpeg(100);
Note that I included the CGI module, and printed a header with the content type before sending the graphic.
If that script doesn't work on your computer, I'd be interested in seeing the output of this script (run by Apache, of course):
#!/usr/bin/perl
use strict;
use CGI qw(:standard);
print header();
print qq(Perl version (Apache): ) . $] . qq(
my $info = qx(perl -V);
print qq(<pre>$info</pre>
foreach my $key (sort keys %ENV) {
print qq($key = $ENV{$key}
I'd also be curious to see the results of "perl -V" vs. "/usr/bin/perl -V" run from the command line. Perhaps you are somehow using two different Perls...
charlie
Charles Minow wrote:
Hi--
Welcome to the Apple Discussions.
I see some problems with your script, though they wouldn't be a problem with GD::Graph::pie. I'm not sure yet what that problem is.
This script works on my computer:
#!/usr/bin/perl
use strict;
use GD::Graph::pie;
use CGI qw(:standard);
my @data = (
["1st","2nd","3rd","4th","5th","6th"],
[ 4, 2, 3, 4, 13, 3.5]
my $my_graph = new GD::Graph::pie( 250, 200 );
#$my_graph = new GD::Graph::pie( );
$my_graph->set(
title => 'A Pie Chart',
label => 'Label',
axislabelclr => 'black',
pie_height => 36,
l_margin => 15,
r_margin => 15,
start_angle => 235,
transparent => 0,
$my_graph->plot(@data);
print header('Content-type' => 'image/jpeg');
binmode STDOUT;
print $my_graph->gd->jpeg(100);
Note that I included the CGI module, and printed a header with the content type before sending the graphic.
If that script doesn't work on your computer, I'd be interested in seeing the output of this script (run by Apache, of course):
#!/usr/bin/perl
use strict;
use CGI qw(:standard);
print header();
print qq(Perl version (Apache): ) . $] . qq(
my $info = qx(perl -V);
print qq(<pre>$info</pre>
foreach my $key (sort keys %ENV) {
print qq($key = $ENV{$key}
I'd also be curious to see the results of "perl -V" vs. "/usr/bin/perl -V" run from the command line. Perhaps you are somehow using two different Perls...
charlie
Hi Charles,
Thank you much for the reply. I changed my script to exactly what you requested. I got the same old...
"[Wed Jan 06 23:02:15 2010] [error] [client ::1] Can't locate GD/Graph/pie.pm in @INC (@INC contains: /Library/Perl/Updates/5.10.0 /System/Library/Perl/5.10.0/darwin-thread-multi-2level /System/Library/Perl/5.10.0 /Library/Perl/5.10.0/darwin-thread-multi-2level /Library/Perl/5.10.0 /Network/Library/Perl/5.10.0/darwin-thread-multi-2level /Network/Library/Perl/5.10.0 /Network/Library/Perl /System/Library/Perl/Extras/5.10.0/darwin-thread-multi-2level /System/Library/Perl/Extras/5.10.0 .) at /Library/WebServer/CGI-Executables/GraphTest.cgi line 4.
[Wed Jan 06 23:02:15 2010] [error] [client ::1] BEGIN failed--compilation aborted at /Library/WebServer/CGI-Executables/GraphTest.cgi line 4.
[Wed Jan 06 23:02:15 2010] [error] [client ::1] Premature end of script headers: GraphTest.cgi"
The output of your other script is:
"Perl version (Apache): 5.010000
Summary of my perl5 (revision 5 version 10 subversion 0) configuration:
Platform:
osname=darwin, osvers=10.0, archname=darwin-thread-multi-2level
uname='darwin neige.apple.com 10.0 darwin kernel version 10.0.0d8: tue may 5 19:29:59 pdt 2009; root:xnu-1437.2~2release_i386 i386 '
config_args='-ds -e -Dprefix=/usr -Dccflags=-g -pipe -Dldflags= -Dman3ext=3pm -Duseithreads -Duseshrplib -Dincversionlist=none -Dcc=gcc-4.2'
hint=recommended, useposix=true, d_sigaction=define
useithreads=define, usemultiplicity=define
useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
use64bitint=define, use64bitall=define, uselongdouble=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='gcc-4.2', ccflags ='-arch x86_64 -arch i386 -arch ppc -g -pipe -fno-common -DPERL_DARWIN -fno-strict-aliasing -I/usr/local/include',
optimize='-Os',
cppflags='-g -pipe -fno-common -DPERL_DARWIN -fno-strict-aliasing -I/usr/local/include'
ccversion='', gccversion='4.2.1 (Apple Inc. build 5646)', gccosandvers=''
intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
ivtype='long', ivsize=8, nvtype='double', nvsize=8, Offt='offt', lseeksize=8
alignbytes=8, prototype=define
Linker and Libraries:
ld='gcc-4.2 -mmacosx-version-min=10.6', ldflags ='-arch x86_64 -arch i386 -arch ppc -L/usr/local/lib'
libpth=/usr/local/lib /usr/lib
libs=-ldbm -ldl -lm -lutil -lc
perllibs=-ldl -lm -lutil -lc
libc=/usr/lib/libc.dylib, so=dylib, useshrplib=true, libperl=libperl.dylib
gnulibc_version=''
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=bundle, d_dlsymun=undef, ccdlflags=' '
cccdlflags=' ', lddlflags='-arch x86_64 -arch i386 -arch ppc -bundle -undefined dynamic_lookup -L/usr/local/lib'
Characteristics of this binary (from libperl):
Compile-time options: MULTIPLICITY PERLDONT_CREATEGVSV
PERLIMPLICITCONTEXT PERLMALLOCWRAP USE64_BITALL
USE64_BITINT USE_ITHREADS USELARGEFILES
USE_PERLIO USEREENTRANTAPI
Locally applied patches:
/Library/Perl/Updates/ comes before system perl directories
installprivlib and installarchlib points to the Updates directory
Built under darwin
Compiled at Jun 24 2009 00:35:27
@INC:
/Library/Perl/Updates/5.10.0
/System/Library/Perl/5.10.0/darwin-thread-multi-2level
/System/Library/Perl/5.10.0
/Library/Perl/5.10.0/darwin-thread-multi-2level
/Library/Perl/5.10.0
/Network/Library/Perl/5.10.0/darwin-thread-multi-2level
/Network/Library/Perl/5.10.0
/Network/Library/Perl
/System/Library/Perl/Extras/5.10.0/darwin-thread-multi-2level
/System/Library/Perl/Extras/5.10.0
DOCUMENT_ROOT = /Library/WebServer/Documents
GATEWAY_INTERFACE = CGI/1.1
HTTP_ACCEPT = application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/pn g,/;q=0.5
HTTPACCEPTENCODING = gzip, deflate
HTTPACCEPTLANGUAGE = en-us
HTTP_CONNECTION = keep-alive
HTTP_HOST = localhost
HTTPUSERAGENT = Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_6; en-us) AppleWebKit/531.9 (KHTML, like Gecko) Version/4.0.3 Safari/531.9
PATH = /usr/bin:/bin:/usr/sbin:/sbin
QUERY_STRING =
REMOTE_ADDR = ::1
REMOTE_PORT = 49513
REQUEST_METHOD = GET
REQUEST_URI = /cgi-bin/GraphTest2.cgi
SCRIPT_FILENAME = /Library/WebServer/CGI-Executables/GraphTest2.cgi
SCRIPT_NAME = /cgi-bin/GraphTest2.cgi
SERVER_ADDR = ::1
SERVER_ADMIN = [email protected]
SERVER_NAME = localhost
SERVER_PORT = 80
SERVER_PROTOCOL = HTTP/1.1
SERVER_SIGNATURE =
SERVER_SOFTWARE = Apache/2.2.11 (Unix) mod_ssl/2.2.11 OpenSSL/0.9.8k DAV/2
VERSIONERPERL_PREFER_32BIT = no
VERSIONERPERLVERSION = 5.10.0
_CF_USER_TEXTENCODING = 0x46:0:0"
Your other request of "perl -V" outputs:
"Summary of my perl5 (revision 5 version 8 subversion 9) configuration:
Platform:
osname=darwin, osvers=10.0.0, archname=darwin-2level
uname='darwin itca-display-9235.local 10.0.0 darwin kernel version 10.0.0: fri jul 31 22:47:34 pdt 2009; root:xnu-1456.1.25~1release_i386 i386 '
config_args='-des -D prefix=/opt/local -D scriptdir=/opt/local/bin -D cppflags=-I/opt/local/include -D ldflags=-L/opt/local/lib -D vendorprefix=/opt/local -D man1ext=1pm -D man3ext=3pm -D cc=/usr/bin/gcc-4.2 -D ld=/usr/bin/gcc-4.2 -D man1dir=/opt/local/share/man/man1p -D man3dir=/opt/local/share/man/man3p -D siteman1dir=/opt/local/share/man/man1 -D siteman3dir=/opt/local/share/man/man3 -D vendorman1dir=/opt/local/share/man/man1 -D vendorman3dir=/opt/local/share/man/man3 -D incversionlist=5.8.8 5.8.8/darwin-2level -U i_bind -U i_gdbm -U i_db'
hint=recommended, useposix=true, d_sigaction=define
usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
use64bitint=define use64bitall=define uselongdouble=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='/usr/bin/gcc-4.2', ccflags ='-fno-common -DPERL_DARWIN -I/opt/local/include -no-cpp-precomp -fno-strict-aliasing -pipe -I/opt/local/include',
optimize='-O3',
cppflags='-I/opt/local/include -no-cpp-precomp -fno-common -DPERL_DARWIN -I/opt/local/include -no-cpp-precomp -fno-strict-aliasing -pipe -I/opt/local/include'
ccversion='', gccversion='4.2.1 (Apple Inc. build 5646)', gccosandvers=''
intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
ivtype='long', ivsize=8, nvtype='double', nvsize=8, Offt='offt', lseeksize=8
alignbytes=8, prototype=define
Linker and Libraries:
ld='env MACOSXDEPLOYMENTTARGET=10.3 /usr/bin/gcc-4.2', ldflags ='-L/opt/local/lib'
libpth=/opt/local/lib /usr/lib
libs=-ldbm -ldl -lm -lutil -lc
perllibs=-ldl -lm -lutil -lc
libc=/usr/lib/libc.dylib, so=dylib, useshrplib=false, libperl=libperl.a
gnulibc_version=''
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=bundle, d_dlsymun=undef, ccdlflags=' '
cccdlflags=' ', lddlflags='-L/opt/local/lib -bundle -undefined dynamic_lookup'
Characteristics of this binary (from libperl):
Compile-time options: PERLMALLOCWRAP USE64_BITALL USE64_BITINT
USEFASTSTDIO USELARGEFILES USE_PERLIO
Built under darwin
Compiled at Jan 6 2010 17:16:53
@INC:
/opt/local/lib/perl5/site_perl/5.8.9/darwin-2level
/opt/local/lib/perl5/site_perl/5.8.9
/opt/local/lib/perl5/site_perl
/opt/local/lib/perl5/vendor_perl/5.8.9/darwin-2level
/opt/local/lib/perl5/vendor_perl/5.8.9
/opt/local/lib/perl5/vendor_perl
/opt/local/lib/perl5/5.8.9/darwin-2level
/opt/local/lib/perl5/5.8.9
And finally, "/usr/bin/perl -V" outputs
"Summary of my perl5 (revision 5 version 10 subversion 0) configuration:
Platform:
osname=darwin, osvers=10.0, archname=darwin-thread-multi-2level
uname='darwin neige.apple.com 10.0 darwin kernel version 10.0.0d8: tue may 5 19:29:59 pdt 2009; root:xnu-1437.2~2release_i386 i386 '
config_args='-ds -e -Dprefix=/usr -Dccflags=-g -pipe -Dldflags= -Dman3ext=3pm -Duseithreads -Duseshrplib -Dincversionlist=none -Dcc=gcc-4.2'
hint=recommended, useposix=true, d_sigaction=define
useithreads=define, usemultiplicity=define
useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
use64bitint=define, use64bitall=define, uselongdouble=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='gcc-4.2', ccflags ='-arch x86_64 -arch i386 -arch ppc -g -pipe -fno-common -DPERL_DARWIN -fno-strict-aliasing -I/usr/local/include',
optimize='-Os',
cppflags='-g -pipe -fno-common -DPERL_DARWIN -fno-strict-aliasing -I/usr/local/include'
ccversion='', gccversion='4.2.1 (Apple Inc. build 5646)', gccosandvers=''
intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
ivtype='long', ivsize=8, nvtype='double', nvsize=8, Offt='offt', lseeksize=8
alignbytes=8, prototype=define
Linker and Libraries:
ld='gcc-4.2 -mmacosx-version-min=10.6', ldflags ='-arch x86_64 -arch i386 -arch ppc -L/usr/local/lib'
libpth=/usr/local/lib /usr/lib
libs=-ldbm -ldl -lm -lutil -lc
perllibs=-ldl -lm -lutil -lc
libc=/usr/lib/libc.dylib, so=dylib, useshrplib=true, libperl=libperl.dylib
gnulibc_version=''
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=bundle, d_dlsymun=undef, ccdlflags=' '
cccdlflags=' ', lddlflags='-arch x86_64 -arch i386 -arch ppc -bundle -undefined dynamic_lookup -L/usr/local/lib'
Characteristics of this binary (from libperl):
Compile-time options: MULTIPLICITY PERLDONT_CREATEGVSV
PERLIMPLICITCONTEXT PERLMALLOCWRAP USE64_BITALL
USE64_BITINT USE_ITHREADS USELARGEFILES
USE_PERLIO USEREENTRANTAPI
Locally applied patches:
/Library/Perl/Updates/<version> comes before system perl directories
installprivlib and installarchlib points to the Updates directory
Built under darwin
Compiled at Jun 24 2009 00:35:27
@INC:
/Library/Perl/Updates/5.10.0
/System/Library/Perl/5.10.0/darwin-thread-multi-2level
/System/Library/Perl/5.10.0
/Library/Perl/5.10.0/darwin-thread-multi-2level
/Library/Perl/5.10.0
/Network/Library/Perl/5.10.0/darwin-thread-multi-2level
/Network/Library/Perl/5.10.0
/Network/Library/Perl
/System/Library/Perl/Extras/5.10.0/darwin-thread-multi-2level
/System/Library/Perl/Extras/5.10.0
So, I guess you were right. I'm running two different perls. The first one looks like it was installed by port along with GD. Is it possible to get the default perl to run GD?