Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Re: Homeland Security Threat Level

by b10m (Vicar)
on Aug 12, 2005 at 20:52 UTC ( #483408=note: print w/replies, xml ) Need Help??


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.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://483408]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (8)
As of 2020-05-29 08:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    If programming languages were movie genres, Perl would be:















    Results (168 votes). Check out past polls.

    Notices?