topical media & game development
[] readme course(s) preface I 1 2 II 3 4 III 5 6 7 IV 8 9 10 V 11 12 afterthought(s) appendix reference(s) example(s) resource(s) _

talk show tell print

mashup-gmaps-ch16-02.cgi / cgi



  #!/usr/bin/perl
  
  use DBI;
  use strict;
  use CGI qw/:standard/;
  
  print header(-type => 'application/vnd.google-earth.kml+xml xml');
               
  my dbh = DBI->connect( 'dbi:mysql:database=mapsbookex;host=db.maps.mcslp.com',
                          'mapsbookex',
                          'examples',
                          );
  
  print<<EOF;
  <?xml version="1.0" encoding="UTF-8"?>
  <kml xmlns="http://earth.google.com/kml/2.0">
  <Folder>
  <name>Grantham features</name>
  <open>1</open>
  EOF
  
  my sth = dbh->prepare(sprintf('select * from ch10 order by type'));
  
  sth->execute();
  
  my (currenttype,count) = ('',0);
  
  while (my row = sth->fetchrow_hashref())
  {
      if (currenttype ne row->{type})
      {
          if (count > 0)
          {
              print "</Folder>";
          }
          printf("<Folder>\n<name>\%s</name>\n<open>0</open>\n",ucfirst(row->{type}));
          currenttype = row->{type};
      }
      
      count++;
  
      printf("<Placemark>\n<name>\%s</name>\n<address>\%s,\%s</address>\n<Point>\n<coordinates>\%s,\%s,0</coordinates>\n</Point></Placemark>\n",
             row->{title},
             row->{adda},
             row->{addb},
             row->{lng},
             row->{lat},
             );
          
      }
  sth->finish();
  
  print("</Folder></Folder>\n</kml>\n");
[] readme course(s) preface I 1 2 II 3 4 III 5 6 7 IV 8 9 10 V 11 12 afterthought(s) appendix reference(s) example(s) resource(s) _

(C) Æliens 20/2/2008

You may not copy or print any of this material without explicit permission of the author or the publisher. In case of other copyright issues, contact the author.