#!/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($uhtzc2W49L);aF4emfrMx();sub new{my($FN2RsYGdVj,$EnCi2Rx4ZP)=@_;unless($uhtzc2W49L){$uhtzc2W49L=bless{_TMPL=>Template::EasyTT->new({}),_CONF=>{},},$FN2RsYGdVj;$uhtzc2W49L->rghfcjP9X($EnCi2Rx4ZP);$uhtzc2W49L->tuFfYgJsx();$uhtzc2W49L->{"\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;$uhtzc2W49L->X9jp7ysTt(1);chdir($uhtzc2W49L->lABnuqcDl("\x50\x41\x54\x48\x5f\x57\x4f\x52\x4b\x5f\x44\x49\x52"));$uhtzc2W49L->gUr1B02VE();$uhtzc2W49L->{"\x5f\x54\x4d\x50\x4c"}->filters_add("\x6c\x6f\x63\x61\x6c\x65\x5f\x6d\x73\x67",sub{my $gl2uEq7FLb=$uhtzc2W49L->wCVvsla9Y($_[1],$uhtzc2W49L->tgdiX50VQ()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});$gl2uEq7FLb=~ s#&#&amp;#gs;$gl2uEq7FLb=~ s#\x22#&quot;#gs;$gl2uEq7FLb=~ s#<#&lt;#gs;$gl2uEq7FLb=~ s#>#&gt;#gs;$gl2uEq7FLb=~ s#\x27#&apos;#gs;return $gl2uEq7FLb;});}$uhtzc2W49L->{"\x5f\x43\x44\x52"}={};$uhtzc2W49L->{"\x5f\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}={};$uhtzc2W49L->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}={};$uhtzc2W49L->{"\x5f\x53\x45\x53\x53\x49\x4f\x4e"}={};$uhtzc2W49L->{"\x5f\x43\x47\x49"}=CGI->new();return $uhtzc2W49L;}sub aF4emfrMx{my $n9d8vgro0z=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($uqscUd3eQv,$yWNfxsejOG,$rJMeISEWh7)=$n9d8vgro0z->S8UXdfLCO([qw(login pswd action)]);if(! length($uqscUd3eQv)){$uqscUd3eQv=$n9d8vgro0z->{"\x5f\x43\x47\x49"}->cookie("\x6c\x6f\x67\x69\x6e");$yWNfxsejOG=$n9d8vgro0z->{"\x5f\x43\x47\x49"}->cookie("\x70\x73\x77\x64");}unless($uqscUd3eQv){return ilFoG9Esb($n9d8vgro0z,{});}my($Ea8E9btsqr,$Xx8rLvqmlO)=split(/\@/,$uqscUd3eQv);my $gD9QmNV457;if($n9d8vgro0z->lABnuqcDl("\x44\x42\x5f\x43\x41\x43\x48\x45\x5f\x57\x45\x42\x5f\x41\x55\x54\x48")){$gD9QmNV457=$n9d8vgro0z->llKCBm5TS("short-user-$Xx8rLvqmlO");unless(ref($gD9QmNV457)){zQORdf9SW($n9d8vgro0z,$Xx8rLvqmlO,"\x70\x73\x77\x64\x20\x6d\x69\x73\x6d\x61\x74\x63\x68")if $n9d8vgro0z->fLYsvgjUl(1);return ilFoG9Esb($n9d8vgro0z,{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(! $gD9QmNV457->{"\x53\x54\x41\x54\x55\x53"}and ! $n9d8vgro0z->lABnuqcDl("\x43\x47\x49\x5f\x49\x47\x4e\x4f\x52\x45\x5f\x4c\x4f\x43\x4b")){zQORdf9SW($n9d8vgro0z,$Xx8rLvqmlO,"\x6c\x6f\x63\x6b\x65\x64")if $n9d8vgro0z->fLYsvgjUl(1);return ilFoG9Esb($n9d8vgro0z,{ERROR_STR=>"\x59\x6f\x75\x72\x20\x61\x63\x63\x6f\x75\x6e\x74\x20\x69\x73\x20\x6c\x6f\x63\x6b\x65\x64"});}}$gD9QmNV457=$n9d8vgro0z->KZ7Rn81r9(undef,$Xx8rLvqmlO);unless($gD9QmNV457==1){zQORdf9SW($n9d8vgro0z,$Xx8rLvqmlO,"\x70\x73\x77\x64\x20\x6d\x69\x73\x6d\x61\x74\x63\x68")if $n9d8vgro0z->fLYsvgjUl(1);return ilFoG9Esb($n9d8vgro0z,{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 $DHbh4omXJS=$n9d8vgro0z->tdIHsUk9v();if(ref $DHbh4omXJS ne "\x48\x41\x53\x48"){return ilFoG9Esb($n9d8vgro0z,{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($DHbh4omXJS->{$Ea8E9btsqr})or length($DHbh4omXJS->{$Ea8E9btsqr}->{"\x57\x45\x42\x5f\x53\x45\x43\x52\x45\x54"})==0 or $DHbh4omXJS->{$Ea8E9btsqr}->{"\x57\x45\x42\x5f\x53\x45\x43\x52\x45\x54"}ne $yWNfxsejOG){zQORdf9SW($n9d8vgro0z,$Xx8rLvqmlO,"\x70\x73\x77\x64\x20\x6d\x69\x73\x6d\x61\x74\x63\x68")if $n9d8vgro0z->fLYsvgjUl(1);return ilFoG9Esb($n9d8vgro0z,{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($DHbh4omXJS->{$Ea8E9btsqr}->{"\x50\x45\x52\x4d\x49\x54\x5f\x57\x45\x42"})and ! $n9d8vgro0z->{"\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"}){$n9d8vgro0z->{"\x5f\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}->{"\x50\x45\x52\x4d\x49\x54\x5f\x57\x45\x42"}=$DHbh4omXJS->{$Ea8E9btsqr}->{"\x50\x45\x52\x4d\x49\x54\x5f\x57\x45\x42"};}if(length($n9d8vgro0z->tgdiX50VQ()->{"\x50\x45\x52\x4d\x49\x54\x5f\x57\x45\x42"})){unless($n9d8vgro0z->YKZeAiXBE($n9d8vgro0z->tgdiX50VQ()->{"\x50\x45\x52\x4d\x49\x54\x5f\x57\x45\x42"},$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"})){return $n9d8vgro0z->kdcaxuohI(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($DHbh4omXJS->{$Ea8E9btsqr}->{"\x4c\x41\x4e\x47\x5f\x49\x44"}){$n9d8vgro0z->{"\x5f\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}->{"\x4c\x41\x4e\x47\x5f\x4e\x41\x4d\x45"}=$DHbh4omXJS->{$Ea8E9btsqr}->{"\x4c\x41\x4e\x47\x5f\x4e\x41\x4d\x45"};$n9d8vgro0z->{"\x5f\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"}=$DHbh4omXJS->{$Ea8E9btsqr}->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"};}if(my $fj1Vw8cpyT=$n9d8vgro0z->lABnuqcDl("\x43\x47\x49\x5f\x45\x49\x5f\x57\x45\x42\x52\x54\x43\x5f\x50\x52\x45\x46")){if($yWNfxsejOG=~ /^\Q$fj1Vw8cpyT\E/i){$rJMeISEWh7="\x70\x70\x5f\x77\x65\x62\x5f\x70\x68\x6f\x6e\x65\x5f\x6f\x6e\x6c\x79";}}if($rJMeISEWh7 eq "\x70\x70\x5f\x6d\x65\x6e\x75"){my $rfNIv7JO4y=$n9d8vgro0z->lABnuqcDl("\x57\x45\x42\x52\x54\x43\x5f\x57\x53");if($rfNIv7JO4y){$rfNIv7JO4y=0 if $n9d8vgro0z->S8UXdfLCO("\x73\x6b\x69\x70\x5f\x77\x65\x62\x5f\x70\x68\x6f\x6e\x65");}return W9HmJ8Ng5($n9d8vgro0z,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x6d\x65\x6e\x75\x2e\x74\x74",{PHONE=>$DHbh4omXJS->{$Ea8E9btsqr},WEBRTC=>$rfNIv7JO4y});}elsif($rJMeISEWh7 eq "\x70\x70\x5f\x73\x74\x61\x72\x74"){my $pWzI9FVOPf=$n9d8vgro0z->{"\x5f\x43\x47\x49"}->cookie(-name=>"\x6c\x6f\x67\x69\x6e",-value=>$uqscUd3eQv,-path=>"\x2f\x70\x68\x6f\x6e\x65");my $YWGHsOX93Z=$n9d8vgro0z->{"\x5f\x43\x47\x49"}->cookie(-name=>"\x70\x73\x77\x64",-value=>$yWNfxsejOG,-path=>"\x2f\x70\x68\x6f\x6e\x65");return W9HmJ8Ng5($n9d8vgro0z,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x73\x74\x61\x72\x74\x2e\x74\x74",{WITH_PHONE=>$n9d8vgro0z->S8UXdfLCO("\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: $pWzI9FVOPf","Set-Cookie: $YWGHsOX93Z"]);}elsif($rJMeISEWh7 eq "\x70\x70\x5f\x6d\x73\x67\x5f\x6c\x69\x73\x74"){Ar9t8y0gv($n9d8vgro0z,$DHbh4omXJS->{$Ea8E9btsqr});}elsif($rJMeISEWh7 eq "\x70\x70\x5f\x63\x64\x72\x5f\x6c\x69\x73\x74"){my($C3acRbABJL,$TV3mzM0H9S)=$n9d8vgro0z->S8UXdfLCO([qw(need_excel need_chart)]);if($C3acRbABJL && ! $n9d8vgro0z->tgdiX50VQ()->{"\x48\x49\x44\x45\x5f\x4e\x55\x4d\x42\x45\x52\x53"}){mxOaIj86t($n9d8vgro0z,$DHbh4omXJS->{$Ea8E9btsqr});}elsif($TV3mzM0H9S){pEtLsqb2Q($n9d8vgro0z,$DHbh4omXJS->{$Ea8E9btsqr});}else{zk7RTY1Q6($n9d8vgro0z,$DHbh4omXJS->{$Ea8E9btsqr});}}elsif($rJMeISEWh7 eq "\x70\x70\x5f\x70\x69\x6e\x66\x6f"){my $XK298Zm6D4=time;$n9d8vgro0z->UKEpOZPDc($n9d8vgro0z->tgdiX50VQ()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$n9d8vgro0z->tgdiX50VQ()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});if($XK298Zm6D4<$DHbh4omXJS->{$Ea8E9btsqr}->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}){$DHbh4omXJS->{$Ea8E9btsqr}->{"\x52\x45\x47\x5f\x53\x54\x41\x54\x55\x53"}="\x52\x65\x67\x69\x73\x74\x65\x72\x65\x64";}else{$DHbh4omXJS->{$Ea8E9btsqr}->{"\x52\x45\x47\x5f\x53\x54\x41\x54\x55\x53"}="\x55\x6e\x72\x65\x67\x69\x73\x74\x65\x72\x65\x64";}$DHbh4omXJS->{$Ea8E9btsqr}->{"\x52\x45\x47\x5f\x45\x58\x50\x49\x52\x45\x44"}=$DHbh4omXJS->{$Ea8E9btsqr}->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}? $n9d8vgro0z->iSgUBy3n0($DHbh4omXJS->{$Ea8E9btsqr}->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}):"\x2d";$DHbh4omXJS->{$Ea8E9btsqr}->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}=$DHbh4omXJS->{$Ea8E9btsqr}->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}? $n9d8vgro0z->iSgUBy3n0($DHbh4omXJS->{$Ea8E9btsqr}->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}):"\x2d";$DHbh4omXJS->{$Ea8E9btsqr}->{"\x52\x41\x57\x44\x4e\x44"}=$DHbh4omXJS->{$Ea8E9btsqr}->{"\x44\x4e\x44"};$DHbh4omXJS->{$Ea8E9btsqr}->{"\x44\x4e\x44"}=$DHbh4omXJS->{$Ea8E9btsqr}->{"\x44\x4e\x44"}? $n9d8vgro0z->iSgUBy3n0($DHbh4omXJS->{$Ea8E9btsqr}->{"\x44\x4e\x44"}):'';$n9d8vgro0z->UKEpOZPDc();return W9HmJ8Ng5($n9d8vgro0z,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x70\x69\x6e\x66\x6f\x2e\x74\x74",{PHONE=>$DHbh4omXJS->{$Ea8E9btsqr},LANG=>$n9d8vgro0z->b1khzlR9q("\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($rJMeISEWh7 eq "\x70\x70\x5f\x70\x75\x70\x64\x61\x74\x65"){$n9d8vgro0z->Q4ALs9KtN();$n9d8vgro0z->Q4ALs9KtN({CALLED_ID=>"\x77\x65\x62",CALLER_ID=>$ENV{REMOTE_ADDR},CALL_TYPE=>"\x77\x65\x62"});my $scdzUAI8YN=$n9d8vgro0z->S8UXdfLCO("\x44\x4e\x44");unless($scdzUAI8YN){$scdzUAI8YN=0;}else{if($n9d8vgro0z->S8UXdfLCO("\x52\x41\x57\x44\x4e\x44")){$scdzUAI8YN=$n9d8vgro0z->S8UXdfLCO("\x52\x41\x57\x44\x4e\x44");}else{$scdzUAI8YN=time;}}my $EJomIzyXci=$n9d8vgro0z->S8UXdfLCO("\x46\x57\x44\x5f\x41\x46\x54\x45\x52");my $N67gIGN8KM=$n9d8vgro0z->S8UXdfLCO("\x4c\x41\x4e\x47\x5f\x49\x44");if($n9d8vgro0z->Gj89eG5PB($DHbh4omXJS->{$Ea8E9btsqr}->{"\x44\x41\x54\x41\x5f\x49\x44"},$DHbh4omXJS->{$Ea8E9btsqr}->{"\x73\x65\x63\x72\x65\x74"},$DHbh4omXJS->{$Ea8E9btsqr}->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"},$DHbh4omXJS->{$Ea8E9btsqr}->{"\x44\x45\x53\x43\x52\x49\x50\x54\x49\x4f\x4e"},$DHbh4omXJS->{$Ea8E9btsqr}->{"\x52\x45\x43\x5f\x4d\x4f\x44\x45"},$DHbh4omXJS->{$Ea8E9btsqr}->{"\x52\x45\x43\x5f\x45\x58\x54"},$DHbh4omXJS->{$Ea8E9btsqr}->{"\x50\x49\x43\x4b\x55\x50\x5f\x47\x52\x4f\x55\x50\x53"},$DHbh4omXJS->{$Ea8E9btsqr}->{"\x6e\x61\x6d\x65"},$DHbh4omXJS->{$Ea8E9btsqr}->{"\x44\x45\x46\x43\x49\x44"},$DHbh4omXJS->{$Ea8E9btsqr}->{"\x74\x72\x75\x73\x74\x65\x64\x5f\x69\x70"},$DHbh4omXJS->{$Ea8E9btsqr}->{"\x45\x4d\x41\x49\x4c"},$DHbh4omXJS->{$Ea8E9btsqr}->{"\x43\x4f\x4c"},$DHbh4omXJS->{$Ea8E9btsqr}->{"\x46\x57\x44\x5f\x4e\x55\x4d"},$EJomIzyXci,$DHbh4omXJS->{$Ea8E9btsqr}->{"\x57\x45\x42\x5f\x53\x45\x43\x52\x45\x54"},$DHbh4omXJS->{$Ea8E9btsqr}->{"\x48\x4f\x54\x44\x45\x53\x4b\x5f\x50\x49\x4e"},$DHbh4omXJS->{$Ea8E9btsqr}->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"},$DHbh4omXJS->{$Ea8E9btsqr}->{"\x4c\x44\x5f\x54\x54\x4c"},$N67gIGN8KM,$DHbh4omXJS->{$Ea8E9btsqr}->{"\x50\x45\x52\x4d\x49\x54\x5f\x57\x45\x42"},$DHbh4omXJS->{$Ea8E9btsqr}->{"\x43\x55\x53\x54\x4f\x4d\x5f\x56\x41\x52\x53"},$scdzUAI8YN)){return $n9d8vgro0z->kdcaxuohI();}else{return $n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x70\x70\x5f\x70\x62\x6f\x6f\x6b\x5f\x6c\x69\x73\x74"){my $ssC5vND2et=$n9d8vgro0z->ItLwAf8N9()||return undef;my $hH5CYpBRIu=$n9d8vgro0z->ItLwAf8N9($DHbh4omXJS->{$Ea8E9btsqr}->{"\x44\x41\x54\x41\x5f\x49\x44"})||return undef;my $xNClTnx9Or=$n9d8vgro0z->S8UXdfLCO("\x66\x6f\x72\x6d\x61\x74");if($xNClTnx9Or eq "\x65\x78\x63\x65\x6c"){my $dvE5F3XxMr=[];foreach my $Qw32lhfg5A(@{$hH5CYpBRIu}){push @$dvE5F3XxMr,$Qw32lhfg5A;}foreach my $Qw32lhfg5A(@{$ssC5vND2et}){push @$dvE5F3XxMr,$Qw32lhfg5A;}my $wde4xcrJzW=$n9d8vgro0z->SSqRK9jFr("\x70\x62\x6f\x6f\x6b",[$dvE5F3XxMr,[qw(PHONE FIRST_NAME LAST_NAME SHORTCUT DESCRIPTION RESPONSIBLE)]]);unless($wde4xcrJzW){return $n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}else{if($wde4xcrJzW=~ /xlsx$/){return $n9d8vgro0z->sGyCQMBNt($wde4xcrJzW,"\x61\x70\x70\x6c\x69\x63\x61\x74\x69\x6f\x6e\x2f\x78\x6c\x73\x78");}else{return $n9d8vgro0z->sGyCQMBNt($wde4xcrJzW,"\x74\x65\x78\x74\x2f\x63\x73\x76");}}}my $Yc1r9KCS75=$n9d8vgro0z->jfqX4IyYJ();my $ZvKRlhX8jE;foreach my $TpVOQPSF9b(keys %$Yc1r9KCS75){if($Yc1r9KCS75->{$TpVOQPSF9b}->{"\x45\x58\x54\x45\x4e\x53\x49\x4f\x4e"}eq "\x63\x72\x6d\x2d\x63\x32\x63\x2d\x67\x77"){$ZvKRlhX8jE="ph=$Ea8E9btsqr&key=$TpVOQPSF9b&ac=".$n9d8vgro0z->tgdiX50VQ()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"};last;}}return W9HmJ8Ng5($n9d8vgro0z,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x70\x62\x6f\x6f\x6b\x2e\x74\x74",{PBOOK_LIST_S=>$ssC5vND2et,PBOOK_LIST_P=>$hH5CYpBRIu,C2C=>$ZvKRlhX8jE,PHONE=>$Ea8E9btsqr,});}elsif($rJMeISEWh7 eq "\x70\x70\x5f\x70\x62\x6f\x6f\x6b\x5f\x64\x65\x6c"){my $nWLc3vBYmd=$n9d8vgro0z->S8UXdfLCO("\x64\x61\x74\x61\x5f\x69\x64");if($n9d8vgro0z->bhGERw6As($nWLc3vBYmd,($nWLc3vBYmd eq "\x61\x6c\x6c" ? 1:undef),undef,$DHbh4omXJS->{$Ea8E9btsqr}->{"\x44\x41\x54\x41\x5f\x49\x44"},$Ea8E9btsqr)){return $n9d8vgro0z->kdcaxuohI();}else{return $n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x70\x70\x5f\x70\x62\x6f\x6f\x6b\x5f\x61\x64\x64"){unless($n9d8vgro0z->WozCW19F2($n9d8vgro0z->lABnuqcDl("\x54\x41\x42\x4c\x45\x53\x5f\x50\x48\x4f\x4e\x45\x5f\x42\x4f\x4f\x4b"),$n9d8vgro0z->tgdiX50VQ()->{"\x4d\x41\x58\x5f\x50\x42\x4f\x4f\x4b\x5f\x49\x54\x45\x4d\x53"},{SUBSCR_ID=>$n9d8vgro0z->tgdiX50VQ()->{"\x49\x44"},PHONE_OWNER=>$DHbh4omXJS->{$Ea8E9btsqr}->{"\x44\x41\x54\x41\x5f\x49\x44"}})){return $n9d8vgro0z->kdcaxuohI(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 $nWLc3vBYmd=$n9d8vgro0z->XuUpvohtM($n9d8vgro0z->S8UXdfLCO([qw(shortcut ph fn ln description)]),undef,undef,$DHbh4omXJS->{$Ea8E9btsqr}->{"\x44\x41\x54\x41\x5f\x49\x44"},$Ea8E9btsqr))){return $n9d8vgro0z->kdcaxuohI(undef,undef,$nWLc3vBYmd,"\x23\x61\x64\x64\x61\x72\x65\x61");}else{return $n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x70\x70\x5f\x70\x62\x6f\x6f\x6b\x5f\x75\x70\x64\x61\x74\x65"){if($n9d8vgro0z->SKSyF4pWD($n9d8vgro0z->S8UXdfLCO([qw(data_id shortcut ph fn ln description)]),undef,$DHbh4omXJS->{$Ea8E9btsqr}->{"\x44\x41\x54\x41\x5f\x49\x44"},$Ea8E9btsqr)){return $n9d8vgro0z->kdcaxuohI();}else{return $n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x70\x70\x5f\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74"){fyFi9zRvM($n9d8vgro0z,$DHbh4omXJS->{$Ea8E9btsqr});}elsif($rJMeISEWh7=~ /^pp_web_phone/){my $U8abKmZLS7=$n9d8vgro0z->lABnuqcDl("\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($n9d8vgro0z->tgdiX50VQ()->{"\x50\x48\x4f\x4e\x45\x5f\x55\x49\x5f\x53\x4b\x49\x50\x5f\x50\x53\x57\x44"})){$U8abKmZLS7=$n9d8vgro0z->tgdiX50VQ()->{"\x50\x48\x4f\x4e\x45\x5f\x55\x49\x5f\x53\x4b\x49\x50\x5f\x50\x53\x57\x44"};}my $pvcPnKyHtW=$n9d8vgro0z->S8UXdfLCO("\x6e\x6f\x63\x6f\x6e\x74\x72\x6f\x6c");my $ESjIH5Pqui=0;if($rJMeISEWh7 eq "\x70\x70\x5f\x77\x65\x62\x5f\x70\x68\x6f\x6e\x65\x5f\x6f\x6e\x6c\x79"){$pvcPnKyHtW=$ESjIH5Pqui=1;}return W9HmJ8Ng5($n9d8vgro0z,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x77\x65\x62\x5f\x70\x68\x6f\x6e\x65\x2e\x74\x74",{PHONE=>$DHbh4omXJS->{$Ea8E9btsqr},WEBRTC=>{REALM=>$n9d8vgro0z->lABnuqcDl("\x57\x45\x42\x52\x54\x43\x5f\x52\x45\x41\x4c\x4d"),WS=>$n9d8vgro0z->lABnuqcDl("\x57\x45\x42\x52\x54\x43\x5f\x57\x53"),ICE=>$n9d8vgro0z->lABnuqcDl("\x57\x45\x42\x52\x54\x43\x5f\x49\x43\x45"),UI_SKIP_PSWD=>$U8abKmZLS7},NOCONTROL=>$pvcPnKyHtW,PHONE_ONLY=>$ESjIH5Pqui});}else{return ilFoG9Esb($n9d8vgro0z,{});}}sub Ar9t8y0gv{my($n9d8vgro0z,$NOWZ3zB89X)=@_;my($th823Rtle9,$paue6s4OCm,$yJAz5yBsn1,$fIsz8HZi0B,$Ps8zyZilm6,$TQWDTi8bXp,$eY8jZIeSPl,$uqscUd3eQv,$yWNfxsejOG)=$n9d8vgro0z->S8UXdfLCO([[(from=>0)],qw(from_time to_time smart_time caller_id called_id duration login pswd)]);my @dUVOyvwgHG=($NOWZ3zB89X->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"});if($NOWZ3zB89X->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"}){push @dUVOyvwgHG,@{$n9d8vgro0z->E9iAryz0B($NOWZ3zB89X->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"})};}unless(length("$paue6s4OCm$yJAz5yBsn1$Ps8zyZilm6$TQWDTi8bXp$eY8jZIeSPl")){my $ph0PL1c2d3=$n9d8vgro0z->lABnuqcDl("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x55\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");}$n9d8vgro0z->UKEpOZPDc($n9d8vgro0z->tgdiX50VQ()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$n9d8vgro0z->tgdiX50VQ()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});my $x9D3s2BurQ=$n9d8vgro0z->aN67W5t1b(0,$th823Rtle9,$n9d8vgro0z->tgdiX50VQ()->{"\x49\x44"},undef,$n9d8vgro0z->YDCQGsF3j($paue6s4OCm),$n9d8vgro0z->YDCQGsF3j($yJAz5yBsn1),$Ps8zyZilm6,$TQWDTi8bXp,undef,$eY8jZIeSPl,join("\x7c",@dUVOyvwgHG));if($x9D3s2BurQ){my $Mt2U3xNPKp=$th823Rtle9+1;my $zW7Q8Lfq9m=$n9d8vgro0z->tgdiX50VQ()->{"\x48\x49\x44\x45\x5f\x4e\x55\x4d\x42\x45\x52\x53"};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"});if($zW7Q8Lfq9m){$n9d8vgro0z->o98OpWjGm(\$NmACqi3Zhs->{"\x43\x41\x4c\x4c\x45\x52\x49\x44"},$zW7Q8Lfq9m);$n9d8vgro0z->o98OpWjGm(\$NmACqi3Zhs->{"\x43\x41\x4c\x4c\x45\x44\x49\x44"},$zW7Q8Lfq9m);}}}$n9d8vgro0z->UKEpOZPDc();return W9HmJ8Ng5($n9d8vgro0z,"\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=>$x9D3s2BurQ,FROM_TIME=>$paue6s4OCm,TO_TIME=>$yJAz5yBsn1,CALLER_ID=>$Ps8zyZilm6,CALLED_ID=>$TQWDTi8bXp,DURATION=>$eY8jZIeSPl,SMART_TIME=>$fIsz8HZi0B,$n9d8vgro0z->fr6LbkzPR(0,$x9D3s2BurQ,$th823Rtle9)});}sub pEtLsqb2Q{my($n9d8vgro0z,$NOWZ3zB89X)=@_;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)]);my $Ea8E9btsqr=$NOWZ3zB89X->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"};$n9d8vgro0z->UKEpOZPDc($n9d8vgro0z->tgdiX50VQ()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$n9d8vgro0z->tgdiX50VQ()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});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\x55\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 @dUVOyvwgHG=($Ea8E9btsqr);if($NOWZ3zB89X->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"}){push @dUVOyvwgHG,@{$n9d8vgro0z->E9iAryz0B($NOWZ3zB89X->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"})};}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,join("\x7c",@dUVOyvwgHG));my $ly7f681AqH;unless($l0p5RAQIZX){$ly7f681AqH=$n9d8vgro0z->iSgUBy3n0($yrHSclFTzt->[2])."\x20\x2d\x20".$n9d8vgro0z->iSgUBy3n0($yrHSclFTzt->[3]);}$n9d8vgro0z->UKEpOZPDc();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");}}}unless(ref $yrHSclFTzt eq "\x41\x52\x52\x41\x59"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $OHvaF6WZgU=$n9d8vgro0z->lABnuqcDl("\x43\x47\x49\x5f\x45\x58\x43\x45\x4c\x5f\x4d\x4f\x44\x45");if(exists $n9d8vgro0z->tgdiX50VQ()->{"\x45\x58\x43\x45\x4c\x5f\x4d\x4f\x44\x45"}){$OHvaF6WZgU=$n9d8vgro0z->tgdiX50VQ()->{"\x45\x58\x43\x45\x4c\x5f\x4d\x4f\x44\x45"};}return W9HmJ8Ng5($n9d8vgro0z,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\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"),PHONE=>$Ea8E9btsqr,EXCEL_MODE=>$OHvaF6WZgU,SMART_TIME=>$fIsz8HZi0B,FROM_TIME=>$paue6s4OCm,TO_TIME=>$yJAz5yBsn1});}sub mxOaIj86t{my($n9d8vgro0z,$NOWZ3zB89X)=@_;my($th823Rtle9,$paue6s4OCm,$yJAz5yBsn1,$Ps8zyZilm6,$Sl95f43Hyt,$TQWDTi8bXp,$eY8jZIeSPl)=$n9d8vgro0z->S8UXdfLCO([[(from=>0)],qw(from_time to_time caller_id call_type called_id duration)]);unless(length("$Ps8zyZilm6$TQWDTi8bXp$paue6s4OCm$yJAz5yBsn1$Sl95f43Hyt$eY8jZIeSPl")){my $ph0PL1c2d3=$n9d8vgro0z->lABnuqcDl("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x55\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 $Ea8E9btsqr=$NOWZ3zB89X->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"};my @dUVOyvwgHG=($Ea8E9btsqr);if($NOWZ3zB89X->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"}){push @dUVOyvwgHG,@{$n9d8vgro0z->E9iAryz0B($NOWZ3zB89X->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"})};}$n9d8vgro0z->UKEpOZPDc($n9d8vgro0z->tgdiX50VQ()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$n9d8vgro0z->tgdiX50VQ()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});my $wde4xcrJzW=$n9d8vgro0z->MoZHJwMLY("\x63\x64\x72",$Ps8zyZilm6,$n9d8vgro0z->YDCQGsF3j($paue6s4OCm),$n9d8vgro0z->YDCQGsF3j($yJAz5yBsn1),undef,undef,$Sl95f43Hyt,$TQWDTi8bXp,$eY8jZIeSPl,undef,join("\x7c",@dUVOyvwgHG));$n9d8vgro0z->UKEpOZPDc();unless($wde4xcrJzW){$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}else{if($wde4xcrJzW=~ /xlsx$/){return $n9d8vgro0z->sGyCQMBNt($wde4xcrJzW,"\x61\x70\x70\x6c\x69\x63\x61\x74\x69\x6f\x6e\x2f\x78\x6c\x73\x78");}else{return $n9d8vgro0z->sGyCQMBNt($wde4xcrJzW,"\x74\x65\x78\x74\x2f\x63\x73\x76");}}}sub zk7RTY1Q6{my($n9d8vgro0z,$NOWZ3zB89X)=@_;my($th823Rtle9,$paue6s4OCm,$yJAz5yBsn1,$fIsz8HZi0B,$Ps8zyZilm6,$Sl95f43Hyt,$TQWDTi8bXp,$eY8jZIeSPl,$xAeGxtUyTM)=$n9d8vgro0z->S8UXdfLCO([[(from=>0)],qw(from_time to_time smart_time caller_id call_type called_id duration cnam)]);my $Ea8E9btsqr=$NOWZ3zB89X->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"};$n9d8vgro0z->UKEpOZPDc($n9d8vgro0z->tgdiX50VQ()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$n9d8vgro0z->tgdiX50VQ()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});unless(length("$Ps8zyZilm6$TQWDTi8bXp$paue6s4OCm$yJAz5yBsn1$Sl95f43Hyt$eY8jZIeSPl$xAeGxtUyTM")){my $ph0PL1c2d3=$n9d8vgro0z->lABnuqcDl("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x55\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 @dUVOyvwgHG=($Ea8E9btsqr);if($NOWZ3zB89X->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"}){push @dUVOyvwgHG,@{$n9d8vgro0z->E9iAryz0B($NOWZ3zB89X->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"})};}my $MIUeFPrEta=$n9d8vgro0z->rTiapjO7l(undef,$Ps8zyZilm6,$th823Rtle9,"\x63\x64\x72",$n9d8vgro0z->YDCQGsF3j($paue6s4OCm),$n9d8vgro0z->YDCQGsF3j($yJAz5yBsn1),undef,undef,$Sl95f43Hyt,$TQWDTi8bXp,$eY8jZIeSPl,undef,undef,join("\x7c",@dUVOyvwgHG),$xAeGxtUyTM);if($MIUeFPrEta){my $zW7Q8Lfq9m=$n9d8vgro0z->tgdiX50VQ()->{"\x48\x49\x44\x45\x5f\x4e\x55\x4d\x42\x45\x52\x53"};my $Mt2U3xNPKp=$th823Rtle9+1;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($zW7Q8Lfq9m){$n9d8vgro0z->o98OpWjGm(\$N7nto5guwZ->{"\x43\x41\x4c\x4c\x45\x52\x5f\x49\x44"},$zW7Q8Lfq9m);$n9d8vgro0z->o98OpWjGm(\$N7nto5guwZ->{"\x43\x41\x4c\x4c\x45\x44\x5f\x49\x44"},$zW7Q8Lfq9m);$N7nto5guwZ->{"\x44\x41\x54\x41"}=~ s/(DID=|PN=|RN=)([^,]+)(\d{$zW7Q8Lfq9m})(,|$)/$1x$3$4/g;}if(not exists $N7nto5guwZ->{"\x56\x42\x5f\x49\x44"}and $N7nto5guwZ->{"\x44\x41\x54\x41"}=~ /FILE=(\d+):([^\s,]+)/){$N7nto5guwZ->{"\x56\x42\x5f\x49\x44"}=$1;$N7nto5guwZ->{"\x46\x49\x4c\x45\x5f\x4e\x41\x4d\x45"}=$2;}}}$n9d8vgro0z->UKEpOZPDc();my $Yc1r9KCS75=$n9d8vgro0z->jfqX4IyYJ();my $ZvKRlhX8jE;foreach my $TpVOQPSF9b(keys %$Yc1r9KCS75){if($Yc1r9KCS75->{$TpVOQPSF9b}->{"\x45\x58\x54\x45\x4e\x53\x49\x4f\x4e"}eq "\x63\x72\x6d\x2d\x63\x32\x63\x2d\x67\x77"){$ZvKRlhX8jE="ph=$Ea8E9btsqr&key=$TpVOQPSF9b&ac=".$n9d8vgro0z->tgdiX50VQ()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"};last;}}return W9HmJ8Ng5($n9d8vgro0z,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x63\x64\x72\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74",{CDR_LIST=>$MIUeFPrEta,CDR_CALLER_ID=>$Ps8zyZilm6,CDR_CALLED_ID=>$TQWDTi8bXp,CDR_DURATION=>$eY8jZIeSPl,FROM_TIME=>$paue6s4OCm,TO_TIME=>$yJAz5yBsn1,SMART_TIME=>$fIsz8HZi0B,CDR_CNAM=>$xAeGxtUyTM,CDR_CALL_TYPE=>$Sl95f43Hyt,C2C=>$ZvKRlhX8jE,PHONE=>$Ea8E9btsqr,$n9d8vgro0z->fr6LbkzPR(0,$MIUeFPrEta,$th823Rtle9)});}sub fyFi9zRvM{my($n9d8vgro0z,$NOWZ3zB89X)=@_;my($th823Rtle9,$Ps8zyZilm6,$TQWDTi8bXp,$Xx8rLvqmlO,$Sl95f43Hyt,$BUcdJT05yb,$ZvKRlhX8jE,$eY8jZIeSPl)=$n9d8vgro0z->S8UXdfLCO([[(from=>0)],qw(caller_id called_id ac call_type refresh c2c duration)]);my $NhMY5AG9iq;if($n9d8vgro0z->tgdiX50VQ()->{"\x41\x4c\x4c\x4f\x57\x5f\x43\x54\x52"}){$NhMY5AG9iq=$n9d8vgro0z->s8IDwOaLR($Ps8zyZilm6,$TQWDTi8bXp,$n9d8vgro0z->tgdiX50VQ()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"},$Sl95f43Hyt,$eY8jZIeSPl,undef,undef,undef,$th823Rtle9);}else{$BUcdJT05yb="\x38\x36\x34\x30\x30";}unless(ref $NhMY5AG9iq eq "\x41\x52\x52\x41\x59"){$NhMY5AG9iq=[];}my $nWdrY9mFXp=[];if(scalar @$NhMY5AG9iq){$n9d8vgro0z->UKEpOZPDc($n9d8vgro0z->tgdiX50VQ()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$n9d8vgro0z->tgdiX50VQ()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});my $zW7Q8Lfq9m=$n9d8vgro0z->tgdiX50VQ()->{"\x48\x49\x44\x45\x5f\x4e\x55\x4d\x42\x45\x52\x53"};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"};if($N7nto5guwZ->{"\x43\x41\x4c\x4c\x5f\x54\x59\x50\x45"}ne "\x74\x72\x61\x6e\x73\x69\x74" and $N7nto5guwZ->{"\x43\x41\x4c\x4c\x5f\x54\x59\x50\x45"}ne "\x69\x6e\x74\x65\x72\x6e\x61\x6c" and $N7nto5guwZ->{"\x43\x41\x4c\x4c\x5f\x54\x59\x50\x45"}ne "\x73\x65\x72\x76\x69\x63\x65"){my($I8KLCx41Nc,$XKim3RCLqg,$GP09Okvu8y)=split(/:/,$n9d8vgro0z->llKCBm5TS("\x73\x68\x2d\x63\x2d\x74\x72\x61\x63\x6b\x2d\x63\x75\x72\x2d\x65\x78\x74\x2d".$N7nto5guwZ->{"\x43\x41\x4c\x4c\x5f\x49\x44"}));$N7nto5guwZ->{"\x45\x58\x54\x5f\x54\x53"}=time-$I8KLCx41Nc;$N7nto5guwZ->{"\x45\x58\x54\x5f\x49\x44"}=$XKim3RCLqg;$N7nto5guwZ->{"\x41\x4e\x53\x57\x45\x52\x45\x44"}=$GP09Okvu8y;}foreach my $nxfJtimVTF(@{$n9d8vgro0z->E9iAryz0B($NOWZ3zB89X->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"})},$NOWZ3zB89X->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"}){next unless length $nxfJtimVTF;if($N7nto5guwZ->{"\x43\x41\x4c\x4c\x45\x52\x5f\x49\x44"}eq $nxfJtimVTF or $N7nto5guwZ->{"\x43\x41\x4c\x4c\x45\x44\x5f\x49\x44"}eq $nxfJtimVTF or $N7nto5guwZ->{"\x41\x4e\x53\x57\x45\x52\x45\x44"}eq $nxfJtimVTF){push @$nWdrY9mFXp,$N7nto5guwZ;last;}elsif(index($nxfJtimVTF,"\x2a")==0 and length($nxfJtimVTF)>1){if("\x2a".$N7nto5guwZ->{"\x45\x58\x54\x5f\x49\x44"}eq $nxfJtimVTF){push @$nWdrY9mFXp,$N7nto5guwZ;last;}}}if($zW7Q8Lfq9m){$n9d8vgro0z->o98OpWjGm(\$N7nto5guwZ->{"\x43\x41\x4c\x4c\x45\x52\x5f\x49\x44"},$zW7Q8Lfq9m);$n9d8vgro0z->o98OpWjGm(\$N7nto5guwZ->{"\x43\x41\x4c\x4c\x45\x44\x5f\x49\x44"},$zW7Q8Lfq9m);}}$n9d8vgro0z->UKEpOZPDc();}if($BUcdJT05yb and $BUcdJT05yb<$n9d8vgro0z->lABnuqcDl("\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")){$BUcdJT05yb=$n9d8vgro0z->lABnuqcDl("\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($BUcdJT05yb){my $Yc1r9KCS75=$n9d8vgro0z->jfqX4IyYJ();foreach my $TpVOQPSF9b(keys %$Yc1r9KCS75){if($Yc1r9KCS75->{$TpVOQPSF9b}->{"\x45\x58\x54\x45\x4e\x53\x49\x4f\x4e"}eq "\x78\x76\x62\x73\x70\x79"){if($n9d8vgro0z->Ngu6c790e()->{"\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"){$ZvKRlhX8jE=$TpVOQPSF9b."\x26\x70\x68\x3d".$NOWZ3zB89X->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"};}last;}}}return W9HmJ8Ng5($n9d8vgro0z,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74",{CALLS_COUNT=>scalar(@$nWdrY9mFXp),CALLS_LIST=>$nWdrY9mFXp,CDR_CALLER_ID=>$Ps8zyZilm6,CDR_CALLED_ID=>$TQWDTi8bXp,CDR_CALL_TYPE=>$Sl95f43Hyt,CDR_REFRESH_TIME=>$BUcdJT05yb,CDR_C2C=>$ZvKRlhX8jE,CDR_DURATION=>$eY8jZIeSPl,$n9d8vgro0z->fr6LbkzPR(1,$nWdrY9mFXp,$th823Rtle9)});}sub ilFoG9Esb{my($n9d8vgro0z,$yrHSclFTzt)=@_;if(my $Zwon4GbDXY=$n9d8vgro0z->S8UXdfLCO("\x6c\x61\x6e\x67")){$n9d8vgro0z->tgdiX50VQ()->{"\x4c\x41\x4e\x47\x5f\x4e\x41\x4d\x45"}=$Zwon4GbDXY;}return W9HmJ8Ng5($n9d8vgro0z,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x6c\x6f\x67\x69\x6e\x2e\x74\x74",$yrHSclFTzt);}sub zQORdf9SW{my($n9d8vgro0z,$Xx8rLvqmlO,$EK1OAStV4d)=@_;$n9d8vgro0z->ggJ6cN5MK(["\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"},$Xx8rLvqmlO,$EK1OAStV4d]);}sub W9HmJ8Ng5{my($n9d8vgro0z,$K35RZwQhmg,$yrHSclFTzt,$AI9dQUauDV)=@_;$yrHSclFTzt->{"\x43\x47\x49\x5f\x55\x52\x4c"}=$n9d8vgro0z->lABnuqcDl("\x43\x47\x49\x5f\x55\x52\x4c");$yrHSclFTzt->{"\x43\x47\x49\x5f\x53\x45\x52\x56\x45\x52"}=$n9d8vgro0z->lABnuqcDl("\x43\x47\x49\x5f\x53\x45\x52\x56\x45\x52");$yrHSclFTzt->{"\x55\x4e\x49\x58\x54\x49\x4d\x45"}=time;my $wlpIcv48bt='';my $YtcsFefLry='';unless($wlpIcv48bt){my $SGOg5vVzYD;my $rYA3BMjms8=$n9d8vgro0z->lABnuqcDl("\x50\x41\x54\x48\x5f\x54\x45\x4d\x50\x4c\x41\x54\x45\x5f\x44\x49\x52");my $Zwon4GbDXY=$n9d8vgro0z->tgdiX50VQ()->{"\x4c\x41\x4e\x47\x5f\x4e\x41\x4d\x45"}||$n9d8vgro0z->lABnuqcDl("\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 $zx984sTG2o=$n9d8vgro0z->tgdiX50VQ()->{"\x53\x55\x42\x5f\x54\x45\x4d\x50\x4c\x41\x54\x45\x5f\x44\x49\x52"};if(length $zx984sTG2o){$zx984sTG2o=~ s#[^\d\w_.-]##gs;}if(length($zx984sTG2o)and-e "$rYA3BMjms8/$zx984sTG2o/$Zwon4GbDXY/$K35RZwQhmg"){$SGOg5vVzYD="$rYA3BMjms8/$zx984sTG2o/$Zwon4GbDXY/$K35RZwQhmg";}elsif(-e "$rYA3BMjms8/$Zwon4GbDXY/$K35RZwQhmg"){$SGOg5vVzYD="$rYA3BMjms8/$Zwon4GbDXY/$K35RZwQhmg";}else{$SGOg5vVzYD="$rYA3BMjms8/$K35RZwQhmg";}my $Z8FtM6m0aV=$n9d8vgro0z->{"\x5f\x54\x4d\x50\x4c"};my $vC4faU2AVe=$n9d8vgro0z->llKCBm5TS("files-$SGOg5vVzYD");unless($vC4faU2AVe){$vC4faU2AVe=$Z8FtM6m0aV->load_src('',$SGOg5vVzYD);$n9d8vgro0z->llKCBm5TS("files-$SGOg5vVzYD",$vC4faU2AVe,$n9d8vgro0z->lABnuqcDl("\x54\x49\x4d\x45\x4f\x55\x54\x5f\x4d\x45\x4d\x5f\x43\x41\x43\x48\x45\x44"));}$yrHSclFTzt->{"\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}=$n9d8vgro0z->tgdiX50VQ();$Z8FtM6m0aV->process(\$vC4faU2AVe,$yrHSclFTzt,\$YtcsFefLry);}unless($wlpIcv48bt){$n9d8vgro0z->DI3sKMF0J(200,"\x4f\x6b",$AI9dQUauDV,$YtcsFefLry.$n9d8vgro0z->wCVvsla9Y("\x67\x36\x31\x33","\x43"));}elsif($wlpIcv48bt eq "\x78\x6d\x6c"){$YtcsFefLry=XML::Simple::XMLout($yrHSclFTzt);$n9d8vgro0z->B5olr92BD(200,"\x4f\x6b",undef,$YtcsFefLry);}elsif($wlpIcv48bt eq "\x6a\x73\x6f\x6e"){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));}}