httemplate/view/kml.cgi

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