#!/usr/local/bin/perl # # Récupère et affiche une page à une URL # # $version="1.01b"; # # (c) 1998 Emmanuel PIERRE # epierre@e-nef.com # http://www.e-nef.com/users/Emmanuel.PIERRE # $prog="insertpage.cgi"; use strict 'subs'; BEGIN { $ENV{PATH} = '/usr/bin:/bin' } require LWP::UserAgent; #$url_proxy = 'http://proxy:8080'; $URL = "http://localhost:80/manif.txt"; # Du HTML # #print "Content-type: text/html\n\n"; print "\n"; $mesg=&Connect_server($URL); print "-$mesg-"; exit; # # # # # # # # Connection au serveur, émission de commande. # # sub Connect_server { local ($url) = @_; #print "url-$url-\n"; my $ua = new LWP::UserAgent; $ua->agent("MoXWorld Web Agent/$v "); #print "proxy-$url_proxy-\n"; if ($url_proxy ne "") { $ua->env_proxy; $ua->proxy('http',$url_proxy); } my $req = new HTTP::Request 'GET' => $url; $req->header('Accept' => 'text/html'); # send request my $rez = $ua->request($req); #print "-$res-\n"; my $res1=$rez->content(); #print "res1-$res1-\n"; # Serveur Down if ($res1 eq '') {return "Server Down"} #print $rez->content(); return $res1; }