Recolección en tiempo real del Depósito de documentos de la FAO

<?php
global $base_url;
global $language;

$page = "1";
if (!empty($_GET['Page']))
$page = $_GET['Page'];
$year = "2008";
if (!empty($_GET['Year']))
$year = $_GET['Year'];
$lang = $language->language;
if (strtolower($lang) == "zh-hans")
$lang = "ZH";
$lang = strtoupper($lang);

if (!empty($_GET['Lang']))
$lang = strtoupper($_GET['Lang']);

$currentUrl = $_SERVER['REQUEST_URI'];
if (strrpos($currentUrl, '?', 0) > 0)
$currentUrl = substr($currentUrl, 0, strrpos($currentUrl, '?', 0));
else {
if (strrpos($currentUrl, '&', 0) > 0)
$currentUrl = substr($currentUrl, 0, strrpos($currentUrl, '&', 0));
}

$arrParam = array();
$str = "";

//language translation variables

$langvar= $language->language;

if ($langvar == "en") {
$Stryear = "Select a year: ";
$StrLang = "Change language: ";
$StrDef = "[default language: the language in which you are browsing the website]";
$StrPub = "Publications in the year ";
$StrL =" - Language: ";
$StrP = "Real-time harvest from the FAO Document Repository" ;
$pageNav = "395";}
elseif ($langvar == "fr") {
$Stryear="Sélectionner une année: ";
$StrLang = "Changer de langue: ";
$StrDef = "[langue par défaut: langue utilisée pour parcourir le site]";
$StrPub = "Publications dans l’année ";
$StrL =" - Langue: ";
$StrP = "Transmission en temps réel des documents du Centre d’archivage de la FAO";
$pageNav = "400";}
elseif ($langvar == "es") {
$Stryear = "Select a year: ";
$StrLang = "Change language: ";
$StrDef = "[default language: the language in which you are browsing the website]";
$StrPub = "Publications in the year ";
$StrL =" - Language: ";
$StrP = "Real-time harvest from the FAO Document Repository" ;
$pageNav = "401";}
elseif ($langvar == "ar") {
$Stryear="إختيار سنة: ";
$StrLang = "تغيير اللغة: ";
$StrDef = "[اللغة الحالية: اللغة التي تتصفح بها موقع الويب الآن]";
$StrPub = "المطبوعات في سنة";
$StrL =" – اللغة: ";
$StrP="حصاد خلال الوقت الحقيقي من مستودع وثائق المنظمة";
$pageNav = "402";}
elseif ($langvar == "zh-hans") {
$Stryear= "选择年份：";
$StrLang = "改变语言： ";
$StrDef = "[缺省语言：你浏览网站的语言]";
$StrPub = "该年的出版物 ";
$StrL = " - 语言: ";
$StrP= "粮农组织文件库实时收获:" ;
$pageNav = "403";}

for ($i=2009; $i >= 1996; $i--) {
$arrParam['query'] = "Page=1&Lang=" . $lang . "&Year=" . $i;
$str .= l($i, "pages/" . $pageNav, $arrParam) . " | ";
}
//echo "Select a year: " . $str . "

";
//echo $StrP;

echo $Stryear . $str . "

";
echo $StrLang;
$arrParam['query'] = "Page=" . $page . "&Year=" . $year . "&Lang=EN";
echo l("EN", "pages/" . $pageNav, $arrParam) . " | ";
$arrParam['query'] = "Page=" . $page . "&Year=" . $year . "&Lang=FR";
echo l("FR", "pages/" . $pageNav, $arrParam) . " | ";
$arrParam['query'] = "Page=" . $page . "&Year=" . $year . "&Lang=ES";
echo l("ES", "pages/" . $pageNav, $arrParam) . " | ";
$arrParam['query'] = "Page=" . $page . "&Year=" . $year . "&Lang=AR";
echo l("AR", "pages/" . $pageNav, $arrParam) . " | ";
$arrParam['query'] = "Page=" . $page . "&Year=" . $year . "&Lang=ZH";
echo l("ZH", "pages/" . $pageNav, $arrParam);
echo "
" . $StrDef . "";

echo "

" . $StrPub . $year . $StrL . $lang . "

";

$xsl = new DOMDocument();
$xsl->load($base_url . 'http://assets.aims.fao.org.s3-eu-west-1.amazonaws.com/public/xslt/docre…');

$xmlUrl = "http://www.fao.org/documents/advanced_s_result.asp?FORM_C=AND&SERIES=33…" . $page . "&pub_year=" . $year . "&Language=" . $lang;

$xml_doc = new DOMDocument();
$xml_doc->validateOnParse = true;
$xml_doc->load($xmlUrl);

$xp = new XsltProcessor();
$xp->importStylesheet($xsl);

$xp->setParameter('', 'resultsUrl', $currentUrl);
$xp->setParameter('', 'numPageParam', 'Page');
$xp->setParameter('', 'recsPerPage', '10');
$xp->setParameter('', 'page', $page);
$xp->setParameter('', 'sort', '5');

if ($html = $xp->transformToXML($xml_doc)) {
echo $html;
}
else {
trigger_error('XSL transformation failed.', E_USER_ERROR);
}
?>