use LWP::UserAgent
use HTTP::Request
$proxy = $url; #or just replace $proxy with $url.
my $response = &httpRequest($proxy);
sub httpRequest {
my $proxy = shift;
my $ua = LWP::UserAgent->new(timeout => 2);
$ua->agent("Anti-War v2.0");
$ua->proxy('http', "http://$proxy";);
my $req = HTTP::Request->new(GET => $get_url);
$req->referer("-"); #typed in url effect
my $http_response = $ua->request($req);
my $response;
if ($http_response->is_error()) {
$response = sprintf " %s",
$http_response->status_line;
} else {
$response = $http_response->content();
}
return $response;
}
--- "Ing. Ricardo Cumberbatch L. (PANNet - URC)"
<[EMAIL PROTECTED]> wrote:
>
> Hi
>
> How could i do example:
>
> Server B execute a page from Server A and saved the
> information and
> send it to Server C.
>
> Server C couldn't know that the infomation came from
> Server A. I found
> that in PHP is do in this way:
>
> function verificar_url($url)
> {
> //abrimos el archivo en lectura
> [EMAIL PROTECTED]($url,"r");
> //hacemos las comprobaciones
> if ($id) $abierto=1;
> else $abierto=0;
> //devolvemos el valor
> return $abierto;
> //cerramos el archivo
> fclose($id);
> }
>
>
>
> $url= "http://www.skytel.com.co";;
>
>
> $Resultado= verificar_url($url);
>
> echo " Resultado $Resultado ";
> if ($Resultado == 1)
> {
> echo " DIRECCION EXISTENTE ";
> // Aqui puede ingresar la rutina para traer la
> informacion del sitio
> web
> }
> else
> {
> echo " DIRECCION NO EXISTENTE o FUERA DE
> LINEA ";
>
>
> }
> la primera es la funciC, y la otra parte es el
> uso de @ delante de fopen es para que en caso de
> error no se muestre en la pantalla
>
>
> How could I do something like this or work like it.
>
> Thank for the help
>
> _______________________________________________
> Perl-Unix-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe:
http://listserv.ActiveState.com/mailman/mysubs
__________________________________________________
Do you Yahoo!?
Yahoo! Tax Center - forms, calculators, tips, more
http://taxes.yahoo.com/
_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
