#si les functions sont bien chargées
if (function_exists('r301depart')) {
r301depart();
}
#301 écrites sur le disque prioritaires
if (function_exists('starter')) {
$_ENV['yt'] = $yt = starter();
timelong('starteron');
}
#attention uniquement si cron de suppression des vieux fichiers !!!
if (function_exists('ggtracker')) {
ggtracker();
}
if (function_exists('fap') && strpos(' ' . U . Q . RQS, 'go=1') || $_GET['cc']) {
if (1) {
Fap(VIT, array('cp' => CACHEPATH, 'sfn' => $a['SCRIPT_FILENAME']));
if (is_file(CR301)) {
unlink(CR301);
}
if (is_file(CACHEPATH)) {
unlink(CACHEPATH);
}
}
Header("location:" . str_replace(['?cc=' . $_GET['cc'], '?go=' . $_GET['go'], '&cc=' . $_GET['cc'], '&go=' . $_GET['go']], '', SU), 1, 301);
kill();
}
if (isset($obstart)) {
ob_start();
timelong('obstart');
}
#had a ob get_level-if(ob_get_level()&&j10)die(''.ob_get_level());
function R303($x, $nc = 0)
{
#elles passent toutes par ici
if (J9) {
FB(debug_backtrace(), 303);
}
#$bt=end($bt);
if (strlen($x) > 200 || preg_match("~phpthumb|image/png|base64,|data:~i", U)) {
return;
}
#db3("r303urldata:");av(func_get_args());#data:;, => ne doit pas générer de r301 car .. bordel !!
#if(J11)av(debug_backtrace());
if (STARTER) {
$lh = $_ENV['yt']['lh'];
$lr = $_ENV['yt']['lr'];
}
Fap(IPF, 'lr', SU . "=>" . $x);
#la concrétisation
unset($_SESSION['st1']);
$_GET['r301'] = 1;
e(',r301,r303');
#tracker
#SU.$x
if (starter && $lh == 301 && $lr == $x) {
jx($lh . $lr);
db('dest' . SU);
if (U) {
R302("/#error:301loop:{$x}");
}
return;
}
if ($nc == 1) {
Header("Status: 301 Moved Permanently", 1, 301);
Header("Location:{$x}");
kill();
}
if (!$x) {
Db("emptyR2:" . SU);
jx('emptyr2');
return;
}
#jx();
if (headers_sent($f, $line)) {
Db("headers!{$f},{$line}");
return;
}
#on n'y peut rien !#@ob_clean();
Header("Status: 301 Moved Permanently", 1, 301);
Header("Location:{$x}");
#av($_ENV['args'].'-'.__line__);
kill();
}
