view release on metacpan or  search on metacpan

examples/html_gmap_hires_sample  view on Meta::CPAN

#!/usr/bin/perl

our $VERSION = '0.06';

# $Id: html_gmap_hires_sample,v 1.9 2007/07/27 15:38:36 canaran Exp $

use warnings;
use strict;

use HTML::GMap;

my $gmap_key = 'my_gmap_key';

my $gmap = HTML::GMap->new (
    initial_format        => 'xml-hires',
    page_title            => 'HTML::GMap hires View Demo',
    header                => '[Placeholder for Header]',
    footer                => '[Placeholder for Header]',
    db_access_params      => ['DBI:mysql:database=temp;host=localhost;port=3306', 'gmap', 'gmap'],            
    base_sql_table        => qq[html_gmap_hires_sample],
    base_sql_fields       => ['id',
                              'latitude',
                              'longitude',
                              'name',
                              'pharmacy',
                              'open24',
                              ],
    base_output_headers   => ['Id',
                              'Latitude',
                              'Longitude',
                              'Store Name',
                              'Pharmacy',
                              'Open 24 Hours',
                              ],
    legend_field1         => 'pharmacy',
    legend_field2         => 'open24',
    param_fields          => {
      pharmacy => ['all:All', 'Yes', 'No'],
      open24   => ['all:All', 'Yes', 'No'],
    },
    gmap_key              => $gmap_key,
    temp_dir              => qq[/usr/local/demo/html/demo/tmp],
    temp_dir_eq           => qq[http://localhost:8080/demo/tmp],
);

# Display
$gmap->display;


=head1 NAME

html_gmap_hires_sample - Sample CGI script for HTML::GMap

=head1 SYNOPSIS

html_gmap_hires_sample

=head1 DESCRIPTION

Sample code for demonstrating use of HTML::GMap in hires mode.

=head1 USAGE

Please refer to HTML::GMap::Tutorial for details on this script.

=head1 AUTHOR

Payan Canaran <pcanaran@cpan.org>

=head1 BUGS

=head1 VERSION

Version 0.06

=head1 ACKNOWLEDGEMENTS

=head1 COPYRIGHT & LICENSE

Copyright (c) 2006-2007 Cold Spring Harbor Laboratory

This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. See DISCLAIMER.txt for
disclaimers of warranty.

=cut