51 lines
1.8 KiB
Perl
51 lines
1.8 KiB
Perl
package DDG::Goodie::Parcelforce;
|
|
# ABSTRACT: track a package through Parcelforce.
|
|
|
|
use strict;
|
|
use DDG::Goodie;
|
|
|
|
zci is_cached => 1;
|
|
zci answer_type => "parcelforce";
|
|
|
|
primary_example_queries 'royal mail RU401513974GB';
|
|
secondary_example_queries 'track parcelforce PBTM8237263001';
|
|
description 'Track a Parcelforce / Royal Mail parcel';
|
|
icon_url "/i/www.parcelforce.com.ico";
|
|
name 'Parcelforce';
|
|
code_url
|
|
'https://github.com/duckduckgo/zeroclickinfo-goodies/blob/master/lib/DDG/Goodie/Parcelforce.pm';
|
|
category 'ids';
|
|
topics 'special_interest';
|
|
attribution
|
|
github => [ 'TopHattedCoder', 'Tom Bebbington' ],
|
|
twitter => [ 'TopHattedCoder', 'Tom Bebbington' ];
|
|
|
|
# Regex for parcelforce / 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;
|
|
triggers query_nowhitespace_nodash => qr/
|
|
^$rm_qr.*?(?<parcel_number>$parcel)$|
|
|
^(?<parcel_number>$parcel).*?$rm_qr$|
|
|
^(?:$tracking_qr|$rm_qr|)*(?<parcel_number>$parcel)(?:$tracking_qr|$rm_qr|)*$
|
|
/xo;
|
|
|
|
handle query_nowhitespace_nodash => sub {
|
|
my $parcel_number = $+{parcel_number};
|
|
|
|
if ($parcel_number && $parcel_number !~ /^isbn/i) {
|
|
|
|
return $parcel_number,
|
|
heading => 'Parcelforce Tracking',
|
|
html =>
|
|
qq(Track this parcel at <a href="http://www.parcelforce.com/track-trace?trackNumber=$parcel_number">Parcelforce</a>.);
|
|
|
|
};
|
|
return;
|
|
};
|
|
1;
|