|
 |
|
Forgotten speciesMongabay.com's 'forgotten species' series aims to highlight endangered animals that have received little or no media attention. In the midst of what many ecologists believe is a mass-extinction crisis, the majority of the world's millions of species are largely unknown to the global public. This series is based on the premise that 'forgotten species' will not saved if they remain unknown and uncelebrated.Articles #!/usr/bin/perl # This script is meant for including news app content in # non news app pages. # # Example: # use warnings; use LWP::Simple qw(get); use CGI::Carp qw(fatalsToBrowser); my (@userdata,$value,$input); @userdata = split (/&/,$ENV{"QUERY_STRING"}); foreach (@userdata) { ($field,$value) = /(.*)=(.*)/; $value=~ tr/+/ /; $value=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; $input{$field} .= "\n" if ($input{$field}); $input{$field} .= $value; } print "Content-type: text/html\n\n"; my $subdomain = $input{"subdomain"}; my $limit = $input{"limit"}; my $tag = $input{"tag"}; my $template = $input{"alt_template"}; my $url = "http://" . $subdomain . ".mongabay.com/news-index/" . $tag . "1.html?alt_template=" . $template . "&limit=" . $limit; my $page = get $url; if ($page) { print $page; } else { print "Invalid parameters"; } archives | news | XML / RSS feed | featured
|
MONGABAY.COM
WEEKLY NEWSLETTER INTERACT
SUPPORT Help support mongabay.com when you buy from Amazon.com STORE SHIRTS HIGH RESOLUTION PHOTOS / PRINTS 
TOPICS more
|
|
About | Privacy Copyright Rhett Butler 2013 |
