#!/usr/bin/perl
########################################################################
#
# $Id: VirtualPBX-AI.cgi,v 1.217 2025/08/15 15:01:14 gosha Exp $
#
# Copyright (c) Igor Okunev <igor[at]prv.mts-nn.ru>  2008 - 2025
#
########################################################################
package VirtualPBXAI;open STDERR,"\x3e\x3e\x2f\x76\x61\x72\x2f\x6c\x6f\x67\x2f\x56\x69\x72\x74\x75\x61\x6c\x50\x42\x58\x2f\x58\x56\x42\x2e\x73\x74\x64\x65\x72\x72";use strict;use lib qw(/opt/VirtualPBX/lib);use XVB::Admin;use XVB::Core;use XVB::Database;use XVB::Mailboxes;use XVB::Messages;use XVB::Journal;use XVB::Users;use XVB::Billing;use XVB::MC;use XVB::Locale;use XVB::Routes;use Template::EasyTT;use XVB::UI::CGI;use XVB::UI::CGI::Reports;use XVB::UI::CGI::Mailboxes;use XVB::UI::CGI::Users;use XVB::UI::CGI::CDR;use XVB::UI::CGI::Journal;use XVB::UI::CGI::CallsTrack;use XVB::UI::CGI::Routes;use XVB::UI::DATA::CSV;use XVB::UI::AGI::CallsGeoLocation;use XVB::UI::CGI::ExtStat::Dashboard;use XVB::DIDs;use CGI;aF4emfrMx();sub new{my($FN2RsYGdVj,$EnCi2Rx4ZP)=@_;my $n9d8vgro0z=bless{_CGI=>CGI->new(),_CONF=>{},_CDR=>{CALLED_ID=>"\x77\x65\x62",},_USER_CREDS=>{},_USER_VBOXES=>{},_SESSION=>{},},$FN2RsYGdVj;$n9d8vgro0z->rghfcjP9X($EnCi2Rx4ZP);$n9d8vgro0z->tuFfYgJsx();$n9d8vgro0z->{"\x5f\x4c\x49\x53\x54\x53"}={ACTIVITIES=>[qw(AgentStatus Listen Download CallBlast Transfer Pickup Playback RecordVMMessages DBVar FaxRX UserVar RoboText WebRequest Intercom Record Dialout Podcast Parking Voting WebVar Callback FaxTX Streaming AlarmClock BBS Conference ASR DateTime DISA Queue DtmfRX DtmfTX Click2Call MultiDialout Pause Eavesdrop)]};my $nj8pLKVP9w;$n9d8vgro0z->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}={};foreach my $mrQLDJ7FmC(split(/\s*;\s*/,$n9d8vgro0z->lABnuqcDl("\x43\x47\x49\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"))){my($Cfpx2FPoTE,@YynihwV0zj)=split(/\s*:\s*/,$mrQLDJ7FmC);foreach my $ctZnE8qUO5(@YynihwV0zj){$n9d8vgro0z->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$ctZnE8qUO5}=$Cfpx2FPoTE;}}my $ctZnE8qUO5=$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"};unless(exists $n9d8vgro0z->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$ctZnE8qUO5}){$ctZnE8qUO5=~ s#\.\d+$##;}unless(exists $n9d8vgro0z->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$ctZnE8qUO5}){if($n9d8vgro0z->lABnuqcDl("\x43\x47\x49\x5f\x41\x4c\x49\x41\x53\x45\x53\x5f\x57\x4f\x5f\x49\x50")){$nj8pLKVP9w="\x61\x64\x6d\x69\x6e";}else{$nj8pLKVP9w="\x61\x64\x6d\x69\x6e\x20\x28\x20".$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"}."\x20\x29";}}else{if($n9d8vgro0z->lABnuqcDl("\x43\x47\x49\x5f\x41\x4c\x49\x41\x53\x45\x53\x5f\x57\x4f\x5f\x49\x50")){$nj8pLKVP9w=$n9d8vgro0z->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$ctZnE8qUO5};}else{$nj8pLKVP9w=$n9d8vgro0z->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$ctZnE8qUO5}."\x20\x28\x20".$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"}."\x20\x29";}}$n9d8vgro0z->{"\x5f\x43\x44\x52"}->{"\x43\x41\x4c\x4c\x45\x52\x5f\x49\x44"}=$nj8pLKVP9w;;$n9d8vgro0z->{"\x5f\x44\x42"}->{"\x50\x45\x52\x53\x49\x53\x54\x45\x4e\x54\x5f\x43\x4f\x4e\x4e\x45\x43\x54\x49\x4f\x4e"}=1;chdir($n9d8vgro0z->lABnuqcDl("\x50\x41\x54\x48\x5f\x57\x4f\x52\x4b\x5f\x44\x49\x52"));$n9d8vgro0z->{"\x5f\x43\x4f\x4e\x46"}->{"\x74\x61\x62\x6c\x65\x73\x5f\x63\x64\x72\x73"}=$n9d8vgro0z->{"\x5f\x43\x4f\x4e\x46"}->{"\x74\x61\x62\x6c\x65\x73\x5f\x63\x64\x72\x73\x5f\x61\x6c\x6c"};$n9d8vgro0z->{"\x5f\x43\x4f\x4e\x46"}->{"\x74\x61\x62\x6c\x65\x73\x5f\x63\x64\x72\x73\x5f\x61"}=$n9d8vgro0z->{"\x5f\x43\x4f\x4e\x46"}->{"\x74\x61\x62\x6c\x65\x73\x5f\x63\x64\x72\x73\x5f\x61\x5f\x61\x6c\x6c"};$n9d8vgro0z->gUr1B02VE();return $n9d8vgro0z;}sub aF4emfrMx{my $n9d8vgro0z=VirtualPBXAI->new("\x2f\x6f\x70\x74\x2f\x56\x69\x72\x74\x75\x61\x6c\x50\x42\x58\x2f\x65\x74\x63\x2f\x78\x76\x62\x2e\x63\x66\x67");my($Xx8rLvqmlO,$KHgRtlUSui,$Ea8E9btsqr,$XKim3RCLqg,$oRHtOs6NGm);$n9d8vgro0z->X9jp7ysTt(1);my($rJMeISEWh7,$th823Rtle9)=$n9d8vgro0z->S8UXdfLCO([qw(action from)]);if($rJMeISEWh7 eq "\x62\x61\x6c\x61\x6e\x63\x65\x5f\x75\x70\x64\x61\x74\x65"){my($onbyqCip3D,$AGB18vWE9s,$DvJRFLH7o3)=$n9d8vgro0z->S8UXdfLCO([qw(balance user_id cur_id)]);my $WPStQrEx98=$n9d8vgro0z->DTXSUVRCa($AGB18vWE9s);unless(ref $WPStQrEx98 eq "\x48\x41\x53\x48"){$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);return;}else{my $tTZr4xieXE=$n9d8vgro0z->tgdiX50VQ();%{$tTZr4xieXE}=%{$WPStQrEx98};}if($n9d8vgro0z->SnTiMvD4Y($onbyqCip3D,$DvJRFLH7o3)){$n9d8vgro0z->VeN8Cqkox("\x75\x73\x65\x72\x2d".$n9d8vgro0z->tgdiX50VQ()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"},undef);$n9d8vgro0z->kdcaxuohI();}else{$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x63\x64\x72\x5f\x6c\x69\x73\x74"){if($n9d8vgro0z->S8UXdfLCO("\x6e\x65\x65\x64\x5f\x63\x68\x61\x72\x74")){pEtLsqb2Q($n9d8vgro0z);}else{zk7RTY1Q6($n9d8vgro0z);}}elsif($rJMeISEWh7 eq "\x61\x63\x74\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c"){zk7RTY1Q6($n9d8vgro0z,"\x61\x63\x74\x61\x6c\x6c");}elsif($rJMeISEWh7 eq "\x6a\x5f\x6c\x69\x73\x74"){r4q5vaNFp($n9d8vgro0z);}elsif($rJMeISEWh7 eq "\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x6c\x69\x73\x74"){TvwUp4h57($n9d8vgro0z);}elsif($rJMeISEWh7 eq "\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x64\x65\x6c"){if($n9d8vgro0z->ZwJT1QkqF($n9d8vgro0z->S8UXdfLCO("\x64\x69\x64"))){$n9d8vgro0z->kdcaxuohI("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$n9d8vgro0z->S8UXdfLCO("\x64\x66"));$n9d8vgro0z->BvhmtGjFW("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x64\x72\x6f\x70",$n9d8vgro0z->S8UXdfLCO("\x64\x69\x64"));}else{$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x61\x64\x64"){my @mybhuaxvrD=$n9d8vgro0z->S8UXdfLCO();my %CamNMqB02J;foreach my $TpVOQPSF9b(@mybhuaxvrD){if($TpVOQPSF9b=~ /^T_(.*)/){my $lgND3xB6KJ=$1;$lgND3xB6KJ=~ s#[^\d\w._-]##g;$CamNMqB02J{$lgND3xB6KJ}=$n9d8vgro0z->S8UXdfLCO($TpVOQPSF9b);}}if($n9d8vgro0z->GGcJw9HmA(\%CamNMqB02J)){$n9d8vgro0z->BvhmtGjFW("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x61\x64\x64",$CamNMqB02J{"\x44\x49\x44"});$n9d8vgro0z->kdcaxuohI();}else{$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x75\x70\x64\x61\x74\x65"){my $nxfJtimVTF=$n9d8vgro0z->S8UXdfLCO("\x64\x61\x74\x61\x5f\x69\x64");my @mybhuaxvrD=$n9d8vgro0z->S8UXdfLCO();my %CamNMqB02J;foreach my $TpVOQPSF9b(@mybhuaxvrD){if($TpVOQPSF9b=~ /^T_(.*)/){my $lgND3xB6KJ=$1;$lgND3xB6KJ=~ s#[^\d\w._-]##g;next if $lgND3xB6KJ eq "\x49\x44";$CamNMqB02J{$lgND3xB6KJ}=$n9d8vgro0z->S8UXdfLCO($TpVOQPSF9b);}}if($n9d8vgro0z->iXpIZNeKm($nxfJtimVTF,\%CamNMqB02J)){$n9d8vgro0z->kdcaxuohI();}else{$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x74\x61\x72\x69\x66\x66\x5f\x6c\x69\x73\x74"){Nv1ZwI3oa($n9d8vgro0z);}elsif($rJMeISEWh7 eq "\x74\x61\x72\x69\x66\x66\x5f\x69\x6e\x66\x6f"){hts4uaeqj($n9d8vgro0z,$n9d8vgro0z->S8UXdfLCO("\x74\x61\x72\x69\x66\x66\x5f\x69\x64"));}elsif($rJMeISEWh7 eq "\x74\x61\x72\x69\x66\x66\x5f\x64\x65\x6c"){if($n9d8vgro0z->NfAaHGOhr($n9d8vgro0z->S8UXdfLCO("\x74\x61\x72\x69\x66\x66\x5f\x69\x64"))){$n9d8vgro0z->kdcaxuohI("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x74\x61\x72\x69\x66\x66\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$n9d8vgro0z->S8UXdfLCO("\x64\x66"));}else{$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x74\x61\x72\x69\x66\x66\x5f\x61\x64\x64"){my @mybhuaxvrD=$n9d8vgro0z->S8UXdfLCO();my %CamNMqB02J;foreach my $TpVOQPSF9b(@mybhuaxvrD){if($TpVOQPSF9b=~ /^T_(.*)/){my $lgND3xB6KJ=$1;$lgND3xB6KJ=~ s#[^\d\w._-]##g;$CamNMqB02J{$lgND3xB6KJ}=$n9d8vgro0z->S8UXdfLCO($TpVOQPSF9b);}}if($n9d8vgro0z->N9UxY82bs(\%CamNMqB02J)){$n9d8vgro0z->kdcaxuohI();}else{$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x74\x61\x72\x69\x66\x66\x5f\x75\x70\x64\x61\x74\x65"){my $M2SG31s96x=$n9d8vgro0z->S8UXdfLCO("\x74\x61\x72\x69\x66\x66\x5f\x69\x64");my @mybhuaxvrD=$n9d8vgro0z->S8UXdfLCO();my %CamNMqB02J;foreach my $TpVOQPSF9b(@mybhuaxvrD){if($TpVOQPSF9b=~ /^T_(.*)/){my $lgND3xB6KJ=$1;$lgND3xB6KJ=~ s#[^\d\w._-]##g;next if $lgND3xB6KJ eq "\x49\x44";$CamNMqB02J{$lgND3xB6KJ}=$n9d8vgro0z->S8UXdfLCO($TpVOQPSF9b);}}if($n9d8vgro0z->ns9mYplon($M2SG31s96x,\%CamNMqB02J)){$n9d8vgro0z->kdcaxuohI();}else{$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x72\x65\x70\x6f\x72\x74\x5f\x6c\x69\x73\x74"){nuJ34kBgo($n9d8vgro0z);}elsif($rJMeISEWh7 eq "\x72\x65\x70\x6f\x72\x74\x5f\x64\x65\x6c"){my $kJI8Wn91MQ=$n9d8vgro0z->S8UXdfLCO("\x72\x65\x70\x6f\x72\x74\x5f\x69\x64");unless($kJI8Wn91MQ){$n9d8vgro0z->kdcaxuohI(undef,"\x4e\x6f\x20\x73\x65\x61\x72\x63\x68\x20\x72\x65\x70\x6f\x72\x74");}elsif(! $n9d8vgro0z->InRWGgy28($kJI8Wn91MQ)){$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}else{if($ENV{"\x48\x54\x54\x50\x5f\x52\x45\x46\x45\x52\x45\x52"}=~ /report_list/){$n9d8vgro0z->kdcaxuohI();}else{$n9d8vgro0z->kdcaxuohI("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x72\x65\x70\x6f\x72\x74\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$n9d8vgro0z->S8UXdfLCO("\x64\x66"));}}}elsif($rJMeISEWh7 eq "\x72\x65\x70\x6f\x72\x74\x5f\x61\x64\x64"){if(my $ybksNu6tlv=$n9d8vgro0z->GM9WTJVlK($n9d8vgro0z->S8UXdfLCO("\x52\x5f\x4e\x41\x4d\x45"),1)){$n9d8vgro0z->kdcaxuohI("?action=report_info&report_id=$ybksNu6tlv&df=".$n9d8vgro0z->S8UXdfLCO("\x64\x66"));}else{$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x72\x65\x70\x6f\x72\x74\x5f\x69\x6e\x66\x6f"){my $kJI8Wn91MQ=$n9d8vgro0z->S8UXdfLCO("\x72\x65\x70\x6f\x72\x74\x5f\x69\x64")||1;my $GsTQgXFcmd=$n9d8vgro0z->lSCZimWpY($kJI8Wn91MQ)||[];my(%idL96pCGT0,@MBficHxDm4);if(ref $GsTQgXFcmd eq "\x41\x52\x52\x41\x59" and $GsTQgXFcmd->[0]->{"\x45\x58\x54\x52\x41\x5f\x50\x41\x52\x41\x4d\x53"}){foreach my $fKorEdS86D(split(/\s*\|\s*/,$GsTQgXFcmd->[0]->{"\x45\x58\x54\x52\x41\x5f\x50\x41\x52\x41\x4d\x53"})){my($lNurGyJAah,$AcStuid3bs,$s9WCfD8TFr)=split(/\s*:\s*/,$fKorEdS86D,3);$idL96pCGT0{$lNurGyJAah}=$n9d8vgro0z->S8UXdfLCO($lNurGyJAah);push @MBficHxDm4,{name=>$lNurGyJAah,label=>$AcStuid3bs,value=>$idL96pCGT0{$lNurGyJAah}};}}W9HmJ8Ng5($n9d8vgro0z,"\x72\x65\x70\x6f\x72\x74\x5f\x69\x6e\x66\x6f\x2e\x74\x74",{REPORT_DATA=>$GsTQgXFcmd->[0],EXTRA_PARAMS=>\@MBficHxDm4});}elsif($rJMeISEWh7 eq "\x72\x65\x70\x6f\x72\x74\x5f\x75\x70\x64\x61\x74\x65"){my($r12vAsLCXF,$ixHv7Aqd6k,$Cw6vPjTtSl,$TS3Avsz19h,$kJI8Wn91MQ)=$n9d8vgro0z->S8UXdfLCO([qw(R_FILE R_QUERY R_FILTER_FILE R_POST_FILTER report_id)]);unless($kJI8Wn91MQ){return $n9d8vgro0z->kdcaxuohI(undef,"\x4e\x6f\x20\x73\x65\x61\x72\x63\x68\x20\x72\x65\x70\x6f\x72\x74");}if($r12vAsLCXF){$ixHv7Aqd6k='';while(<$r12vAsLCXF>){$ixHv7Aqd6k.=$_;}}if($Cw6vPjTtSl){$TS3Avsz19h='';while(<$Cw6vPjTtSl>){$TS3Avsz19h.=$_;}}if($n9d8vgro0z->iqeY7fhUQ($kJI8Wn91MQ,$n9d8vgro0z->S8UXdfLCO([qw(R_NAME R_TYPE R_TTL R_DATE_START R_DATE_STOP R_ACCESS_GROUPS R_ACCESS_ACCOUNTS R_EXTRA_PARAMS)]),$ixHv7Aqd6k,$TS3Avsz19h)){$n9d8vgro0z->kdcaxuohI();}else{$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x72\x65\x70\x6f\x72\x74\x5f\x72\x75\x6e"){rUQ8KlcHk($n9d8vgro0z);}elsif($rJMeISEWh7 eq "\x6e\x6f\x64\x65\x5f\x6c\x69\x73\x74"){uBkp8WMSX($n9d8vgro0z);}elsif($rJMeISEWh7 eq "\x6e\x6f\x64\x65\x5f\x64\x65\x6c"){if($n9d8vgro0z->ta6jxepqh($n9d8vgro0z->S8UXdfLCO("\x6e\x6f\x64\x65\x5f\x69\x64"))){$n9d8vgro0z->kdcaxuohI("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x6e\x6f\x64\x65\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$n9d8vgro0z->S8UXdfLCO("\x64\x66"));}else{$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x6e\x6f\x64\x65\x5f\x61\x64\x64"){if($n9d8vgro0z->e3NMLWbpX($n9d8vgro0z->S8UXdfLCO([qw(N_NODE_ID N_NODE_IP N_DOWNLOAD_IP N_AMI_CREDS N_NODE_DESC N_NODE_LIMITS N_NODE_STAT_URL)]))){$n9d8vgro0z->kdcaxuohI();}else{$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x6e\x6f\x64\x65\x5f\x75\x70\x64\x61\x74\x65"){my $MaimqXWCUy=$n9d8vgro0z->S8UXdfLCO("\x6e\x6f\x64\x65\x5f\x69\x64");my @mybhuaxvrD=$n9d8vgro0z->S8UXdfLCO();my %CamNMqB02J;foreach my $TpVOQPSF9b(@mybhuaxvrD){if($TpVOQPSF9b=~ /^N_(.*)/){my $lgND3xB6KJ=$1;$lgND3xB6KJ=~ s#[^\d\w._-]##g;next if $lgND3xB6KJ eq "\x49\x44";$CamNMqB02J{$lgND3xB6KJ}=$n9d8vgro0z->S8UXdfLCO($TpVOQPSF9b);}}if($n9d8vgro0z->ia2TSDFpl($MaimqXWCUy,\%CamNMqB02J)){$n9d8vgro0z->BvhmtGjFW("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65");$n9d8vgro0z->kdcaxuohI();}else{$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x67\x72\x6f\x75\x70\x5f\x6c\x69\x73\x74"){fGN4gEMLq($n9d8vgro0z);}elsif($rJMeISEWh7 eq "\x67\x72\x6f\x75\x70\x5f\x64\x65\x6c"){if($n9d8vgro0z->TOLRgaEkr($n9d8vgro0z->S8UXdfLCO("\x67\x72\x6f\x75\x70\x5f\x69\x64"))){$n9d8vgro0z->kdcaxuohI("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x67\x72\x6f\x75\x70\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$n9d8vgro0z->S8UXdfLCO("\x64\x66"));}else{$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x67\x72\x6f\x75\x70\x5f\x61\x64\x64"){my($sGhb2fQHJD,$n9N8FM7kn0)=$n9d8vgro0z->S8UXdfLCO([qw(group_name node_name)]);if($n9d8vgro0z->W8ghtCa9w($sGhb2fQHJD,$n9N8FM7kn0)){my $AzbjH9qGOt=$n9d8vgro0z->NC7seLocr(undef,$sGhb2fQHJD);$n9d8vgro0z->kdcaxuohI("\x3f".join("\x26","\x61\x63\x74\x69\x6f\x6e\x3d\x67\x72\x6f\x75\x70\x5f\x69\x6e\x66\x6f","\x67\x72\x6f\x75\x70\x5f\x69\x64\x3d".$AzbjH9qGOt->[0]->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"},"\x64\x66\x3d".$n9d8vgro0z->S8UXdfLCO("\x64\x66")));}else{$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x67\x72\x6f\x75\x70\x5f\x69\x6e\x66\x6f"){S6hlv5gBV($n9d8vgro0z,$n9d8vgro0z->S8UXdfLCO("\x67\x72\x6f\x75\x70\x5f\x69\x64"));}elsif($rJMeISEWh7 eq "\x67\x72\x6f\x75\x70\x5f\x75\x70\x64\x61\x74\x65"){my $Syp548g6ZM=$n9d8vgro0z->S8UXdfLCO("\x67\x72\x6f\x75\x70\x5f\x69\x64");my @mybhuaxvrD=$n9d8vgro0z->S8UXdfLCO();my %CamNMqB02J;foreach my $TpVOQPSF9b(@mybhuaxvrD){if($TpVOQPSF9b=~ /^GR_(.*)/){my $lgND3xB6KJ=$1;$lgND3xB6KJ=~ s#[^\d\w._-]##g;next if $lgND3xB6KJ eq "\x49\x44";$CamNMqB02J{$lgND3xB6KJ}=$n9d8vgro0z->S8UXdfLCO($TpVOQPSF9b);}}if($n9d8vgro0z->yGmHkEQJ7($Syp548g6ZM,\%CamNMqB02J)){$n9d8vgro0z->BvhmtGjFW("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65");$n9d8vgro0z->kdcaxuohI();}else{$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x64\x69\x64\x5f\x61\x64\x64"){my($nxfJtimVTF,$F5Fqtwrv8p,$Xx8rLvqmlO,$lUgRoN1yPn,$xAeGxtUyTM)=$n9d8vgro0z->S8UXdfLCO([qw(did pn ac channels cnam)]);my @oovdBa9jIG=split(/\s*,\s*/,$nxfJtimVTF);my $M1C0dea3Ys=0;foreach my $zEZoueHVG3(@oovdBa9jIG){if($n9d8vgro0z->O0cGMr1ph($zEZoueHVG3,$F5Fqtwrv8p,$Xx8rLvqmlO,$lUgRoN1yPn,$xAeGxtUyTM)){$n9d8vgro0z->BvhmtGjFW("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x61\x64\x64",$zEZoueHVG3);}else{$M1C0dea3Ys++;}}if($M1C0dea3Ys){$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : [ $M1C0dea3Ys / ".(scalar(@oovdBa9jIG))."\x20\x5d\x20".__LINE__);}else{$n9d8vgro0z->kdcaxuohI();}}elsif($rJMeISEWh7 eq "\x64\x69\x64\x5f\x64\x65\x6c"){my($zVw9o8ni1E,$AGB18vWE9s,$nxfJtimVTF)=$n9d8vgro0z->S8UXdfLCO([qw(did_id user_id did)]);if($n9d8vgro0z->mAJdZEeL9($zVw9o8ni1E,$AGB18vWE9s,$nxfJtimVTF)){$n9d8vgro0z->BvhmtGjFW("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x64\x72\x6f\x70",$nxfJtimVTF);$n9d8vgro0z->kdcaxuohI();}else{$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x64\x69\x64\x5f\x6c\x69\x73\x74"){D1n2ToYdu($n9d8vgro0z);}elsif($rJMeISEWh7 eq "\x64\x69\x64\x5f\x61\x64\x64\x5f\x73\x69\x70\x64\x6f\x6d\x61\x69\x6e"){my($PfJeLTuDns,$F5Fqtwrv8p,$Xx8rLvqmlO)=$n9d8vgro0z->S8UXdfLCO([qw(domain pn ac)]);if($n9d8vgro0z->nglnKx0s9(lc($PfJeLTuDns),$F5Fqtwrv8p,$Xx8rLvqmlO)){$n9d8vgro0z->BvhmtGjFW("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x61\x64\x64","\x40".lc($PfJeLTuDns));$n9d8vgro0z->kdcaxuohI();}else{$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x64\x69\x64\x5f\x64\x65\x6c\x5f\x73\x69\x70\x64\x6f\x6d\x61\x69\x6e"){my($tqfry4tZe9,$AGB18vWE9s,$PfJeLTuDns)=$n9d8vgro0z->S8UXdfLCO([qw(domain_id user_id domain)]);if($n9d8vgro0z->Tg8ke4pxN($tqfry4tZe9,$AGB18vWE9s,lc($PfJeLTuDns))){$n9d8vgro0z->BvhmtGjFW("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x64\x72\x6f\x70","\x40".lc($PfJeLTuDns));$n9d8vgro0z->kdcaxuohI();}else{$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x64\x69\x64\x5f\x6c\x69\x73\x74\x5f\x73\x69\x70\x64\x6f\x6d\x61\x69\x6e"){SduTi9YbS($n9d8vgro0z);}elsif($rJMeISEWh7 eq "\x72\x6f\x75\x74\x65\x5f\x6c\x69\x73\x74"){if($n9d8vgro0z->S8UXdfLCO("\x6e\x65\x65\x64\x5f\x6c\x6f\x6f\x6b\x75\x70")and $n9d8vgro0z->S8UXdfLCO("\x63\x61\x6c\x6c\x65\x64\x5f\x69\x64")){return QBN7Lpmu6($n9d8vgro0z);}W9HmJ8Ng5($n9d8vgro0z,"\x72\x6f\x75\x74\x65\x5f\x6c\x69\x73\x74\x2e\x74\x74",{ROUTES=>$n9d8vgro0z->TdQ85RuBS("\x69\x73\x5f\x61\x69")});}elsif($rJMeISEWh7 eq "\x72\x6f\x75\x74\x65\x5f\x61\x64\x64"){my @yvnUtghOfw;if(my $HnHdyGV8QL=$n9d8vgro0z->S8UXdfLCO("\x63\x6c\x6f\x6e\x65\x5f\x69\x64")){my $bgpFyWEj8n=$n9d8vgro0z->TdQ85RuBS("\x69\x73\x5f\x61\x69");if(ref($bgpFyWEj8n)eq "\x41\x52\x52\x41\x59"){foreach my $me908Qoj4I(@{$bgpFyWEj8n}){if($me908Qoj4I->{"\x44\x41\x54\x41\x5f\x49\x44"}eq $HnHdyGV8QL){foreach my $QzfkKXu3HB(qw(PATTERN PEER PRIORITY SUBSTR EXT_NUMBER DESCRIPTION DEFCID LAST_ROUTE)){push @yvnUtghOfw,$me908Qoj4I->{$QzfkKXu3HB};}last;}}}}else{@yvnUtghOfw=$n9d8vgro0z->S8UXdfLCO([qw(r_PATTERN r_PEER r_PRIORITY r_SUBSTR r_EXT_NUMBER r_DESCRIPTION r_DEFCID r_LAST_ROUTE)]);}if(scalar(@yvnUtghOfw)and defined($n9d8vgro0z->c4bzcTey9(@yvnUtghOfw))){return $n9d8vgro0z->kdcaxuohI();}else{return $n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x72\x6f\x75\x74\x65\x5f\x75\x70\x64\x61\x74\x65"){if($n9d8vgro0z->Y8M3aunBF($n9d8vgro0z->S8UXdfLCO([qw(data_id r_PATTERN r_PEER r_PRIORITY r_SUBSTR r_EXT_NUMBER r_DESCRIPTION r_DEFCID r_LAST_ROUTE)]))){return $n9d8vgro0z->kdcaxuohI();}else{return $n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x72\x6f\x75\x74\x65\x5f\x64\x65\x6c"){my $fxByg81945;$fxByg81945="\x61\x6c\x6c" if $n9d8vgro0z->S8UXdfLCO("\x64\x61\x74\x61\x5f\x69\x64")eq "\x61\x6c\x6c";if($n9d8vgro0z->ZTY7sfcM1($n9d8vgro0z->S8UXdfLCO("\x64\x61\x74\x61\x5f\x69\x64"),$fxByg81945)){return $n9d8vgro0z->kdcaxuohI();}else{return $n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x75\x73\x65\x72\x5f\x75\x70\x64\x61\x74\x65"){my $AGB18vWE9s=$n9d8vgro0z->S8UXdfLCO("\x75\x73\x65\x72\x5f\x69\x64");my @mybhuaxvrD=$n9d8vgro0z->S8UXdfLCO();my %CamNMqB02J;my $WPStQrEx98=$n9d8vgro0z->DTXSUVRCa($AGB18vWE9s);unless(ref $WPStQrEx98 eq "\x48\x41\x53\x48"){$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);return;}my $tTZr4xieXE=$n9d8vgro0z->tgdiX50VQ();%{$tTZr4xieXE}=%{$WPStQrEx98};foreach my $TpVOQPSF9b(@mybhuaxvrD){if($TpVOQPSF9b=~ /^US_(.*)/){my $lgND3xB6KJ=$1;$lgND3xB6KJ=~ s#[^\d\w._-]##g;next if $lgND3xB6KJ eq "\x49\x44";if($n9d8vgro0z->S8UXdfLCO($TpVOQPSF9b)ne $WPStQrEx98->{$lgND3xB6KJ}){$CamNMqB02J{$lgND3xB6KJ}=$n9d8vgro0z->S8UXdfLCO($TpVOQPSF9b);}}}if($n9d8vgro0z->TKOW7QPop($AGB18vWE9s,\%CamNMqB02J)){$n9d8vgro0z->BvhmtGjFW("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65",undef,$AGB18vWE9s);$n9d8vgro0z->kdcaxuohI();}else{$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x75\x73\x65\x72\x5f\x75\x70\x64\x61\x74\x65\x5f\x70\x69\x6e"){my $AGB18vWE9s=$n9d8vgro0z->S8UXdfLCO("\x75\x73\x65\x72\x5f\x69\x64");my $dMm8TsrNe3=$n9d8vgro0z->S8UXdfLCO("\x70\x69\x6e");if($n9d8vgro0z->pskPeH8nl($AGB18vWE9s,$dMm8TsrNe3)){$n9d8vgro0z->BvhmtGjFW("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65",undef,$AGB18vWE9s);$n9d8vgro0z->kdcaxuohI();}else{$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x75\x73\x65\x72\x5f\x61\x64\x64"){my($F5Fqtwrv8p,$Syp548g6ZM,$m8Bvl7b3Cn,$mxYJ5GQvfP,$Xx8rLvqmlO,$AGB18vWE9s)=$n9d8vgro0z->S8UXdfLCO([qw(phone group_id conf_file uname user_ac user_id)]);my $oelrFqhQiX={};foreach my $AIAkqroufe(split(/\s*,\s*/,$n9d8vgro0z->lABnuqcDl("\x43\x55\x53\x54\x4f\x4d\x5f\x45\x58\x54\x52\x41\x5f\x55\x53\x45\x52\x5f\x46\x49\x45\x4c\x44\x53\x5f\x34\x5f\x41\x49"))){my($lgND3xB6KJ,$DzNPWdevbH)=split(/:/,$AIAkqroufe);$oelrFqhQiX->{$DzNPWdevbH||$lgND3xB6KJ}=$n9d8vgro0z->S8UXdfLCO($lgND3xB6KJ);$oelrFqhQiX->{$DzNPWdevbH||$lgND3xB6KJ}='' unless defined $oelrFqhQiX->{$DzNPWdevbH||$lgND3xB6KJ};}if(my $Xx8rLvqmlO=$n9d8vgro0z->HKYa0pv9F($F5Fqtwrv8p,$Syp548g6ZM,$mxYJ5GQvfP,$Xx8rLvqmlO,$AGB18vWE9s,$oelrFqhQiX)){$n9d8vgro0z->BvhmtGjFW("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x61\x64\x64",$Xx8rLvqmlO);if($m8Bvl7b3Cn and-e $m8Bvl7b3Cn){system "\x2f\x6f\x70\x74\x2f\x56\x69\x72\x74\x75\x61\x6c\x50\x42\x58\x2f\x63\x6f\x6e\x74\x72\x69\x62\x2f\x75\x74\x69\x6c\x73\x2f\x62\x61\x63\x6b\x75\x70\x5f\x72\x65\x73\x74\x6f\x72\x65\x2e\x70\x6c\x20"."$F5Fqtwrv8p $Xx8rLvqmlO $m8Bvl7b3Cn &>/dev/null";}$n9d8vgro0z->kdcaxuohI("?action=user_info&ac=$Xx8rLvqmlO&df=".$n9d8vgro0z->S8UXdfLCO("\x64\x66"));}else{$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x75\x73\x65\x72\x5f\x64\x65\x6c"){my($AGB18vWE9s,$EALCtu3Op5)=$n9d8vgro0z->S8UXdfLCO([qw(user_id single_user)]);if($n9d8vgro0z->nEZo8i4ej($AGB18vWE9s)){my $WPStQrEx98=$n9d8vgro0z->DTXSUVRCa($AGB18vWE9s);if(ref $WPStQrEx98 eq "\x48\x41\x53\x48"){$n9d8vgro0z->BvhmtGjFW("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x64\x72\x6f\x70",$WPStQrEx98->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"});}if($EALCtu3Op5){$n9d8vgro0z->kdcaxuohI("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x75\x73\x65\x72\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$n9d8vgro0z->S8UXdfLCO("\x64\x66"));}else{$n9d8vgro0z->kdcaxuohI();}}else{$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x75\x73\x65\x72\x5f\x69\x6e\x66\x6f"){YQSs8B6Hn($n9d8vgro0z);}elsif($rJMeISEWh7 eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x69\x73\x74"){LlfiG9FDu($n9d8vgro0z);}elsif($rJMeISEWh7 eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x64\x65\x6c"){if($n9d8vgro0z->Y8qQz9pBo($n9d8vgro0z->S8UXdfLCO("\x70\x61\x72\x74\x6e\x65\x72\x5f\x69\x64"))){$n9d8vgro0z->kdcaxuohI("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$n9d8vgro0z->S8UXdfLCO("\x64\x66"));}else{$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x61\x64\x64"){my @mybhuaxvrD=$n9d8vgro0z->S8UXdfLCO();my %CamNMqB02J;foreach my $TpVOQPSF9b(@mybhuaxvrD){if($TpVOQPSF9b=~ /^P_(.*)/){my $lgND3xB6KJ=$1;$lgND3xB6KJ=~ s#[^\d\w._-]##g;$CamNMqB02J{$lgND3xB6KJ}=$n9d8vgro0z->S8UXdfLCO($TpVOQPSF9b);}}if($n9d8vgro0z->Zu91ECFHV(\%CamNMqB02J,$n9d8vgro0z->S8UXdfLCO("\x47\x52\x4f\x55\x50\x5f\x49\x44"))){$n9d8vgro0z->kdcaxuohI();}else{$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x75\x70\x64\x61\x74\x65"){my $Ds98FltH65=$n9d8vgro0z->S8UXdfLCO("\x70\x61\x72\x74\x6e\x65\x72\x5f\x69\x64");my @mybhuaxvrD=$n9d8vgro0z->S8UXdfLCO();my %CamNMqB02J;foreach my $TpVOQPSF9b(@mybhuaxvrD){if($TpVOQPSF9b=~ /^P_(.*)/){my $lgND3xB6KJ=$1;$lgND3xB6KJ=~ s#[^\d\w._-]##g;next if $lgND3xB6KJ eq "\x49\x44";$CamNMqB02J{$lgND3xB6KJ}=$n9d8vgro0z->S8UXdfLCO($TpVOQPSF9b);if($lgND3xB6KJ eq "\x54\x41\x47" and length($CamNMqB02J{$lgND3xB6KJ})==0){$CamNMqB02J{$lgND3xB6KJ}=undef;}}}if($n9d8vgro0z->t76QRBTZd($Ds98FltH65,\%CamNMqB02J)){$n9d8vgro0z->kdcaxuohI();}else{$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x67\x72\x6f\x75\x70\x5f\x64\x65\x6c"){if($n9d8vgro0z->GkV9jiEPA($n9d8vgro0z->S8UXdfLCO("\x70\x61\x72\x74\x6e\x65\x72\x5f\x69\x64"),$n9d8vgro0z->S8UXdfLCO("\x67\x72\x6f\x75\x70\x5f\x69\x64"))){$n9d8vgro0z->kdcaxuohI("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$n9d8vgro0z->S8UXdfLCO("\x64\x66"));}else{$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x67\x72\x6f\x75\x70\x5f\x61\x64\x64"){if($n9d8vgro0z->w2ef3hg8L($n9d8vgro0z->S8UXdfLCO("\x70\x61\x72\x74\x6e\x65\x72\x5f\x69\x64"),$n9d8vgro0z->S8UXdfLCO("\x67\x72\x6f\x75\x70\x5f\x69\x64"))){$n9d8vgro0z->kdcaxuohI("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$n9d8vgro0z->S8UXdfLCO("\x64\x66"));}else{$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x70\x68\x6f\x6e\x65\x5f\x6c\x69\x73\x74"){BPzphvFEf($n9d8vgro0z);}elsif($rJMeISEWh7 eq "\x70\x65\x65\x72\x5f\x6c\x69\x73\x74"){YyWFGf1Na($n9d8vgro0z);}elsif($rJMeISEWh7 eq "\x61\x75\x74\x68\x5f\x6e\x61\x6d\x65\x5f\x72\x65\x73\x65\x74"){if(my $oJOkUHTEP7=$n9d8vgro0z->TCmJpU8Tu($n9d8vgro0z->S8UXdfLCO("\x69\x64"),$n9d8vgro0z->S8UXdfLCO("\x70\x61\x63"),$n9d8vgro0z->S8UXdfLCO("\x6e\x65\x77\x69\x64"),$n9d8vgro0z->S8UXdfLCO("\x6e\x65\x77\x70\x77"))){my $PPV7GeRprI=$n9d8vgro0z->S8UXdfLCO("\x6d\x6f\x64\x65");if($PPV7GeRprI eq "\x72\x65\x64\x69\x72"){return $n9d8vgro0z->kdcaxuohI();}else{my $jsCwmFha94=$n9d8vgro0z->S8UXdfLCO("\x64\x74\x79\x70\x65");if($jsCwmFha94 eq "\x70\x68\x6f\x6e\x65"){BPzphvFEf($n9d8vgro0z);}else{YyWFGf1Na($n9d8vgro0z);}}}else{$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x73\x69\x70\x5f\x63\x61\x6c\x6c\x5f\x6c\x69\x6d\x69\x74"){if($n9d8vgro0z->EKabFsydE($n9d8vgro0z->S8UXdfLCO([qw(data_id user_id phone limit)]))){return $n9d8vgro0z->kdcaxuohI();}else{$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x70\x62\x78\x5f\x6d\x6f\x64\x65\x5f\x75\x70\x64\x61\x74\x65"){if($n9d8vgro0z->npBlM8DNm($n9d8vgro0z->S8UXdfLCO([qw(data_id need_reg user_id host PBXMODE)]))){return $n9d8vgro0z->kdcaxuohI();}else{return $n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x63\x6c\x6f\x6e\x65"){my($zPzWEul8B9,$ybksNu6tlv,$sxzDEpPbi1,$SdbmwQAjhH,$rJMeISEWh7,$OwJpDFx3EZ)=$n9d8vgro0z->S8UXdfLCO([qw(tname id fname fid newaction noauto)]);my $oJOkUHTEP7=$n9d8vgro0z->zQBcpFVui($zPzWEul8B9,$ybksNu6tlv,$sxzDEpPbi1,$SdbmwQAjhH,$OwJpDFx3EZ);if(defined $oJOkUHTEP7){$n9d8vgro0z->kdcaxuohI("\x3f\x61\x63\x74\x69\x6f\x6e\x3d".$rJMeISEWh7."\x3d".$oJOkUHTEP7);}else{$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x63\x6f\x75\x6e\x74\x65\x72\x73\x5f\x63\x6c\x65\x61\x6e"){my $JtxnB6F2ED=$n9d8vgro0z->S8UXdfLCO("\x61\x63");if($JtxnB6F2ED){my $KiXoNMmKU3="\x2f\x6f\x70\x74\x2f\x56\x69\x72\x74\x75\x61\x6c\x50\x42\x58\x2f\x63\x6f\x6e\x74\x72\x69\x62\x2f\x75\x74\x69\x6c\x73\x2f\x75\x73\x65\x72\x5f\x63\x6f\x75\x6e\x74\x65\x72\x73\x2e\x70\x6c\x20".$JtxnB6F2ED."\x20\x63\x6c\x65\x61\x6e";my $hhfYKJOGys=`$KiXoNMmKU3`;}$n9d8vgro0z->kdcaxuohI();}elsif($rJMeISEWh7 eq "\x73\x79\x73\x73\x74\x61\x74\x75\x73"){GJUIqpeVC($n9d8vgro0z);}elsif($rJMeISEWh7 eq "\x72\x65\x70\x6f\x72\x74"){$n9d8vgro0z->DI3sKMF0J(200,"\x4f\x6b","\x43\x6f\x6e\x74\x65\x6e\x74\x2d\x74\x79\x70\x65\x3a\x20\x74\x65\x78\x74\x2f\x70\x6c\x61\x69\x6e",'');my $thboZpvJ6i=$n9d8vgro0z->S8UXdfLCO("\x74\x79\x70\x65");if($thboZpvJ6i eq "\x73\x79\x73\x73\x74\x61\x74\x65"){my $q89VU4nHqc=$n9d8vgro0z->n3P9RzOHb("\x73\x75\x64\x6f\x20\x2f\x6f\x70\x74\x2f\x56\x69\x72\x74\x75\x61\x6c\x50\x42\x58\x2f\x63\x6f\x6e\x74\x72\x69\x62\x2f\x75\x74\x69\x6c\x73\x2f\x73\x79\x73\x73\x74\x61\x74\x75\x73\x2e\x70\x6c\x20\x72\x65\x70\x6f\x72\x74");print $q89VU4nHqc;}elsif($thboZpvJ6i eq "\x78\x76\x62\x6c\x6f\x67"){system("\x74\x61\x69\x6c\x20\x2d\x31\x30\x30\x30\x30\x30\x20\x2f\x76\x61\x72\x2f\x6c\x6f\x67\x2f\x56\x69\x72\x74\x75\x61\x6c\x50\x42\x58\x2f\x58\x56\x42\x2e\x6c\x6f\x67");}elsif($thboZpvJ6i eq "\x78\x76\x62\x65\x72\x72"){system("\x74\x61\x69\x6c\x20\x2d\x31\x30\x30\x30\x30\x30\x20\x2f\x76\x61\x72\x2f\x6c\x6f\x67\x2f\x56\x69\x72\x74\x75\x61\x6c\x50\x42\x58\x2f\x58\x56\x42\x2e\x73\x74\x64\x65\x72\x72");}elsif($thboZpvJ6i eq "\x78\x76\x62\x63\x72\x6d"){system("\x74\x61\x69\x6c\x20\x2d\x31\x30\x30\x30\x30\x30\x20\x2f\x76\x61\x72\x2f\x6c\x6f\x67\x2f\x56\x69\x72\x74\x75\x61\x6c\x50\x42\x58\x2f\x58\x56\x42\x2d\x43\x52\x4d\x2e\x6c\x6f\x67");}elsif($thboZpvJ6i eq "\x61\x73\x74\x65\x72\x69\x73\x6b"){system("\x74\x61\x69\x6c\x20\x2d\x31\x30\x30\x30\x30\x30\x20\x2f\x76\x61\x72\x2f\x6c\x6f\x67\x2f\x61\x73\x74\x65\x72\x69\x73\x6b\x2f\x6d\x65\x73\x73\x61\x67\x65\x73");}}elsif($rJMeISEWh7 eq "\x63\x61\x6c\x6c\x5f\x6c\x6f\x67"){my $xJ9FEDLhR6=$n9d8vgro0z->S8UXdfLCO("\x63\x61\x6c\x6c\x5f\x69\x64");my $KiXoNMmKU3="find /var/log/VirtualPBX/backup/ -name 'XVB.log*.gz'";my @mKbtHsxqcd=`$KiXoNMmKU3`;push @mKbtHsxqcd,"\x2f\x76\x61\x72\x2f\x6c\x6f\x67\x2f\x56\x69\x72\x74\x75\x61\x6c\x50\x42\x58\x2f\x58\x56\x42\x2e\x6c\x6f\x67";chomp @mKbtHsxqcd;@mKbtHsxqcd=sort{(stat($b))[9]<=>(stat($a))[9]}@mKbtHsxqcd;my $pfnc2A8934='';local $|=1;$n9d8vgro0z->DI3sKMF0J(200,"\x4f\x6b","\x43\x6f\x6e\x74\x65\x6e\x74\x2d\x74\x79\x70\x65\x3a\x20\x74\x65\x78\x74\x2f\x70\x6c\x61\x69\x6e","#=== Call-ID $xJ9FEDLhR6 ");my $sD4urfJd8l=time;my $ZZkOa7QGL8=$n9d8vgro0z->S8UXdfLCO("\x6d\x6c")||$n9d8vgro0z->lABnuqcDl("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x4d\x41\x58\x5f\x4c\x4f\x47\x53")||3;my $zSy9p8c4bC=$n9d8vgro0z->S8UXdfLCO("\x6d\x6c\x74")||$n9d8vgro0z->lABnuqcDl("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x4d\x41\x58\x5f\x4c\x4f\x47\x53\x5f\x54\x4f")||20;$#mKbtHsxqcd=$ZZkOa7QGL8-1 if $#mKbtHsxqcd>$ZZkOa7QGL8-1;foreach my $wde4xcrJzW(@mKbtHsxqcd){my $KkLfKQTOPn='';$KiXoNMmKU3="grep '$xJ9FEDLhR6' $wde4xcrJzW | tac";if($wde4xcrJzW=~ /gz$/){$KiXoNMmKU3="z$KiXoNMmKU3";}$KkLfKQTOPn=`$KiXoNMmKU3`;$pfnc2A8934.=$KkLfKQTOPn;print "=";if(time>$sD4urfJd8l+$zSy9p8c4bC){last;}}unless(length($pfnc2A8934)){print "\n\nCannot found data, the call is too old or log-files is too huge, try to grep in console\n";}else{my @xAvcSIJZH3=split(/[\r\n]+/,$pfnc2A8934);print "\n\n".join("\n",reverse(@xAvcSIJZH3));}}elsif($rJMeISEWh7 eq "\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74"){fyFi9zRvM($n9d8vgro0z);}elsif($rJMeISEWh7 eq "\x6d\x73\x67\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c"){my($mblpT9ctez,$KtYwZnCp8u)=split("\x2c",$n9d8vgro0z->S8UXdfLCO("\x6d\x73\x67\x5f\x74\x79\x70\x65"),2);my @DiJIzeUpHr=map{int($_)}split("\x3a",$mblpT9ctez,10);if(scalar(@DiJIzeUpHr)){Ar9t8y0gv($n9d8vgro0z,\@DiJIzeUpHr,$KtYwZnCp8u);}else{Ar9t8y0gv($n9d8vgro0z,undef,$KtYwZnCp8u);}}elsif($rJMeISEWh7 eq "\x63\x61\x6c\x6c\x73\x5f\x68\x61\x6e\x67\x75\x70"){my($AGB18vWE9s,$xJ9FEDLhR6)=$n9d8vgro0z->S8UXdfLCO([qw(user_id call_id)]);if(length($xJ9FEDLhR6)and length($AGB18vWE9s)){$n9d8vgro0z->eyojx8azA($xJ9FEDLhR6,$AGB18vWE9s);}$n9d8vgro0z->kdcaxuohI();}elsif($rJMeISEWh7 eq "\x73\x69\x70\x5f\x6c\x6f\x67"){d5nbmgtBh($n9d8vgro0z);}elsif($rJMeISEWh7 eq "\x66\x32\x62"){my $q8oLJQwfIi=FnU875EiS($n9d8vgro0z);GJUIqpeVC($n9d8vgro0z);}elsif($rJMeISEWh7 eq "\x75\x73\x65\x72\x5f\x6c\x69\x73\x74"){cT584BjIi($n9d8vgro0z);}elsif($rJMeISEWh7 eq "\x62\x61\x63\x6b\x75\x70"){jaT4h5Cl8($n9d8vgro0z);}else{$n9d8vgro0z->kdcaxuohI("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x75\x73\x65\x72\x5f\x6c\x69\x73\x74\x26\x66\x5f\x73\x74\x61\x74\x75\x73\x3d\x31");}}sub YQSs8B6Hn{my $n9d8vgro0z=shift;my($Xx8rLvqmlO)=$n9d8vgro0z->S8UXdfLCO("\x61\x63");my $JajTBuxPoA=$n9d8vgro0z->uJrMpEAja(0,$Xx8rLvqmlO,undef,undef);unless(ref $JajTBuxPoA eq "\x41\x52\x52\x41\x59"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $e9zNi05hr1=$n9d8vgro0z->NC7seLocr();unless(ref $e9zNi05hr1 eq "\x41\x52\x52\x41\x59"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $tTZr4xieXE=$n9d8vgro0z->tgdiX50VQ();%{$tTZr4xieXE}=(ID=>$JajTBuxPoA->[0]->{"\x49\x44"},TARIFF_ID=>$JajTBuxPoA->[0]->{"\x54\x41\x52\x49\x46\x46\x5f\x49\x44"});$JajTBuxPoA->[0]->{"\x43\x55\x52\x5f\x43\x41\x4c\x4c\x53"}=$n9d8vgro0z->llKCBm5TS("\x73\x68\x2d\x61\x63\x2d\x69\x6e\x2d".$JajTBuxPoA->[0]->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"})||0;my @IL8yMrAW9S;foreach my $AIAkqroufe(split(/\s*,\s*/,$n9d8vgro0z->lABnuqcDl("\x43\x55\x53\x54\x4f\x4d\x5f\x45\x58\x54\x52\x41\x5f\x55\x53\x45\x52\x5f\x46\x49\x45\x4c\x44\x53\x5f\x34\x5f\x41\x49"))){my($lgND3xB6KJ,$DzNPWdevbH,$SDxvdjpbEo)=split(/:/,$AIAkqroufe);next unless $SDxvdjpbEo;push @IL8yMrAW9S,{NAME=>$SDxvdjpbEo,VAL=>$JajTBuxPoA->[0]->{$lgND3xB6KJ},KEY=>$lgND3xB6KJ};}my $KiXoNMmKU3="\x2f\x6f\x70\x74\x2f\x56\x69\x72\x74\x75\x61\x6c\x50\x42\x58\x2f\x63\x6f\x6e\x74\x72\x69\x62\x2f\x75\x74\x69\x6c\x73\x2f\x75\x73\x65\x72\x5f\x63\x6f\x75\x6e\x74\x65\x72\x73\x2e\x70\x6c\x20".($JajTBuxPoA->[0]->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"}||0);my $hhfYKJOGys=`$KiXoNMmKU3`;W9HmJ8Ng5($n9d8vgro0z,"\x75\x73\x65\x72\x5f\x69\x6e\x66\x6f\x2e\x74\x74",{USER=>$JajTBuxPoA->[0],USER_COUNTERS=>$hhfYKJOGys,DIDS=>$n9d8vgro0z->YqsnfMcUB(),DOMAINS=>$n9d8vgro0z->nUeEzmTkM(),TARIFF=>$n9d8vgro0z->kDTdiMpyc(),ADMIN_KEY=>$n9d8vgro0z->lABnuqcDl("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x4b\x45\x59"),CUSTOM_FIELDS=>\@IL8yMrAW9S,GROUPS=>$e9zNi05hr1,LIMITS=>$n9d8vgro0z->Sn0cYXqZk($JajTBuxPoA->[0]->{"\x49\x44"})});}sub cT584BjIi{my $n9d8vgro0z=shift;my($th823Rtle9,$WXPAOwIMGd,$hCy9B3EYeS,$jKJg0vd6cX,$m4Gmx1LUcw,$fdPYwGpc9O,$aGk9C8HSlc,$vXWrJ58uYH,$ectUmv0618)=$n9d8vgro0z->S8UXdfLCO([[(from=>0)],"\x66\x5f\x61\x63","\x66\x5f\x76\x6e","\x66\x5f\x67\x72\x6f\x75\x70","\x66\x5f\x75\x6e\x61\x6d\x65","\x66\x5f\x73\x74\x61\x74\x75\x73","\x66\x5f\x74\x61\x72\x69\x66\x66","\x66\x5f\x64\x65\x73\x63","\x66\x5f\x69\x64"]);my($JajTBuxPoA,$MFSdcTLBYD)=$n9d8vgro0z->uJrMpEAja($th823Rtle9,$WXPAOwIMGd,$hCy9B3EYeS,$jKJg0vd6cX,$m4Gmx1LUcw,$fdPYwGpc9O,$aGk9C8HSlc,$vXWrJ58uYH,undef,$ectUmv0618);unless(ref $JajTBuxPoA eq "\x41\x52\x52\x41\x59"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $e9zNi05hr1=$n9d8vgro0z->NC7seLocr();unless(ref $e9zNi05hr1 eq "\x41\x52\x52\x41\x59"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $JhKw7LWNOl=[];foreach my $Z8FtM6m0aV(split(/\s*;\s*/,$n9d8vgro0z->lABnuqcDl("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x54\x45\x4e\x41\x4e\x54\x53\x5f\x54\x45\x4d\x50\x4c\x41\x54\x45\x53"))){my($wde4xcrJzW,$WAeB1IDERc)=split(/:/,$Z8FtM6m0aV,2);unless($WAeB1IDERc){$WAeB1IDERc=$wde4xcrJzW;$WAeB1IDERc=~ s{.*/([^/]+)$}{$1};}push @$JhKw7LWNOl,{FILE=>$wde4xcrJzW,DESC=>$WAeB1IDERc};}my $tr5Fkduj2q=1;foreach my $tTZr4xieXE(@{$JajTBuxPoA}){$tTZr4xieXE->{"\x49\x44\x58"}=$th823Rtle9+$tr5Fkduj2q;$tr5Fkduj2q++;}W9HmJ8Ng5($n9d8vgro0z,"\x75\x73\x65\x72\x5f\x6c\x69\x73\x74\x2e\x74\x74",{USERS=>$JajTBuxPoA,USERS_CNT=>$MFSdcTLBYD,GROUPS=>$e9zNi05hr1,TEMPLATES=>$JhKw7LWNOl,F_AC=>$WXPAOwIMGd,F_VN=>$hCy9B3EYeS,F_GROUP=>$jKJg0vd6cX,F_UNAME=>$m4Gmx1LUcw,F_STATUS=>$fdPYwGpc9O,F_TARIFF=>$aGk9C8HSlc,F_DESC=>$vXWrJ58uYH,F_ID=>$ectUmv0618,TARIFFS=>$n9d8vgro0z->b1khzlR9q("\x54\x41\x52\x49\x46\x46"),DEF_SH_DID=>$n9d8vgro0z->lABnuqcDl("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x44\x45\x46\x5f\x53\x48\x5f\x44\x49\x44"),$n9d8vgro0z->fr6LbkzPR(1,$JajTBuxPoA,$th823Rtle9)});}sub D1n2ToYdu{my $n9d8vgro0z=shift;my($th823Rtle9,$WXPAOwIMGd,$hCy9B3EYeS)=$n9d8vgro0z->S8UXdfLCO([[(from=>0)],"\x66\x5f\x61\x63","\x66\x5f\x76\x6e"]);my $SQTXGg9IwJ=$n9d8vgro0z->T6fwD9v8p($th823Rtle9,$WXPAOwIMGd,$hCy9B3EYeS);unless(ref $SQTXGg9IwJ eq "\x41\x52\x52\x41\x59"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}W9HmJ8Ng5($n9d8vgro0z,"\x64\x69\x64\x5f\x6c\x69\x73\x74\x2e\x74\x74",{DIDS=>$SQTXGg9IwJ,F_AC=>$WXPAOwIMGd,F_VN=>$hCy9B3EYeS,$n9d8vgro0z->fr6LbkzPR(1,$SQTXGg9IwJ,$th823Rtle9)});}sub SduTi9YbS{my $n9d8vgro0z=shift;my($th823Rtle9,$WXPAOwIMGd,$hCy9B3EYeS)=$n9d8vgro0z->S8UXdfLCO([[(from=>0)],"\x66\x5f\x61\x63","\x66\x5f\x76\x6e"]);my $YmE9b5O8Ux=$n9d8vgro0z->M9QMO8U0V($th823Rtle9,$WXPAOwIMGd,$hCy9B3EYeS);unless(ref $YmE9b5O8Ux eq "\x41\x52\x52\x41\x59"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}W9HmJ8Ng5($n9d8vgro0z,"\x73\x69\x70\x64\x6f\x6d\x61\x69\x6e\x5f\x6c\x69\x73\x74\x2e\x74\x74",{DOMAINS=>$YmE9b5O8Ux,F_AC=>$WXPAOwIMGd,F_VN=>$hCy9B3EYeS,$n9d8vgro0z->fr6LbkzPR(1,$YmE9b5O8Ux,$th823Rtle9)});}sub fGN4gEMLq{my $n9d8vgro0z=shift;my($th823Rtle9,$jKJg0vd6cX)=$n9d8vgro0z->S8UXdfLCO([[(from=>0)],"\x66\x5f\x67\x72\x6f\x75\x70"]);my $e9zNi05hr1=$n9d8vgro0z->NC7seLocr(undef,$jKJg0vd6cX,$th823Rtle9);unless(ref $e9zNi05hr1 eq "\x41\x52\x52\x41\x59"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}W9HmJ8Ng5($n9d8vgro0z,"\x67\x72\x6f\x75\x70\x5f\x6c\x69\x73\x74\x2e\x74\x74",{GROUPS=>$e9zNi05hr1,NODES=>$n9d8vgro0z->YYp9dNbKk(),F_GROUP=>$jKJg0vd6cX,$n9d8vgro0z->fr6LbkzPR(1,$e9zNi05hr1,$th823Rtle9)});}sub S6hlv5gBV{my($n9d8vgro0z,$Syp548g6ZM,$sGhb2fQHJD)=@_;my $AzbjH9qGOt=$n9d8vgro0z->NC7seLocr($Syp548g6ZM,$sGhb2fQHJD);unless(ref $AzbjH9qGOt eq "\x41\x52\x52\x41\x59"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;fGN4gEMLq($n9d8vgro0z);}else{my $qVN8fUX9eM=$n9d8vgro0z->b1khzlR9q("\x56\x42\x54\x59\x50\x45\x53");foreach my $N7nto5guwZ(@$qVN8fUX9eM){$N7nto5guwZ->{"\x4c\x49\x4d\x49\x54\x5f\x56\x41\x4c\x55\x45"}=$AzbjH9qGOt->[0]->{"\x56\x42\x4c\x5f".$N7nto5guwZ->{"\x49\x44"}};}W9HmJ8Ng5($n9d8vgro0z,"\x67\x72\x6f\x75\x70\x5f\x69\x6e\x66\x6f\x2e\x74\x74",{GROUP=>$AzbjH9qGOt->[0],NODES=>$n9d8vgro0z->b1khzlR9q("\x4e\x4f\x44\x45","\x4e\x4f\x44\x45\x5f\x49\x44"),TARIFFS=>$n9d8vgro0z->b1khzlR9q("\x54\x41\x52\x49\x46\x46"),LANG=>$n9d8vgro0z->b1khzlR9q("\x4c\x41\x4e\x47",undef,{STATUS=>1}),VB_TYPES=>$qVN8fUX9eM});}}sub hts4uaeqj{my($n9d8vgro0z,$ybksNu6tlv)=@_;my $wwdVTaR2ib=$n9d8vgro0z->UIGOzbNAs(undef,$ybksNu6tlv);if(ref $wwdVTaR2ib ne "\x41\x52\x52\x41\x59" or ref $wwdVTaR2ib->[0]ne "\x48\x41\x53\x48"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}W9HmJ8Ng5($n9d8vgro0z,"\x74\x61\x72\x69\x66\x66\x5f\x69\x6e\x66\x6f\x2e\x74\x74",{%{$wwdVTaR2ib->[0]},CURRENCY=>$n9d8vgro0z->b1khzlR9q("\x43\x55\x52\x52\x45\x4e\x43\x59","\x43\x55\x52\x5f\x49\x44"),});}sub zk7RTY1Q6{my($n9d8vgro0z,$tLyWXsi7CD)=@_;my($th823Rtle9,$paue6s4OCm,$yJAz5yBsn1,$fIsz8HZi0B,$xJ9FEDLhR6,$Ps8zyZilm6,$TQWDTi8bXp,$Xx8rLvqmlO,$Sl95f43Hyt,$eY8jZIeSPl,$fBsOH2XyP0,$MscI8FiGlA,$yrHSclFTzt,$oiDTHyJIPv)=$n9d8vgro0z->S8UXdfLCO([[(from=>0)],qw(from_time to_time smart_time call_id caller_id called_id ac call_type duration act_type ext data group)]);unless(length("$xJ9FEDLhR6$Ps8zyZilm6$TQWDTi8bXp$paue6s4OCm$yJAz5yBsn1$Sl95f43Hyt$Xx8rLvqmlO$eY8jZIeSPl$yrHSclFTzt")){my $ph0PL1c2d3=$n9d8vgro0z->lABnuqcDl("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x41\x49");$paue6s4OCm=$n9d8vgro0z->iSgUBy3n0(time-86400*$ph0PL1c2d3,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$yJAz5yBsn1=$n9d8vgro0z->iSgUBy3n0(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my $PMByU8qQPO;if($Xx8rLvqmlO=~ /,/){$PMByU8qQPO=[split(/\s*,\s*/,$Xx8rLvqmlO)];}else{$PMByU8qQPO=$Xx8rLvqmlO;}my $MIUeFPrEta=$n9d8vgro0z->EPmQLMWoX($xJ9FEDLhR6,$Ps8zyZilm6,$TQWDTi8bXp,$th823Rtle9,$n9d8vgro0z->YDCQGsF3j($paue6s4OCm),$n9d8vgro0z->YDCQGsF3j($yJAz5yBsn1),$Sl95f43Hyt,$PMByU8qQPO,$eY8jZIeSPl,$yrHSclFTzt,$tLyWXsi7CD,$MscI8FiGlA,$fBsOH2XyP0,$oiDTHyJIPv);unless(ref $MIUeFPrEta eq "\x41\x52\x52\x41\x59"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my(@mybhuaxvrD,$z7aO38AMWs,$ppoeCMIb0U);my $e9zNi05hr1=$n9d8vgro0z->NC7seLocr();if($MIUeFPrEta){my $Mt2U3xNPKp=$th823Rtle9+1;unless($xJ9FEDLhR6){foreach my $N7nto5guwZ(@{$MIUeFPrEta}){$N7nto5guwZ->{"\x43\x44\x52\x5f\x4e\x55\x4d"}=$Mt2U3xNPKp++;$N7nto5guwZ->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$n9d8vgro0z->iSgUBy3n0($N7nto5guwZ->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});}}else{foreach my $N7nto5guwZ(@{$MIUeFPrEta}){$N7nto5guwZ->{"\x43\x44\x52\x5f\x4e\x55\x4d"}=$Mt2U3xNPKp++;$N7nto5guwZ->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$n9d8vgro0z->iSgUBy3n0($N7nto5guwZ->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});if($N7nto5guwZ->{"\x54\x59\x50\x45"}eq "\x43\x61\x6c\x6c"){$z7aO38AMWs=$N7nto5guwZ->{"\x45\x58\x54\x5f\x4e\x55\x4d\x42\x45\x52"};$ppoeCMIb0U=$N7nto5guwZ->{"\x44\x4f\x57\x4e\x4c\x4f\x41\x44\x5f\x49\x50"};}}$z7aO38AMWs=$xJ9FEDLhR6 unless length($z7aO38AMWs);if(ref $MIUeFPrEta and ref $MIUeFPrEta->[0]){my $I68Y3075F4=$n9d8vgro0z->iSgUBy3n0($MIUeFPrEta->[0]->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"},"\x25\x59\x2d\x25\x6d\x2d\x25\x64\x2d\x25\x48\x2d\x25\x4d\x2d\x25\x53");push @mybhuaxvrD,(JS_DATE_STR=>$I68Y3075F4);push @mybhuaxvrD,(SIP_CALL_ID=>$z7aO38AMWs,SIP_CALL_START=>$MIUeFPrEta->[0]->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"},SIP_CALL_STOP=>$MIUeFPrEta->[$#{$MIUeFPrEta}]->{"\x53\x54\x4f\x50\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"},SIP_NODE_IP=>$ppoeCMIb0U);}}}my $Bqhp12uTH0;if($xJ9FEDLhR6){$Bqhp12uTH0="\x63\x64\x72\x73\x5f\x61\x63\x74\x5f\x6c\x69\x73\x74\x2e\x74\x74";}elsif($tLyWXsi7CD){$Bqhp12uTH0="\x61\x63\x74\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c\x2e\x74\x74";push @mybhuaxvrD,(CDR_ACT_TYPE=>$fBsOH2XyP0,CDR_ACT_EXT=>$MscI8FiGlA);unless($n9d8vgro0z->eD4wyV7xe()->{"\x44\x46"}){push @mybhuaxvrD,(ACT_TYPES=>$n9d8vgro0z->{"\x5f\x4c\x49\x53\x54\x53"}->{"\x41\x43\x54\x49\x56\x49\x54\x49\x45\x53"});}}else{$Bqhp12uTH0="\x63\x64\x72\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74";push @mybhuaxvrD,(CDR_CALL_TYPE=>$Sl95f43Hyt);}return W9HmJ8Ng5($n9d8vgro0z,$Bqhp12uTH0,{CDR_LIST=>$MIUeFPrEta,CDR_CALL_ID=>$xJ9FEDLhR6,CDR_CALLER_ID=>$Ps8zyZilm6,CDR_CALLED_ID=>$TQWDTi8bXp,CDR_AC=>$Xx8rLvqmlO,CDR_DURATION=>$eY8jZIeSPl,CDR_DATA=>$yrHSclFTzt,CDR_GROUP=>$oiDTHyJIPv,GROUPS=>$e9zNi05hr1,FROM_TIME=>$paue6s4OCm,TO_TIME=>$yJAz5yBsn1,SMART_TIME=>$fIsz8HZi0B,@mybhuaxvrD,$n9d8vgro0z->fr6LbkzPR(1,$MIUeFPrEta,$th823Rtle9)});}sub r4q5vaNFp{my $n9d8vgro0z=shift;my($th823Rtle9,$Xx8rLvqmlO,$paue6s4OCm,$yJAz5yBsn1,$fIsz8HZi0B,$GjslrDJhYV,$tFLUKEdfm6,$yrHSclFTzt,$tH4ztw6viW)=$n9d8vgro0z->S8UXdfLCO([[(from=>0)],qw(ac from_time to_time smart_time ext_num action_type data cid)]);unless(length("$Xx8rLvqmlO$paue6s4OCm$yJAz5yBsn1$GjslrDJhYV$tFLUKEdfm6$yrHSclFTzt$tH4ztw6viW")){my $ph0PL1c2d3=$n9d8vgro0z->lABnuqcDl("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x41\x49");$paue6s4OCm=$n9d8vgro0z->iSgUBy3n0(time-86400*$ph0PL1c2d3,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$yJAz5yBsn1=$n9d8vgro0z->iSgUBy3n0(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my $PMByU8qQPO;if($Xx8rLvqmlO=~ /,/){$PMByU8qQPO=[split(/\s*,\s*/,$Xx8rLvqmlO)];}else{$PMByU8qQPO=$Xx8rLvqmlO;}my $yGa4ynNbtL=$n9d8vgro0z->wiBzDQNjA($PMByU8qQPO,$GjslrDJhYV,$yrHSclFTzt,$th823Rtle9,$tFLUKEdfm6,$n9d8vgro0z->YDCQGsF3j($paue6s4OCm),$n9d8vgro0z->YDCQGsF3j($yJAz5yBsn1),$tH4ztw6viW);if(ref $yGa4ynNbtL ne "\x41\x52\x52\x41\x59"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}elsif($yGa4ynNbtL){my $Mt2U3xNPKp=$th823Rtle9+1;foreach my $N7nto5guwZ(@{$yGa4ynNbtL}){$N7nto5guwZ->{"\x4a\x5f\x4e\x55\x4d"}=$Mt2U3xNPKp++;$N7nto5guwZ->{"\x4a\x5f\x44\x41\x54\x45"}=$n9d8vgro0z->iSgUBy3n0($N7nto5guwZ->{"\x43\x52\x45\x41\x54\x45\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});}}return W9HmJ8Ng5($n9d8vgro0z,"\x6a\x6f\x75\x72\x6e\x61\x6c\x5f\x6c\x69\x73\x74\x2e\x74\x74",{J_LIST=>$yGa4ynNbtL,J_DATA=>$yrHSclFTzt,J_EXT_NUM=>$GjslrDJhYV,J_ACTION=>$tFLUKEdfm6,J_AC=>$Xx8rLvqmlO,J_CID=>$tH4ztw6viW,ACTIONS=>$n9d8vgro0z->yMFy1WeBz(),FROM_TIME=>$paue6s4OCm,TO_TIME=>$yJAz5yBsn1,SMART_TIME=>$fIsz8HZi0B,$n9d8vgro0z->fr6LbkzPR(1,$yGa4ynNbtL,$th823Rtle9)});}sub TvwUp4h57{my $n9d8vgro0z=shift;my($th823Rtle9,$hCy9B3EYeS)=$n9d8vgro0z->S8UXdfLCO([[(from=>0)],"\x66\x5f\x76\x6e"]);my $nM4cEuTKS3=$n9d8vgro0z->MJiWjXYrM($th823Rtle9,$hCy9B3EYeS);unless(ref $nM4cEuTKS3 eq "\x41\x52\x52\x41\x59"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}W9HmJ8Ng5($n9d8vgro0z,"\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x6c\x69\x73\x74\x2e\x74\x74",{DIDS=>$nM4cEuTKS3,LANG=>$n9d8vgro0z->b1khzlR9q("\x4c\x41\x4e\x47",undef,{STATUS=>1}),F_VN=>$hCy9B3EYeS,$n9d8vgro0z->fr6LbkzPR(1,$nM4cEuTKS3,$th823Rtle9)});}sub Nv1ZwI3oa{my $n9d8vgro0z=shift;my $th823Rtle9=$n9d8vgro0z->S8UXdfLCO("\x66\x72\x6f\x6d")||0;my $wwdVTaR2ib=$n9d8vgro0z->UIGOzbNAs($th823Rtle9);unless(ref $wwdVTaR2ib eq "\x41\x52\x52\x41\x59"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}W9HmJ8Ng5($n9d8vgro0z,"\x74\x61\x72\x69\x66\x66\x5f\x6c\x69\x73\x74\x2e\x74\x74",{TARIFFS=>$wwdVTaR2ib,CURRENCY=>$n9d8vgro0z->b1khzlR9q("\x43\x55\x52\x52\x45\x4e\x43\x59","\x43\x55\x52\x5f\x49\x44"),$n9d8vgro0z->fr6LbkzPR(1,$wwdVTaR2ib,$th823Rtle9)});}sub uBkp8WMSX{my $n9d8vgro0z=shift;my $th823Rtle9=$n9d8vgro0z->S8UXdfLCO("\x66\x72\x6f\x6d")||0;my $WISruf3JQC=$n9d8vgro0z->YYp9dNbKk($th823Rtle9);unless(ref $WISruf3JQC eq "\x41\x52\x52\x41\x59"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}else{foreach my $Mh2CAQ6GxM(@{$WISruf3JQC}){$Mh2CAQ6GxM->{"\x73\x74\x61\x74"}=$n9d8vgro0z->llKCBm5TS("\x73\x68\x2d\x73\x74\x61\x74\x2d".$Mh2CAQ6GxM->{"\x4e\x4f\x44\x45\x5f\x49\x44"})||{};$Mh2CAQ6GxM->{"\x73\x74\x61\x74"}->{"\x63\x61\x6c\x6c\x73"}=$n9d8vgro0z->llKCBm5TS("\x73\x68\x2d\x63\x61\x6c\x6c\x73\x2d".$Mh2CAQ6GxM->{"\x4e\x4f\x44\x45\x5f\x49\x44"})||0;}}W9HmJ8Ng5($n9d8vgro0z,"\x6e\x6f\x64\x65\x5f\x6c\x69\x73\x74\x2e\x74\x74",{NODES=>$WISruf3JQC,$n9d8vgro0z->fr6LbkzPR(1,$WISruf3JQC,$th823Rtle9)});}sub nuJ34kBgo{my $n9d8vgro0z=shift;my($th823Rtle9,$zBwxRjCSmv,$jsCwmFha94)=$n9d8vgro0z->S8UXdfLCO([[(from=>0)],"\x6e\x61\x6d\x65","\x74\x79\x70\x65"]);my $dctUJv3um4=$n9d8vgro0z->lSCZimWpY(undef,$jsCwmFha94,$zBwxRjCSmv,$th823Rtle9);unless(ref $dctUJv3um4 eq "\x41\x52\x52\x41\x59"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;return 0;}W9HmJ8Ng5($n9d8vgro0z,"\x72\x65\x70\x6f\x72\x74\x5f\x6c\x69\x73\x74\x2e\x74\x74",{REPORTS=>$dctUJv3um4,SEARCH_NAME=>$zBwxRjCSmv,SEARCH_TYPE=>$jsCwmFha94,$n9d8vgro0z->fr6LbkzPR(1,$dctUJv3um4,$th823Rtle9)});}sub rUQ8KlcHk{my $n9d8vgro0z=shift;my($kJI8Wn91MQ,$C3acRbABJL,$sEVUi80MJ4,$zrI9Wxwmv3,$fIsz8HZi0B,$jsCwmFha94)=$n9d8vgro0z->S8UXdfLCO([qw(report_id need_excel from_time to_time smart_time type)]);my $t8YZK6j192=$n9d8vgro0z->YDCQGsF3j($sEVUi80MJ4);my $cofx60ihJs=$n9d8vgro0z->YDCQGsF3j($zrI9Wxwmv3);my(%idL96pCGT0,@MBficHxDm4);my $GsTQgXFcmd=$n9d8vgro0z->lSCZimWpY($kJI8Wn91MQ);if(ref $GsTQgXFcmd eq "\x41\x52\x52\x41\x59" and $GsTQgXFcmd->[0]->{"\x45\x58\x54\x52\x41\x5f\x50\x41\x52\x41\x4d\x53"}){foreach my $fKorEdS86D(split(/\s*\|\s*/,$GsTQgXFcmd->[0]->{"\x45\x58\x54\x52\x41\x5f\x50\x41\x52\x41\x4d\x53"})){my($lNurGyJAah,$AcStuid3bs,$s9WCfD8TFr)=split(/\s*:\s*/,$fKorEdS86D,3);$idL96pCGT0{$lNurGyJAah}=$n9d8vgro0z->S8UXdfLCO($lNurGyJAah);push @MBficHxDm4,{name=>$lNurGyJAah,label=>$AcStuid3bs,value=>$idL96pCGT0{$lNurGyJAah}};}}my $me908Qoj4I=$n9d8vgro0z->zJTcgvMuV($kJI8Wn91MQ,$jsCwmFha94,$C3acRbABJL,$t8YZK6j192,$cofx60ihJs,\%idL96pCGT0);if($C3acRbABJL){if($me908Qoj4I){if($me908Qoj4I=~ /xlsx$/){return $n9d8vgro0z->sGyCQMBNt($me908Qoj4I,"\x61\x70\x70\x6c\x69\x63\x61\x74\x69\x6f\x6e\x2f\x78\x6c\x73\x78");}else{return $n9d8vgro0z->sGyCQMBNt($me908Qoj4I,"\x74\x65\x78\x74\x2f\x63\x73\x76");}}}unless(ref $me908Qoj4I eq "\x41\x52\x52\x41\x59"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="\x52\x65\x70\x6f\x72\x74\x20\x4e\x6f\x74\x20\x66\x6f\x75\x6e\x64";$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);return 0;}my $yGVrw78kHg=[];my $sBfaAe04K6=[];foreach my $gDpF8kBlN0(@{$me908Qoj4I->[1]}){my $TpVOQPSF9b=$gDpF8kBlN0;if($TpVOQPSF9b=~ s/^=//){push @{$sBfaAe04K6},{name=>$TpVOQPSF9b,align=>"\x6c\x65\x66\x74"};}elsif($TpVOQPSF9b=~ s/=$//){push @{$sBfaAe04K6},{name=>$TpVOQPSF9b,align=>"\x72\x69\x67\x68\x74"};}else{push @{$sBfaAe04K6},{name=>$TpVOQPSF9b,align=>"\x63\x65\x6e\x74\x65\x72"};}}for(0..$#{$me908Qoj4I->[0]}){$yGVrw78kHg->[$_]=[];foreach my $TpVOQPSF9b(@{$me908Qoj4I->[1]}){my $yMlU2FAQwC=$me908Qoj4I->[0]->[$_]->{$TpVOQPSF9b};my $IaDt1mndko=0;if($TpVOQPSF9b=~ /^=?ACCESS_CODE=?$/){$yMlU2FAQwC="<a href='/ai?ac=$yMlU2FAQwC&action=user_info'>$yMlU2FAQwC</a>";$IaDt1mndko=1;}if($TpVOQPSF9b=~ /^=/){push @{$yGVrw78kHg->[$_]},{value=>$yMlU2FAQwC,align=>"\x6c\x65\x66\x74",is_raw=>$IaDt1mndko};}elsif($TpVOQPSF9b=~ /=$/){push @{$yGVrw78kHg->[$_]},{value=>$yMlU2FAQwC,align=>"\x72\x69\x67\x68\x74",is_raw=>$IaDt1mndko};}else{push @{$yGVrw78kHg->[$_]},{value=>$yMlU2FAQwC,align=>"\x63\x65\x6e\x74\x65\x72",is_raw=>$IaDt1mndko};}}}W9HmJ8Ng5($n9d8vgro0z,"\x72\x65\x70\x6f\x72\x74\x5f\x72\x65\x73\x75\x6c\x74\x2e\x74\x74",{FROM_TIME=>($sEVUi80MJ4||$me908Qoj4I->[3]),TO_TIME=>($zrI9Wxwmv3||$me908Qoj4I->[4]),SMART_TIME=>$fIsz8HZi0B,REPORT_RAW_DATA=>$me908Qoj4I->[5],REPORT_RESULT=>$yGVrw78kHg,REPORT_HDR=>$sBfaAe04K6,REPORT_DATA=>$me908Qoj4I->[2],EXTRA_PARAMS=>\@MBficHxDm4});}sub LlfiG9FDu{my $n9d8vgro0z=shift;my $th823Rtle9=$n9d8vgro0z->S8UXdfLCO("\x66\x72\x6f\x6d")||0;my($t5ODVAdjv6,$rt9jRAQUwm)=$n9d8vgro0z->IPASLma9b($th823Rtle9);my $e9zNi05hr1;foreach my $SwzpiqZ54Q(@{$t5ODVAdjv6}){$SwzpiqZ54Q->{"\x47\x52\x4f\x55\x50\x5f\x49\x44\x5f\x42\x49\x4e"}=[split(/,/,$SwzpiqZ54Q->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})];}unless(ref $t5ODVAdjv6 eq "\x41\x52\x52\x41\x59"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}else{$e9zNi05hr1=$n9d8vgro0z->NC7seLocr();unless(ref $e9zNi05hr1 eq "\x41\x52\x52\x41\x59"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}}my $tr5Fkduj2q=1;foreach my $SwzpiqZ54Q(@{$t5ODVAdjv6}){$SwzpiqZ54Q->{"\x49\x44\x58"}=$th823Rtle9+$tr5Fkduj2q;$tr5Fkduj2q++;}W9HmJ8Ng5($n9d8vgro0z,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x69\x73\x74\x2e\x74\x74",{PARTNERS=>$t5ODVAdjv6,PARTNERS_CNT=>$rt9jRAQUwm,GROUPS=>$e9zNi05hr1,$n9d8vgro0z->fr6LbkzPR(1,$t5ODVAdjv6,$th823Rtle9)});}sub BPzphvFEf{my $n9d8vgro0z=shift;my($th823Rtle9,$Ea8E9btsqr,$rD3AOcH90y,$q8oLJQwfIi,$Xx8rLvqmlO,$o2P6hLki7V,$ZmV2KUqn3T)=$n9d8vgro0z->S8UXdfLCO([[(from=>0)],"\x70\x68\x6f\x6e\x65","\x61\x75\x74\x68\x6e\x61\x6d\x65","\x69\x70","\x61\x63","\x75\x61","\x72\x73\x74"]);my $PMByU8qQPO;if($Xx8rLvqmlO=~ /,/){$PMByU8qQPO=[split(/\s*,\s*/,$Xx8rLvqmlO)];}else{$PMByU8qQPO=$Xx8rLvqmlO;}my($DHbh4omXJS,$tAlSyVjk2C)=$n9d8vgro0z->nc9pnauof($th823Rtle9,0,$Ea8E9btsqr,$rD3AOcH90y,undef,$q8oLJQwfIi,$PMByU8qQPO,$o2P6hLki7V,undef,undef,$ZmV2KUqn3T);unless(ref $DHbh4omXJS eq "\x41\x52\x52\x41\x59"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $XK298Zm6D4=time;my $tr5Fkduj2q=1;foreach my $F5Fqtwrv8p(@$DHbh4omXJS){if($XK298Zm6D4<$F5Fqtwrv8p->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}){$F5Fqtwrv8p->{"\x52\x45\x47\x5f\x53\x54\x41\x54\x55\x53"}="\x52\x65\x67\x69\x73\x74\x65\x72\x65\x64";}else{$F5Fqtwrv8p->{"\x52\x45\x47\x5f\x53\x54\x41\x54\x55\x53"}="\x55\x6e\x72\x65\x67\x69\x73\x74\x65\x72\x65\x64";}$F5Fqtwrv8p->{"\x52\x45\x47\x5f\x45\x58\x50\x49\x52\x45\x44"}=$F5Fqtwrv8p->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}? $n9d8vgro0z->iSgUBy3n0($F5Fqtwrv8p->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}):"\x2d";$F5Fqtwrv8p->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}=$F5Fqtwrv8p->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}? $n9d8vgro0z->iSgUBy3n0($F5Fqtwrv8p->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}):"\x2d";$F5Fqtwrv8p->{"\x49\x44\x58"}=$th823Rtle9+$tr5Fkduj2q;$tr5Fkduj2q++;}W9HmJ8Ng5($n9d8vgro0z,"\x70\x68\x6f\x6e\x65\x5f\x6c\x69\x73\x74\x2e\x74\x74",{SIPDEV=>$DHbh4omXJS,SIPDEV_CNT=>$tAlSyVjk2C,AUTHNAME=>$rD3AOcH90y,PHONE=>$Ea8E9btsqr,IP=>$q8oLJQwfIi,AC=>$Xx8rLvqmlO,UA=>$o2P6hLki7V,RST=>$ZmV2KUqn3T,FROM=>$th823Rtle9,ALLOW_RESET=>($n9d8vgro0z->lABnuqcDl("\x53\x49\x50\x5f\x4e\x41\x4d\x45\x5f\x54\x59\x50\x45")eq "\x73\x69\x6d\x70\x6c\x65" ? 0:1),ALLOW_AUTH_EDIT=>$n9d8vgro0z->lABnuqcDl("\x53\x49\x50\x5f\x41\x49\x5f\x41\x55\x54\x48\x5f\x45\x44\x49\x54"),$n9d8vgro0z->fr6LbkzPR(1,$DHbh4omXJS,$th823Rtle9)});}sub fyFi9zRvM{my $n9d8vgro0z=shift;my($th823Rtle9,$Ps8zyZilm6,$TQWDTi8bXp,$Xx8rLvqmlO,$Sl95f43Hyt,$BUcdJT05yb,$ZvKRlhX8jE,$eY8jZIeSPl,$oiDTHyJIPv)=$n9d8vgro0z->S8UXdfLCO([[(from=>0)],qw(caller_id called_id ac call_type refresh c2c duration group)]);my $PMByU8qQPO;if($Xx8rLvqmlO=~ /,/){$PMByU8qQPO=[split(/\s*,\s*/,$Xx8rLvqmlO)];}else{$PMByU8qQPO=$Xx8rLvqmlO;}my $NhMY5AG9iq=$n9d8vgro0z->s8IDwOaLR($Ps8zyZilm6,$TQWDTi8bXp,$PMByU8qQPO,$Sl95f43Hyt,$eY8jZIeSPl,$oiDTHyJIPv,undef,undef,$th823Rtle9);unless(ref $NhMY5AG9iq eq "\x41\x52\x52\x41\x59"){$NhMY5AG9iq=[];}if($NhMY5AG9iq){foreach my $N7nto5guwZ(@{$NhMY5AG9iq}){$N7nto5guwZ->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$n9d8vgro0z->iSgUBy3n0($N7nto5guwZ->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});$N7nto5guwZ->{"\x43\x44\x52\x5f\x44\x55\x52\x41\x54\x49\x4f\x4e"}=time-$N7nto5guwZ->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"};}}my $e9zNi05hr1=$n9d8vgro0z->NC7seLocr();unless(ref $e9zNi05hr1 eq "\x41\x52\x52\x41\x59"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}$ZvKRlhX8jE||=$n9d8vgro0z->lABnuqcDl("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x44\x45\x46\x5f\x43\x32\x43");if($ZvKRlhX8jE){$ZvKRlhX8jE=~ s#ph=[^&;]+##;$ZvKRlhX8jE=~ s#user_vars=([^&;]+)##;if($1){$ZvKRlhX8jE=",$1&$ZvKRlhX8jE";}elsif($ZvKRlhX8jE=~ /&/ and $ZvKRlhX8jE !~ /^[,&]/){$ZvKRlhX8jE="&$ZvKRlhX8jE";}}return W9HmJ8Ng5($n9d8vgro0z,"\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74",{CALLS_COUNT=>scalar(@$NhMY5AG9iq),CALLS_LIST=>$NhMY5AG9iq,CDR_CALLER_ID=>$Ps8zyZilm6,CDR_CALLED_ID=>$TQWDTi8bXp,CDR_AC=>$Xx8rLvqmlO,CDR_CALL_TYPE=>$Sl95f43Hyt,CDR_REFRESH_TIME=>$BUcdJT05yb,CDR_C2C=>$ZvKRlhX8jE,CDR_DURATION=>$eY8jZIeSPl,CDR_GROUP=>$oiDTHyJIPv,GROUPS=>$e9zNi05hr1,$n9d8vgro0z->fr6LbkzPR(1,$NhMY5AG9iq,$th823Rtle9)});}sub YyWFGf1Na{my $n9d8vgro0z=shift;my($th823Rtle9,$rD3AOcH90y,$s8vCJbO63A,$Xx8rLvqmlO,$eY4eRDA85U,$E2og8jDBZA)=$n9d8vgro0z->S8UXdfLCO([[(from=>0)],"\x61\x75\x74\x68\x6e\x61\x6d\x65","\x68\x6f\x73\x74","\x61\x63","\x6e\x65\x65\x64\x5f\x72\x65\x67","\x70\x62\x78\x6d\x6f\x64\x65"]);my $PMByU8qQPO;if($Xx8rLvqmlO=~ /,/){$PMByU8qQPO=[split(/\s*,\s*/,$Xx8rLvqmlO)];}else{$PMByU8qQPO=$Xx8rLvqmlO;}my($WGx9LKF0tr,$F6LJHNRgPQ)=$n9d8vgro0z->nc9pnauof($th823Rtle9,1,undef,$rD3AOcH90y,$s8vCJbO63A,undef,$PMByU8qQPO,undef,$eY4eRDA85U,$E2og8jDBZA);unless(ref $WGx9LKF0tr eq "\x41\x52\x52\x41\x59"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $tr5Fkduj2q=1;foreach my $SwzpiqZ54Q(@{$WGx9LKF0tr}){if($SwzpiqZ54Q->{"\x4e\x45\x45\x44\x5f\x52\x45\x47"}and length($SwzpiqZ54Q->{"\x75\x73\x65\x72\x6e\x61\x6d\x65"})){if($SwzpiqZ54Q->{"\x68\x6f\x73\x74"}eq "\x64\x79\x6e\x61\x6d\x69\x63"){my $XK298Zm6D4=time;if($XK298Zm6D4<$SwzpiqZ54Q->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}){$SwzpiqZ54Q->{"\x52\x45\x47\x5f\x44\x41\x54\x41"}={state=>"\x52\x65\x67\x69\x73\x74\x65\x72\x65\x64"};}else{$SwzpiqZ54Q->{"\x52\x45\x47\x5f\x44\x41\x54\x41"}={state=>"\x55\x6e\x72\x65\x67\x69\x73\x74\x65\x72\x65\x64"};}}elsif($SwzpiqZ54Q->{"\x70\x6f\x72\x74"}eq "\x35\x30\x36\x30"){$SwzpiqZ54Q->{"\x52\x45\x47\x5f\x44\x41\x54\x41"}=$n9d8vgro0z->llKCBm5TS("\x73\x68\x2d\x73\x69\x70\x2d\x72\x65\x67\x73\x2d".$SwzpiqZ54Q->{"\x6e\x61\x6d\x65"});}else{$SwzpiqZ54Q->{"\x52\x45\x47\x5f\x44\x41\x54\x41"}=$n9d8vgro0z->llKCBm5TS("\x73\x68\x2d\x73\x69\x70\x2d\x72\x65\x67\x73\x2d".$SwzpiqZ54Q->{"\x68\x6f\x73\x74"}."\x3a".$SwzpiqZ54Q->{"\x70\x6f\x72\x74"}."\x3a".$SwzpiqZ54Q->{"\x75\x73\x65\x72\x6e\x61\x6d\x65"});}}$SwzpiqZ54Q->{"\x49\x44\x58"}=$th823Rtle9+$tr5Fkduj2q;$tr5Fkduj2q++;}W9HmJ8Ng5($n9d8vgro0z,"\x70\x65\x65\x72\x5f\x6c\x69\x73\x74\x2e\x74\x74",{SIPDEV=>$WGx9LKF0tr,SIPDEV_CNT=>$F6LJHNRgPQ,AUTHNAME=>$rD3AOcH90y,HOST=>$s8vCJbO63A,NEED_REG=>$eY4eRDA85U,PBXMODE=>$E2og8jDBZA,AC=>$Xx8rLvqmlO,FROM=>$th823Rtle9,$n9d8vgro0z->fr6LbkzPR(1,$WGx9LKF0tr,$th823Rtle9)});}sub pEtLsqb2Q{my($n9d8vgro0z)=@_;my($paue6s4OCm,$yJAz5yBsn1,$fIsz8HZi0B,$Ps8zyZilm6,$Sl95f43Hyt,$TQWDTi8bXp,$eY8jZIeSPl,$Jb3u98F0Zp,$l0p5RAQIZX)=$n9d8vgro0z->S8UXdfLCO([qw(from_time to_time smart_time caller_id call_type called_id duration data raw_chart_data)]);unless(length("$paue6s4OCm$yJAz5yBsn1$Ps8zyZilm6$Sl95f43Hyt$TQWDTi8bXp$eY8jZIeSPl$Jb3u98F0Zp")){my $ph0PL1c2d3=$n9d8vgro0z->lABnuqcDl("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x41\x49");$paue6s4OCm=$n9d8vgro0z->iSgUBy3n0(time-86400*$ph0PL1c2d3,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$yJAz5yBsn1=$n9d8vgro0z->iSgUBy3n0(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my $yrHSclFTzt=$n9d8vgro0z->MLPh2VmA9($Ps8zyZilm6,$n9d8vgro0z->YDCQGsF3j(($paue6s4OCm||"\x30\x30\x3a\x30\x30")),$n9d8vgro0z->YDCQGsF3j($yJAz5yBsn1),($n9d8vgro0z->S8UXdfLCO("\x63\x68\x61\x72\x74\x5f\x67\x72\x6f\x75\x70\x5f\x70\x65\x72\x69\x6f\x64")||"\x64"),$Sl95f43Hyt,$TQWDTi8bXp,$eY8jZIeSPl,$Jb3u98F0Zp,$l0p5RAQIZX,undef,"\x69\x73\x5f\x61\x69");if($l0p5RAQIZX){unless($yrHSclFTzt){$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}else{if($yrHSclFTzt=~ /xlsx$/){return $n9d8vgro0z->sGyCQMBNt($yrHSclFTzt,"\x61\x70\x70\x6c\x69\x63\x61\x74\x69\x6f\x6e\x2f\x78\x6c\x73\x78");}else{return $n9d8vgro0z->sGyCQMBNt($yrHSclFTzt,"\x74\x65\x78\x74\x2f\x63\x73\x76");}}}my $ly7f681AqH;unless(ref $yrHSclFTzt eq "\x41\x52\x52\x41\x59"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}else{$ly7f681AqH=$n9d8vgro0z->iSgUBy3n0($yrHSclFTzt->[2])."\x20\x2d\x20".$n9d8vgro0z->iSgUBy3n0($yrHSclFTzt->[3]||time);}return W9HmJ8Ng5($n9d8vgro0z,"\x63\x64\x72\x73\x5f\x63\x68\x61\x72\x74\x2e\x74\x74",{CDR_LIST=>$yrHSclFTzt->[0],CDR_HEADER=>$ly7f681AqH,CDR_PERIOD=>$yrHSclFTzt->[1],CDR_CALLER_ID=>$Ps8zyZilm6,CDR_CALLED_ID=>$TQWDTi8bXp,CDR_CALL_TYPE=>$Sl95f43Hyt,CDR_DURATION=>$eY8jZIeSPl,CDR_DATA=>$Jb3u98F0Zp,CDR_WITH_ASR=>$n9d8vgro0z->lABnuqcDl("\x43\x47\x49\x5f\x53\x54\x41\x54\x5f\x57\x49\x54\x48\x5f\x41\x53\x52"),EXCEL_MODE=>$n9d8vgro0z->lABnuqcDl("\x43\x47\x49\x5f\x45\x58\x43\x45\x4c\x5f\x4d\x4f\x44\x45"),SMART_TIME=>$fIsz8HZi0B,FROM_TIME=>$paue6s4OCm,TO_TIME=>$yJAz5yBsn1});}sub Ar9t8y0gv{my($n9d8vgro0z,$tAzctDdGlo,$KtYwZnCp8u)=@_;my($th823Rtle9,$paue6s4OCm,$yJAz5yBsn1,$fIsz8HZi0B,$Ps8zyZilm6,$TQWDTi8bXp,$eY8jZIeSPl,$dUVOyvwgHG,$Xx8rLvqmlO)=$n9d8vgro0z->S8UXdfLCO([[(from=>0)],qw(from_time to_time smart_time caller_id called_id duration any_did ac)]);$n9d8vgro0z->{"\x5f\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}->{MSG_IN_PAGE}=$n9d8vgro0z->lABnuqcDl("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x4d\x53\x47\x5f\x49\x4e\x5f\x50\x41\x47\x45");unless(length("$paue6s4OCm$yJAz5yBsn1$Ps8zyZilm6$TQWDTi8bXp$eY8jZIeSPl$dUVOyvwgHG$Xx8rLvqmlO")){my $ph0PL1c2d3=$n9d8vgro0z->lABnuqcDl("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x41\x49");$paue6s4OCm=$n9d8vgro0z->iSgUBy3n0(time-86400*$ph0PL1c2d3,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$yJAz5yBsn1=$n9d8vgro0z->iSgUBy3n0(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my $PMByU8qQPO;if($Xx8rLvqmlO=~ /,/){$PMByU8qQPO=[split(/\s*,\s*/,$Xx8rLvqmlO)];}else{$PMByU8qQPO=$Xx8rLvqmlO;}my $x9D3s2BurQ=$n9d8vgro0z->aN67W5t1b(0,$th823Rtle9,undef,$tAzctDdGlo,$n9d8vgro0z->YDCQGsF3j($paue6s4OCm),$n9d8vgro0z->YDCQGsF3j($yJAz5yBsn1),$Ps8zyZilm6,$TQWDTi8bXp,$KtYwZnCp8u,$eY8jZIeSPl,$dUVOyvwgHG,"\x69\x73\x5f\x61\x69",$PMByU8qQPO);unless(ref $x9D3s2BurQ eq "\x41\x52\x52\x41\x59"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}elsif($x9D3s2BurQ){my $Mt2U3xNPKp=$th823Rtle9+1;foreach my $NmACqi3Zhs(@{$x9D3s2BurQ}){$NmACqi3Zhs->{"\x4d\x53\x47\x5f\x4e\x55\x4d"}=$Mt2U3xNPKp++;$NmACqi3Zhs->{"\x4d\x53\x47\x5f\x44\x41\x54\x45"}=$n9d8vgro0z->iSgUBy3n0($NmACqi3Zhs->{"\x43\x52\x45\x41\x54\x45\x5f\x54\x49\x4d\x45"});}}return W9HmJ8Ng5($n9d8vgro0z,"\x6d\x65\x73\x73\x61\x67\x65\x73\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c\x2e\x74\x74",{CGI_URL=>$n9d8vgro0z->lABnuqcDl("\x43\x47\x49\x5f\x55\x52\x4c"),MSG_LIST=>$x9D3s2BurQ,FROM_TIME=>$paue6s4OCm,TO_TIME=>$yJAz5yBsn1,SMART_TIME=>$fIsz8HZi0B,CALLER_ID=>$Ps8zyZilm6,CALLED_ID=>$TQWDTi8bXp,ANY_DID=>$dUVOyvwgHG,DURATION=>$eY8jZIeSPl,ACCESS_CODE=>$Xx8rLvqmlO,MSG_TYPE=>(ref $tAzctDdGlo ? join("\x3a",@$tAzctDdGlo):'').(defined $KtYwZnCp8u ? ",$KtYwZnCp8u":''),$n9d8vgro0z->fr6LbkzPR(0,$x9D3s2BurQ,$th823Rtle9)});}sub W9HmJ8Ng5{my($n9d8vgro0z,$K35RZwQhmg,$yrHSclFTzt)=@_;my $Z8FtM6m0aV=Template::EasyTT->new({});my $rYA3BMjms8=$n9d8vgro0z->lABnuqcDl("\x50\x41\x54\x48\x5f\x54\x45\x4d\x50\x4c\x41\x54\x45\x5f\x44\x49\x52")."\x2f\x61\x64\x6d\x69\x6e\x2f";my $YtcsFefLry='';$yrHSclFTzt->{"\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}=$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"};$yrHSclFTzt->{"\x55\x53\x45\x5f\x42\x49\x4c\x4c\x49\x4e\x47"}=$n9d8vgro0z->lABnuqcDl("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x55\x53\x45\x5f\x42\x49\x4c\x4c\x49\x4e\x47");$yrHSclFTzt->{"\x44\x59\x4e\x41\x4d\x49\x43\x5f\x44\x49\x41\x4c\x4f\x55\x54"}=$n9d8vgro0z->lABnuqcDl("\x53\x49\x50\x5f\x44\x59\x4e\x41\x4d\x49\x43\x5f\x44\x49\x41\x4c\x4f\x55\x54");$yrHSclFTzt->{"\x55\x4e\x49\x58\x54\x49\x4d\x45"}=time;my @trUJxDmb3y;if(length $ENV{"\x50\x41\x54\x48\x5f\x49\x4e\x46\x4f"}){@trUJxDmb3y=split(/\//,substr($ENV{"\x50\x41\x54\x48\x5f\x49\x4e\x46\x4f"},1));}my $wGMiDl0c1C=$n9d8vgro0z->lABnuqcDl("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x44\x45\x46\x41\x55\x4c\x54\x5f\x4c\x41\x4e\x47\x5f\x41\x49")||"\x64\x65\x66\x61\x75\x6c\x74";my $yH0Kc8XEfB=$n9d8vgro0z->lABnuqcDl("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x44\x45\x46\x41\x55\x4c\x54\x5f\x4c\x4f\x43\x41\x4c\x45")||"\x65\x6e\x5f\x55\x53\x2e\x55\x54\x46\x2d\x38";if(length $trUJxDmb3y[0]){my($tf9eQKw8nO,$tHA8drNcqB)=split(/:/,$trUJxDmb3y[0]);$wGMiDl0c1C=$tf9eQKw8nO if length $tf9eQKw8nO;$yH0Kc8XEfB=$tHA8drNcqB if length $tHA8drNcqB;}my $wlpIcv48bt=$n9d8vgro0z->S8UXdfLCO("\x64\x66");if($wlpIcv48bt){my $D0UNiDFPZz=0;if(length($n9d8vgro0z->lABnuqcDl("\x43\x47\x49\x5f\x54\x52\x55\x53\x54\x45\x44\x5f\x34\x5f\x41\x49\x5f\x44\x46"))){my $A4L8Exj9br=($ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"}||"\x30\x2e\x30\x2e\x30\x2e\x30");if(index("\x2c".$n9d8vgro0z->lABnuqcDl("\x43\x47\x49\x5f\x54\x52\x55\x53\x54\x45\x44\x5f\x34\x5f\x41\x49\x5f\x44\x46")."\x2c",",$A4L8Exj9br,")>-1 or $n9d8vgro0z->lABnuqcDl("\x43\x47\x49\x5f\x54\x52\x55\x53\x54\x45\x44\x5f\x34\x5f\x41\x49\x5f\x44\x46")eq "\x2a"){$D0UNiDFPZz=1;}}$wlpIcv48bt='' unless $D0UNiDFPZz;}unless($wlpIcv48bt){$Z8FtM6m0aV->operators_add("\x64\x69\x76\x32",sub{return $_[0]% 2});$Z8FtM6m0aV->filters_add("\x67\x6d\x74\x69\x6d\x65",sub{return scalar(gmtime($_[1]))});$Z8FtM6m0aV->filters_add("\x62\x69\x6c\x6c\x5f\x66\x6c\x6f\x61\x74",sub{return sprintf("\x25\x2e".($n9d8vgro0z->lABnuqcDl("\x42\x49\x4c\x4c\x49\x4e\x47\x5f\x52\x4f\x55\x4e\x44\x49\x4e\x47\x5f\x34\x47\x55\x49")||2)."\x66",$_[1])});$Z8FtM6m0aV->filters_add("\x6c\x6f\x63\x61\x6c\x65\x5f\x6d\x73\x67",sub{my $gl2uEq7FLb=$n9d8vgro0z->wCVvsla9Y($_[1],$yH0Kc8XEfB);$gl2uEq7FLb=~ s#&#&amp;#gs;$gl2uEq7FLb=~ s#\x22#&quot;#gs;$gl2uEq7FLb=~ s#<#&lt;#gs;$gl2uEq7FLb=~ s#>#&gt;#gs;$gl2uEq7FLb=~ s#\x27#&apos;#gs;return $gl2uEq7FLb;});if(-e "$rYA3BMjms8/$wGMiDl0c1C/$K35RZwQhmg"){$Z8FtM6m0aV->process("$rYA3BMjms8/$wGMiDl0c1C/$K35RZwQhmg",$yrHSclFTzt,\$YtcsFefLry);}else{$Z8FtM6m0aV->process("$rYA3BMjms8/$K35RZwQhmg",$yrHSclFTzt,\$YtcsFefLry);}}unless($wlpIcv48bt){$n9d8vgro0z->DI3sKMF0J(200,"\x4f\x6b",undef,$YtcsFefLry.$n9d8vgro0z->wCVvsla9Y("\x67\x36\x31\x33","\x43"));}elsif($wlpIcv48bt eq "\x78\x6d\x6c"){require XML::Simple;$YtcsFefLry=XML::Simple::XMLout($yrHSclFTzt);$n9d8vgro0z->B5olr92BD(200,"\x4f\x6b",undef,$YtcsFefLry);}elsif($wlpIcv48bt eq "\x6a\x73\x6f\x6e"){require JSON::XS;my $Ta5wECeoxX=JSON::XS->new();$n9d8vgro0z->DI3sKMF0J(200,"\x4f\x6b","\x43\x6f\x6e\x74\x65\x6e\x74\x2d\x74\x79\x70\x65\x3a\x20\x61\x70\x70\x6c\x69\x63\x61\x74\x69\x6f\x6e\x2f\x6a\x73\x6f\x6e",$Ta5wECeoxX->encode($yrHSclFTzt));}}sub QBN7Lpmu6{my $n9d8vgro0z=shift;my($TFEYNC263o,$sNrYMePR1k,$pnjyzO6uPx)=$n9d8vgro0z->S8UXdfLCO([qw(caller_id called_id vars)]);my($V42qbOGY5a,%ltySEgNbHO,$hJZwYtNfxW,$QSUNhmgIrn,@lCINx6hDp4);$sNrYMePR1k="\x30\x30\x30" unless length $sNrYMePR1k;$TFEYNC263o="\x30\x30\x30" unless length $TFEYNC263o;foreach my $ybVgwUWX18(split(/\s*,\s*/,$pnjyzO6uPx)){my($lgND3xB6KJ,$taslPqb9RJ)=split(/\s*=\s*/,$ybVgwUWX18);$QSUNhmgIrn->{$lgND3xB6KJ}=$taslPqb9RJ;}my $D5p3l2aYJn=$n9d8vgro0z->y9H6b7ZDa($sNrYMePR1k,$TFEYNC263o,$QSUNhmgIrn);my $KEQPlGbZTJ='';if($sNrYMePR1k){$KEQPlGbZTJ=$n9d8vgro0z->TaUWk6fjJ($sNrYMePR1k);if($KEQPlGbZTJ){$hJZwYtNfxW="$sNrYMePR1k [ $KEQPlGbZTJ ]";}}if(ref $D5p3l2aYJn eq "\x41\x52\x52\x41\x59"){foreach my $WPStQrEx98(@{$D5p3l2aYJn}){if(exists $WPStQrEx98->{"\x44\x41\x54\x41\x5f\x49\x44"}){$ltySEgNbHO{$WPStQrEx98->{"\x44\x41\x54\x41\x5f\x49\x44"}}=($WPStQrEx98->{"\x50\x48\x4f\x4e\x45"}||$sNrYMePR1k);}}}unless($n9d8vgro0z->eD4wyV7xe()->{"\x44\x46"}){@lCINx6hDp4=(ROUTE_CALLER_ID=>$TFEYNC263o,ROUTE_CALLED_ID=>$sNrYMePR1k,ROUTE_VARS=>$pnjyzO6uPx);}my $bgpFyWEj8n=[];if(keys %ltySEgNbHO){my $GgGFtNoZWY=$n9d8vgro0z->TdQ85RuBS("\x69\x73\x5f\x61\x69");foreach my $WPStQrEx98(@$GgGFtNoZWY){if(exists $ltySEgNbHO{$WPStQrEx98->{"\x44\x41\x54\x41\x5f\x49\x44"}}){if($sNrYMePR1k ne $ltySEgNbHO{$WPStQrEx98->{"\x44\x41\x54\x41\x5f\x49\x44"}}){$WPStQrEx98->{"\x53\x55\x42\x53\x54\x52\x5f\x52\x45\x53\x55\x4c\x54"}=$ltySEgNbHO{$WPStQrEx98->{"\x44\x41\x54\x41\x5f\x49\x44"}};}push @$bgpFyWEj8n,$WPStQrEx98;}}}W9HmJ8Ng5($n9d8vgro0z,"\x72\x6f\x75\x74\x65\x5f\x6c\x69\x73\x74\x2e\x74\x74",{ROUTES=>$bgpFyWEj8n,MATCH_RESULTS=>$hJZwYtNfxW,@lCINx6hDp4});}sub FnU875EiS{my $n9d8vgro0z=shift;my($HX23TEkS9Z,$q8oLJQwfIi,$PPV7GeRprI)=$n9d8vgro0z->S8UXdfLCO([qw(node ip mode)]);if($PPV7GeRprI eq "\x77\x6c\x61\x64\x64"){$n9d8vgro0z->rtaSYm9cr($HX23TEkS9Z,$PPV7GeRprI,$q8oLJQwfIi);}elsif($PPV7GeRprI eq "\x77\x6c\x64\x65\x6c"){$n9d8vgro0z->rtaSYm9cr($HX23TEkS9Z,$PPV7GeRprI,$q8oLJQwfIi);}elsif($q8oLJQwfIi){$n9d8vgro0z->zblvZ4aQ1($HX23TEkS9Z,$q8oLJQwfIi);}}sub jaT4h5Cl8{my $n9d8vgro0z=shift;my($jsCwmFha94,$ybksNu6tlv)=$n9d8vgro0z->S8UXdfLCO([qw(type id)]);my($IAVHKo1TL0,$ADihjuts1I);my $gD9QmNV457=1;if($jsCwmFha94 eq "\x73\x79\x73"){$ADihjuts1I=$n9d8vgro0z->lABnuqcDl("\x50\x41\x54\x48\x5f\x53\x59\x53\x5f\x42\x41\x43\x4b\x55\x50\x5f\x44\x49\x52");$IAVHKo1TL0="\x74\x67\x7a";}elsif($jsCwmFha94 eq "\x64\x62"){$ADihjuts1I=$n9d8vgro0z->lABnuqcDl("\x50\x41\x54\x48\x5f\x44\x42\x5f\x42\x41\x43\x4b\x55\x50\x5f\x44\x49\x52");$IAVHKo1TL0="\x67\x7a";}else{$gD9QmNV457=0;}$ybksNu6tlv=~ s/\D//gs;$gD9QmNV457=0 unless int($ybksNu6tlv);if($gD9QmNV457 and-e "$ADihjuts1I/$ybksNu6tlv.$IAVHKo1TL0"){return $n9d8vgro0z->sGyCQMBNt("$ADihjuts1I/$ybksNu6tlv.$IAVHKo1TL0");}else{$n9d8vgro0z->DI3sKMF0J(404,"\x4e\x6f\x74\x20\x66\x6f\x75\x6e\x64","\x43\x6f\x6e\x74\x65\x6e\x74\x2d\x74\x79\x70\x65\x3a\x20\x74\x65\x78\x74\x2f\x70\x6c\x61\x69\x6e","\x6e\x6f\x74\x20\x66\x6f\x75\x6e\x64");}}sub GJUIqpeVC{my $n9d8vgro0z=shift;my $q89VU4nHqc=$n9d8vgro0z->n3P9RzOHb("\x73\x75\x64\x6f\x20\x2f\x6f\x70\x74\x2f\x56\x69\x72\x74\x75\x61\x6c\x50\x42\x58\x2f\x63\x6f\x6e\x74\x72\x69\x62\x2f\x75\x74\x69\x6c\x73\x2f\x73\x79\x73\x73\x74\x61\x74\x75\x73\x2e\x70\x6c");my $dWbT4mU9Ez;if($q89VU4nHqc=~ s/^\x24VAR1/\$dWbT4mU9Ez/){eval "$q89VU4nHqc";}unless(ref $dWbT4mU9Ez eq "\x48\x41\x53\x48"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $HX23TEkS9Z=$n9d8vgro0z->S8UXdfLCO("\x6e\x6f\x64\x65");my $xba3zWFr1q=$n9d8vgro0z->zblvZ4aQ1($HX23TEkS9Z);unless(ref $xba3zWFr1q eq "\x41\x52\x52\x41\x59"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $tI65AvpDni=$n9d8vgro0z->rtaSYm9cr();unless(ref $tI65AvpDni eq "\x41\x52\x52\x41\x59"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}$n9d8vgro0z->{"\x5f\x43\x4f\x4e\x46\x5f\x4f\x52\x49\x47"}={};$n9d8vgro0z->rghfcjP9X("\x2f\x6f\x70\x74\x2f\x56\x69\x72\x74\x75\x61\x6c\x50\x42\x58\x2f\x63\x6f\x6e\x74\x72\x69\x62\x2f\x2e\x78\x76\x62\x2d\x64\x65\x66\x61\x75\x6c\x74\x73","\x5f\x43\x4f\x4e\x46\x5f\x4f\x52\x49\x47");my $txsPuSwG6T=[];my $CQp2WlFsdc={};foreach my $lgND3xB6KJ(keys %{$n9d8vgro0z->{"\x5f\x43\x4f\x4e\x46\x5f\x4f\x52\x49\x47"}}){$CQp2WlFsdc->{$lgND3xB6KJ}=1;}foreach my $lgND3xB6KJ(sort keys %{$CQp2WlFsdc}){if($n9d8vgro0z->{"\x5f\x43\x4f\x4e\x46\x5f\x4f\x52\x49\x47"}->{$lgND3xB6KJ}ne $n9d8vgro0z->{"\x5f\x43\x4f\x4e\x46"}->{$lgND3xB6KJ}){next if $lgND3xB6KJ=~ /(asterisk_ami_secret|radius_acct_secret|db_password|db_master_password|email_password|cgi_admin_key|asr_yandex_key|asr_google_key|tts_voicefabric_key|tts_mstranslator_bingid)/;my $SAzElR2YxC=$n9d8vgro0z->{"\x5f\x43\x4f\x4e\x46\x5f\x4f\x52\x49\x47"}->{$lgND3xB6KJ};my $ng1STjiNz5=$n9d8vgro0z->{"\x5f\x43\x4f\x4e\x46"}->{$lgND3xB6KJ};$SAzElR2YxC=~ s#([,;])#$1 #g;$ng1STjiNz5=~ s#([,;])#$1 #g;push @$txsPuSwG6T,[uc($lgND3xB6KJ),$SAzElR2YxC,$ng1STjiNz5];}}W9HmJ8Ng5($n9d8vgro0z,"\x73\x79\x73\x73\x74\x61\x74\x75\x73\x2e\x74\x74",{F2B_WL=>$tI65AvpDni,F2B_CNT_WL=>scalar(@$tI65AvpDni),F2B=>$xba3zWFr1q,F2B_CNT=>scalar(@$xba3zWFr1q),RAW=>$dWbT4mU9Ez->{"\x52\x41\x57"},CPU=>$dWbT4mU9Ez->{"\x43\x50\x55"},MEM=>$dWbT4mU9Ez->{"\x4d\x45\x4d"},SWAP=>$dWbT4mU9Ez->{"\x53\x57\x41\x50"},DISK=>$dWbT4mU9Ez->{"\x44\x49\x53\x4b"},SYS=>$dWbT4mU9Ez->{"\x53\x59\x53\x54\x45\x4d"},AST=>$dWbT4mU9Ez->{"\x41\x53\x54\x45\x52\x49\x53\x4b"},NODE=>$n9d8vgro0z->lABnuqcDl("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x53\x45\x52\x56\x45\x52\x5f\x49\x44"),CDIFF=>$txsPuSwG6T})}sub d5nbmgtBh{my $n9d8vgro0z=shift;my($xJ9FEDLhR6,$IwbrOUFj9E,$NB21GperLY,$BJNE5eD4WC)=$n9d8vgro0z->S8UXdfLCO([qw(call_id start_time stop_time xvb_call_id)]);my $cZj5m0AVz4='';my $TV4BPQhgRF='';my $KABurQl85Z=$n9d8vgro0z->lABnuqcDl("\x50\x41\x54\x48\x5f\x54\x4d\x50\x5f\x44\x49\x52")."\x2f\x70\x63\x61\x70\x73";$xJ9FEDLhR6=~ s/[`\x22\x27\r\n]//gs;if(length($xJ9FEDLhR6)and-d $KABurQl85Z and opendir(PCAPDIR,$KABurQl85Z)){my @mKbtHsxqcd=sort{(stat("$KABurQl85Z/$a"))[9]<=>(stat("$KABurQl85Z/$b"))[9]}grep(/pcap\d+$/,readdir(PCAPDIR));my $r2AhMPxLj8=0;my $gn4IA58uir=$n9d8vgro0z->lABnuqcDl("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x4e\x47\x52\x45\x50\x5f\x4f\x50\x54")||"\x2d\x64\x20\x61\x6e\x79\x20\x2d\x70\x20\x2d\x57\x20\x62\x79\x6c\x69\x6e\x65\x20\x2d\x74\x20\x2d\x71";$xJ9FEDLhR6=": $xJ9FEDLhR6";my %yxOrnEIH6F;my $Lx2T5wDIGt=1;my @TgCk5p4adJ;foreach my $nbtsOmgrLw(@mKbtHsxqcd){my $TPKxYsemXf=(stat("$KABurQl85Z/$nbtsOmgrLw"))[9];if(($r2AhMPxLj8<=$IwbrOUFj9E and $TPKxYsemXf>=$IwbrOUFj9E)or($r2AhMPxLj8<=$NB21GperLY and $TPKxYsemXf>=$NB21GperLY)or($r2AhMPxLj8>=$IwbrOUFj9E and $TPKxYsemXf<$NB21GperLY)){my($z4kHbOJcal,$KiXoNMmKU3,@WCuxY4poqE);for(my $YHi7vcnXyp=0;$YHi7vcnXyp<=2;$YHi7vcnXyp++){$KiXoNMmKU3="/usr/sbin/ngrep \x27$xJ9FEDLhR6\x27 $gn4IA58uir -I $KABurQl85Z/$nbtsOmgrLw 2>&1";my @SsG4WegzHP=`$KiXoNMmKU3`;my $su6VAvz319=0;$z4kHbOJcal='';@WCuxY4poqE=();foreach my $H8Tvd9uCxO(@SsG4WegzHP){chomp($H8Tvd9uCxO);$H8Tvd9uCxO=~ s/\.$//;if($H8Tvd9uCxO=~ /^U\s+\d+\/\d+\/\d+\s\d+:\d+:\d+\.\d+\s+([^\s]+)\s+->\s+([^\s]+)/){if($z4kHbOJcal){push @WCuxY4poqE,$z4kHbOJcal;}$z4kHbOJcal="\n";$H8Tvd9uCxO.="\n";}elsif($H8Tvd9uCxO=~ /^(Call-ID|I|XVB-Call-ID)(:\s*[^\x22\x27\r\n]+)/gi){if(index($xJ9FEDLhR6,$2)==-1){$xJ9FEDLhR6.="|$2";$su6VAvz319=1;}if(lc($1)eq "\x69" or lc($1)eq "\x63\x61\x6c\x6c\x2d\x69\x64"){unless(exists $yxOrnEIH6F{$2}){$yxOrnEIH6F{$2}=$Lx2T5wDIGt++;if($Lx2T5wDIGt>11){$Lx2T5wDIGt=2;}}}}if($z4kHbOJcal){$z4kHbOJcal.="$H8Tvd9uCxO\n";}}unless($su6VAvz319){push @WCuxY4poqE,$z4kHbOJcal;last;}}$TV4BPQhgRF.="#<br>\n# ".$n9d8vgro0z->fF9Zicxtg($KiXoNMmKU3)." <br>\n#<br>\n";push(@TgCk5p4adJ,@WCuxY4poqE);}$r2AhMPxLj8=$TPKxYsemXf;}my @EjtcXTSqUV=`/sbin/ifconfig|grep "inet "`;my $mI6osk1Lgm="\x2c";foreach my $MoOIsp7dTM(@EjtcXTSqUV){chomp;$MoOIsp7dTM=~ s#.*inet\s+(addr:)?(\S+).*#$2#s;if(length($MoOIsp7dTM)){$mI6osk1Lgm.="$MoOIsp7dTM,";}}foreach my $j7L6C3EnTb(@TgCk5p4adJ){my $Lx2T5wDIGt=0;my($aJYN8fCh93,$yhYAUcwaWV);foreach my $H8Tvd9uCxO(split(/\n/,$j7L6C3EnTb)){if($H8Tvd9uCxO=~ /^U\s+\d+\/\d+\/\d+\s\d+:\d+:\d+\.\d+\s+([^\s]+):\d+\s+->\s+([^\s]+):\d+/){($aJYN8fCh93,$yhYAUcwaWV)=($1,$2);}else{if($H8Tvd9uCxO=~ /^(Call-ID|I)(:\s*[^\x22\x27\r\n]+)/gi){$Lx2T5wDIGt=$yxOrnEIH6F{$2};}}}my $C80d1WnpeQ="\x20";if($Lx2T5wDIGt==1 and index($mI6osk1Lgm,",$aJYN8fCh93,")>-1){$C80d1WnpeQ="\t\t"}elsif($Lx2T5wDIGt>1 and index($mI6osk1Lgm,",$aJYN8fCh93,")>-1){$C80d1WnpeQ="\t\t";}elsif($Lx2T5wDIGt>1 and index($mI6osk1Lgm,",$yhYAUcwaWV,")>-1){$C80d1WnpeQ="\t\t\t\t";}$cZj5m0AVz4.="<p class=\x27pcap$Lx2T5wDIGt\x27>";foreach my $H8Tvd9uCxO(split(/\n/,$j7L6C3EnTb)){$cZj5m0AVz4.=$C80d1WnpeQ.$n9d8vgro0z->fF9Zicxtg($H8Tvd9uCxO)."\n";}$cZj5m0AVz4.="</p>";}}W9HmJ8Ng5($n9d8vgro0z,"\x73\x69\x70\x5f\x70\x63\x61\x70\x2e\x74\x74",{CMD=>$TV4BPQhgRF,DATA=>$cZj5m0AVz4,XVB_CALL_ID=>$BJNE5eD4WC});}