// RJM Programming
// January, 2023
error_reporting( E_ERROR | E_USER_ERROR );
set_time_limit(3600);
$semic=[];
$thisc=[];
$presemic='';
$postsemic='';
$clist=explode(';', 'red;blue;purple;brown;orange;green');
$clist=explode(';', 'rgba(255,0,0,0.5);rgba(0,0,255,0.5);rgba(230,230,250,0.5);rgba(165,42,42,0.5);rgba(255,165,0,0.5);rgba(0,255,0,0.5)');
$letlen=8;
$langis='en';
$urlis='';
$preminmax="";
if (1 == 2) {
$sih="";
} else {
$preminmax="data-";
$sih='';
}
foreach ($_GET as $name=>$val) {
$_POST[$name]=$val;
}
function relative_to_absolute($inth) {
global $urlis, $letlen, $presemic, $postsemic, $clist, $semic;
$froms=[];
$sfroms=" ";
$postub="";
$ub="http://" . $_SERVER['SERVER_NAME'] . str_replace(":443","",":" . $_SERVER['SERVER_PORT']) . $_SERVER['REQUEST_URI'];
if (strpos($ub, "&url=") !== false && isset($_POST['ongoing'])) {
$postub=explode("&url=", $ub)[0] . "&url=";
}
if ($urlis != "") {
$ubf=explode("?", $urlis);
$ubff=explode("/", $ubf[0]);
if (strpos($ubff[sizeof($ubff) - 1], ".") !== false && (sizeof($ubff) - 1) > 2) {
$ub=str_replace("/" . $ubff[sizeof($ubff) - 1], "/", $ubf[0]);
} else {
$ub=str_replace("@$@", "", str_replace("/@$@", "/", ($ubf[0] . "@$@")));
}
$urlis="";
}
$ubf=explode("?", $ub);
$udirname=str_replace("/wiki_" . "mark_eight.php", "/", $ubf[0]);
//echo $udirname;
//exit;
//$low = strtolower($inth);
$outth = $inth;
$ideas = array(" action='", ' action="', " Action='", ' Action="', " ACTION='", ' ACTION="', " action=", " Action=", " ACTION=", " href='", ' href="', " Href='", ' Href="', " HREF='", ' HREF="', " href=", " Href=", " HREF=", " src='", ' src="', " Src='", ' Src="', " SRC='", ' SRC="', " src=", " Src=", " SRC=");
if ($udirname != "") {
$inth=str_replace("'/static/", "'" . explode("/wiki/", $udirname)[0] . "/static/", $inth);
$inth=str_replace('"/static/', '"' . explode("/wiki/", $udirname)[0] . "/static/", $inth);
if ($postub != "") {
$inth=str_replace("'/wiki/", "'" . $postub, $inth);
$inth=str_replace('"/wiki/', '"' . $postub, $inth);
} else {
$inth=str_replace("'/wiki/", "'" . explode("/wiki/", $udirname)[0] . "/wiki/", $inth);
$inth=str_replace('"/wiki/', '"' . explode("/wiki/", $udirname)[0] . "/wiki/", $inth);
}
$inth=str_replace("'/w/", "'" . explode("/wiki/", $udirname)[0] . "/w/", $inth);
$inth=str_replace('"/w/', '"' . explode("/wiki/", $udirname)[0] . "/w/", $inth);
$inth=str_replace("'/er/", "'" . explode("/wiki/", $udirname)[0] . "/er/", $inth);
$inth=str_replace('"/er/', '"' . explode("/wiki/", $udirname)[0] . "/er/", $inth);
$inth=str_replace("'/esitest-", "'" . explode("/wiki/", $udirname)[0] . "/esitest-", $inth);
$inth=str_replace('"/esitest-', '"' . explode("/wiki/", $udirname)[0] . "/esitest-", $inth);
$outth = $inth;
for ($m=0; $m 1) {
for ($ii=(sizeof($huhs) - 1); $ii>=1; $ii--) {
if (strtolower(str_replace("file", "http", strtolower(substr($huhs[$ii], 0, 4)))) == "http") {
$outth = $outth;
} else if (substr($huhs[$ii], 0, 1) != "/" && substr($huhs[$ii], 0, 1) != "'" && substr($huhs[$ii], 0, 1) != '"') {
$outth = str_replace($huhs[$ii], $udirname . $huhs[$ii], $outth);
} else if (substr($huhs[$ii], 1, 1) != "/" && substr($huhs[$ii], 0, 1) != "'" && substr($huhs[$ii], 0, 1) != '"') {
$outth = str_replace($huhs[$ii], substr($udirname, 0, (strlen($udirname) - 0)) . $huhs[$ii], $outth);
}
}
}
}
}
$fixthis=$outth;
if (strpos(explode("") !== false) {
$fixthis=explode("", explode("", explode("", explode("", explode("= 1000) {
if (strpos($sfroms, ' ' . $aerrs[$ii] . ' ') === false && strpos($postsemic, ' ' . $aerrs[$ii] . ' ') !== false) {
if (strpos($aerrs[$ii], '=') === false) {
if (substr($aerrs[$ii],-1,1) != '"') {
$sfroms.=$aerrs[$ii] . ' ';
}
}
}
} else if (strlen($aerrs[$ii]) >= $letlen || strpos($postsemic, ' ' . $aerrs[$ii] . ' ') !== false) {
if (strpos($sfroms, ' ' . $aerrs[$ii] . ' ') === false) {
$berrs=explode(' ' . $aerrs[$ii] . ' ', $outth);
//$laste=explode(">", $berrs[0])[-1 + sizeof(explode(">", $berrs[0]))];
//if (strpos($laste, "<") === false) {
if (strpos($aerrs[$ii], '=') === false) {
if (substr($aerrs[$ii],-1,1) != '"') {
$sfroms.=$aerrs[$ii] . ' ';
}
}
//}
}
}
}
}
$froms=explode(" ", trim($sfroms));
$prefixthis=$fixthis;
for ($ii=0; $ii' . $froms[$ii] . '<', str_replace('>' . $froms[$ii] . ' ', '>' . $froms[$ii] . ' ', str_replace(' ' . $froms[$ii] . ' ', ' ' . $froms[$ii] . ' ', $fixthis)));
}
$outth=str_replace($prefixthis, $fixthis, $outth);
$tos=explode("", $tos[$ii])[0], "") !== false) {
$outth=str_replace(explode("", $tos[$ii])[0], str_replace("", "", str_replace("", "", explode("", $tos[$ii])[0])), $outth);
}
}
$tos=explode('="', $outth);
for ($ii=1; $ii") !== false || strpos(explode('"', $tos[$ii])[0], "") !== false) {
$outth=str_replace(explode('"', $tos[$ii])[0], str_replace("", "", str_replace("", "", explode('"', $tos[$ii])[0])), $outth);
}
}
if ($letlen >= 1000 || trim($postsemic) != '') {
for ($ih=0; $ih' . $thisc[$jh] . '', '' . $thisc[$jh] . '', $outth);
}
}
}
}
//if (strpos($_POST['url'], 'Melbourne') !== false) { file_put_contents('xxx.xxx', $outth); }
if (isset($_POST['place'])) {
if (urldecode($_POST['place']) != '_blank') {
return str_replace('', ' parent.document.body.style.cursor="pointer"; ', $outth);
}
}
//return str_replace('< mark>', '', str_replace('" ', '"', $outth));
return $outth;
}
if (isset($_POST['url'])) {
if (isset($_POST['letlen'])) {
$letlen=urldecode($_POST['letlen']);
}
if (isset($_POST['personal'])) {
if (strlen(trim(str_replace('+',' ',urldecode($_POST['personal'])))) > 0) {
$presemic=',' . trim(str_replace('+',' ',urldecode($_POST['personal']))) . ',';
$postsemic=str_replace(',',' ',str_replace(';',' ',$presemic));
$semic=explode(';', trim(str_replace('+',' ',urldecode($_POST['personal']))));
}
}
$langis=urldecode($_POST['lang']);
$urlis=urldecode($_POST['protocol']) . urldecode($_POST['lang']) . urldecode($_POST['afterlang']) . str_replace('+','_',urldecode($_POST['url']));
$contis=file_get_contents($urlis);
if (trim($contis) == "" && $langis != "en") {
$urlis=urldecode($_POST['protocol']) . 'en' . urldecode($_POST['afterlang']) . str_replace('+','_',urldecode($_POST['url']));
$contis="";
$contis=file_get_contents($urlis);
}
if (strpos(trim($contis), '