I am having my first attempt at using PERL/Mapscript to save map images to files and am not getting too far.
I have a map file that works perfectly when used with: http://server/cgi-bin/mapserv?map=/tmp/q.map&mapext=139.5143351+-34.7459112+139.5278707+-34.7207 I have the following PERL test bed: #! /usr/bin/perl # # args are UID (for mapfile), pic sequence #, image type (extension), map extent # use strict; use mapscript; my $uno = $ARGV[0]; my $seq = $ARGV[1]; my $ext = $ARGV[2]; my $minx = $ARGV[3]; my $miny = $ARGV[4]; my $maxx = $ARGV[5]; my $maxy = $ARGV[6]; # my $mapfile = "/tmp/$uno.map"; my $map = mapscript::mapObj->new($mapfile); $map->setExtent($minx,$miny,$maxx,$maxy); # my $img = $map->prepareImage(); $img = $map->draw(); my $fname = "/var/www/html/status_images/$uno_$seq.$ext"; print "$fname\n"; $img->save($fname); Called as: ./genpics q 1 139.5143351 -34.7459112 139.5278707 -34.7207 This generates a blank jpeg file (of some 2800 bytes). What am I missing? Cheers and thanks, Stephen Davies MapServer version 4.8.0-rc2 OUTPUT=GIF OUTPUT=PNG OUTPUT=JPEG OUTPUT=WBMP OUTPUT=SVG SUPPORTS=PROJ SUPPORTS=FREETYPE SUPPORTS=WMS_SERVER SUPPORTS=WFS_SERVER SUPPORTS=WCS_SERVER SUPPORTS=GEOS INPUT=EPPL7 INPUT=POSTGIS INPUT=OGR INPUT=GDAL INPUT=SHAPEFILE -- ======================================================================== This email is for the person(s) identified above, and is confidential to the sender and the person(s). No one else is authorised to use or disseminate this email or its contents. Stephen Davies Consulting Voice: 08-8177 1595 Adelaide, South Australia. Fax: 08-8177 0133 Computing & Network solutions. Mobile:0403 0405 83
