Fldigi - Kambing UI

Google Map
snip ------------ copy the following to ~/.fldigi/scripts/map.pl
#!/usr/bin/perl
# Author: Stelios Bounanos, M0GLD
# Date: 20080625
use warnings;
use strict;
use Getopt::Std;
our $VERSION = "0.3141";
our %opts = ( "e" => 0, "m" => 1, "z" => 4);
cmdline();
open(STDOUT, '>', "/dev/null");
my $loc = exists($opts{'l'}) ? $opts{'l'} : $ENV{'FLDIGI_LOG_LOCATOR'};
die "Invalid locator\n" unless ((defined($loc) && length($loc) =~ /[2-6]/));
my $label = exists($opts{'t'}) ? $opts{'t'} : $ENV{'FLDIGI_LOG_CALL'};
$label = $loc if (!defined($label) || $label eq "");
my ($lon, $lat) = map { sprintf("%+.6f", $_) } mtoll($loc);
if ($opts{'m'}) {
my $url = "http://maps.google.com/maps?q=${lat},${lon}(${label})&t=p&z=$opts{'z'}";
# $url =~ s/([(),])/sprintf("%%%02X", ord($1))/ge; # encode some chars
exec("xdg-open", $url);
die "Could not exec xdg-open: $!\n";
}
exit(0) unless ($opts{'e'});
my $kml = (exists($ENV{'TMPDIR'}) ? $ENV{'TMPDIR'} : "/tmp") .
"/" . $loc . ".kml";
open(KML, '>', $kml) or die "Could not write $kml: $!\n";
print KML