diff --git a/makekml.pl b/makekml.pl index 9ee6634..9932247 100644 --- a/makekml.pl +++ b/makekml.pl @@ -1,10 +1,11 @@ +#!/usr/bin/env perl use MediaWiki::API; use Switch; use strict; use URI::Escape; use Geo::KML; -my $filename = 'ours.kml'; +my $filename = '/var/www/mediawiki/ShadowMap/ours.kml'; my $out = &create_styles; my $kml = Geo::KML->new(version => '2.2.0'); @@ -28,6 +29,7 @@ foreach (@{$articles}) { my @locs = split /\|/ , $&; foreach(@locs) { my @tokens = split(/=/, $_); + $tokens[1] =~ s/\}//g; switch($tokens[0]) { case "Latitude" { $lat = $tokens[1] } case "Longitude" { $long = $tokens[1] }