From 29fd19132599c666b5a83b0bf997c6dc8ab2496a Mon Sep 17 00:00:00 2001
From: Daniel Asher Resnick <danwizard208@gmail.com>
Date: Wed, 25 Nov 2020 19:36:04 -0600
Subject: [PATCH] kml.pl: Adding placemarks works

---
 kml.pl | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/kml.pl b/kml.pl
index 465eb60..70a06b4 100755
--- a/kml.pl
+++ b/kml.pl
@@ -5,18 +5,17 @@ use strict;
 use warnings;
 
 use XML::LibXML;
-use Data::Dumper;
+use URI::Escape;
 
-my ($name, $coordinates, $article) = @ARGV;
+my ($name, $coordinates) = @ARGV;
 
 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($name, $coordinates, $article);
+append_placemark($name, $coordinates, uri_escape($name));
 
-# say $dom->toString(1);
 print $dom->toString(1);
 
 sub add_empty_child
@@ -50,6 +49,11 @@ sub append_placemark
     my $name_cdata = $dom->createCDATASection($name_content);
     $name_node->appendChild($name_cdata);
 
+    my $description_node = add_empty_child($placemark, 'description');
+    my $description_content = $coordinates;
+    my $description_cdata = $dom->createCDATASection($description_content);
+    $description_node->appendChild($description_cdata);
+
     my $style_node = add_empty_child($placemark, 'styleUrl');
     $style_node->appendText('#jackpoint-logo');