39 lines
2.0 KiB
Perl
39 lines
2.0 KiB
Perl
package DDG::Goodie::IDN;
|
|
# ABSTRACT: Convert domain names from/to Punycode.
|
|
|
|
use DDG::Goodie;
|
|
use Net::IDN::Encode ':all';
|
|
use HTML::Entities;
|
|
use utf8;
|
|
|
|
primary_example_queries 'idn exämple.com';
|
|
secondary_example_queries 'idn xn--exmple-cua.com';
|
|
description 'encode and decode internationalized domain names';
|
|
name 'IDN';
|
|
code_url 'https://github.com/duckduckgo/zeroclickinfo-goodies/blob/master/lib/DDG/Goodie/IDN.pm';
|
|
topics 'travel';
|
|
category 'computing_tools';
|
|
attribution web => ['http://7bits.nl/', 'Peter van Dijk'],
|
|
email => ['peter@7bits.nl', 'Peter van Dijk'],
|
|
github => ['https://github.com/habbie', 'habbie'],
|
|
twitter => ['https://twitter.com/habbie', 'habbie'];
|
|
|
|
triggers startend => 'idn', 'international domain', 'internationalized domain';
|
|
|
|
handle query_lc => sub {
|
|
return unless s/(international(?:ized)? domain(?: name)?|idn) //;
|
|
my $idn = ($1 eq "idn" ? uc $1 : $1) . ": ";
|
|
return unless m/\.(ac|ad|ae|aero|af|ag|ai|al|am|an|ao|aq|ar|arpa|as|asia|at|au|aw|ax|az|ba|bb|bd|be|bf|bg|bh|bi|biz|bj|bm|bn|bo|br|bs|bt|bv|bw|by|bz|ca|cat|cc|cd|cf|cg|ch|ci|ck|cl|cm|cn|co|com|coop|cr|cu|cv|cw|cx|cy|cz|de|dj|dk|dm|do|dz|ec|edu|ee|eg|er|es|et|eu|fi|fj|fk|fm|fo|fr|ga|gb|gd|ge|gf|gg|gh|gi|gl|gm|gn|gov|gp|gq|gr|gs|gt|gu|gw|gy|hk|hm|hn|hr|ht|hu|id|ie|il|im|in|info|int|io|iq|ir|is|it|je|jm|jo|jobs|jp|ke|kg|kh|ki|km|kn|kp|kr|kw|ky|kz|la|lb|lc|li|lk|local|lr|ls|lt|lu|lv|ly|ma|mc|md|me|mg|mh|mil|mk|ml|mm|mn|mo|mobi|mp|mq|mr|ms|mt|mu|museum|mv|mw|mx|my|mz|na|name|nc|ne|net|nf|ng|ni|nl|no|np|nr|nu|nz|om|org|pa|pe|pf|pg|ph|pk|pl|pm|pn|pr|pro|ps|pt|pw|py|qa|re|ro|rs|ru|rw|sa|sb|sc|sd|se|sg|sh|si|sj|sk|sl|sm|sn|so|sr|st|su|sv|sx|sy|sz|tc|td|tel|tf|tg|th|tj|tk|tl|tm|tn|to|tp|tr|travel|tt|tv|tw|tz|ua|ug|uk|us|uy|uz|va|vc|ve|vg|vi|vn|vu|wf|ws|xxx|ye|yt|za|zm|zw)$/i;
|
|
if(/^xn--/) {
|
|
return 'Decoded ' . $idn . encode_entities(domain_to_unicode($_));
|
|
}
|
|
else {
|
|
return 'Encoded ' . $idn . encode_entities(domain_to_ascii($_));
|
|
}
|
|
return;
|
|
};
|
|
|
|
zci is_cached => 1;
|
|
|
|
1;
|