|
|
@ -94,6 +94,21 @@ sub USAGE |
|
|
|
{ |
|
|
|
{ |
|
|
|
my $code = shift; |
|
|
|
my $code = shift; |
|
|
|
say "USAGE: "; |
|
|
|
say "USAGE: "; |
|
|
|
|
|
|
|
say ""; |
|
|
|
|
|
|
|
say "kml.pl add <name> <coordinates>"; |
|
|
|
|
|
|
|
say ""; |
|
|
|
|
|
|
|
say " Adds a new placemark to ours.kml for <name> at <coordinates>."; |
|
|
|
|
|
|
|
say " The name will automatically link to <name> page on https://jackpoint.obscuritus.ca/"; |
|
|
|
|
|
|
|
say ""; |
|
|
|
|
|
|
|
say ""; |
|
|
|
|
|
|
|
say "kml.pl set <name> <coordinates>"; |
|
|
|
|
|
|
|
say ""; |
|
|
|
|
|
|
|
say " Sets the coordinates of the <name> placemark to <coordinates>."; |
|
|
|
|
|
|
|
say ""; |
|
|
|
|
|
|
|
say ""; |
|
|
|
|
|
|
|
say "kml.pl remove <name>"; |
|
|
|
|
|
|
|
say ""; |
|
|
|
|
|
|
|
say " Removes the <name> placemark"; |
|
|
|
exit($code || 0); |
|
|
|
exit($code || 0); |
|
|
|
} |
|
|
|
} |
|
|
|
sub add_empty_child |
|
|
|
sub add_empty_child |
|
|
|