blob: 7eaaa2a911c3573d14eafb05ad9539a64ae43cbb (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
<% $kml->archive %>\
<%init>
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
( my $name = $cgi->param('name') ) =~ s/[^a-z0-9]/_/g; #perhaps too restrictive
http_header('Content-Disposition' => "filename=$name.kmz" );
</%init>
|
