FUNCTION
Gethtml
(
$ URL
, &
$ delta
,
$ CORTO
=
False
,
$ complet
=
True
) {
$ URL_STUFF
=
Parse_URL
(
$ URL
);
$ fp
=
Fsockopen
(
$ URL_STUFF
[
'Host'
],
80
,
$ Errno
,
$ Errstr
,
30
); If (!
$ fp
) {Exit;} else {
$ HEADER
=
"Get"
.
$ URL_STUFF
[
'PATH'
].
"?"
.
$ URL_STUFF
[
'query'
];
$ HEADER
=
$ HEADER
.
"Http / 1.0 / r / NHOST:"
.
$ URL_STUFF
[
'Host'
].
"/ r / n / r / n"
;
FPUTS
(
$ fp
,
$ HEADER
);
// Separr Contenido ...
$ HEADER
=
'' '
;
$ Body
=
'' '
;
$ ACT
=
False
;
$ FIN
=
False
WHILE ((!
Feof
(
$ fp
)) &&!
$ FIN
) {
$ LINE
=
Fgets
(
$ fp
,
1024
); If (!
$ ACT
) {IF
Strpos
(
$ LINE
,
"/ r / n"
,
0
) ==
0
) {
$ HEADER
=
$ LINE
; If (!
$ complet
)
$ FIN
=
True
;
$ ACT
=
True
Else {
$ HEADER
=
$ LINE
}} Else {IF
$ CORTO
) {IF
EREGI
(
"
] *)>",
$ LINE
,
$ O
))
$ FIN
=
True
} If (!!
$ FIN
)
$ Body
=
$ Body
.
$ LINE
}}
// seguir location ...
$ RET
=
Strpos
(
$ HEADER
,
"Location:"
,
0
); If
$ RET
! ==
False
) {
$ FIN
=
Strpos
(
$ HEADER
,
"/ r / n"
,
$ RET
9
);
$ Nueva
=
Substr
(
$ HEADER
,
$ RET
9
,
$ FIN
-
$ RET
-
9
);
$ Body
=
Gethtml
(
$ Nueva
,
$ delta
,
$ CORTO
,
$ complet
} Else {
$ delta
=
$ URL
}
Fclose
(
$ fp
} return
$ Body
}
