#########################################################################
#
#  Script to prepare party affiliation data
#
#########################################################################

$proot = '/alldev/john/LIBDEMS/';
$file = $proot.'mysql/partylocs.csv';

$n = scalar @ARGV;

# WardName  varchar(30),
# postcode  varchar(30),
# party int not null default 0,
# partyname varchar(30) not null default '',
# lat double not null default 0,
# lon double not null default 0

# read in csv file
open HFILE, $file or die "failed to open $file for input ($!)\n";
@line = <HFILE>;
close HFILE;

$ofile = $proot.'partylocs.kml';
open HFILE, '>'.$ofile or die "failed to open $ofile for output ($!)\n";

print HFILE '<?xml version="1.0" encoding="utf-8"?>'."\n";
print HFILE '<kml xmlns="http://www.opengis.net/kml/2.2">'."\n";
print HFILE '  <Document>'."\n";
$count = 0;
foreach $line (@line) {
  chomp $line;
  $line =~ s/\n|\r|\t//g;
  @fields = split(',', $line);

  if ($count == 0) {
    @colnames = @fields;
  }
  else {
    $name = $fields[3].' - '.$fields[0].', '.$fields[1];
    $lat = $fields[4];
    $lon = $fields[5];
    
    print HFILE '    <Placemark>'."\n";
    print HFILE '      <name>'.$name.'</name>'."\n";
    print HFILE '      <Point>'."\n";
    print HFILE '        <coordinates>'.$lat.','.$lon.',0</coordinates>'."\n";
    print HFILE '      </Point>'."\n";
    print HFILE '    </Placemark>'."\n";
  }
  $count++;
}

print HFILE '  </Document>'."\n";
print HFILE '</kml>'."\n";
close HFILE;