Current Terror Alert Level [2]

Current Terror Alert Level [2]

It all needs to be on one line to run.

perl -MLWP::Simple -MXML::Simple -le 'print XMLin( get("http://dhs.gov/dhspublic/getAdvisoryCondition") )->{CONDITION}'

Oh, I know. That’s a bit spastic. Try this if you wanna hold onto it for some reason; for all the good it’s gonna do you.

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

print XMLin
  (
   get('http://www.dhs.gov/dhspublic/getAdvisoryCondition')
   )->{CONDITION}, $/;

One more which doesn’t require a web connection and has thus far proved 100% accurate.

my @level = qw( Low Guarded Elevated High Severe );
print "Alert Level: ", $level[rand@level], "\n";

[close] Permanent link · http://querylog.com/q/Current+Terror+Alert+Level+[2]

Suggested HTML for linking:
<a title="QueryLog: Current Terror Alert Level [2]" href="http://querylog.com/q/Current+Terror+Alert+Level+[2]">Current Terror Alert Level [2]</a> Link preview: Current Terror Alert Level [2]

23 August 2005 · terrorism · Internet & computing

The page found by the original query:
Sedition·com: Current terror alert level