Removed legacy HKDK. (#4448)

master
PJ Hampton 2017-08-21 21:08:54 +01:00 committed by Zaahir Moolla
parent 037aceb53c
commit 27e75cf8df
2 changed files with 0 additions and 51 deletions

View File

@ -1,25 +0,0 @@
package DDG::Goodie::HKDK;
# ABSTRACT: Track a package through HKDK.
use strict;
use DDG::Goodie;
zci is_cached => 1;
zci answer_type => "hkdk";
triggers query_nowhitespace_nodash => qr/([a-z]{2}\d{9}(?:hk|dk))/i;
handle query_nowhitespace_nodash => sub {
my $package_number = $1;
if ( $package_number =~ /hk$/i ) {
return $package_number, heading => 'Hongkong Post Shipment Tracking', html => qq(Track this shipment at <a href="http://app3.hongkongpost.com/CGI/mt/genresult.jsp?tracknbr=$package_number">Hongkong Post</a>.);
}
elsif ( $package_number =~ /dk$/i ) {
return $package_number, heading => 'Post Norden Shipment Tracking', html => qq(Track this shipment at <a href="http://www.postdanmark.dk/tracktrace/TrackTrace.do?i_stregkode=$package_number">Post Norden</a>.);
}
return;
};
1;

View File

@ -1,26 +0,0 @@
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Test::Deep;
use DDG::Test::Goodie;
zci answer_type => 'hkdk';
zci is_cached => 1;
ddg_goodie_test(
[qw( DDG::Goodie::HKDK )],
'CU123456789DK' => test_zci(
"CU123456789DK",
heading => 'Post Norden Shipment Tracking',
html => qq(Track this shipment at <a href="http://www.postdanmark.dk/tracktrace/TrackTrace.do?i_stregkode=CU123456789DK">Post Norden</a>.)
),
'EE123456789HK' => test_zci(
"EE123456789HK",
heading => 'Hongkong Post Shipment Tracking',
html => qq(Track this shipment at <a href="http://app3.hongkongpost.com/CGI/mt/genresult.jsp?tracknbr=EE123456789HK">Hongkong Post</a>.)
),
);
done_testing;