duckduckgo
/
zeroclickinfo-goodies
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Royal Mail IA: Format code

master
Tom Bebbington 2014-03-26 22:07:24 +00:00
parent 312e2c07f4
commit 26b152d86b
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lib/DDG/Goodie/RoyalMail.pm
View File

@ -2,25 +2,29 @@ package DDG::Goodie::RoyalMail;
use DDG::Goodie;
zci is_cached => 1;
zci is_cached => 1;
zci answer_type => "royal_mail";
primary_example_queries 'royal mail RU401513974GB';
description 'Track a Royal Mail / Parcelforce parcel';
icon_url "/i/www.royalmail.com.ico";
name 'Royal Mail';
code_url 'https://github.com/duckduckgo/zeroclickinfo-goodies/blob/master/lib/DDG/Goodie/RoyalMail.pm';
code_url
'https://github.com/duckduckgo/zeroclickinfo-goodies/blob/master/lib/DDG/Goodie/RoyalMail.pm';
category 'ids';
topics 'special_interest';
attribution github => [ 'https://github.com/TopHattedCoder', 'Tom Bebbington'],
twitter => ['http://twitter.com/TopHattedCoder', '@Tom Bebbington'];
attribution
github => [ 'https://github.com/TopHattedCoder', 'Tom Bebbington' ],
twitter => [ 'http://twitter.com/TopHattedCoder', '@Tom Bebbington' ];
# Regex for royal mail.
my $rm_qr = qr/royalmail|parcelforce/io;
my $tracking_qr = qr/package|parcel|track(?:ing|)|num(?:ber|)|\#/i;
# note: parcelforce format listed at http://www.parcelforce.com/help-information/frequently-asked-questions/track-parcel#2
my $parcel = qr/[A-Z]{2}[0-9]{7}|[A-Z]{4}[0-9]{10}|[A-Z]{2}[0-9]{9}GB|[0-9]{12}|[A-Z]{2}[0-9]{9}[A-Z]{2}/i;
my $parcel
= qr/[A-Z]{2}[0-9]{7}|[A-Z]{4}[0-9]{10}|[A-Z]{2}[0-9]{9}GB|[0-9]{12}|[A-Z]{2}[0-9]{9}[A-Z]{2}/i;
triggers query_nowhitespace_nodash => qr/
^$rm_qr.*?(?<parcel_number>$parcel)$|
^(?<parcel_number>$parcel).*?$rm_qr$|
@ -29,7 +33,10 @@ triggers query_nowhitespace_nodash => qr/
handle query_nowhitespace_nodash => sub {
my $parcel_number = $+{parcel_number};
return $parcel_number, heading => 'Royal Mail / Parcelforce Tracking', html => qq(Track this parcel at <a href="http://www.royalmail.com/portal/rm/track?trackNumber=$parcel_number">Royal Mail</a> or <a href="http://www.parcelforce.com/track-trace?trackNumber=$parcel_number">Parcelforce</a>.);
return $parcel_number,
heading => 'Royal Mail / Parcelforce Tracking',
html =>
qq(Track this parcel at <a href="http://www.royalmail.com/portal/rm/track?trackNumber=$parcel_number">Royal Mail</a> or <a href="http://www.parcelforce.com/track-trace?trackNumber=$parcel_number">Parcelforce</a>.);
};
1;