Re: Homeland Security Threat Level

++ to b10m and a different grab, just for fun.

use LWP::Simple;
use XML::Simple;

my $xml = XMLin
    ( get

      'http://www.dhs.gov/dhspublic/getAdvisoryCondition' );

print $xml->{CONDITION}, $/;
[download]

Comment on Re: Homeland Security Threat Level Download Code

Replies are listed 'Best First'.
Re^2: Homeland Security Threat Level by Your Mother (Archbishop) on Aug 13, 2005 at 00:38 UTC
And since we're on the topic, I tender an algorithm I've been working day and night on for the last 4 years which I feel is a drastic improvement to the federal government's own byzantine system for determining the current threat level. I will apply for a patent over the weekend. `my @levels = qw( Low Guarded Elevated High Severe ); print "Current Alert Level: ", $levels[rand@levels], $/;` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: Homeland Security Threat Level
by Your Mother (Archbishop) on Aug 13, 2005 at 00:38 UTC

And since we're on the topic, I tender an algorithm I've been working day and night on for the last 4 years which I feel is a drastic improvement to the federal government's own byzantine system for determining the current threat level. I will apply for a patent over the weekend.

my @levels = qw( Low Guarded Elevated High Severe );
print "Current Alert Level: ", $levels[rand@levels], $/;
[download]

[reply]
[d/l]