Andrius-conf at elsis
May 21, 2008, 11:52 PM
Post #2 of 2
(1025 views)
Permalink
|
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->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
_______________________________________________
cisco-voip mailing list
cisco-voip[at]puck.nether.net
https://puck.nether.net/mailman/listinfo/cisco-voip
|
