[Mapserver-users] Perl MapScript (3.7)

[Babak Toloue Tehrani]

Hello,

I am new to MapScript and try to get an output. I use Suse Linux 8.1
with Mapserver 3.7_dev (2003-03-14). Everithing is working fine:

/srv/www/cgi-bin/mapserv -v

MapServer version 3.7 (development) OUTPUT=PNG OUTPUT=JPEG OUTPUT=WBMP
OUTPUT=SWF SUPPORTS=PROJ SUPPORTS=TTF SUPPORTS=WMS_SERVER
SUPPORTS=WMS_CLIENT SUPPORTS=WFS_SERVER SUPPORTS=WFS_CLIENT
SUPPORTS=GD2_RGB INPUT=TIFF INPUT=EPPL7 INPUT=JPEG INPUT=OGR INPUT=GDAL
INPUT=SHAPEFILE

Perl MapScript compiles also without an error. 

# make install

Installing
/usr/lib/perl5/site_perl/5.8.0/i586-linux-thread-multi/auto/mapscript/mapscript.bs
Installing
/usr/lib/perl5/site_perl/5.8.0/i586-linux-thread-multi/auto/mapscript/mapscript.so
Files found in blib/arch: installing files in blib/lib into architecture
dependent library tree
Installing
/usr/lib/perl5/site_perl/5.8.0/i586-linux-thread-multi/mapscript.pm
Writing
/usr/lib/perl5/site_perl/5.8.0/i586-linux-thread-multi/auto/mapscript/.packlist
Appending installation info to
/usr/lib/perl5/5.8.0/i586-linux-thread-multi/perllocal.pod

I tried to write my first Perl Mapscript an run it with: perl demo.pl
and get following error:

Can't locate auto/mapscript/mapObj/selectOutpu.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 demo.pl
line 7

##########################################################################
#!/usr/bin/perl -w

use strict;
use mapscript;

my $map = new mapscript::mapObj('brd_demo_geo.map') or die('Unable to
openmapfile.');
$map->selectOutputFormat("PNG");
$map->draw() or die('Unable to draw map');
my $img->saveImage();

############################################################################
# Start of map file
#
NAME BRD-DEMO
STATUS ON
SIZE 600 500
EXTENT 5.3 55.5 15.5 46.9
UNITS METERS
SHAPEPATH "data"
IMAGECOLOR 255 255 255

WEB
  TEMPLATE brd_demo_geo.html
  IMAGEPATH "set in brd_demo_geo_ini.html"
  IMAGEURL "set in brd_demo_geo_ini.html"
END

OUTPUTFORMAT
  NAME png
  DRIVER "GD/PNG"
  MIMETYPE "image/png"
  IMAGEMODE PC256
  EXTENSION "png"
END

QUERYMAP
    STATUS OFF
    SIZE -1 -1
    COLOR 255 255 0
    STYLE HILITE
END

LAYER
  NAME brd
  TYPE POLYGON
  STATUS DEFAULT
  DATA lnd01dd.shp
  CLASS
      NAME "brd"
      SYMBOL 0
      COLOR 195 195 195
      OUTLINECOLOR 102 102 102
      SIZE 1
      MINSIZE 1
      MAXSIZE 100
  END
END

END
######################################################################
I am also not able to run the examples:

# perl shpinfo.pl -file=data/brd.shp
Usage: new_shapefileObj(filename,shapepath,type); at
/usr/lib/perl5/site_perl/5.8.0/i586-linux-thread-multi/mapscript.pm line
701.

Thanks a lot for helping:
Babak