# # replace admin-c in multiple domains # #!/usr/bin/perl use LWP::UserAgent; use Data::Dumper; my $ua = LWP::UserAgent->new; my $req = HTTP::Request->new(GET => 'https://dmapi.joker.com/request/login?username='.shift().'&password='.shift()); my $res = $ua->request($req); #--Admin-C : my %ADMIN = ( de =>'CODE-12345' , org => 'CORG-12345', com => 'CCOM-12345', 'eu' => 'c12345' ); unless ($res->is_success) { print "Failed: ", $res->status_line, "\n"; exit -1; } my $auth=$res->as_string; my $output; if ($auth =~ /Auth-Sid:\s*([a-z0-9]+)/m ) { $auth = $1; } else { print "Failed: Got no auth-id from DMAPI:\n"; print $res->content; exit -3; } while ( <DATA> ) { chomp; my $fqdn = $_; ## for 3rd level domains this must be changed! my ( $sld, $tld ) = split ( /\./ , $fqdn ); my $admin = $ADMIN{ $tld }; $req=HTTP::Request->new(GET => 'https://dmapi.joker.com/request/domain-modify?domain='.$fqdn.'&admin-c='.$admin.'&auth-sid='.$auth); $res = $ua->request($req); if ($res->is_success) { $output=$res->content; print $output; } else { print "Failed: ", $res->status_line, "\n"; exit -2; } } __DATA__ domain1.de domain2.eu domain3.org domain4.com __END__