[cisco-voip] Perl AXL example

[Andrius Kislas]

use SOAP::Lite;

my $user = 'Administrator';
my $password = 'somepsw';
my $ip = '1.1.1.1';

BEGIN {
     sub SOAP::Transport::HTTP::Client::get_basic_credentials { return 
($user => $password) };
}

my $CallManager = new SOAP::Lite
  uri => 'http://www.cisco.com/AXL/API/1.0',
  proxy => "http://$ip/CCMApi/AXL/V1/soapisapi.dll";


# skip

     my $pt = SOAP::Data->name('newRoutePartition'
                 => \SOAP::Data->value(
                         SOAP::Data->name('name' => $name),
                         SOAP::Data->name('description' => $descr)
                     )
              );


     my $som = $cm->addRoutePartition($pt);
     if ($som->fault) {
         print "Error: ", $som->faultstring, "\n";
         return 0;
     }

     $$refResult = $som->valueof('//addRoutePartitionResponse/return');


Andrius



Mooney, Nicholas wrote:
> Hi,
>  
> Look for some example AXL scripts written in Perl. Have found examples 
> in C, Java, PHP etc but specifically interested in Perl.
>  
> Does anyone have a basic script that they could share with me?
>  
> Thanks,
>  
> Nick
>  
>  
> 
> 
> 
> 
> 
> This is an email from Fujitsu Australia Limited, ABN 19 001 011 427. It is confidential to the ordinary user of the email address to which it was addressed and may contain copyright and/or legally privileged information. No one else may read, print, store, copy or forward all or any of it or its attachments. If you receive this email in error, please return to sender. Thank you.
>  
> If you do not wish to receive commercial email messages from Fujitsu Australia Limited, please email unsubscribe at au.fujitsu.com
> 
> 
> ------------------------------------------------------------------------
> 
> _______________________________________________
> cisco-voip mailing list
> cisco-voip at puck.nether.net
> https://puck.nether.net/mailman/listinfo/cisco-voip