From ad955d8469dee4473d05d666045fd9f86c385015 Mon Sep 17 00:00:00 2001 From: PJ Hampton Date: Mon, 21 Aug 2017 21:09:09 +0100 Subject: [PATCH] Remove legacy IPS code. (#4451) --- lib/DDG/Goodie/IPS.pm | 34 ---------------------------------- t/IPS.t | 31 ------------------------------- 2 files changed, 65 deletions(-) delete mode 100644 lib/DDG/Goodie/IPS.pm delete mode 100644 t/IPS.t diff --git a/lib/DDG/Goodie/IPS.pm b/lib/DDG/Goodie/IPS.pm deleted file mode 100644 index 74cdc2aae..000000000 --- a/lib/DDG/Goodie/IPS.pm +++ /dev/null @@ -1,34 +0,0 @@ -package DDG::Goodie::IPS; -# ABSTRACT: track a package through IPS. - -use strict; -use DDG::Goodie; - -zci is_cached => 1; -zci answer_type => "ips"; - -triggers query_nowhitespace_nodash => qr/(E[MA]\d{9})(IN|HR|)/xi; - -handle query_nowhitespace_nodash => sub { - my $package_number = $1 . $2; - my $country = lc $2 || ''; - - my $tmp_link = ''; - - if ( $country eq 'in' ) { - $tmp_link = "http://ipsweb.ptcmysore.gov.in/ipswebtracking/IPSWeb_item_events.asp?itemid=$package_number&Submit=Submit"; - } - elsif ( $country eq 'hr' ) { - $tmp_link = "http://ips.posta.hr/IPSWeb_item_events.asp?itemid=$package_number&Submit=Submit"; - } - else { - $tmp_link = "http://mailtracking.gov.bm/IPSWeb_item_events.asp?itemid=$package_number&Submit=Submit+Query"; - } - if ($tmp_link) { - return $package_number, heading => "IPS Shipment Tracking", html => qq(Track this shipment at IPS.); - } - - return; -}; - -1; diff --git a/t/IPS.t b/t/IPS.t deleted file mode 100644 index 4d62ddf61..000000000 --- a/t/IPS.t +++ /dev/null @@ -1,31 +0,0 @@ -#!/usr/bin/env perl - -use strict; -use warnings; -use Test::More; -use Test::Deep; -use DDG::Test::Goodie; - -zci answer_type => 'ips'; -zci is_cached => 1; - -ddg_goodie_test( - [qw( DDG::Goodie::IPS )], - 'EM999999999IN' => test_zci( - "EM999999999IN", - heading => 'IPS Shipment Tracking', - html => qq(Track this shipment at IPS.) - ), - 'em123456789hr' => test_zci( - "em123456789hr", - heading => 'IPS Shipment Tracking', - html => qq(Track this shipment at IPS.) - ), - 'EM 999 999 999 IN' => test_zci( - "EM999999999IN", - heading => 'IPS Shipment Tracking', - html => qq(Track this shipment at IPS.) - ) -); - -done_testing;