[mapserver-users] Re: baby steps with MapScript (problem)

[Mr. Puneet Kishor]

Never mind... figured out the error, and its working now,


On Aug 27, 2011, at 5:02 PM, Mr. Puneet Kishor wrote:

> I am relearning MapScript after years of innocence. I have a fairly simple script like so (also at http://pastebin.com/7rehitjH). The image is created, but is empty, plain white. There is some silliness on my part, something obvious I am overlooking or doing wrong, and I need someone to point it to me. Needless to say, the same map draws fine via MapServer CGI --
> 
> my $map = new mapscript::mapObj();
> warn "New mapObj() error: $mapscript::ms_error->{message}\n" unless $map;
> 
> $map->{status} = $mapscript::MS_ON;                             # STATUS ON
> $map->{units} = $mapscript::MS_DD;                              # UNITS DD
> $map->setImageType('png');                                      # IMAGETYPE PNG
> $map->{imagecolor} = new mapscript::colorObj(255, 255, 255);    # IMAGECOLOR 255 255 255
> $map->setSize(1000, 600);                                       # SIZE 1000 600
> $map->setExtent( -180, -90, 180, 90 );                          # EXTENT -180 -90 180 90
> $map->selectOutputFormat( 'png' );                              # Choose active output format
> $map->setProjection( "proj=latlong" );                          # PROJECTION
>                                                                #   "proj=latlong"
>                                                                # END
> 
> my $outputFormatObj = new mapscript::outputFormatObj('GD/PNG'); # DRIVER "GD/PNG"
> $outputFormatObj->setExtension('png');                          # EXTENSION "png"
> $outputFormatObj->setMimetype('image/png');                     # MIMETYPE "image/png"
> $outputFormatObj->{imagemode} = $mapscript::MS_IMAGEMODE_RGB;   # IMAGEMODE RGB | PC256
> 
> $map->setOutputFormat( $outputFormatObj );
> 
> my $layerObj = new mapscript::layerObj($map);
> $layerObj->setConnectionType($mapscript::MS_POSTGIS, '');
> $layerObj->{connection} = "host=127.0.0.1 port=5432 dbname=$db user=$dbuser password=$pwd";
> $layerObj->{data} = 'the_geom FROM table USING UNIQUE gid';
> 
> my $classObj = new mapscript::classObj($layerObj);
> $classObj->{name} = 'foo';
> 
> my $styleObj = new mapscript::styleObj($classObj);        
> $styleObj->{color} = new mapscript::colorObj( 132, 132, 132);
> $styleObj->{outlinecolor} = new mapscript::colorObj(0, 0, 0);
> 
> # create an image for drawing.
> my $img = $map->draw();
> warn "prepareImage() error: $mapscript::ms_error->{message}\n" unless $img;
> 
> $img->save("$tmp_dir/$image_name");