http://qs321.pair.com?node_id=483408


in reply to Homeland Security Threat Level

Shouldn't that be more like this?

#!/usr/bin/perl use strict; use LWP::Simple; my $level; my %colors = ( 'Unknown' => '#808080', 'Low' => '#63cf63', 'Guarded' => '#009aff', 'Elevated' => '#ffcf00', 'High' => '#ff6500', 'Severe' => '#ff0000', ); if(get('http://www.whitehouse.gov/president/') =~ /George W. Bush/i) { my @levels = ('Elevated', 'High', 'Severe'); $level = $levels[int(rand @levels)]; } else { $level = get('http://www.dhs.gov/dhspublic/getAdvisoryCondition'); $level =~ s/^.*CONDITION="([^"]+)".*$/\L\u$1/s; } print qq{Content-type: text/html <html> <body style="background-color:$colors{$level}"> <h3 style="color:#000000">$level</h3> </body> </html> };
--
b10m

All code is usually tested, but rarely trusted.