Fixed conf bug
[geohash-tool.git] / geohash-tool
index 1439ecd..f21ad92 100644 (file)
@@ -1,48 +1,31 @@
 #!/usr/bin/perl
 
 # Copyright (C) 2015 Gabriel PĂ©rez-Cerezo
-
-# Permission is hereby granted, free of charge, to any person
-# obtaining a copy of this software and associated documentation files
-# (the "Software"), to deal in the Software without restriction,
-# including without limitation the rights to use, copy, modify, merge,
-# publish, distribute, sublicense, and/or sell copies of the Software,
-# and to permit persons to whom the Software is furnished to do so,
-# subject to the following conditions:
-
-# The above copyright notice and this permission notice shall be
-# included in all copies or substantial portions of the Software.
-
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
-# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
-# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS
-# BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
-# ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
-# CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
-# SOFTWARE.
+# This library is free software; you can redistribute it and/or modify
+# it under the same terms as Perl itself, either Perl version 5.10.0 or,
+# at your option, any later version of Perl 5 you may have available.
 
 =encoding utf8
 
-=head1 geohash.pl
+=head1 NAME
 
 
-geohash.pl - Get the geohash's location and its distance to your home or workplace
+geohash-tool - Get the geohash's location and its distance to your home or workplace
 
 =head1 SYNOPSIS
 
-geohash.pl [B<-d> I<DATE>] [B<-l> I<LAT.LON>]
+geohash-tool [B<-d> I<DATE>] [B<-l> I<LAT.LON>]
 
 =head1 DESCRIPTION
 
 This script calculates the geohash's location for your graticule for
 any (past) date. Then it queries Openstreetmap and prints the place
 name. Finally, it prints the distance between your home (or any other
-point you specify) and the geohash.
+point you specify) and the geohash, using spherical trigonometry.
 
 =head1 CONFIGURATION
 
-geohash.pl is configured using a YAML file located at F<~/.geohashrc.>
+geohash-tool is configured using a YAML file located at F<~/.geohashrc.>
 It should look like this:
 
     ---
@@ -94,7 +77,7 @@ my $url;
 our %opts;
 ### Read the configuration file:
 my $string;
-our $VERSION = 0.1;
+our $VERSION = 0.1.3;
 my $pi = 3.14159265358979;
 $Getopt::Std::STANDARD_HELP_VERSION = 1;
 my $default = "
@@ -159,9 +142,10 @@ if (defined $opts{l} and $opts{l} =~ m/^-?[0-9]{1,3}\.-?[0-9]{1,3}$/g) {
   ($data->{lat}, $data->{lon}) = split /\./, $opts{l};
 }
 
-unless ($data->{lat} and $data->{lon}) {
+unless (defined $data->{lat} and defined $data->{lon}) {
   die "Please create a configuration file in ~/.geohashrc. Like this: \n $default";
 }
+
 my $key = $data->{lat} . "." . $data->{lon};
 
 my @places = ();