[Mapserver-users] Problems with PerlMapscript 3.7 Syntax

[Lowell Filak]

At first glance it appears that swf * pdf are not handled the same way as "customary" image formats like jpeg.
The swf is actually created by first rendering a temporary gd object and dumping that into the swf creation routine so there may be a different way of accessing that via mapscript (I don't know what that is yet).
HTH
Lowell F.

The following message was sent by Babak Toloue Tehrani <babak.tehrani at geosysnet.de> on 01 May 2003 20:34:58 +0200.

> Thanks Sean and Lowell,
> 
> #!/usr/bin/perl -w
> use mapscript;
> use strict;
> 
> my $map = new mapscript::mapObj("data/demo37.map") or die('Unable to
> OPEN mapfile.');
> $map->setImageType("png");
> my $img = $map->draw() or die('Unable to DRAW mapfile.');
> $img->save('test37');
> $img->free();
> 
> This works!!!!
> The mistake was to write ...or die('Unable to setImageType.'); behind
> the setImageType!!?? This works also for swf, but then the $img->free() 
> give me a memoryaccesserror when I use setImageType("swf") to specify
> the outputformat. I don't get the error when I specify the outputpormat
> in the mapfile. The swf file is produced even though the error.
> 
> Cheers
> 
> 
> 
> Am Don, 2003-05-01 um 20.07 schrieb Lowell Filak:
> > There are a few things here that may be causing the exit during the setting of the image type, ie. "use strict".
> > Have you already tried tuirning on the debugging to see if you receive a better message of what is occuring?
> > Lowell F.
> > 
> > The following message was sent by Babak Toloue Tehrani <babak.tehrani at geosysnet.de> on 01 May 2003 16:34:07 +0200.
> > 
> > > Hello,
> > > 
> > > I have still problems with perlmapscript 3.7. The demo below with the
> > > syntax of perlmapscript 3.6 is working very fine on my system. shp2img
> > > is also working for the mapfile below.
> > > >From the WIKI MigrationGuide I Take the syntax for saveImage():
> > > 
> > > $img->saveImage('test37.png');
> > > 
> > > and get following output:
> > > 
> > > Can't locate auto/mapscript/imageObj/saveImage.al in @INC (@INC
> > > contains: /usr/lib/perl5/5.8.0/i586-linux-thread-multi
> > > /usr/lib/perl5/5.8.0
> > > /usr/lib/perl5/site_perl/5.8.0/i586-linux-thread-multi
> > > /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl .) at test37.pl
> > > line 7
> > > 
> > > Then I looked for the string saveImage in the mapscript.pm module and
> > > found the function msSaveImage who brings me following output:
> > > 
> > > Usage: msSaveImage(map,img,filename); at test37.pl line 7.
> > > 
> > > I tried: $map->msSaveImage($map,$img,'test37');
> > > 
> > > and got same errormessage as before. Then I tried to set the set the
> > > ImageType with:
> > > 
> > > map->setImageType("png") or die('Unable to setImageType.');
> > > 
> > > and see that it failed. Here the script and the mapfile:
> > > 
> > > (Does someone now a tool to extract from a perl Module (mapscript.pm) a
> > > list of all Classes/Objects, Members and Methods?)
> > > 
> > > Thanks a lot,
> > > 
> > > Babak
> > > 
> > > ==========================================================================
> > > #!/usr/bin/perl -w
> > > use mapscript;
> > > use strict;
> > > 
> > > my $map = new mapscript::mapObj("data/demo37.map") or die('Unable to
> > > OPEN mapfile.');
> > > $map->setImageType("png") or die('Unable to setImageType.');
> > > my $img = $map->draw() or die('Unable to DRAW mapfile.');
> > > $map->msSaveImage($map,$img,'test37');
> > > $img->free();
> > > --------------------------------------------------------------------------
> > > NAME DEMO37
> > > STATUS ON
> > > SIZE 600 450
> > > EXTENT 5.3 55.5 15.5 46.9
> > > UNITS METERS
> > > SHAPEPATH "data"
> > > IMAGECOLOR 255 255 255
> > > 
> > > OUTPUTFORMAT
> > >   NAME png
> > >   DRIVER "GD/PNG"
> > >   MIMETYPE "image/png"
> > >   IMAGEMODE PC256
> > >   EXTENSION "png"
> > > END
> > > 
> > > LAYER
> > >   NAME TESTLAYER
> > >   TYPE POLYGON
> > >   STATUS DEFAULT
> > >   DATA lnd01dd.shp
> > >   CLASS
> > >       NAME TESTCLASS
> > >       SYMBOL 0
> > >       COLOR 195 195 195
> > >       OUTLINECOLOR 102 102 102
> > >   END
> > > END
> > > END
> > > 
> > > -- 
> > > Babak Toloue Tehrani <babak.tehrani at geosysnet.de>
> > > 
> > > _______________________________________________
> > > Mapserver-users mailing list
> > > Mapserver-users at lists.gis.umn.edu
> > > http://lists.gis.umn.edu/mailman/listinfo/mapserver-users
> -- 
> Babak Toloue Tehrani <babak.tehrani at geosysnet.de>
> 
> _______________________________________________
> Mapserver-users mailing list
> Mapserver-users at lists.gis.umn.edu
> http://lists.gis.umn.edu/mailman/listinfo/mapserver-users