<div class="gmail_quote"><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">I can display above msg small script output to the screen using - &#39;print $msg; at the end but what I need to do is submit above perl request to Call manager 6?<br>

Any body can give me some help here  <br><br>ie..<br><br>instead of print $msg outpout on the screen, I want the output to be submitted to the CCM server to logout SEPaabbccddee device using perl script.<br><br></blockquote>
</div>Hi,<br><br>I use the following code for various AXL API requests to the CCM. You will need net::ssleay perl package, LWP (Data::Dumper and XML::Simple are optional)<br><br>--- CUT ---<br>use LWP::UserAgent;<br>use Data::Dumper;<br>
use XML::Simple;<br><br>my $axlUser = &#39;username&#39;;<br>my $axlPwd  = &#39;password&#39;;<br># this one is for ccm 4.2 Change this to the URL for ccm 6<br>my $ccmUrl  = &#39;<a href="https://CCMIP/CCMApi/AXL/V1/soapisapi.dll">https://CCMIP/CCMApi/AXL/V1/soapisapi.dll</a>&#39;;<br>
<br>my $soapEnv = &lt;&lt;AXL;<br>&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-8&quot;?&gt;<br>&lt;SOAP-ENV:Envelope SOAP-ENV:encodingStyle=&quot;<a href="http://schemas.xmlsoap.org/soap/encoding/">http://schemas.xmlsoap.org/soap/encoding/</a>&quot; xmlns:SOAP-ENV=&quot;<a href="http://schemas.xmlsoap.org/soap/envelope/">http://schemas.xmlsoap.org/soap/envelope/</a>&quot; xmlns:SOAP-ENC=&quot;<a href="http://schemas.xmlsoap.org/soap/encoding/">http://schemas.xmlsoap.org/soap/encoding/</a>&quot;&gt;<br>
    &lt;SOAP-ENV:Body&gt;<br>        &lt;axl:getPhone xmlns:axl=&quot;<a href="http://www.cisco.com/AXL/1.0">http://www.cisco.com/AXL/1.0</a>&quot;&gt;<br>            &lt;phoneName&gt;SEP00233319A4E8&lt;/phoneName&gt;<br>
        &lt;/axl:getPhone&gt;<br>    &lt;/SOAP-ENV:Body&gt;<br>&lt;/SOAP-ENV:Envelope&gt;<br>AXL<br><br># Create a user agent object<br>my $ua = LWP::UserAgent-&gt;new;<br><br># Create a request<br>my $req = HTTP::Request-&gt;new(POST =&gt; $ccmUrl);<br>
$req-&gt;content_type(&#39;text/xml&#39;);<br>$req-&gt;header(&#39;Accept&#39; =&gt; &#39;text/*&#39;);<br>$req-&gt;content($soapEnv);<br>$req-&gt;authorization_basic($axlUser,$axlPwd);<br><br># Pass request to the user agent and get a response back<br>
my $res = $ua-&gt;request($req);<br><br># Check the outcome of the response<br>if ($res-&gt;{_rc} == 200) <br>{ <br>    # Request was successful<br>    $xml = new XML::Simple();<br>    $data = $xml-&gt;XMLin($res-&gt;content,KeyAttr =&gt; &quot;return&quot; );<br>
    print Dumper($data);<br>}<br>else<br>{<br>    # Request failed<br>}<br>--- CUT ---<br><br clear="all"><br>-- <br>Aleksandar Topuzovic<br>Cisco Certified Network Professional<br>Cisco Certified Voice Professional<br>