Or you can just use this... *heh*
Charles Daminato
TUCOWS Product Manager
[EMAIL PROTECTED]
On Tue, 19 Feb 2002, erol M wrote:
> done by ross mueller for chuck once upon a time.
>
>
> #!/usr/bin/perl
> #read in a file and renew each domain in the file
>
> BEGIN {
> do"path/to/OpenSRS.conf";
> }
>
> #set renewal length
> my $no_years = 1;
>
> if ( $ARGV[0] eq "" ) {
> print STDOUT "usage: $0 <filename>\n";
> exit;
> }
>
> use strict;
> use lib $PATH_LIB;
> use OpenSRS::XML_Client qw(:default);
> my $XML_Client;
> $XML_Client = new OpenSRS::XML_Client(%OPENSRS);
> $XML_Client->login;
> chomp(my $file = $ARGV[0]);
>
> my $domain;
> open(FILE, $file) or die "couldn't open file: $file\n";
> foreach (<FILE>) {
> chomp($domain = $_);
> my $xcp_req = {
> action => 'renew',
> object => 'domain',
> login => 'xxxxxxx',
> password => 'xxxxxxx',
> attributes => {
> domain => "$domain",
> currentexpirationyear => "2001",
> period => "$no_years",
> auto_renew => "off",
> }
> };
>
> my $res = $XML_Client->send_cmd( $xcp_req );
> my $response = $res->{ response_text };
>
> if (not $res->{is_success}) {
> print "Renewal for $domain failed: $response\n";
> } else {
> print "Renewal for $domain succeded!\n";
> }
>
> }
>
> $XML_Client->logout
>
>
>
>
> On Tue, 19 Feb 2002, Alex Brecher wrote:
>
> > Hi, I had a command line script that allowed us to do bulk renewals. I lost
> > the script and I have a few large orders that need to be placed ASAP. Does
> > anybody on this list have the script handy ?
> >
> > Best Regards,
> >
> > Alex Brecher
> >
> > Visit us at http://www.Successfulhosting.com
> > We'll make your web site a success!
> >
> > Get your own domain name for only $14.99
> > http://www.DiscountDomainRegistry.com
> >
> > *****PLEASE DO NOT DELETE ANY PART OF THIS MESSAGE WHEN REPLYING*****
> >
>
>
>
>
