|
|
@ -7,7 +7,7 @@ use warnings; |
|
|
|
use XML::LibXML; |
|
|
|
use XML::LibXML; |
|
|
|
use URI::Escape; |
|
|
|
use URI::Escape; |
|
|
|
|
|
|
|
|
|
|
|
my $filename = 'ours.kml'; |
|
|
|
my $filename = 'webroot/ours.kml'; |
|
|
|
my $dom = XML::LibXML->load_xml(location => $filename, no_blanks => 1); |
|
|
|
my $dom = XML::LibXML->load_xml(location => $filename, no_blanks => 1); |
|
|
|
my $xpc = XML::LibXML::XPathContext->new($dom); |
|
|
|
my $xpc = XML::LibXML::XPathContext->new($dom); |
|
|
|
$xpc->registerNs('k', "http://earth.google.com/kml/2.2"); |
|
|
|
$xpc->registerNs('k', "http://earth.google.com/kml/2.2"); |
|
|
|