topical media & game development

talk show tell print

mashup-gmaps-ch13-01.pl / pl



  #!/usr/bin/perl
  
  use DBI;
  
  my dbh = DBI->connect( 'dbi:mysql:database=mapsbookex;host=db.maps.mcslp.com',
                          'mapsbookex',
                          'examples',
                          );
  
  if (defined(dbh))
  {
      dbh->do('create table ch12_routesimple (routeid int auto_increment not null primary key, ' .
               'title varchar(80),description varchar(255))');
      dbh->do('create table ch12_routepoints (routeid int,lat float,lng float)');
  }
  else
  {
      die "Couldn't open connection to database\n";
  }
  
  


(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.