Berita lingkungan

#!/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"; }


Halaman Utama | Berita lingkungan | XML / RSS | Twitter | Inggris






MONGABAY.COM
Mongabay menyediakan berita tentang konservasi dan lingkungan.

CONTENTS
Hutan hujan
News
Foto
Twitter
Inggris
Profil
Kontak
XML





Slideshows
Hutan Hujan STORE

SHIRTS
HIGH RESOLUTION PHOTOS / PRINTS












Copyright mongabay 2009