httemplate/view/kml.cgi

   1 <% $kml->archive %>\
   2 <%init>
   3
   4 my $kml = Geo::GoogleEarth::Pluggable->new;
   5 $kml->Point( map { $_=>scalar($cgi->param($_)) } qw( name lat lon ) );
   6
   7 #http_header('Content-Type' => 'application/vnd.google-earth.kml+xml' ); #kml
   8 http_header('Content-Type' => 'application/vnd.google-earth.kmz' ); #kmz
   9 ( my $name = $cgi->param('name') ) =~ s/[^a-z0-9]/_/gi; #perhaps too restrictive
  10 http_header('Content-Disposition' => "filename=$name.kmz" );
  11 </%init>