Beginnings of a script for adding/removing Jackpoint placemarks

pull/1/head
Daniel Asher Resnick 4 years ago
parent 36f3aed13b
commit 37de41f7b3
  1. 67
      kml.pl

@ -0,0 +1,67 @@
#!/usr/bin/env perl
use 5.010;
use strict;
use warnings;
use XML::LibXML;
use Data::Dumper;
my $filename = 'ours.kml';
my $dom = XML::LibXML->load_xml(location => $filename, no_blanks => 1);
my $xpc = XML::LibXML::XPathContext->new($dom);
$xpc->registerNs('k', "http://earth.google.com/kml/2.2");
append_placemark("Fo'o", '-122,47', 'Fo%27o');
append_placemark("Bar", '-122.5,47.5');
# say $dom->toString(1);
open TEST_KML, ">test.kml";
print TEST_KML $dom->toString(1);
close TEST_KML;
sub add_empty_child
{
my $node = shift;
my $element_name = shift;
my $child_node = $dom->createElement($element_name);
$node->appendChild($child_node);
return $child_node;
}
sub append_placemark
{
my $name = shift;
my $coordinates = shift;
my $article_name = shift;
my $placemark = add_empty_child($dom->documentElement, 'Placemark');
$placemark->{id} = to_id($name);
my $name_node = add_empty_child($placemark, 'name');
my $name_content;
if(defined($article_name))
{
$name_content = "<a href=\"https://jackpoint.obscuritus.ca/index.php?title=$article_name\">$name</a>";
}
else
{
$name_content = $name;
}
my $name_cdata = $dom->createCDATASection($name_content);
$name_node->appendChild($name_cdata);
my $style_node = add_empty_child($placemark, 'styleUrl');
$style_node->appendText('#jackpoint-logo');
my $point_node = add_empty_child($placemark, 'Point');
my $coordinates_node = add_empty_child($point_node, 'coordinates');
$coordinates_node->appendText($coordinates);
}
sub to_id
{
my $string = shift;
$string =~ s/ /_/g;
$string =~ s/\W//g;
return lc($string);
}
Loading…
Cancel
Save