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-ch09-11.cgi / cgi



  #!/usr/bin/perl
  
  use DBI;
  use strict;
  use CGI qw/:standard/;
  
  print header(-type => 'text/xml');
               
  my dbh = DBI->connect( 'dbi:mysql:database=mapsbookex;host=db.maps.mcslp.com',
                          'mapsbookex',
                          'examples',
                          );
  
  if (!defined(dbh))
  {
      die "Couldn't open connection to database\n";
  }
  
  print("<markers>\n");
  
  my sth = dbh->prepare('select * from ch08_cplx');
  sth->execute();
  
  while (my row = sth->fetchrow_hashref())
  {
      printf('<marker lat="\%f" lng="\%f" title="\%s"><infowindow><title>\%s</title><address>\%s</address><city>\%s</city><postcode>\%s</postcode><phone>\%s</phone></infowindow></marker>',
             row->{lat},
             row->{lng},
             row->{title},
             row->{title},
             row->{street},
             row->{city},
             row->{postcode},
             row->{phone},
             );
  
  }
  sth->finish();
  
  print("</markers>\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.