Displays the Department of Homeland Security threat level, in color. This was just a little CGI I wrote to make a point. Note that I do not advocate parsing XML with regular expressions, except in trivial cases like this.
#! /usr/bin/perl -w use strict; use LWP::UserAgent; my $level = 'Unknown'; my %colors = ( 'Unknown' => '#808080', 'Low' => '#63cf63', 'Guarded' => '#009aff', 'Elevated' => '#ffcf00', 'High' => '#ff6500', 'Severe' => '#ff0000', ); my $userAgent = new LWP::UserAgent; my $request = new HTTP::Request GET => 'http://www.dhs.gov/dhspublic/g +etAdvisoryCondition'; my $response = $userAgent->request ($request); $level = ucfirst lc $1 if $response->is_success && $response->content =~ /CONDITION="([^"]*)"/; print qq{Content-type: text/html <html> <body style="background-color:$colors{$level}"> <h3 style="color:#000000">$level</h3> </body> </html> }; exit 0;
pbeckingham - typist, perishable vertebrate.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Homeland Security Threat Level
by Your Mother (Archbishop) on Aug 12, 2005 at 22:38 UTC | |
by Your Mother (Archbishop) on Aug 13, 2005 at 00:38 UTC | |
Re: Homeland Security Threat Level
by b10m (Vicar) on Aug 12, 2005 at 20:52 UTC | |
Re: Homeland Security Threat Level
by phroggy (Monk) on Aug 14, 2005 at 00:32 UTC | |
Re: Homeland Security Threat Level
by gellyfish (Monsignor) on Aug 15, 2005 at 18:32 UTC |
Back to
Cool Uses for Perl