#!/usr/bin/perl
use LWP::UserAgent;
use MIME::Base64;
my ($user, $newuser) = @ARGV;
if ((!$user) || (!$newuser)) {
print "Usage: changeuser currentuser newuser \n";
exit;
}
my $luser = "username";
my $lpass = "password";
my $ip = "127.0.0.1";
my $auth = "Basic " . MIME::Base64::encode( $luser . ":" . $lpass );
my $ua = LWP::UserAgent->new;
my $request =
HTTP::Request->new( GET =>
"http://$ip:2086/xml-api/modifyacct?user=$user&newuser=$newuser"
);
$request->header( Authorization => $auth );
my $response = $ua->request($request);
print $response->content;