The modules isn't working anymore since the URI requested results in a
404. The attached patch fixes the module, so we can see the threat level
again.
Regards,
--
B10m
| Subject: | acme-terror-uk.patch |
--- /usr/local/lib/perl5/site_perl/5.8.8/Acme/Terror/UK.pm Thu Aug 10 11:05:15 2006
+++ Acme/Terror/UK.pm Wed Jun 11 10:18:22 2008
@@ -27,10 +27,10 @@
sub fetch {
my $self = shift;
- my $url = 'http://www.mi5.gov.uk/output/Page4.html';
+ my $url = 'http://www.mi5.gov.uk/';
my $html = get($url);
return undef unless ($html);
- my ($lvl) = ($html =~ m[<h4>FEATURE</h4><p>CURRENT THREAT LEVEL: (.*?)<br />]sg);
+ my ($lvl) = ($html =~ m["The current threat level in the UK - (.+?)"]sg);
return $lvl;
}