blob: 47435c74a49a609a7496ff34b8736d18ce7f4112 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
<% $kml->archive %>\
<%init>
my ($latitude, $longitude, $name) = @_;
#would be nice to pass in customer or prospect name too...
my $kml = Geo::GoogleEarth::Pluggable->new;
$kml->Point( map { $_=>scalar($cgi->param($_)) } qw( name lat lon ) );
#http_header('Content-Type' => 'application/vnd.google-earth.kml+xml' ); #kml
http_header('Content-Type' => 'application/vnd.google-earth.kmz' ); #kmz
</%init>
|