zeroclickinfo-goodies/lib/DDG/Goodie/IDN.pm

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',
    'internationalize domain',
    'internationalized domain'
);

handle query_lc => sub {
    return unless s/(international(?:ized?)? domain(?: name)?|idn) //;
    my $idn = ($1 eq "idn" ? uc $1 : $1) . ": ";
    $idn = 'internationalized domain: ' if $1 eq 'internationalize domain';
    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;