#!/usr/bin/perl
########################################################################
#
# $Id: VirtualPBX-EI.cgi,v 1.51 2025/05/29 17:36:15 gosha Exp $
#
# Copyright (c) Igor Okunev <igor[at]prv.mts-nn.ru> 2018 - 2025
#
########################################################################
package VirtualPBXEI;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::Core;use XVB::Database;use XVB::Messages;use XVB::Users;use XVB::Mailboxes;use XVB::Journal;use XVB::CDR;use XVB::MC;use XVB::Locale;use XVB::Routes;use XVB::UI::CGI;use XVB::UI::CGI::CDR;use XVB::UI::CGI::Users;use XVB::UI::CGI::Messages;use XVB::UI::AGI::Messages;use XVB::UI::CGI::Routes;use XVB::UI::CGI::PBook;use XVB::UI::CGI::Click2Call;use XVB::UI::CGI::CallsTrack;use XVB::UI::DATA::CSV;use Template::EasyTT;use JSON::XS;use XML::Simple;use POSIX qw(locale_h);use CGI;use vars qw($SDCZijdlut);KvZyQx5kz();sub new{my($ZofhvYkSBZ,$bAMFeTqNKY)=@_;unless($SDCZijdlut){$SDCZijdlut=bless{_TMPL=>Template::EasyTT->new({}),_CONF=>{},},$ZofhvYkSBZ;$SDCZijdlut->ey2WOQF1f($bAMFeTqNKY);$SDCZijdlut->yKdjmtCzR();$SDCZijdlut->{"\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;$SDCZijdlut->NPh3YvQOU(1);chdir($SDCZijdlut->D72RNGHCf("\x50\x41\x54\x48\x5f\x57\x4f\x52\x4b\x5f\x44\x49\x52"));$SDCZijdlut->Tjcsr0kWa();$SDCZijdlut->{"\x5f\x54\x4d\x50\x4c"}->filters_add("\x6c\x6f\x63\x61\x6c\x65\x5f\x6d\x73\x67",sub{my $plX5tQVn80=$SDCZijdlut->tlX38iAs7($_[1],$SDCZijdlut->A5qWonOHl()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});$plX5tQVn80=~ s#&#&amp;#gs;$plX5tQVn80=~ s#\x22#&quot;#gs;$plX5tQVn80=~ s#<#&lt;#gs;$plX5tQVn80=~ s#>#&gt;#gs;$plX5tQVn80=~ s#\x27#&apos;#gs;return $plX5tQVn80;});}$SDCZijdlut->{"\x5f\x43\x44\x52"}={};$SDCZijdlut->{"\x5f\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}={};$SDCZijdlut->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}={};$SDCZijdlut->{"\x5f\x53\x45\x53\x53\x49\x4f\x4e"}={};$SDCZijdlut->{"\x5f\x43\x47\x49"}=CGI->new();return $SDCZijdlut;}sub KvZyQx5kz{my $Il3DMO869L=VirtualPBXEI->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($VB8mzXxNPL,$tZ97lqiTSA,$hMP3Z8ruYS)=$Il3DMO869L->TPGRQ3NW9([qw(login pswd action)]);if(! length($VB8mzXxNPL)){$VB8mzXxNPL=$Il3DMO869L->{"\x5f\x43\x47\x49"}->cookie("\x6c\x6f\x67\x69\x6e");$tZ97lqiTSA=$Il3DMO869L->{"\x5f\x43\x47\x49"}->cookie("\x70\x73\x77\x64");}unless($VB8mzXxNPL){return LLXKf5CBi($Il3DMO869L,{});}my($s4LqCkXMHr,$Kve9Gr0OmE)=split(/\@/,$VB8mzXxNPL);my $k8GpXn9oHD;if($Il3DMO869L->D72RNGHCf("\x44\x42\x5f\x43\x41\x43\x48\x45\x5f\x57\x45\x42\x5f\x41\x55\x54\x48")){$k8GpXn9oHD=$Il3DMO869L->mw3raOQby("short-user-$Kve9Gr0OmE");unless(ref($k8GpXn9oHD)){kW5g4DrZ0($Il3DMO869L,$Kve9Gr0OmE,"\x70\x73\x77\x64\x20\x6d\x69\x73\x6d\x61\x74\x63\x68")if $Il3DMO869L->NWsaz02NB(1);return LLXKf5CBi($Il3DMO869L,{ERROR_STR=>"\x49\x6e\x63\x6f\x72\x72\x65\x63\x74\x20\x70\x61\x73\x73\x77\x6f\x72\x64\x2c\x20\x74\x72\x79\x20\x61\x67\x61\x69\x6e"});}elsif(! $k8GpXn9oHD->{"\x53\x54\x41\x54\x55\x53"}and ! $Il3DMO869L->D72RNGHCf("\x43\x47\x49\x5f\x49\x47\x4e\x4f\x52\x45\x5f\x4c\x4f\x43\x4b")){kW5g4DrZ0($Il3DMO869L,$Kve9Gr0OmE,"\x6c\x6f\x63\x6b\x65\x64")if $Il3DMO869L->NWsaz02NB(1);return LLXKf5CBi($Il3DMO869L,{ERROR_STR=>"\x59\x6f\x75\x72\x20\x61\x63\x63\x6f\x75\x6e\x74\x20\x69\x73\x20\x6c\x6f\x63\x6b\x65\x64"});}}$k8GpXn9oHD=$Il3DMO869L->PxaTEjQUo(undef,$Kve9Gr0OmE);unless($k8GpXn9oHD==1){kW5g4DrZ0($Il3DMO869L,$Kve9Gr0OmE,"\x70\x73\x77\x64\x20\x6d\x69\x73\x6d\x61\x74\x63\x68")if $Il3DMO869L->NWsaz02NB(1);return LLXKf5CBi($Il3DMO869L,{ERROR_STR=>"\x49\x6e\x63\x6f\x72\x72\x65\x63\x74\x20\x70\x61\x73\x73\x77\x6f\x72\x64\x2c\x20\x74\x72\x79\x20\x61\x67\x61\x69\x6e"});}my $agUrosOJ6A=$Il3DMO869L->ArsMgWdi8();if(ref $agUrosOJ6A ne "\x48\x41\x53\x48"){return LLXKf5CBi($Il3DMO869L,{ERROR_STR=>"\x4f\x70\x70\x73\x2c\x20\x70\x6c\x65\x61\x73\x65\x20\x74\x72\x79\x20\x61\x67\x61\x69\x6e\x20\x6c\x61\x74\x65\x72"});}if(not exists($agUrosOJ6A->{$s4LqCkXMHr})or length($agUrosOJ6A->{$s4LqCkXMHr}->{"\x57\x45\x42\x5f\x53\x45\x43\x52\x45\x54"})==0 or $agUrosOJ6A->{$s4LqCkXMHr}->{"\x57\x45\x42\x5f\x53\x45\x43\x52\x45\x54"}ne $tZ97lqiTSA){kW5g4DrZ0($Il3DMO869L,$Kve9Gr0OmE,"\x70\x73\x77\x64\x20\x6d\x69\x73\x6d\x61\x74\x63\x68")if $Il3DMO869L->NWsaz02NB(1);return LLXKf5CBi($Il3DMO869L,{ERROR_STR=>"\x49\x6e\x63\x6f\x72\x72\x65\x63\x74\x20\x70\x61\x73\x73\x77\x6f\x72\x64\x2c\x20\x74\x72\x79\x20\x61\x67\x61\x69\x6e"});}if(length($agUrosOJ6A->{$s4LqCkXMHr}->{"\x50\x45\x52\x4d\x49\x54\x5f\x57\x45\x42"})and ! $Il3DMO869L->{"\x5f\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}->{"\x4c\x4f\x43\x4b\x5f\x50\x45\x52\x4d\x49\x54\x5f\x57\x45\x42"}){$Il3DMO869L->{"\x5f\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}->{"\x50\x45\x52\x4d\x49\x54\x5f\x57\x45\x42"}=$agUrosOJ6A->{$s4LqCkXMHr}->{"\x50\x45\x52\x4d\x49\x54\x5f\x57\x45\x42"};}if(length($Il3DMO869L->A5qWonOHl()->{"\x50\x45\x52\x4d\x49\x54\x5f\x57\x45\x42"})){unless($Il3DMO869L->YKMq6ch4b($Il3DMO869L->A5qWonOHl()->{"\x50\x45\x52\x4d\x49\x54\x5f\x57\x45\x42"},$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"})){return $Il3DMO869L->itHGsWJzh(undef,"\x59\x6f\x75\x20\x63\x61\x6e\x20\x6e\x6f\x74\x20\x61\x63\x63\x65\x73\x73\x20\x74\x68\x69\x73\x20\x70\x61\x67\x65\x20\x66\x72\x6f\x6d\x20\x74\x68\x69\x73\x20\x49\x50\x20\x5b".$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"}."\x5d");}}if($agUrosOJ6A->{$s4LqCkXMHr}->{"\x4c\x41\x4e\x47\x5f\x49\x44"}){$Il3DMO869L->{"\x5f\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}->{"\x4c\x41\x4e\x47\x5f\x4e\x41\x4d\x45"}=$agUrosOJ6A->{$s4LqCkXMHr}->{"\x4c\x41\x4e\x47\x5f\x4e\x41\x4d\x45"};$Il3DMO869L->{"\x5f\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"}=$agUrosOJ6A->{$s4LqCkXMHr}->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"};}if(my $S8AcHgdXtN=$Il3DMO869L->D72RNGHCf("\x43\x47\x49\x5f\x45\x49\x5f\x57\x45\x42\x52\x54\x43\x5f\x50\x52\x45\x46")){if($tZ97lqiTSA=~ /^\Q$S8AcHgdXtN\E/i){$hMP3Z8ruYS="\x70\x70\x5f\x77\x65\x62\x5f\x70\x68\x6f\x6e\x65\x5f\x6f\x6e\x6c\x79";}}if($hMP3Z8ruYS eq "\x70\x70\x5f\x6d\x65\x6e\x75"){my $HokzUwpMse=$Il3DMO869L->D72RNGHCf("\x57\x45\x42\x52\x54\x43\x5f\x57\x53");if($HokzUwpMse){$HokzUwpMse=0 if $Il3DMO869L->TPGRQ3NW9("\x73\x6b\x69\x70\x5f\x77\x65\x62\x5f\x70\x68\x6f\x6e\x65");}return gWgYqTt7X($Il3DMO869L,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x6d\x65\x6e\x75\x2e\x74\x74",{PHONE=>$agUrosOJ6A->{$s4LqCkXMHr},WEBRTC=>$HokzUwpMse});}elsif($hMP3Z8ruYS eq "\x70\x70\x5f\x73\x74\x61\x72\x74"){my $CeG8v70qKU=$Il3DMO869L->{"\x5f\x43\x47\x49"}->cookie(-name=>"\x6c\x6f\x67\x69\x6e",-value=>$VB8mzXxNPL,-path=>"\x2f\x70\x68\x6f\x6e\x65");my $NhUVEJS4R8=$Il3DMO869L->{"\x5f\x43\x47\x49"}->cookie(-name=>"\x70\x73\x77\x64",-value=>$tZ97lqiTSA,-path=>"\x2f\x70\x68\x6f\x6e\x65");return gWgYqTt7X($Il3DMO869L,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x73\x74\x61\x72\x74\x2e\x74\x74",{WITH_PHONE=>$Il3DMO869L->TPGRQ3NW9("\x77\x65\x62\x5f\x70\x68\x6f\x6e\x65")},["\x43\x6f\x6e\x74\x65\x6e\x74\x2d\x74\x79\x70\x65\x3a\x20\x74\x65\x78\x74\x2f\x68\x74\x6d\x6c\x3b\x20\x63\x68\x61\x72\x73\x65\x74\x3d\x75\x74\x66\x2d\x38","Set-Cookie: $CeG8v70qKU","Set-Cookie: $NhUVEJS4R8"]);}elsif($hMP3Z8ruYS eq "\x70\x70\x5f\x6d\x73\x67\x5f\x6c\x69\x73\x74"){XeBgRc8H4($Il3DMO869L,$agUrosOJ6A->{$s4LqCkXMHr});}elsif($hMP3Z8ruYS eq "\x70\x70\x5f\x63\x64\x72\x5f\x6c\x69\x73\x74"){my($t3OXBPZDLC,$s4xVOv5kEw)=$Il3DMO869L->TPGRQ3NW9([qw(need_excel need_chart)]);if($t3OXBPZDLC && ! $Il3DMO869L->A5qWonOHl()->{"\x48\x49\x44\x45\x5f\x4e\x55\x4d\x42\x45\x52\x53"}){oI9Nn7Ofd($Il3DMO869L,$agUrosOJ6A->{$s4LqCkXMHr});}elsif($s4xVOv5kEw){OLyOH8cf3($Il3DMO869L,$agUrosOJ6A->{$s4LqCkXMHr});}else{SVeJaxoCd($Il3DMO869L,$agUrosOJ6A->{$s4LqCkXMHr});}}elsif($hMP3Z8ruYS eq "\x70\x70\x5f\x70\x69\x6e\x66\x6f"){my $uVJ3cX02tU=time;$Il3DMO869L->oPsmY7CAI($Il3DMO869L->A5qWonOHl()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$Il3DMO869L->A5qWonOHl()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});if($uVJ3cX02tU<$agUrosOJ6A->{$s4LqCkXMHr}->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}){$agUrosOJ6A->{$s4LqCkXMHr}->{"\x52\x45\x47\x5f\x53\x54\x41\x54\x55\x53"}="\x52\x65\x67\x69\x73\x74\x65\x72\x65\x64";}else{$agUrosOJ6A->{$s4LqCkXMHr}->{"\x52\x45\x47\x5f\x53\x54\x41\x54\x55\x53"}="\x55\x6e\x72\x65\x67\x69\x73\x74\x65\x72\x65\x64";}$agUrosOJ6A->{$s4LqCkXMHr}->{"\x52\x45\x47\x5f\x45\x58\x50\x49\x52\x45\x44"}=$agUrosOJ6A->{$s4LqCkXMHr}->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}? $Il3DMO869L->YVjlbie8N($agUrosOJ6A->{$s4LqCkXMHr}->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}):"\x2d";$agUrosOJ6A->{$s4LqCkXMHr}->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}=$agUrosOJ6A->{$s4LqCkXMHr}->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}? $Il3DMO869L->YVjlbie8N($agUrosOJ6A->{$s4LqCkXMHr}->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}):"\x2d";$agUrosOJ6A->{$s4LqCkXMHr}->{"\x52\x41\x57\x44\x4e\x44"}=$agUrosOJ6A->{$s4LqCkXMHr}->{"\x44\x4e\x44"};$agUrosOJ6A->{$s4LqCkXMHr}->{"\x44\x4e\x44"}=$agUrosOJ6A->{$s4LqCkXMHr}->{"\x44\x4e\x44"}? $Il3DMO869L->YVjlbie8N($agUrosOJ6A->{$s4LqCkXMHr}->{"\x44\x4e\x44"}):'';$Il3DMO869L->oPsmY7CAI();return gWgYqTt7X($Il3DMO869L,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x70\x69\x6e\x66\x6f\x2e\x74\x74",{PHONE=>$agUrosOJ6A->{$s4LqCkXMHr},LANG=>$Il3DMO869L->dx4cdR5wq("\x4c\x41\x4e\x47",undef,undef,"\x20\x77\x68\x65\x72\x65\x20\x53\x54\x41\x54\x55\x53\x20\x3d\x20\x31\x20\x61\x6e\x64\x20\x49\x44\x20\x3e\x20\x30\x20\x67\x72\x6f\x75\x70\x20\x62\x79\x20\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"),});}elsif($hMP3Z8ruYS eq "\x70\x70\x5f\x70\x75\x70\x64\x61\x74\x65"){$Il3DMO869L->HjmZyW1Pz();$Il3DMO869L->HjmZyW1Pz({CALLED_ID=>"\x77\x65\x62",CALLER_ID=>$ENV{REMOTE_ADDR},CALL_TYPE=>"\x77\x65\x62"});my $JZXW37dVTa=$Il3DMO869L->TPGRQ3NW9("\x44\x4e\x44");unless($JZXW37dVTa){$JZXW37dVTa=0;}else{if($Il3DMO869L->TPGRQ3NW9("\x52\x41\x57\x44\x4e\x44")){$JZXW37dVTa=$Il3DMO869L->TPGRQ3NW9("\x52\x41\x57\x44\x4e\x44");}else{$JZXW37dVTa=time;}}my $FXb7fvzRIO=$Il3DMO869L->TPGRQ3NW9("\x46\x57\x44\x5f\x41\x46\x54\x45\x52");my $wDpNb3ErSs=$Il3DMO869L->TPGRQ3NW9("\x4c\x41\x4e\x47\x5f\x49\x44");if($Il3DMO869L->Zw32Y08DI($agUrosOJ6A->{$s4LqCkXMHr}->{"\x44\x41\x54\x41\x5f\x49\x44"},$agUrosOJ6A->{$s4LqCkXMHr}->{"\x73\x65\x63\x72\x65\x74"},$agUrosOJ6A->{$s4LqCkXMHr}->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"},$agUrosOJ6A->{$s4LqCkXMHr}->{"\x44\x45\x53\x43\x52\x49\x50\x54\x49\x4f\x4e"},$agUrosOJ6A->{$s4LqCkXMHr}->{"\x52\x45\x43\x5f\x4d\x4f\x44\x45"},$agUrosOJ6A->{$s4LqCkXMHr}->{"\x52\x45\x43\x5f\x45\x58\x54"},$agUrosOJ6A->{$s4LqCkXMHr}->{"\x50\x49\x43\x4b\x55\x50\x5f\x47\x52\x4f\x55\x50\x53"},$agUrosOJ6A->{$s4LqCkXMHr}->{"\x6e\x61\x6d\x65"},$agUrosOJ6A->{$s4LqCkXMHr}->{"\x44\x45\x46\x43\x49\x44"},$agUrosOJ6A->{$s4LqCkXMHr}->{"\x74\x72\x75\x73\x74\x65\x64\x5f\x69\x70"},$agUrosOJ6A->{$s4LqCkXMHr}->{"\x45\x4d\x41\x49\x4c"},$agUrosOJ6A->{$s4LqCkXMHr}->{"\x43\x4f\x4c"},$agUrosOJ6A->{$s4LqCkXMHr}->{"\x46\x57\x44\x5f\x4e\x55\x4d"},$FXb7fvzRIO,$agUrosOJ6A->{$s4LqCkXMHr}->{"\x57\x45\x42\x5f\x53\x45\x43\x52\x45\x54"},$agUrosOJ6A->{$s4LqCkXMHr}->{"\x48\x4f\x54\x44\x45\x53\x4b\x5f\x50\x49\x4e"},$agUrosOJ6A->{$s4LqCkXMHr}->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"},$agUrosOJ6A->{$s4LqCkXMHr}->{"\x4c\x44\x5f\x54\x54\x4c"},$wDpNb3ErSs,$agUrosOJ6A->{$s4LqCkXMHr}->{"\x50\x45\x52\x4d\x49\x54\x5f\x57\x45\x42"},$agUrosOJ6A->{$s4LqCkXMHr}->{"\x43\x55\x53\x54\x4f\x4d\x5f\x56\x41\x52\x53"},$JZXW37dVTa)){return $Il3DMO869L->itHGsWJzh();}else{return $Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x70\x70\x5f\x70\x62\x6f\x6f\x6b\x5f\x6c\x69\x73\x74"){my $uxEynjYJ6F=$Il3DMO869L->gxIC2cyB8()||return undef;my $bjDJnt20Nl=$Il3DMO869L->gxIC2cyB8($agUrosOJ6A->{$s4LqCkXMHr}->{"\x44\x41\x54\x41\x5f\x49\x44"})||return undef;my $BQPh7MS3B9=$Il3DMO869L->TPGRQ3NW9("\x66\x6f\x72\x6d\x61\x74");if($BQPh7MS3B9 eq "\x65\x78\x63\x65\x6c"){my $kucvLzC21p=[];foreach my $RtiP6s8E1M(@{$bjDJnt20Nl}){push @$kucvLzC21p,$RtiP6s8E1M;}foreach my $RtiP6s8E1M(@{$uxEynjYJ6F}){push @$kucvLzC21p,$RtiP6s8E1M;}my $TAIPdH9UiT=$Il3DMO869L->ovsGW4Lfw("\x70\x62\x6f\x6f\x6b",[$kucvLzC21p,[qw(PHONE FIRST_NAME LAST_NAME SHORTCUT DESCRIPTION RESPONSIBLE)]]);unless($TAIPdH9UiT){return $Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}else{if($TAIPdH9UiT=~ /xlsx$/){return $Il3DMO869L->yU9SeT8gN($TAIPdH9UiT,"\x61\x70\x70\x6c\x69\x63\x61\x74\x69\x6f\x6e\x2f\x78\x6c\x73\x78");}else{return $Il3DMO869L->yU9SeT8gN($TAIPdH9UiT,"\x74\x65\x78\x74\x2f\x63\x73\x76");}}}my $yvckMldm1u=$Il3DMO869L->A6hAxebBq();my $YqOYthVsXp;foreach my $EIsC1BEbAz(keys %$yvckMldm1u){if($yvckMldm1u->{$EIsC1BEbAz}->{"\x45\x58\x54\x45\x4e\x53\x49\x4f\x4e"}eq "\x63\x72\x6d\x2d\x63\x32\x63\x2d\x67\x77"){$YqOYthVsXp="ph=$s4LqCkXMHr&key=$EIsC1BEbAz&ac=".$Il3DMO869L->A5qWonOHl()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"};last;}}return gWgYqTt7X($Il3DMO869L,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x70\x62\x6f\x6f\x6b\x2e\x74\x74",{PBOOK_LIST_S=>$uxEynjYJ6F,PBOOK_LIST_P=>$bjDJnt20Nl,C2C=>$YqOYthVsXp,PHONE=>$s4LqCkXMHr,});}elsif($hMP3Z8ruYS eq "\x70\x70\x5f\x70\x62\x6f\x6f\x6b\x5f\x64\x65\x6c"){my $Rx1kvZKfD2=$Il3DMO869L->TPGRQ3NW9("\x64\x61\x74\x61\x5f\x69\x64");if($Il3DMO869L->I7TDslGWI($Rx1kvZKfD2,($Rx1kvZKfD2 eq "\x61\x6c\x6c" ? 1:undef),undef,$agUrosOJ6A->{$s4LqCkXMHr}->{"\x44\x41\x54\x41\x5f\x49\x44"},$s4LqCkXMHr)){return $Il3DMO869L->itHGsWJzh();}else{return $Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x70\x70\x5f\x70\x62\x6f\x6f\x6b\x5f\x61\x64\x64"){unless($Il3DMO869L->kL1iEmzDs($Il3DMO869L->D72RNGHCf("\x54\x41\x42\x4c\x45\x53\x5f\x50\x48\x4f\x4e\x45\x5f\x42\x4f\x4f\x4b"),$Il3DMO869L->A5qWonOHl()->{"\x4d\x41\x58\x5f\x50\x42\x4f\x4f\x4b\x5f\x49\x54\x45\x4d\x53"},{SUBSCR_ID=>$Il3DMO869L->A5qWonOHl()->{"\x49\x44"},PHONE_OWNER=>$agUrosOJ6A->{$s4LqCkXMHr}->{"\x44\x41\x54\x41\x5f\x49\x44"}})){return $Il3DMO869L->itHGsWJzh(undef,"\x54\x6f\x20\x6d\x61\x6e\x79\x20\x50\x42\x6f\x6f\x6b\x20\x69\x74\x65\x6d\x73\x2c\x20\x63\x68\x65\x63\x6b\x20\x6c\x69\x6d\x69\x74\x73");}elsif(defined(my $Rx1kvZKfD2=$Il3DMO869L->gCoRJ6Yp3($Il3DMO869L->TPGRQ3NW9([qw(shortcut ph fn ln description)]),undef,undef,$agUrosOJ6A->{$s4LqCkXMHr}->{"\x44\x41\x54\x41\x5f\x49\x44"},$s4LqCkXMHr))){return $Il3DMO869L->itHGsWJzh(undef,undef,$Rx1kvZKfD2,"\x23\x61\x64\x64\x61\x72\x65\x61");}else{return $Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x70\x70\x5f\x70\x62\x6f\x6f\x6b\x5f\x75\x70\x64\x61\x74\x65"){if($Il3DMO869L->SmoapfJQI($Il3DMO869L->TPGRQ3NW9([qw(data_id shortcut ph fn ln description)]),undef,$agUrosOJ6A->{$s4LqCkXMHr}->{"\x44\x41\x54\x41\x5f\x49\x44"},$s4LqCkXMHr)){return $Il3DMO869L->itHGsWJzh();}else{return $Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x70\x70\x5f\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74"){pwdWB8lEV($Il3DMO869L,$agUrosOJ6A->{$s4LqCkXMHr});}elsif($hMP3Z8ruYS=~ /^pp_web_phone/){my $pjinTyO7IA=$Il3DMO869L->D72RNGHCf("\x57\x45\x42\x52\x54\x43\x5f\x50\x48\x4f\x4e\x45\x5f\x55\x49\x5f\x53\x4b\x49\x50\x5f\x50\x53\x57\x44");if(length($Il3DMO869L->A5qWonOHl()->{"\x50\x48\x4f\x4e\x45\x5f\x55\x49\x5f\x53\x4b\x49\x50\x5f\x50\x53\x57\x44"})){$pjinTyO7IA=$Il3DMO869L->A5qWonOHl()->{"\x50\x48\x4f\x4e\x45\x5f\x55\x49\x5f\x53\x4b\x49\x50\x5f\x50\x53\x57\x44"};}my $H8aqniFod1=$Il3DMO869L->TPGRQ3NW9("\x6e\x6f\x63\x6f\x6e\x74\x72\x6f\x6c");my $B38CabcNBS=0;if($hMP3Z8ruYS eq "\x70\x70\x5f\x77\x65\x62\x5f\x70\x68\x6f\x6e\x65\x5f\x6f\x6e\x6c\x79"){$H8aqniFod1=$B38CabcNBS=1;}return gWgYqTt7X($Il3DMO869L,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x77\x65\x62\x5f\x70\x68\x6f\x6e\x65\x2e\x74\x74",{PHONE=>$agUrosOJ6A->{$s4LqCkXMHr},WEBRTC=>{REALM=>$Il3DMO869L->D72RNGHCf("\x57\x45\x42\x52\x54\x43\x5f\x52\x45\x41\x4c\x4d"),WS=>$Il3DMO869L->D72RNGHCf("\x57\x45\x42\x52\x54\x43\x5f\x57\x53"),ICE=>$Il3DMO869L->D72RNGHCf("\x57\x45\x42\x52\x54\x43\x5f\x49\x43\x45"),UI_SKIP_PSWD=>$pjinTyO7IA},NOCONTROL=>$H8aqniFod1,PHONE_ONLY=>$B38CabcNBS});}else{return LLXKf5CBi($Il3DMO869L,{});}}sub XeBgRc8H4{my($Il3DMO869L,$P1P0aUjnNt)=@_;my($Wuln98aQ7v,$NghHpVoDbL,$nWNYoVM8rK,$mLMajT85ih,$yepuio5t7M,$tE8MNK91a7,$rEHOaqhRFY,$VB8mzXxNPL,$tZ97lqiTSA)=$Il3DMO869L->TPGRQ3NW9([[(from=>0)],qw(from_time to_time smart_time caller_id called_id duration login pswd)]);my @OH98jLXbQd=($P1P0aUjnNt->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"});if($P1P0aUjnNt->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"}){push @OH98jLXbQd,@{$Il3DMO869L->uPxjwZJ9r($P1P0aUjnNt->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"})};}unless(length("$NghHpVoDbL$nWNYoVM8rK$yepuio5t7M$tE8MNK91a7$rEHOaqhRFY")){my $HlOUKoWHkw=$Il3DMO869L->D72RNGHCf("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x55\x49");$NghHpVoDbL=$Il3DMO869L->YVjlbie8N(time-86400*$HlOUKoWHkw,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$nWNYoVM8rK=$Il3DMO869L->YVjlbie8N(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}$Il3DMO869L->oPsmY7CAI($Il3DMO869L->A5qWonOHl()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$Il3DMO869L->A5qWonOHl()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});my $gIKX84CJVi=$Il3DMO869L->MtQ4WSsbR(0,$Wuln98aQ7v,$Il3DMO869L->A5qWonOHl()->{"\x49\x44"},undef,$Il3DMO869L->uunULNgQw($NghHpVoDbL),$Il3DMO869L->uunULNgQw($nWNYoVM8rK),$yepuio5t7M,$tE8MNK91a7,undef,$rEHOaqhRFY,join("\x7c",@OH98jLXbQd));if($gIKX84CJVi){my $VDHGg16QRy=$Wuln98aQ7v+1;my $RKO3UYLuvw=$Il3DMO869L->A5qWonOHl()->{"\x48\x49\x44\x45\x5f\x4e\x55\x4d\x42\x45\x52\x53"};foreach my $XLGAzQNvBy(@{$gIKX84CJVi}){$XLGAzQNvBy->{"\x4d\x53\x47\x5f\x4e\x55\x4d"}=$VDHGg16QRy++;$XLGAzQNvBy->{"\x4d\x53\x47\x5f\x44\x41\x54\x45"}=$Il3DMO869L->YVjlbie8N($XLGAzQNvBy->{"\x43\x52\x45\x41\x54\x45\x5f\x54\x49\x4d\x45"});if($RKO3UYLuvw){$Il3DMO869L->b5PTcOFyA(\$XLGAzQNvBy->{"\x43\x41\x4c\x4c\x45\x52\x49\x44"},$RKO3UYLuvw);$Il3DMO869L->b5PTcOFyA(\$XLGAzQNvBy->{"\x43\x41\x4c\x4c\x45\x44\x49\x44"},$RKO3UYLuvw);}}}$Il3DMO869L->oPsmY7CAI();return gWgYqTt7X($Il3DMO869L,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x6d\x65\x73\x73\x61\x67\x65\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74",{MSG_LIST=>$gIKX84CJVi,FROM_TIME=>$NghHpVoDbL,TO_TIME=>$nWNYoVM8rK,CALLER_ID=>$yepuio5t7M,CALLED_ID=>$tE8MNK91a7,DURATION=>$rEHOaqhRFY,SMART_TIME=>$mLMajT85ih,$Il3DMO869L->gR0nmpSuH(0,$gIKX84CJVi,$Wuln98aQ7v)});}sub OLyOH8cf3{my($Il3DMO869L,$P1P0aUjnNt)=@_;my($NghHpVoDbL,$nWNYoVM8rK,$mLMajT85ih,$yepuio5t7M,$xS1Iq9akV8,$tE8MNK91a7,$rEHOaqhRFY,$Zy8vors4bc,$SIXMpN6Bm3)=$Il3DMO869L->TPGRQ3NW9([qw(from_time to_time smart_time caller_id call_type called_id duration data raw_chart_data)]);my $s4LqCkXMHr=$P1P0aUjnNt->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"};$Il3DMO869L->oPsmY7CAI($Il3DMO869L->A5qWonOHl()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$Il3DMO869L->A5qWonOHl()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});unless(length("$NghHpVoDbL$nWNYoVM8rK$yepuio5t7M$xS1Iq9akV8$tE8MNK91a7$rEHOaqhRFY$Zy8vors4bc")){my $HlOUKoWHkw=$Il3DMO869L->D72RNGHCf("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x55\x49");$NghHpVoDbL=$Il3DMO869L->YVjlbie8N(time-86400*$HlOUKoWHkw,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$nWNYoVM8rK=$Il3DMO869L->YVjlbie8N(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my @OH98jLXbQd=($s4LqCkXMHr);if($P1P0aUjnNt->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"}){push @OH98jLXbQd,@{$Il3DMO869L->uPxjwZJ9r($P1P0aUjnNt->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"})};}my $I01DsmX8Ph=$Il3DMO869L->ZErdsUBi9($yepuio5t7M,$Il3DMO869L->uunULNgQw(($NghHpVoDbL||"\x30\x30\x3a\x30\x30")),$Il3DMO869L->uunULNgQw($nWNYoVM8rK),($Il3DMO869L->TPGRQ3NW9("\x63\x68\x61\x72\x74\x5f\x67\x72\x6f\x75\x70\x5f\x70\x65\x72\x69\x6f\x64")||"\x64"),$xS1Iq9akV8,$tE8MNK91a7,$rEHOaqhRFY,$Zy8vors4bc,$SIXMpN6Bm3,join("\x7c",@OH98jLXbQd));my $gqyldurw98;unless($SIXMpN6Bm3){$gqyldurw98=$Il3DMO869L->YVjlbie8N($I01DsmX8Ph->[2])."\x20\x2d\x20".$Il3DMO869L->YVjlbie8N($I01DsmX8Ph->[3]);}$Il3DMO869L->oPsmY7CAI();if($SIXMpN6Bm3){unless($I01DsmX8Ph){$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}else{if($I01DsmX8Ph=~ /xlsx$/){return $Il3DMO869L->yU9SeT8gN($I01DsmX8Ph,"\x61\x70\x70\x6c\x69\x63\x61\x74\x69\x6f\x6e\x2f\x78\x6c\x73\x78");}else{return $Il3DMO869L->yU9SeT8gN($I01DsmX8Ph,"\x74\x65\x78\x74\x2f\x63\x73\x76");}}}unless(ref $I01DsmX8Ph eq "\x41\x52\x52\x41\x59"){$Il3DMO869L->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $pf1Y0VDdjP=$Il3DMO869L->D72RNGHCf("\x43\x47\x49\x5f\x45\x58\x43\x45\x4c\x5f\x4d\x4f\x44\x45");if(exists $Il3DMO869L->A5qWonOHl()->{"\x45\x58\x43\x45\x4c\x5f\x4d\x4f\x44\x45"}){$pf1Y0VDdjP=$Il3DMO869L->A5qWonOHl()->{"\x45\x58\x43\x45\x4c\x5f\x4d\x4f\x44\x45"};}return gWgYqTt7X($Il3DMO869L,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x63\x64\x72\x73\x5f\x63\x68\x61\x72\x74\x2e\x74\x74",{CDR_LIST=>$I01DsmX8Ph->[0],CDR_HEADER=>$gqyldurw98,CDR_PERIOD=>$I01DsmX8Ph->[1],CDR_CALLER_ID=>$yepuio5t7M,CDR_CALLED_ID=>$tE8MNK91a7,CDR_CALL_TYPE=>$xS1Iq9akV8,CDR_DURATION=>$rEHOaqhRFY,CDR_DATA=>$Zy8vors4bc,CDR_WITH_ASR=>$Il3DMO869L->D72RNGHCf("\x43\x47\x49\x5f\x53\x54\x41\x54\x5f\x57\x49\x54\x48\x5f\x41\x53\x52"),PHONE=>$s4LqCkXMHr,EXCEL_MODE=>$pf1Y0VDdjP,SMART_TIME=>$mLMajT85ih,FROM_TIME=>$NghHpVoDbL,TO_TIME=>$nWNYoVM8rK});}sub oI9Nn7Ofd{my($Il3DMO869L,$P1P0aUjnNt)=@_;my($Wuln98aQ7v,$NghHpVoDbL,$nWNYoVM8rK,$yepuio5t7M,$xS1Iq9akV8,$tE8MNK91a7,$rEHOaqhRFY)=$Il3DMO869L->TPGRQ3NW9([[(from=>0)],qw(from_time to_time caller_id call_type called_id duration)]);unless(length("$yepuio5t7M$tE8MNK91a7$NghHpVoDbL$nWNYoVM8rK$xS1Iq9akV8$rEHOaqhRFY")){my $HlOUKoWHkw=$Il3DMO869L->D72RNGHCf("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x55\x49");$NghHpVoDbL=$Il3DMO869L->YVjlbie8N(time-86400*$HlOUKoWHkw,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$nWNYoVM8rK=$Il3DMO869L->YVjlbie8N(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my $s4LqCkXMHr=$P1P0aUjnNt->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"};my @OH98jLXbQd=($s4LqCkXMHr);if($P1P0aUjnNt->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"}){push @OH98jLXbQd,@{$Il3DMO869L->uPxjwZJ9r($P1P0aUjnNt->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"})};}$Il3DMO869L->oPsmY7CAI($Il3DMO869L->A5qWonOHl()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$Il3DMO869L->A5qWonOHl()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});my $TAIPdH9UiT=$Il3DMO869L->JFpO4oE0D("\x63\x64\x72",$yepuio5t7M,$Il3DMO869L->uunULNgQw($NghHpVoDbL),$Il3DMO869L->uunULNgQw($nWNYoVM8rK),undef,undef,$xS1Iq9akV8,$tE8MNK91a7,$rEHOaqhRFY,undef,join("\x7c",@OH98jLXbQd));$Il3DMO869L->oPsmY7CAI();unless($TAIPdH9UiT){$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}else{if($TAIPdH9UiT=~ /xlsx$/){return $Il3DMO869L->yU9SeT8gN($TAIPdH9UiT,"\x61\x70\x70\x6c\x69\x63\x61\x74\x69\x6f\x6e\x2f\x78\x6c\x73\x78");}else{return $Il3DMO869L->yU9SeT8gN($TAIPdH9UiT,"\x74\x65\x78\x74\x2f\x63\x73\x76");}}}sub SVeJaxoCd{my($Il3DMO869L,$P1P0aUjnNt)=@_;my($Wuln98aQ7v,$NghHpVoDbL,$nWNYoVM8rK,$mLMajT85ih,$yepuio5t7M,$xS1Iq9akV8,$tE8MNK91a7,$rEHOaqhRFY,$rlGLs15WJg)=$Il3DMO869L->TPGRQ3NW9([[(from=>0)],qw(from_time to_time smart_time caller_id call_type called_id duration cnam)]);my $s4LqCkXMHr=$P1P0aUjnNt->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"};$Il3DMO869L->oPsmY7CAI($Il3DMO869L->A5qWonOHl()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$Il3DMO869L->A5qWonOHl()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});unless(length("$yepuio5t7M$tE8MNK91a7$NghHpVoDbL$nWNYoVM8rK$xS1Iq9akV8$rEHOaqhRFY$rlGLs15WJg")){my $HlOUKoWHkw=$Il3DMO869L->D72RNGHCf("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x55\x49");$NghHpVoDbL=$Il3DMO869L->YVjlbie8N(time-86400*$HlOUKoWHkw,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$nWNYoVM8rK=$Il3DMO869L->YVjlbie8N(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my @OH98jLXbQd=($s4LqCkXMHr);if($P1P0aUjnNt->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"}){push @OH98jLXbQd,@{$Il3DMO869L->uPxjwZJ9r($P1P0aUjnNt->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"})};}my $QAX5EMZSyH=$Il3DMO869L->RhX3QisG8(undef,$yepuio5t7M,$Wuln98aQ7v,"\x63\x64\x72",$Il3DMO869L->uunULNgQw($NghHpVoDbL),$Il3DMO869L->uunULNgQw($nWNYoVM8rK),undef,undef,$xS1Iq9akV8,$tE8MNK91a7,$rEHOaqhRFY,undef,undef,join("\x7c",@OH98jLXbQd),$rlGLs15WJg);if($QAX5EMZSyH){my $RKO3UYLuvw=$Il3DMO869L->A5qWonOHl()->{"\x48\x49\x44\x45\x5f\x4e\x55\x4d\x42\x45\x52\x53"};my $VDHGg16QRy=$Wuln98aQ7v+1;foreach my $xSiPlvj7Lp(@{$QAX5EMZSyH}){$xSiPlvj7Lp->{"\x43\x44\x52\x5f\x4e\x55\x4d"}=$VDHGg16QRy++;$xSiPlvj7Lp->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$Il3DMO869L->YVjlbie8N($xSiPlvj7Lp->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});if($RKO3UYLuvw){$Il3DMO869L->b5PTcOFyA(\$xSiPlvj7Lp->{"\x43\x41\x4c\x4c\x45\x52\x5f\x49\x44"},$RKO3UYLuvw);$Il3DMO869L->b5PTcOFyA(\$xSiPlvj7Lp->{"\x43\x41\x4c\x4c\x45\x44\x5f\x49\x44"},$RKO3UYLuvw);$xSiPlvj7Lp->{"\x44\x41\x54\x41"}=~ s/(DID=|PN=|RN=)([^,]+)(\d{$RKO3UYLuvw})(,|$)/$1x$3$4/g;}if(not exists $xSiPlvj7Lp->{"\x56\x42\x5f\x49\x44"}and $xSiPlvj7Lp->{"\x44\x41\x54\x41"}=~ /FILE=(\d+):([^\s,]+)/){$xSiPlvj7Lp->{"\x56\x42\x5f\x49\x44"}=$1;$xSiPlvj7Lp->{"\x46\x49\x4c\x45\x5f\x4e\x41\x4d\x45"}=$2;}}}$Il3DMO869L->oPsmY7CAI();my $yvckMldm1u=$Il3DMO869L->A6hAxebBq();my $YqOYthVsXp;foreach my $EIsC1BEbAz(keys %$yvckMldm1u){if($yvckMldm1u->{$EIsC1BEbAz}->{"\x45\x58\x54\x45\x4e\x53\x49\x4f\x4e"}eq "\x63\x72\x6d\x2d\x63\x32\x63\x2d\x67\x77"){$YqOYthVsXp="ph=$s4LqCkXMHr&key=$EIsC1BEbAz&ac=".$Il3DMO869L->A5qWonOHl()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"};last;}}return gWgYqTt7X($Il3DMO869L,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x63\x64\x72\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74",{CDR_LIST=>$QAX5EMZSyH,CDR_CALLER_ID=>$yepuio5t7M,CDR_CALLED_ID=>$tE8MNK91a7,CDR_DURATION=>$rEHOaqhRFY,FROM_TIME=>$NghHpVoDbL,TO_TIME=>$nWNYoVM8rK,SMART_TIME=>$mLMajT85ih,CDR_CNAM=>$rlGLs15WJg,CDR_CALL_TYPE=>$xS1Iq9akV8,C2C=>$YqOYthVsXp,PHONE=>$s4LqCkXMHr,$Il3DMO869L->gR0nmpSuH(0,$QAX5EMZSyH,$Wuln98aQ7v)});}sub pwdWB8lEV{my($Il3DMO869L,$P1P0aUjnNt)=@_;my($Wuln98aQ7v,$yepuio5t7M,$tE8MNK91a7,$Kve9Gr0OmE,$xS1Iq9akV8,$LkmOZgeS09,$YqOYthVsXp,$rEHOaqhRFY)=$Il3DMO869L->TPGRQ3NW9([[(from=>0)],qw(caller_id called_id ac call_type refresh c2c duration)]);my $lq7Qh9JiIB;if($Il3DMO869L->A5qWonOHl()->{"\x41\x4c\x4c\x4f\x57\x5f\x43\x54\x52"}){$lq7Qh9JiIB=$Il3DMO869L->TNa0z9VFk($yepuio5t7M,$tE8MNK91a7,$Il3DMO869L->A5qWonOHl()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"},$xS1Iq9akV8,$rEHOaqhRFY,undef,undef,undef,$Wuln98aQ7v);}else{$LkmOZgeS09="\x38\x36\x34\x30\x30";}unless(ref $lq7Qh9JiIB eq "\x41\x52\x52\x41\x59"){$lq7Qh9JiIB=[];}my $ymZrpEYoXy=[];if(scalar @$lq7Qh9JiIB){$Il3DMO869L->oPsmY7CAI($Il3DMO869L->A5qWonOHl()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$Il3DMO869L->A5qWonOHl()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});my $RKO3UYLuvw=$Il3DMO869L->A5qWonOHl()->{"\x48\x49\x44\x45\x5f\x4e\x55\x4d\x42\x45\x52\x53"};foreach my $xSiPlvj7Lp(@{$lq7Qh9JiIB}){$xSiPlvj7Lp->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$Il3DMO869L->YVjlbie8N($xSiPlvj7Lp->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});$xSiPlvj7Lp->{"\x43\x44\x52\x5f\x44\x55\x52\x41\x54\x49\x4f\x4e"}=time-$xSiPlvj7Lp->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"};if($xSiPlvj7Lp->{"\x43\x41\x4c\x4c\x5f\x54\x59\x50\x45"}ne "\x74\x72\x61\x6e\x73\x69\x74" and $xSiPlvj7Lp->{"\x43\x41\x4c\x4c\x5f\x54\x59\x50\x45"}ne "\x69\x6e\x74\x65\x72\x6e\x61\x6c" and $xSiPlvj7Lp->{"\x43\x41\x4c\x4c\x5f\x54\x59\x50\x45"}ne "\x73\x65\x72\x76\x69\x63\x65"){my($t9AR8TYKaZ,$kp4DIMqAvG,$hXlB4uN2Pn)=split(/:/,$Il3DMO869L->mw3raOQby("\x73\x68\x2d\x63\x2d\x74\x72\x61\x63\x6b\x2d\x63\x75\x72\x2d\x65\x78\x74\x2d".$xSiPlvj7Lp->{"\x43\x41\x4c\x4c\x5f\x49\x44"}));$xSiPlvj7Lp->{"\x45\x58\x54\x5f\x54\x53"}=time-$t9AR8TYKaZ;$xSiPlvj7Lp->{"\x45\x58\x54\x5f\x49\x44"}=$kp4DIMqAvG;$xSiPlvj7Lp->{"\x41\x4e\x53\x57\x45\x52\x45\x44"}=$hXlB4uN2Pn;}foreach my $s8foUx7Wia(@{$Il3DMO869L->uPxjwZJ9r($P1P0aUjnNt->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"})},$P1P0aUjnNt->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"}){next unless length $s8foUx7Wia;if($xSiPlvj7Lp->{"\x43\x41\x4c\x4c\x45\x52\x5f\x49\x44"}eq $s8foUx7Wia or $xSiPlvj7Lp->{"\x43\x41\x4c\x4c\x45\x44\x5f\x49\x44"}eq $s8foUx7Wia or $xSiPlvj7Lp->{"\x41\x4e\x53\x57\x45\x52\x45\x44"}eq $s8foUx7Wia){push @$ymZrpEYoXy,$xSiPlvj7Lp;last;}elsif(index($s8foUx7Wia,"\x2a")==0 and length($s8foUx7Wia)>1){if("\x2a".$xSiPlvj7Lp->{"\x45\x58\x54\x5f\x49\x44"}eq $s8foUx7Wia){push @$ymZrpEYoXy,$xSiPlvj7Lp;last;}}}if($RKO3UYLuvw){$Il3DMO869L->b5PTcOFyA(\$xSiPlvj7Lp->{"\x43\x41\x4c\x4c\x45\x52\x5f\x49\x44"},$RKO3UYLuvw);$Il3DMO869L->b5PTcOFyA(\$xSiPlvj7Lp->{"\x43\x41\x4c\x4c\x45\x44\x5f\x49\x44"},$RKO3UYLuvw);}}$Il3DMO869L->oPsmY7CAI();}if($LkmOZgeS09 and $LkmOZgeS09<$Il3DMO869L->D72RNGHCf("\x54\x49\x4d\x45\x4f\x55\x54\x5f\x4f\x4e\x4c\x49\x4e\x45\x5f\x43\x41\x4c\x4c\x53\x5f\x52\x45\x46\x52\x45\x53\x48")){$LkmOZgeS09=$Il3DMO869L->D72RNGHCf("\x54\x49\x4d\x45\x4f\x55\x54\x5f\x4f\x4e\x4c\x49\x4e\x45\x5f\x43\x41\x4c\x4c\x53\x5f\x52\x45\x46\x52\x45\x53\x48");}unless($LkmOZgeS09){my $yvckMldm1u=$Il3DMO869L->A6hAxebBq();foreach my $EIsC1BEbAz(keys %$yvckMldm1u){if($yvckMldm1u->{$EIsC1BEbAz}->{"\x45\x58\x54\x45\x4e\x53\x49\x4f\x4e"}eq "\x78\x76\x62\x73\x70\x79"){if($Il3DMO869L->iJc9zHGEI()->{"\x78\x76\x62\x73\x70\x79"}->{"\x50\x48\x4f\x4e\x45\x5f\x4e\x55\x4d\x42\x45\x52"}eq "\x58\x56\x42\x53\x50\x59"){$YqOYthVsXp=$EIsC1BEbAz."\x26\x70\x68\x3d".$P1P0aUjnNt->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"};}last;}}}return gWgYqTt7X($Il3DMO869L,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74",{CALLS_COUNT=>scalar(@$ymZrpEYoXy),CALLS_LIST=>$ymZrpEYoXy,CDR_CALLER_ID=>$yepuio5t7M,CDR_CALLED_ID=>$tE8MNK91a7,CDR_CALL_TYPE=>$xS1Iq9akV8,CDR_REFRESH_TIME=>$LkmOZgeS09,CDR_C2C=>$YqOYthVsXp,CDR_DURATION=>$rEHOaqhRFY,$Il3DMO869L->gR0nmpSuH(1,$ymZrpEYoXy,$Wuln98aQ7v)});}sub LLXKf5CBi{my($Il3DMO869L,$I01DsmX8Ph)=@_;if(my $S5cTAnsdD9=$Il3DMO869L->TPGRQ3NW9("\x6c\x61\x6e\x67")){$Il3DMO869L->A5qWonOHl()->{"\x4c\x41\x4e\x47\x5f\x4e\x41\x4d\x45"}=$S5cTAnsdD9;}return gWgYqTt7X($Il3DMO869L,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x6c\x6f\x67\x69\x6e\x2e\x74\x74",$I01DsmX8Ph);}sub kW5g4DrZ0{my($Il3DMO869L,$Kve9Gr0OmE,$T9o7kw3Bfu)=@_;$Il3DMO869L->ukgEY7pGJ(["\x50\x68\x6f\x6e\x65\x20\x55\x49\x20\x6c\x6f\x67\x69\x6e\x20\x65\x72\x72\x6f\x72\x3a\x20\x68\x6f\x73\x74\x3d\x25\x73\x2c\x20\x61\x63\x3d\x25\x73\x2c\x20\x74\x3d\x25\x74\x69\x6d\x65\x25\x2c\x20\x72\x3d\x25\x73",$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"},$Kve9Gr0OmE,$T9o7kw3Bfu]);}sub gWgYqTt7X{my($Il3DMO869L,$hJtjmbkTdZ,$I01DsmX8Ph,$D3mNf8TjCp)=@_;$I01DsmX8Ph->{"\x43\x47\x49\x5f\x55\x52\x4c"}=$Il3DMO869L->D72RNGHCf("\x43\x47\x49\x5f\x55\x52\x4c");$I01DsmX8Ph->{"\x43\x47\x49\x5f\x53\x45\x52\x56\x45\x52"}=$Il3DMO869L->D72RNGHCf("\x43\x47\x49\x5f\x53\x45\x52\x56\x45\x52");$I01DsmX8Ph->{"\x55\x4e\x49\x58\x54\x49\x4d\x45"}=time;my $QJbhcQAwZa='';my $MnuRheJ2SZ='';unless($QJbhcQAwZa){my $wSH5mwyYoD;my $SSRQH1PNOB=$Il3DMO869L->D72RNGHCf("\x50\x41\x54\x48\x5f\x54\x45\x4d\x50\x4c\x41\x54\x45\x5f\x44\x49\x52");my $S5cTAnsdD9=$Il3DMO869L->A5qWonOHl()->{"\x4c\x41\x4e\x47\x5f\x4e\x41\x4d\x45"}||$Il3DMO869L->D72RNGHCf("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x44\x45\x46\x41\x55\x4c\x54\x5f\x4c\x41\x4e\x47")||"\x64\x65\x66\x61\x75\x6c\x74";my $r1MPxwGyIH=$Il3DMO869L->A5qWonOHl()->{"\x53\x55\x42\x5f\x54\x45\x4d\x50\x4c\x41\x54\x45\x5f\x44\x49\x52"};if(length $r1MPxwGyIH){$r1MPxwGyIH=~ s#[^\d\w_.-]##gs;}if(length($r1MPxwGyIH)and-e "$SSRQH1PNOB/$r1MPxwGyIH/$S5cTAnsdD9/$hJtjmbkTdZ"){$wSH5mwyYoD="$SSRQH1PNOB/$r1MPxwGyIH/$S5cTAnsdD9/$hJtjmbkTdZ";}elsif(-e "$SSRQH1PNOB/$S5cTAnsdD9/$hJtjmbkTdZ"){$wSH5mwyYoD="$SSRQH1PNOB/$S5cTAnsdD9/$hJtjmbkTdZ";}else{$wSH5mwyYoD="$SSRQH1PNOB/$hJtjmbkTdZ";}my $Tv7qepMOWu=$Il3DMO869L->{"\x5f\x54\x4d\x50\x4c"};my $t81utD6ImH=$Il3DMO869L->mw3raOQby("files-$wSH5mwyYoD");unless($t81utD6ImH){$t81utD6ImH=$Tv7qepMOWu->load_src('',$wSH5mwyYoD);$Il3DMO869L->mw3raOQby("files-$wSH5mwyYoD",$t81utD6ImH,$Il3DMO869L->D72RNGHCf("\x54\x49\x4d\x45\x4f\x55\x54\x5f\x4d\x45\x4d\x5f\x43\x41\x43\x48\x45\x44"));}$I01DsmX8Ph->{"\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}=$Il3DMO869L->A5qWonOHl();$Tv7qepMOWu->process(\$t81utD6ImH,$I01DsmX8Ph,\$MnuRheJ2SZ);}unless($QJbhcQAwZa){$Il3DMO869L->FaL2x63rt(200,"\x4f\x6b",$D3mNf8TjCp,$MnuRheJ2SZ.$Il3DMO869L->tlX38iAs7("\x67\x36\x31\x33","\x43"));}elsif($QJbhcQAwZa eq "\x78\x6d\x6c"){$MnuRheJ2SZ=XML::Simple::XMLout($I01DsmX8Ph);$Il3DMO869L->wPuGjqW10(200,"\x4f\x6b",undef,$MnuRheJ2SZ);}elsif($QJbhcQAwZa eq "\x6a\x73\x6f\x6e"){my $c8p9YBF6H7=JSON::XS->new();$Il3DMO869L->FaL2x63rt(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",$c8p9YBF6H7->encode($I01DsmX8Ph));}}