File: generate-kml.pl

package info (click to toggle)
libgeo-googleearth-pluggable-perl 0.17-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid
  • size: 276 kB
  • sloc: perl: 882; makefile: 2
file content (18 lines) | stat: -rw-r--r-- 413 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
#!/usr/bin/perl
use strict;
use warnings;

=head1 NAME

generate-kml.pl - Generates all of the KML and KMZ files for the example scripts.

=cut

my $lint="";
$lint=" | /usr/bin/xmllint --format - " if -x "/usr/bin/xmllint";
while (my $file=shift) {
  next unless -r $file;
  printf "Running: %s\n", $file;
  print qx{perl -Mblib $file kml $lint > "$file.kml"};
  print qx{perl -Mblib $file kmz  > "$file.kmz"};
}