 |
Mongabay-Indonesia | Mongabay-Indonesia Facebook | All Indonesia news | Map of community forest stories INDONESIA.MONGABAY.COMIn May 2012, we launched Mongabay-Indonesia, an Indonesian-language environmental news service. Mongabay-Indonesia runs independently of Mongabay.com and is staffed by a team of Indonesians who live in more than 20 cities, town, and villages across the archipelago.Mongabay-Indonesia has proven to be an enormously rich source of stories, some of which have been translated or re-written in English. Below are a selection of stories that originated on Mongabay-Indonesia and are now available in English on Mongabay.com. Mongabay-Indonesia stories published in English#!/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"; }previous menu |