#!/usr/bin/perl
  
  use DBI;
  use strict;
  use CGI qw/:standard/;
  
  print header(-type => 'text/xml');
               
  my $dbh\; =\; DBI->connect(\; \text{'}dbi:mysql:database=mapsbookex;host=db.maps.mcslp.com\text{'},\; \text{'}mapsbookex\text{'},\; \text{'}examples\text{'},\; );\; if\; (!defined($dbh))
  {
      die "Couldn't open connection to database\n";
  }
  
  if (param('m') eq 'citylist')
  {
      citylist();
  }
  elsif(param('m') eq 'getmarkers')
  {
      getmarkers(param('city'));
  }
  
  sub citylist
  {
      my $sth\; =$dbh->prepare('select distinct(city) from ch08_cplx');
      $sth->execute();\; print\; "$<cities>";
      while (my row = $sth->fetchrow\_hashref())\; \{\; printf(\text{'}$<city cityname="\%s"/>>',row->{city});
      }
      print "</cities>";
  }
  
  sub getmarkers
  {
      my ($city)\; =\; @\_;\; print("$<markers>\n");
  
      my sth = $dbh->prepare(sprintf(\text{'}select\; *\; from\; ch08\_cplx\; where\; city\; =$\%s',
                                      dbh->quote($city)));$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");
  }