[Tech] autentifica di un programma su un server remoto / wget e POST

[Franco Bagnoli]

On Wed, 4 Feb 2004, Leonardo Boselli wrote:

> Problema: ho un programma in perl che deve verificare un utente su
> un server remoto.
> La prima cosa che mi è venuta in mente è di fare un
> $query="wget -q -O - https://query-server.localnet/query?user=" \
>             . $user . "&passwd=" . $password ;
> $quary=system($query);
> if ($quary > $levelrequired) { ....... }
> 
> esiste qualcosa di più elegante ? in particolare evitare sia di chiamare
> un programma esterno, che di passare nella query del GET
> username e password (ossia : come faccio un post con wget ?)--

Non usare wget. il perl è abbastanza evoluto da gestire da solo le 
connessioni  ..... 

perldoc  LWP:

         # Create a user agent object
         use LWP::UserAgent;
         $ua = new LWP::UserAgent;
         $ua->agent("AgentName/0.1 " . $ua->agent);

         # Create a request
         my $req = new HTTP::Request POST => 'http://www.perl.com/cgi-bin/BugGlimpse';
         $req->content_type('application/x-www-form-urlencoded');
         $req->content('match=www&errors=0');

         # Pass request to the user agent and get a response back
         my $res = $ua->request($req);

         # Check the outcome of the response
         if ($res->is_success) {
             print $res->content;
         } else {
             print "Bad luck this time\n";
         }



                

-- 
Franco Bagnoli (franchino) <franco.bagnoli@unifi.it> (bagnoli@dma.unifi.it)
virtual location: Dipartimento di Energetica "S. Stecco"
ultra-virtual affiliation: Centro Dinamiche Complesse (CSDC-Firenze)
real location: Dip. Matematica Applicata "G. Sansone", Universita' Firenze,
Via S. Marta, 3 I-50139 Firenze, Italy. Tel. +39 0554796422, fax: +39 055471787