Hi,
I'm trying to add a user using perl and seem to be struggling, I'm quite familiar with PERL with AXL\SOAP but the REST formatting seems to be eluding me
use LWP::UserAgent;
use LWP::Protocol::https;
$LOGFILE="logfile.txt";
$USER = '<removed>';
$PASSWORD = '<removed>';
$starttime=time();
$xml = " <?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"yes\"?>
<User>
<Alias>jdoe</Alias>
<DtmfAccessId>7890</DtmfAccessId>
</User>";
$url="https://10.64.144.49/vmrest/users?templateAlias=voicemailusertemplate";
$ua = LWP::UserAgent->new;
$header = HTTP::Headers->new;
$req = HTTP::Request->new(POST => $url,
[
Content => $xml
],
);
$req->authorization_basic($USER,$PASSWORD);
$req->content_type('application/xml');
print $req->as_string;
$response = $ua->request($req);
#print $response->as_string;
$runtime=time()-$starttime;
print "This script ran for $runtime seconds \n";
exit
I keep getting
HTTP Status 400 - Bad Request
</div> <p> <b> type:
</b> Status report </p> <p> <b>messag
e: </b> Bad Request </p> <p>
<b>description: </b> The request sent by the client was syntactica
lly incorrect. </p> </div> </body></html>
This script ran for 1 seconds
} </style> </head> <body> <div id="logo"> <img s
rc="/ciscologo.gif" alt="Cisco Systems, Inc." /> </div> <div id="c
ontent"> <div id="content-header">HTTP Status 400 - Bad Request
</div> <p> <b> type:
</b> Status report </p> <p> <b>messag
e: </b> Bad Request </p> <p>
<b>description: </b> The request sent by the client was syntactica
lly incorrect. </p> </div> </body></html>
This script ran for 1 seconds
Can't see where I'm going wrong?
regards
mark
