42 lines
1.1 KiB
Raku
42 lines
1.1 KiB
Raku
package DDG::Goodie::UN;
|
|
# ABSTRACT: Gives a description for a given UN number
|
|
|
|
use DDG::Goodie;
|
|
use Number::UN 'get_un';
|
|
|
|
attribution github => ['https://github.com/tantalor', 'tantalor'];
|
|
|
|
primary_example_queries 'UN Number 0009';
|
|
description 'gives a description for a given UN number';
|
|
name 'UN Number';
|
|
code_url 'https://github.com/duckduckgo/zeroclickinfo-goodies/blob/master/lib/DDG/Goodie/UN.pm';
|
|
category 'facts';
|
|
topics 'everyday_goodies';
|
|
|
|
use constant WPHREF => "http://en.wikipedia.org/wiki/List_of_UN_numbers_%04d_to_%04d";
|
|
|
|
triggers start => 'un';
|
|
|
|
zci is_cached => 1;
|
|
zci answer_type => 'united_nations';
|
|
|
|
handle remainder => sub {
|
|
my $num = shift or return;
|
|
$num =~ s/^number\s+//gi;
|
|
return unless $num =~ /^\d+$/;
|
|
|
|
my %un = get_un($num) or return;
|
|
$un{description} =~ s/\.$//;
|
|
return (sprintf qq(UN Number %04d - %s.), $num, $un{description}), html => sprintf qq(<a href="%s">UN Number %04d</a> - %s.), wphref($num), $num, $un{description};
|
|
};
|
|
|
|
# Wikipedia attribution per CC-BY-SA
|
|
sub wphref {
|
|
my $num = shift;
|
|
my $lower = int($num / 100) * 100 + 1;
|
|
my $upper = $lower + 99;
|
|
return sprintf WPHREF, $lower, $upper;
|
|
}
|
|
|
|
1;
|