|
|
#!/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";
}
PDF | Javanese
Halaman Utama | Berita lingkungan | XML / RSS | Twitter | Inggris
| |
|
MONGABAY.COM
Mongabay menyediakan berita tentang konservasi dan lingkungan.
CONTENTS
Slideshows
Hutan Hujan
FOTOS
STORE
SHIRTS
HIGH RESOLUTION PHOTOS / PRINTS
|
|
|
