Unanswered Question
Feb 22nd, 2007

Does anyone know of an AXL/SOAP tools available. One of the things I want to be able to do is to import/configure multiple translation rules in CallManager. I have a customer who is looking at using around 700 short code dials!!

I have this problem too.
0 votes
  • 1
  • 2
  • 3
  • 4
  • 5
Overall Rating: 0 (0 ratings)

If you know perl you can modify this script - I wrote it to log users out.

Use and


use CGI;

use LWP::UserAgent;

use HTTP::Request::Common;

use HTTP::Headers;

use SOAP::Lite;

use IO::File;

my $deviceName;

my $axlRequest;

my $file="test.csv";

my $axlType;

my $host;

my $soapHeader;

my $soapFooter;

open (LOGIN,$file) or die print "$file could not be opened $!";


$host = 'x.x.x.x:80';





$soapFooter=" ";

while (){

my $data=$_;

my @line = split(/,/,$data);

chomp @line;

foreach ($data){

$deviceName="".$line[0]."" ;




sub axlSend{

$axlRequest="\" xsi:schemaLocation=\"\" sequence=\"10\">



my $userAgent = LWP::UserAgent->new(agent => 'POST doDeviceLogout');

my $request="$soapHeader $axlRequest $soapFooter";

my $response = $userAgent->request(POST 'http://x.x.x.x/CCMApi/AXL/V1/soapisapi.dll',

Content_Type => 'text/xml',

Host => $host,

Authorization => 'Basic "base64Password"',

Content => $request);


print $response->error_as_HTML unless $response->is_success;


if (!$response->is_success){

print "Could not open connection to $host, $deviceName not logged off!";


elsif ($error=$response->as_string){

if ($error =~ /fault/){

print $response->error_as_HTML;


else { print "RESULT: logged out of $deviceName\n";






sub html_header {

print "Content-type: text/html\n\n";

print "Lab CM\n";

print "



sub html_footer {

print "



sub close_file{




This Discussion