19 lines
365 B
Perl
19 lines
365 B
Perl
package DDG::Goodie::PublicDNS;
|
|
|
|
use DDG::Goodie;
|
|
use File::ShareDir::ProjectDistDir;
|
|
use IO::All;
|
|
|
|
triggers query_clean => qr/^(?:google|opendns|norton|dns advantage)?\s*public dns\s*(?:servers?)?$/i;
|
|
|
|
zci is_cached => 1;
|
|
|
|
zci answer_type => "public_dns";
|
|
|
|
handle sub {
|
|
scalar share('publicdns.txt')->slurp,
|
|
html => scalar share('publicdns.html')->slurp;
|
|
};
|
|
|
|
1;
|