_def->getKeyValue("NEW_WEBSITE_URL");
if ($NEW_WEBSITE_URL && $_SERVER['SCRIPT_NAME']=='/scielo.php') {
header("Location: https://" . $NEW_WEBSITE_URL . $_SERVER['REQUEST_URI']);
}
$CACHE_STATUS = $scielo->_def->getKeyValue("CACHE_STATUS");
$MAX_DAYS = $scielo->_def->getKeyValue("MAX_DAYS");
$MAX_SIZE = $scielo->_def->getKeyValue("MAX_SIZE");
$DIVULGA = $scielo->_def->getKeyValue("ENABLE_DIVULGACAO");
if (($CACHE_STATUS == 'on') && ($MAX_DAYS>0)){
$filenamePage = $scielo->GetPageFile();
}
$filenamePage = "";
$pageContent = "";
$GRAVA = false;
if ($filenamePage){
if (file_exists($filenamePage)){
echo "";
$lastChange = date("F j Y g:i:s", filemtime($filenamePage));
$diff = dateDiff($interval="d",$lastChange,date("F j Y g:i:s"));
if ($diff<=$MAX_DAYS){
echo "";
$fp = fopen($filenamePage, "r");
if ($fp){
$pageContent = fread($fp, filesize($filenamePage));
$pageContent .= "\n".'';
fclose($fp);
}
} else {
echo "";
$GRAVA = true;
}
}
}
if (!$pageContent){
//Generate wxis url and set xml url
$xml = $scielo->GenerateXmlUrl();
if ((strpos($xml, '') == 0)) {
$xml = '';
}
$sxml = simplexml_load_string($xml);
function xml_tostring($value) {
return (string)$value;
}
function is_requested_language_available($sxml) {
$availableLanguages = array_merge(
$sxml->xpath('/root/SERIAL/ISSUE/ARTICLE/@ORIGINALLANG'),
$sxml->xpath('/root/SERIAL/ISSUE/ARTICLE/LANGUAGES/ART_TEXT_LANGS/LANG')
);
$availableLanguages = array_map('xml_tostring', $availableLanguages);
$requestedLanguage = array_pop(
array_map(
'xml_tostring',
$sxml->xpath('/root/SERIAL/ISSUE/ARTICLE/@TEXTLANG')
)
);
return in_array($requestedLanguage, $availableLanguages);
}
/*
* Quando o texto não estiver disponível no idioma solicitado o site deve
* redirecionar (HTTP 302) o cliente para o idioma padrão.
*/
if ($_REQUEST['script'] == 'sci_arttext') {
if (!is_requested_language_available($sxml)) {
$documentPID = array_pop(
array_map(
'xml_tostring',
$sxml->xpath('/root/SERIAL/ISSUE/ARTICLE/@PID')
)
);
header('Location: /scielo.php?script=sci_arttext&pid='.$documentPID, true, 301);
exit;
}
}
if ($sxml != false){
$error = (($sxml->getName() == 'ERROR') or ($sxml->ERROR->getName() == 'ERROR'));
}
if ($error){
header("HTTP/1.0 404 Not Found - Archive Empty");
require '404.html';
exit;
}
$scielo->SetXMLUrl ($xml);
//Generate xsl url and set xsl url
$xsl = $scielo->GenerateXslUrl();
$scielo->SetXSLUrl ($xsl);
$pageContent = $scielo->getPage();
$pageContent .= "\n".'';
$pageContent .= "\n"."";
if ($GRAVA && $filenamePage){
if (!file_exists($filenamePage)){
include ("mkdir.php");
$path = substr($filenamePage, 0, strrpos($filenamePage, '/'));
createDirStructure($path, $s_root, $s_err_msg, $i_err_code, 0777);
}
$fp = fopen($filenamePage, "rw");
if ($fp){
fwrite($fp, $pageContent);
echo "";
} else {
echo "";
}
fclose($fp);
chmod($filenamePage, 0774);
}
}
if(isset($_GET['download']))
{
require_once(dirname(__FILE__)."/export.php");
exit;
}
if ( !$scielo->_request->getRequestValue ( "lng", $lng ) )
{
$lng = $scielo->_def->getKeyValue ( "STANDARD_LANG" );
}
if ($DIVULGA){
$html_divulgacao = showDivulgacao($lng,$scielo->_script);
if (strlen($html_divulgacao) > 0) {
$p = strpos(strtolower($pageContent), ' 0) {
$body = substr($pageContent, $p);
$p2 = strpos($body, '>');
if ($p2 > 0) {
$body = substr($body, 0, $p2+1);
$p3 = strpos(strtolower($pageContent), strtolower($body));
if ($p3 > 0) {
$p3 = $p3 + strlen($body);
$newPageContent = substr($pageContent, 0, $p3).'';
$newPageContent .= $html_divulgacao.'';
$newPageContent .= substr($pageContent, $p3);
$pageContent = $newPageContent;
}
}
}
}
}
if (strpos($pageContent,'0) {
/* nao retirar isso, senao a conversao de formulas matematicas nao funcionara */
header("Content-type:text/xml");
}
echo $pageContent;
function showDivulgacao($lang, $script){
$pageContent = "";
$filenamePage = getDivulgacao($lang, $script);
$fp = fopen($filenamePage, "r");
if ($fp){
$pageContent = fread($fp, 9999);
fclose($fp);
$p = strpos($pageContent, ' 0) {
$body = substr($pageContent, $p);
$p = strpos($body, '>');
if ($p > 0) {
$body = substr($body, $p+1);
$p = strpos($body, '');
if ($p > 0){
$body = substr($body, 0, $p-1);
$pageContent = $body;
}
}
}
}
return $pageContent;
}
function getDivulgacao($lang, $script){
$html = "";
if (file_exists("divulgacao.txt")){
$divulgacao = parse_ini_file("divulgacao.txt",true);
$html = $divulgacao[$script][$lang];
}
return $html;
}
function dir_size($dir, &$older, &$older_accessed){
$handle = opendir($dir);
$mas = 0;
while ($file = readdir($handle)) {
if ($file != '..' && $file != '.'){
if (is_dir($dir.'/'.$file)){
$mas += dir_size($dir.'/'.$file, $older, $older_accessed);
} else {
$mas += filesize($dir.'/'.$file);
if ($older!=''){
if (fileatime($dir.'/'.$file)