Stephen Davies writes:
Sorry; a mistake in my posting.
The actual invocation of the script was:
./genpics q 1 jpg 139.5143351 -34.7459112 139.5278707 -34.7207
The problem remains.
Cheers and thanks
Stephen
On Wednesday 15 March 2006 17:01, Manfred Meier wrote:
> ./genpics q 1 139.5143351 -34.7459112 139.5278707 -34.7207
Is there a parameter missing before "139.5143351"? minx is ARGV[3] in
your program.
Hope that helps
Manfred
Stephen Davies schrieb:
> 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
Stephen,
You should not need prepareImage in this case. map->draw will return the new
imageObj.
If you have additional/continuing problems you may need to include q.map.
Lowell
