Re: R: Webserver stresssss

Questo è un semplice script Perl che esegue richieste http a ciclo
infinito.
Vedi un po' se ti può essere utile.

    Walter

>
> -----BEGIN PGP SIGNED MESSAGE-----
> Hash: SHA1
>
> C'ho pensato, ma volevo qualcosa di pronto, funzionale e
> "relativamente" conosciuto.
> Devo installare un web server per tanti utenti (ma davvero tanti)
> e volevo fare degli stress test in merito...
> Qualcosa come 200.000 accessi p giù di lì...
>
> Ruben
>
> - -----Messaggio originale-----
> Da:     walter valenti [SMTP:waltervalenti@yahoo.it]
> Inviato:        lunedì 30 luglio 2001 10.23
> A:      ml@sikurezza.org
> Oggetto:        Re: Webserver stresssss
>
> Cosa devi fare esattemante ???
> Puoi fare dei telnet alla porta 80; o uno script Perl utilizzando le
> librerie LWP... ecc.
>
> -----BEGIN PGP SIGNATURE-----
> Version: PGP 7.0.4
>
> iQA/AwUBO2U2Ezlk3CEbHwATEQJz0QCgtmIMdwt7DHBr7EEYLFUJs+cVPLMAoIRa
> vzF1F9QFe9PkJs3AqRP2sRZq
> =0Nu6
> -----END PGP SIGNATURE-----
>
> ________________________________________________________
> http://www.sikurezza.org - Italian Security Mailing List
#!/usr/bin/perl

use LWP::UserAgent;

$agente=new LWP::UserAgent;
	

my $host = shift() || die "utilizzo:  $ARGV[0] [hostname]";
my $cnt;
my $data;
my $rqs;


for (;;){
	$cnt= "http://$host/";;
	$rqs=new HTTP::Request('GET',$cnt);
	$data=$agente->request($rqs);
	print $data->content."\n";
}
  







________________________________________________________
http://www.sikurezza.org - Italian Security Mailing List