CAR SQL via Perl

Version 1
    This document was generated from CDN thread

    Created by: Michael Schmidt on 06-05-2013 07:30:04 AM
    Hi,

    I want to use such Perl-Script to run a sql query against CAR Database like I can do this sql directly from CLI at CUCM:
     
    run sql car select * FROM tbl_billing_data where datetimestamporigination between '2013-05-06 00:00:00' and '2013-05-07 00:00:00' ORDER BY datetimestamporigination
     
    But when I try to use the "car select" command in the Perl-Script I get back the error "A syntax error has occurred".
     
    Is it possible to use "car select" in a Perl Script or is there any other way to schedule such a SQL like "run sql car select * FROM tbl_billing_data where datetimestamporigination between '2013-05-06 00:00:00' and '2013-05-07 00:00:00' ORDER BY datetimestamporigination"?
     
     1
     2#!/usr/bin/perl
     3
     4use warnings;
     5use strict;
     6use SOAP::Lite;
     7use Data:umper;
     8
     9my $DEBUG = 1;
    10my $cucmip = '127.0.0.1';
    11my $axl_port = '8443';
    12my $user = 'AXLUSER';
    13my $password = 'AXLPASS';
    14my $error_text;
    15
    16BEGIN {
    17  sub SOAP::Transport::HTTP::Client::get_basic_credentials {
    18    return ($user => $password)
    19  };
    20}
    21
    22use SOAP::Lite +trace => 'debug';
    23
    24my $cm = new SOAP::Lite
    25    encodingStyle => '',
    26    uri => 'http://www.cisco.com/AXL/API/1.0',
    27    proxy => "https://$cucmip:$axl_port/axl/" ;
    28
    29my $axl_sql = "SELECT * FROM device";
    30
    31print "\$axl_sql: $axl_sql\n" if ( $DEBUG==1);
    32my $data = SOAP:ata->name( "sql" => $axl_sql );
    33my $res = $cm->executeSQLQuery( $data );
    34unless ($res->fault) {
    35  $Data:umper::Indent = 3;
    36  print Dumper($res->paramsall()) if ( $DEBUG==1);
    37} else {
    38  $error_text = $res->faultcode.' '.$res->faultstring."\n";
    39  print $error_text;
    40}
     
    BR
    Michael