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*****
>
