[Tech] autentifica di un programma

Ven 13 Feb 2004 18:52:44 CET

Funzicchia ... ma pmi dici al volo quale è la funzioine per trovare la 
rispopsta ?
$res->content mi ritorna tutto il file. Quiello cheg mi interessa è tra 
'<body>' (che dovrebbe apparire una sola volta) e ':' (il primo che 
capita dopo <boby> , di regola sono 4 caratteri !
mi dai al volo la risposta ?

On 4 Feb 2004 at 12:05, Franco Bagnoli wrote:

> 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
> 
> _______________________________________________
> FLUG - Discussioni tecniche - tech@firenze.linux.it
> URL: http://lists.firenze.linux.it/mailman/listinfo/tech
> Archivio: http://lists.firenze.linux.it/pipermail/tech
> Ricerca nell'archivio: http://www.firenze.linux.it/search

--
Leonardo Boselli
Nucleo informatico e Telematico 
Dipartimento Ingegneria Civile
Universita` di Firenze
Via Santa Marta 3
I-50139 Firenze
+39 055-4796-431
+39 348-8605-348
fax 055-495-333