Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP

Comparing changes

Choose two branches to see what's changed or to start a new pull request. If you need to, you can also compare across forks.

Open a pull request

Create a new pull request by comparing changes across two branches. If you need to, you can also compare across forks.
base fork: eserte/srezic-misc
base: 8e00c103b1
...
head fork: eserte/srezic-misc
compare: e55149a181
Checking mergeability… Don't worry, you can still create the pull request.
  • 3 commits
  • 3 files changed
  • 0 commit comments
  • 1 contributor
View
15 README.pod
@@ -0,0 +1,15 @@
+=head1 srezic-misc
+
+=over
+
+=item L<cpan_in_a_nutshell/cpan_in_a_nutshell.pod>
+
+A listing of modules with short comparisons.
+
+=item L<scripts>
+
+Miscellaneous scaffolding and other scripts.
+
+=back
+
+=cut
View
29 cpan_in_a_nutshell/cpan_in_a_nutshell.pod
@@ -1083,24 +1083,31 @@ L<GIS::Distance::Fast> is a faster XS implementation of this module.
=head3 Geocoding
-L<Geo::Coder::Google> is an interface to the Google Geocoding API. It
-requires an API key, which has restrictions on its usage. Results
-seems to be good, at least for the Germany area.
+L<Geo::Coder::Google> is an interface to the Google Geocoding API.
+Results seems to be good, at least for the Germany area. There are
+variants for the two API versions L<Geo::Coder::Google::V2> and
+L<Geo::Coder::Google::V3>. There's also an alternative implementation
+for the V3 API only: L<Geo::Coder::Googlev3>.
L<Geo::Coder::GoogleMaps> is a similar module which just uses a
different interface to the API (JSON instead of XML). The results
should be of the same quality like L<Geo::Coder::Google>.
-L<Geo::Coder::Yahoo> is an interface to the Yahoo Geocoding API. It
-also requires an API key, but there does not seem to be any
-restrictions on usage, unlike the Google API. Results are not that
-good, at least for the Germany area, and there seem to be problems
-with umlauts, so avoid them.
+L<Geo::Coder::PlaceFinder> is a similar to the Yahoo PlaceFinder
+geocoding service. It requires an app id. The previous geocoding
+service was served by L<Geo::Coder::Yahoo>, but the old API was
+shutdown in 2011.
L<Geo::Coder::Bing> is an interface to the geocoding API from
L<http://www.bing.com>. It does not require any API key. Results seem
to be good, at least for the Germany area.
+L<Geo::Coder::OSM> is another interface an API using OpenStreetMap
+data. No API key is required.
+
+L<Geo::Coder::Cloudmade> is an interface to the Cloudmade API, which
+is using data from the OpenStreetMap project. An API key is required.
+
L<Geo::Coder::US> is an interface to the free US geo data.
L<Geo::Coder::Mapquest> is an interface to the beta Mapquest Geocoding
@@ -1108,12 +1115,6 @@ Web Service. The service requires an API key. According to the manpage
of version 0.01, the results are often not good for the US area, and
there are no results for addresses outside the US.
-L<Geo::Coder::Cloudmade> is an interface to the Cloudmade API, which
-is using data from the OpenStreetMap project. An API key is required.
-
-L<Geo::Coder::OSM> is another interface an API using OpenStreetMap
-data. No API key is required.
-
=head3 Other
L<Geo::Google> is an interface to Google maps.
View
30 scripts/cpan_smoke_modules
@@ -110,6 +110,8 @@ my $skip_tested;
my $skip_tested_nondiscarded;
my $no_fail_reports;
my $save_reports;
+my $reports_workflow_dir;
+my $reports_workflow_default_dir = "$ENV{HOME}/var/cpansmoker";
my $min_build_dir_avail = 2_000_000_000; # 2G
my $min_tmp_dir_avail = 50_000_000; # 50M
my $min_dir_inodes_percent = 5;
@@ -158,6 +160,7 @@ GetOptions("n" => \$n,
},
'nofailreport' => \$no_fail_reports,
'savereports!' => \$save_reports,
+ 'reportsworkflowdir=s' => \$reports_workflow_dir,
'bleededge|bleedingedge!' => \$bleeding_edge,
'debug!' => \$debug,
'pre=s@' => \@pre_dist_or_mods,
@@ -562,8 +565,21 @@ if ($save_reports) {
or die "Can't create tempfile: $!";
open my $ifh, "<", "$ENV{HOME}/.cpanreporter/config.ini"
or die "Can't open config.ini: $!";
- my $workflow_dir = "$ENV{HOME}/var/cpansmoker";
- my $new_reports_dir = "$workflow_dir/new";
+
+ if (!$reports_workflow_dir) {
+ $reports_workflow_dir = $reports_workflow_default_dir;
+ if (!-d $reports_workflow_dir) {
+ mkpath $reports_workflow_dir;
+ }
+ if (!-d $reports_workflow_dir) {
+ die "Cannot create $reports_workflow_dir";
+ }
+ } else {
+ if (!-d $reports_workflow_dir) {
+ die "The directory $reports_workflow_dir does not exist";
+ } # the subdirs may be missing and will be created
+ }
+ my $new_reports_dir = "$reports_workflow_dir/new";
my $changed_transport = 0;
my $new_transport_setting = "transport=File $new_reports_dir\n";
while(<$ifh>) {
@@ -587,12 +603,12 @@ if ($save_reports) {
close $tmpfh
or die "Error while closing: $!";
for my $dir ($new_reports_dir,
- "$workflow_dir/sync",
- "$workflow_dir/process",
- "$workflow_dir/done",
- "$workflow_dir/undecided",
+ "$reports_workflow_dir/sync",
+ "$reports_workflow_dir/process",
+ "$reports_workflow_dir/done",
+ "$reports_workflow_dir/undecided",
) {
- mkpath $dir if !-d $dir;
+ mkdir $dir if !-d $dir;
}
$ENV{PERL_CPAN_REPORTER_CONFIG} = $tmpfile;
} elsif ($no_fail_reports) {

No commit comments for this range

Something went wrong with that request. Please try again.