Description: use Geo::IP instead of non-free unpackages IP::Country
  Original dsc uses IP::Country, which contains databases owned by
  the RIRs. I didn't bother packaging this. Instead, I patched the code
  to use the packages Geo::IP module. Its results are slightly worse and
  dsc loses its capability to decode the address to the RIR.
  Feel free to submit code that uses IP::Country if it is present and
  only falls back to Geo::IP in IP::Country's absence.
Author: Marc Haber <mh+debian-packages@zugschlus.de>
Forwarded: no

--- a/presenter/perllib/DSC/grapher/plot.pm
+++ b/presenter/perllib/DSC/grapher/plot.pm
@@ -249,14 +249,12 @@
     names	=> [ qw(Unknown IANA LACNIC APNIC RIPE ARIN) ],
     colors	=> [ qw(black red purple yellow blue brightgreen) ],
     label_func => sub {
-	use IP::Country;
-	my $l = new IP::Country::Fast;
-	$l->inet_atocc(shift) || '??';
+	use Geo::IP;
+	my $l = Geo::IP->new(GEOIP_MEMORY_CACHE|GEOIP_CHECK_CACHE);
+	$l->country_code_by_addr(shift) || '??';
     },
     color_func => sub {
-	use IP::Authority;
-	my $l = new IP::Authority;
-	$l->inet_atoauth(shift) || '??';
+	"??";
     },
     data_reader => \&DSC::extractor::read_data2,
     data_summer => \&DSC::grapher::data_summer_0d,
