I don't believe the server have to catch its breath -- its hould be
designed to handle >1 requests at once (at least I tried that yesterday
and was able to do 3 requests together from the same IP, limited by
the software not by the hardware :).
so for all of you who need a faster script or if you don't have wget
here is my version 2 :)))
#!/usr/bin/perl
use IO::Socket;
open F,$ARGV[0];
while (<F>) {
chomp;
$r = '/moo-bin/moo_reg.cgi?affiliate_id=&
reg_username=a®_password=b®_domain=c.moo®_type=new&
bulk_order=0&period=1&domain='.$_.'.moo&owner_first_name=d&
owner_last_name=d&owner_org_name=d&owner_address1=d&
owner_address2=&owner_address3=&owner_city=d&owner_state=d&
owner_postal_code=1&owner_country=US&owner_email=d&
owner_phone=1&owner_fax=&billing_first_name=d&billing_last_name=d&
billing_org_name=d&billing_address1=d&billing_address2=&
billing_address3=&billing_city=d&billing_state=d&billing_postal_code=1&
billing_country=US&billing_email=d&billing_phone=1&billing_fax=&
p_cc_num=&p_cc_type=&p_cc_exp_mon=&p_cc_exp_yr=&action=register';
if ($sock = IO::Socket::INET->new(Proto => "tcp",
PeerAddr => "207.136.98.175", PeerPort => "(80)")) {
$sock->autoflush(1);
print $sock "GET $r HTTP/1.0\n\n";
{local($/)=undef; $t=<$sock>;}
}
}
close F;
4 lines more but you don't need wget and it works 2 times faster or so.
enjoy
regards,
doytchin
P.S. I see people do that - now the tracking number is at 11K :)
P.P.S. I am curious what other critics I will get about my code. nah :)
"I recommend to use it with caution if you are under 18" haha
> I recommend against using this script. If ten people run at the same time
they
> could easily trash the moo.tucows.com server.
> First of all, this script makes one request for each domain registered
instead
> of doing bulk transfers. This creates more load than you really need.
Then,
> this script immediately starts a new registration when the previous
> registration completes without giving the server a chance to catch its
breath.
> You should pause between requests. Think of the offline processing that
may be
> required once the orders are "entered" to complete them, such as sending
> e-mail.
>
> If you want to use this, at a minimum add a "sleep 2" or something.
>
> I can see the moo.tucows.com performance go up and down over time. It's
funny.
>
> David
>
> -----Original Message-----
> From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On
> Behalf Of Doytchin Spiridonov
> Sent: Thursday, August 03, 2000 5:26 PM
> To: Abhishek Rungta
> Cc: [EMAIL PROTECTED]
> Subject: Re: Unfair ;) DotMOO conquest
>
> ok here is my "script" if you need it so much :)))
> just replace some of the =a, b, c, d and 1s with what you need.
>
> #!/usr/bin/perl
> open F,$ARGV[0];
> while (<F>) {
> chomp;
> $r = 'http://moo.tucows.com/moo-bin/moo_reg.cgi?affiliate_id=&;
> reg_username=a®_password=b®_domain=c.moo®_type=new&
> bulk_order=0&period=1&domain='.$_.'.moo&owner_first_name=d&
> owner_last_name=d&owner_org_name=d&owner_address1=d&
> owner_address2=&owner_address3=&owner_city=d&owner_state=d&
> owner_postal_code=1&owner_country=US&owner_email=d&
> owner_phone=1&owner_fax=&billing_first_name=d&billing_last_name=d&
> billing_org_name=d&billing_address1=d&billing_address2=&
> billing_address3=&billing_city=d&billing_state=d&billing_postal_code=1&
> billing_country=US&billing_email=d&billing_phone=1&billing_fax=&
> p_cc_num=&p_cc_type=&p_cc_exp_mon=&p_cc_exp_yr=&action=register';
> `wget '$r' -q -O -`;
> }
> close F;
>
> needs as an argument the name of the file containing the list of words.
> 6 lines of code. nah nah. :)
> wget is something which is comming with redhat, if you don't have it
> find it on the web somewhere.
>
> regards,
> doytchin
> aka DoDs :))
> http://www.dods.net
> ICQ: 53000000
> IQ: 180
>
> :P
>
> moo!
>
>
>
