##################################################
#!/usr/bin/perl
$cucm_ip = "10.74.7.52";
$user_axl = "user";
$password_axl = "password";
$path_file=$path."input.txt";
###############################################################################################
$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;
use SOAP::Lite;
BEGIN
{
 sub SOAP::Transport::HTTP::Client::get_basic_credentials
    {
     return
      ($user_axl => $password_axl)
          }
         }
          my $CUCM = SOAP::Lite
           ->uri("http://schemas.cisco.com/ast/soap")
           ->proxy("https://$cucm_ip:8443/realtimeservice2/services/RISService70?wsdl");
            if (-e $path_file)
             {
              print "File exits\n";
              print ON "File exits\n";
              open(IN,"$path_file");
              while (<IN>)
               {
                 print "==\n";
                 $devname="";
                 $line=$_;
                 chomp($line);
                 @values=split(/\;/,$line,1);
                 $devname=(shift @values);
                 print "Input:".$devname."\n";
##################################################################################################
my $xmlCode = "<selectCmDevice><StateInfo></StateInfo><CmSelectionCriteria><MaxReturnedDevices>1000</MaxReturnedDevices><DeviceClass>Any</DeviceClass><Model>255</Model><Status>Any</Status><NodeName></NodeName><SelectBy>Name</SelectBy><SelectItems><!--Zero or more repetitions:--><item><Item>$devname</Item></item></SelectItems><Protocol>Any</Protocol><DownloadStatus>Any</DownloadStatus></CmSelectionCriteria></selectCmDevice>";
$elem = SOAP::Data->type('xml' => $xmlCode);

my $sRes = $CUCM->selectCmDevice($elem);

my @devStat = $sRes->valueof('//return/row/Status');
                 print "Device Status:";print join (',' , @devStat);print "\n";
                  #print "Device Type:".$_device_pkid."\n";
                  #print "Device Desc:".$_device_description."\n";
                  print "---\n";
#####################################################################################################
                   }
                  }
                  else
                  {
                    print "File not found\n";
                  }
###End#############################################################################################


##</code><code>##

<!--RisPort70 API - SelectCmDevice - Request-->
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:soap="http://schemas.cisco.com/ast/soap">
   <soapenv:Header/>
   <soapenv:Body>
      <soap:selectCmDevice>
         <soap:StateInfo></soap:StateInfo>
         <soap:CmSelectionCriteria>
            <soap:MaxReturnedDevices>1000</soap:MaxReturnedDevices>
            <soap:DeviceClass>Any</soap:DeviceClass>
            <soap:Model>255</soap:Model>
            <soap:Status>Any</soap:Status>
            <soap:NodeName></soap:NodeName>
            <soap:SelectBy>DirNumber</soap:SelectBy>
            <soap:SelectItems>
               <!--Zero or more repetitions:-->
               <soap:item>
                  <soap:Item>6961</soap:Item>
               </soap:item>
            </soap:SelectItems>
            <soap:Protocol>Any</soap:Protocol>
            <soap:DownloadStatus>Any</soap:DownloadStatus>
         </soap:CmSelectionCriteria>
      </soap:selectCmDevice>
   </soapenv:Body>
</soapenv:Envelope>