2012-03-01 09:46:13 -08:00
|
|
|
package DDG::Goodie::PrivateNetwork;
|
2014-08-20 11:45:33 -07:00
|
|
|
# ABSTRACT: show non-Internet routable IP addresses.
|
2012-03-01 09:46:13 -08:00
|
|
|
|
2015-02-22 12:09:29 -08:00
|
|
|
use strict;
|
2012-03-01 09:46:13 -08:00
|
|
|
use DDG::Goodie;
|
|
|
|
|
2012-06-26 20:11:40 -07:00
|
|
|
triggers start => "private network", "private ip", "private networks", "private ips";
|
2012-03-01 09:46:13 -08:00
|
|
|
|
|
|
|
zci is_cached => 1;
|
2012-03-20 21:08:12 -07:00
|
|
|
zci answer_type => "private_network";
|
2012-03-01 09:46:13 -08:00
|
|
|
|
2012-11-06 15:33:29 -08:00
|
|
|
primary_example_queries 'private networks';
|
|
|
|
secondary_example_queries 'private ips';
|
|
|
|
description 'show private IP blocks';
|
|
|
|
name 'PrivateNetwork';
|
|
|
|
code_url 'https://github.com/duckduckgo/zeroclickinfo-goodies/blob/master/lib/DDG/Goodie/PrivateNetwork.pm';
|
2012-11-06 16:17:37 -08:00
|
|
|
category 'cheat_sheets';
|
2012-11-06 15:33:29 -08:00
|
|
|
topics 'sysadmin';
|
2015-01-07 10:24:47 -08:00
|
|
|
attribution twitter => ['crazedpsyc', 'Michael Smith'],
|
|
|
|
cpan => ['CRZEDPSYC', 'Michael Smith'];
|
2012-11-06 15:33:29 -08:00
|
|
|
|
2013-05-13 06:31:45 -07:00
|
|
|
my $text = scalar share('private_network.txt')->slurp,
|
|
|
|
my $html = scalar share('private_network.html')->slurp;
|
|
|
|
|
2012-03-18 16:09:03 -07:00
|
|
|
handle sub {
|
2014-08-26 12:32:09 -07:00
|
|
|
$text, html => $html
|
2012-03-18 16:09:03 -07:00
|
|
|
};
|
2012-03-01 09:46:13 -08:00
|
|
|
|
|
|
|
1;
|