#!/usr/bin/perl
########################################################################
#
# $Id: VirtualPBX-EI.cgi,v 1.70 2026/10/29 07:33:26 gosha Exp $
#
# Copyright (c) Igor Okunev <igor[at]prv.mts-nn.ru> 2018 - 2026
#
########################################################################
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 XVB::UI::CGI::Reports;use XVB::DIDs;use Template::EasyTT;use JSON::XS;use XML::Simple;use POSIX qw(locale_h);use CGI;use vars qw($tHGkdBbRUx);YKuVINAz9m();sub new{my($NOrC5HZaLc,$MnYgEKqIQx)=@_;unless($tHGkdBbRUx){$tHGkdBbRUx=bless{_TMPL=>Template::EasyTT->new({}),_CONF=>{},},$NOrC5HZaLc;$tHGkdBbRUx->ngcsI2dwf4($MnYgEKqIQx);$tHGkdBbRUx->sqmH4s9ih2();if($tHGkdBbRUx->XUp8KtvxSh("\x44\x45\x42\x55\x47\x5f\x48\x54\x54\x50\x5f\x41\x55\x44\x49\x54\x5f\x46\x49\x4c\x45")){$tHGkdBbRUx->sqmH4s9ih2("\x46\x49\x4c\x45","\x44\x45\x42\x55\x47\x5f\x48\x54\x54\x50\x5f\x41\x55\x44\x49\x54\x5f\x46\x49\x4c\x45");}$tHGkdBbRUx->{"\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;$tHGkdBbRUx->telYofRnEJ(1);chdir($tHGkdBbRUx->XUp8KtvxSh("\x50\x41\x54\x48\x5f\x57\x4f\x52\x4b\x5f\x44\x49\x52"));$tHGkdBbRUx->SHm2fXKeVr();$tHGkdBbRUx->{"\x5f\x54\x4d\x50\x4c"}->filters_add("\x6c\x6f\x63\x61\x6c\x65\x5f\x6d\x73\x67",sub{my $sOrM4oPeUW=$tHGkdBbRUx->x98mXV5nID($_[1],$tHGkdBbRUx->T0fMjaKi97()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});$sOrM4oPeUW=~ s#&#&amp;#gs;$sOrM4oPeUW=~ s#\x22#&quot;#gs;$sOrM4oPeUW=~ s#<#&lt;#gs;$sOrM4oPeUW=~ s#>#&gt;#gs;$sOrM4oPeUW=~ s#\x27#&apos;#gs;return $sOrM4oPeUW;});}$tHGkdBbRUx->{"\x5f\x43\x44\x52"}={};$tHGkdBbRUx->{"\x5f\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}={};$tHGkdBbRUx->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}={};$tHGkdBbRUx->{"\x5f\x53\x45\x53\x53\x49\x4f\x4e"}={};$tHGkdBbRUx->{"\x5f\x43\x47\x49"}=CGI->new();return $tHGkdBbRUx;}sub YKuVINAz9m{my $scrqlZeB3C=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($qToYQUV2AZ,$tNdRPA3Bpt,$ttaEwbuMUZ)=$scrqlZeB3C->TH8vcZTGhW([qw(login pswd action)]);if(! length($qToYQUV2AZ)){if($qToYQUV2AZ=$scrqlZeB3C->{"\x5f\x43\x47\x49"}->cookie("\x6c\x6f\x67\x69\x6e")){$scrqlZeB3C->{"\x5f\x43\x47\x49"}->param(-name=>"\x6c\x6f\x67\x69\x6e",-value=>$qToYQUV2AZ);}$tNdRPA3Bpt=$scrqlZeB3C->{"\x5f\x43\x47\x49"}->cookie("\x70\x73\x77\x64");}if(! $qToYQUV2AZ){return eWvFUzJf1x($scrqlZeB3C,{});}elsif($ttaEwbuMUZ eq "\x68\x69\x6e\x74"){return iHA6OGwKYk($scrqlZeB3C);}my($nLhoBPgdW8,$C1KxN90s87)=split(/\@/,$qToYQUV2AZ);my $TBL7zCvtu9;if($scrqlZeB3C->XUp8KtvxSh("\x44\x42\x5f\x43\x41\x43\x48\x45\x5f\x57\x45\x42\x5f\x41\x55\x54\x48")){$TBL7zCvtu9=$scrqlZeB3C->zO9VlUrSf1("short-user-$C1KxN90s87");unless(ref($TBL7zCvtu9)){rbCh5BROa0($scrqlZeB3C,$C1KxN90s87,"\x70\x73\x77\x64\x20\x6d\x69\x73\x6d\x61\x74\x63\x68")if $scrqlZeB3C->myJ2EaU5Vc(1);return eWvFUzJf1x($scrqlZeB3C,{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(! $TBL7zCvtu9->{"\x53\x54\x41\x54\x55\x53"}and ! $scrqlZeB3C->XUp8KtvxSh("\x43\x47\x49\x5f\x49\x47\x4e\x4f\x52\x45\x5f\x4c\x4f\x43\x4b")){rbCh5BROa0($scrqlZeB3C,$C1KxN90s87,"\x6c\x6f\x63\x6b\x65\x64")if $scrqlZeB3C->myJ2EaU5Vc(1);return eWvFUzJf1x($scrqlZeB3C,{ERROR_STR=>"\x59\x6f\x75\x72\x20\x61\x63\x63\x6f\x75\x6e\x74\x20\x69\x73\x20\x6c\x6f\x63\x6b\x65\x64"});}}$TBL7zCvtu9=$scrqlZeB3C->mOl9DTLZQg(undef,$C1KxN90s87);unless($TBL7zCvtu9==1){rbCh5BROa0($scrqlZeB3C,$C1KxN90s87,"\x70\x73\x77\x64\x20\x6d\x69\x73\x6d\x61\x74\x63\x68")if $scrqlZeB3C->myJ2EaU5Vc(1);return eWvFUzJf1x($scrqlZeB3C,{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 $eQouG92ptw=$scrqlZeB3C->XzyLTW0V1v();if(ref $eQouG92ptw ne "\x48\x41\x53\x48"){return eWvFUzJf1x($scrqlZeB3C,{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($eQouG92ptw->{$nLhoBPgdW8})or length($eQouG92ptw->{$nLhoBPgdW8}->{"\x57\x45\x42\x5f\x53\x45\x43\x52\x45\x54"})==0 or $eQouG92ptw->{$nLhoBPgdW8}->{"\x57\x45\x42\x5f\x53\x45\x43\x52\x45\x54"}ne $tNdRPA3Bpt){rbCh5BROa0($scrqlZeB3C,$C1KxN90s87,"\x70\x73\x77\x64\x20\x6d\x69\x73\x6d\x61\x74\x63\x68")if $scrqlZeB3C->myJ2EaU5Vc(1);return eWvFUzJf1x($scrqlZeB3C,{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($eQouG92ptw->{$nLhoBPgdW8}->{"\x50\x45\x52\x4d\x49\x54\x5f\x57\x45\x42"})and ! $scrqlZeB3C->{"\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"}){$scrqlZeB3C->{"\x5f\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}->{"\x50\x45\x52\x4d\x49\x54\x5f\x57\x45\x42"}=$eQouG92ptw->{$nLhoBPgdW8}->{"\x50\x45\x52\x4d\x49\x54\x5f\x57\x45\x42"};}if(length($scrqlZeB3C->T0fMjaKi97()->{"\x50\x45\x52\x4d\x49\x54\x5f\x57\x45\x42"})){unless($scrqlZeB3C->C3w5nx4ug8($scrqlZeB3C->T0fMjaKi97()->{"\x50\x45\x52\x4d\x49\x54\x5f\x57\x45\x42"},$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"})){return $scrqlZeB3C->CsbkvtiHqf(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($eQouG92ptw->{$nLhoBPgdW8}->{"\x4c\x41\x4e\x47\x5f\x49\x44"}){$scrqlZeB3C->{"\x5f\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}->{"\x4c\x41\x4e\x47\x5f\x4e\x41\x4d\x45"}=$eQouG92ptw->{$nLhoBPgdW8}->{"\x4c\x41\x4e\x47\x5f\x4e\x41\x4d\x45"};$scrqlZeB3C->{"\x5f\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"}=$eQouG92ptw->{$nLhoBPgdW8}->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"};}if(my $SD5QkXCUvR=$scrqlZeB3C->XUp8KtvxSh("\x43\x47\x49\x5f\x45\x49\x5f\x57\x45\x42\x52\x54\x43\x5f\x50\x52\x45\x46")){if($tNdRPA3Bpt=~ /^\Q$SD5QkXCUvR\E/i){$ttaEwbuMUZ="\x70\x70\x5f\x77\x65\x62\x5f\x70\x68\x6f\x6e\x65\x5f\x6f\x6e\x6c\x79";}}my %G8xq6kb3Z2;if($eQouG92ptw->{$nLhoBPgdW8}->{"\x43\x55\x53\x54\x4f\x4d\x5f\x56\x41\x52\x53"}){foreach my $yY93keg2bT(split(/\s*\|\s*/,$eQouG92ptw->{$nLhoBPgdW8}->{"\x43\x55\x53\x54\x4f\x4d\x5f\x56\x41\x52\x53"})){my($M7iumb3g2t,$x81dSVAnYe)=split(/=/,$yY93keg2bT,2);next unless length $M7iumb3g2t;if($M7iumb3g2t eq "\x55\x49\x5f\x42\x4c"){foreach my $LUhZYA27J9(split(/\s*,\s*/,$x81dSVAnYe)){$G8xq6kb3Z2{uc($LUhZYA27J9)}=1;}if(exists $G8xq6kb3Z2{"\x43\x53\x56\x5f\x44\x55\x4d\x50"}){$scrqlZeB3C->{"\x5f\x43\x47\x49"}->param(-name=>"\x6e\x65\x65\x64\x5f\x65\x78\x63\x65\x6c",-value=>0);}last;}}if(exists $G8xq6kb3Z2{uc($ttaEwbuMUZ)}){return $scrqlZeB3C->CsbkvtiHqf(undef,"\x59\x6f\x75\x20\x68\x61\x76\x65\x20\x6e\x6f\x20\x61\x63\x63\x65\x73\x73\x20\x74\x68\x69\x73\x20\x70\x61\x67\x65\x2e");}}if($ttaEwbuMUZ eq "\x70\x70\x5f\x6d\x65\x6e\x75"){my $H0ZOhGuf1V=$scrqlZeB3C->XUp8KtvxSh("\x57\x45\x42\x52\x54\x43\x5f\x57\x53");if($H0ZOhGuf1V){$H0ZOhGuf1V=0 if $scrqlZeB3C->TH8vcZTGhW("\x73\x6b\x69\x70\x5f\x77\x65\x62\x5f\x70\x68\x6f\x6e\x65");}my $dZdHVGlAxg;if(length($eQouG92ptw->{$nLhoBPgdW8}->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"})){$dZdHVGlAxg=2;}else{$dZdHVGlAxg=3;}my $AKRM0lAN9q=$scrqlZeB3C->vSraIgJKbD(undef,$dZdHVGlAxg,undef,undef,"\x69\x73\x5f\x75\x69");return kNcPgbROm2($scrqlZeB3C,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x6d\x65\x6e\x75\x2e\x74\x74",{PHONE=>$eQouG92ptw->{$nLhoBPgdW8},CDR_EXTRA_REPORTS=>scalar(@{$AKRM0lAN9q}),UI_BL=>\%G8xq6kb3Z2,WEBRTC=>$H0ZOhGuf1V});}elsif($ttaEwbuMUZ eq "\x70\x70\x5f\x73\x74\x61\x72\x74"){my $z4PH5ICvht=$scrqlZeB3C->{"\x5f\x43\x47\x49"}->cookie(-name=>"\x6c\x6f\x67\x69\x6e",-value=>$qToYQUV2AZ,-path=>"\x2f\x70\x68\x6f\x6e\x65");my $oWVpflgXOo=$scrqlZeB3C->{"\x5f\x43\x47\x49"}->cookie(-name=>"\x70\x73\x77\x64",-value=>$tNdRPA3Bpt,-path=>"\x2f\x70\x68\x6f\x6e\x65");return kNcPgbROm2($scrqlZeB3C,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x73\x74\x61\x72\x74\x2e\x74\x74",{WITH_PHONE=>$scrqlZeB3C->TH8vcZTGhW("\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: $z4PH5ICvht","Set-Cookie: $oWVpflgXOo"]);}elsif($ttaEwbuMUZ eq "\x70\x70\x5f\x6d\x73\x67\x5f\x6c\x69\x73\x74"){vV1UJIexOQ($scrqlZeB3C,$eQouG92ptw->{$nLhoBPgdW8});}elsif($ttaEwbuMUZ eq "\x70\x70\x5f\x63\x64\x72\x5f\x6c\x69\x73\x74"){my($MF8C6QxLUk,$srkZIuBmqU)=$scrqlZeB3C->TH8vcZTGhW([qw(need_excel need_chart)]);if($MF8C6QxLUk && ! $scrqlZeB3C->T0fMjaKi97()->{"\x48\x49\x44\x45\x5f\x4e\x55\x4d\x42\x45\x52\x53"}){JW6nGfpHJ7($scrqlZeB3C,$eQouG92ptw->{$nLhoBPgdW8});}elsif($srkZIuBmqU){RTC5USDhVx($scrqlZeB3C,$eQouG92ptw->{$nLhoBPgdW8});}else{JqTtoNsx09($scrqlZeB3C,$eQouG92ptw->{$nLhoBPgdW8});}}elsif($ttaEwbuMUZ eq "\x70\x70\x5f\x70\x69\x6e\x66\x6f"){my $meNtm9Syc5=time;$scrqlZeB3C->wvlK3SPr9x($scrqlZeB3C->T0fMjaKi97()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$scrqlZeB3C->T0fMjaKi97()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});if($meNtm9Syc5<$eQouG92ptw->{$nLhoBPgdW8}->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}){$eQouG92ptw->{$nLhoBPgdW8}->{"\x52\x45\x47\x5f\x53\x54\x41\x54\x55\x53"}="\x52\x65\x67\x69\x73\x74\x65\x72\x65\x64";}else{$eQouG92ptw->{$nLhoBPgdW8}->{"\x52\x45\x47\x5f\x53\x54\x41\x54\x55\x53"}="\x55\x6e\x72\x65\x67\x69\x73\x74\x65\x72\x65\x64";}$eQouG92ptw->{$nLhoBPgdW8}->{"\x52\x45\x47\x5f\x45\x58\x50\x49\x52\x45\x44"}=$eQouG92ptw->{$nLhoBPgdW8}->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}? $scrqlZeB3C->YPbw2qFVnY($eQouG92ptw->{$nLhoBPgdW8}->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}):"\x2d";$eQouG92ptw->{$nLhoBPgdW8}->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}=$eQouG92ptw->{$nLhoBPgdW8}->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}? $scrqlZeB3C->YPbw2qFVnY($eQouG92ptw->{$nLhoBPgdW8}->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}):"\x2d";$eQouG92ptw->{$nLhoBPgdW8}->{"\x52\x41\x57\x44\x4e\x44"}=$eQouG92ptw->{$nLhoBPgdW8}->{"\x44\x4e\x44"};$eQouG92ptw->{$nLhoBPgdW8}->{"\x44\x4e\x44"}=$eQouG92ptw->{$nLhoBPgdW8}->{"\x44\x4e\x44"}? $scrqlZeB3C->YPbw2qFVnY($eQouG92ptw->{$nLhoBPgdW8}->{"\x44\x4e\x44"}):'';$scrqlZeB3C->wvlK3SPr9x();my $TKMqsJTFij=0;if($eQouG92ptw->{$nLhoBPgdW8}->{"\x43\x55\x53\x54\x4f\x4d\x5f\x56\x41\x52\x53"}and $eQouG92ptw->{$nLhoBPgdW8}->{"\x43\x55\x53\x54\x4f\x4d\x5f\x56\x41\x52\x53"}=~ /ALLOW_CCID/){foreach my $yY93keg2bT(split(/\s*\|\s*/,$eQouG92ptw->{$nLhoBPgdW8}->{"\x43\x55\x53\x54\x4f\x4d\x5f\x56\x41\x52\x53"})){my($M7iumb3g2t,$x81dSVAnYe)=split(/=/,$yY93keg2bT,2);if($M7iumb3g2t eq "\x41\x4c\x4c\x4f\x57\x5f\x43\x43\x49\x44" and $x81dSVAnYe){$TKMqsJTFij=1;}}}my $ZJFKQc3NIv=$eQouG92ptw->{$nLhoBPgdW8}->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"};my $zNd98shYwJ=[];foreach my $Kza0lnNokv(keys %{$scrqlZeB3C->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}}){if($scrqlZeB3C->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$Kza0lnNokv}->{"\x54\x59\x50\x45"}eq "\x31\x33"){my($g54ZaY6Jw9)=$scrqlZeB3C->ygcJ8eY2v3([$scrqlZeB3C->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$Kza0lnNokv}->{"\x43\x41\x4c\x4c\x5f\x4e\x55\x4d\x42\x45\x52"}],"\x6e\x6f\x71\x75\x6f\x74\x65");$g54ZaY6Jw9=~ s#[^,_@\w\d:.*\|\/-]##gs;foreach my $ncVYdjQt4X(split(/,/,$g54ZaY6Jw9)){unless(index($ncVYdjQt4X,"$ZJFKQc3NIv/")){my $soUk1FquQp=$scrqlZeB3C->zO9VlUrSf1("\x73\x68\x2d\x71\x75\x65\x75\x65\x2d\x61\x67\x65\x6e\x74\x2d".$scrqlZeB3C->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$Kza0lnNokv}->{"\x49\x44"}."\x2d".$ZJFKQc3NIv);push @{$zNd98shYwJ},{NAME=>$scrqlZeB3C->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$Kza0lnNokv}->{"\x45\x58\x54\x5f\x4e\x55\x4d\x42\x45\x52"}."\x20\x28\x20".$scrqlZeB3C->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$Kza0lnNokv}->{"\x4e\x41\x4d\x45"}."\x20\x29",STATUS=>$soUk1FquQp,ID=>$scrqlZeB3C->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$Kza0lnNokv}->{"\x49\x44"}};last;}}}}my $fng3qhG0dp=0;if($eQouG92ptw->{$nLhoBPgdW8}->{"\x68\x6f\x74\x64\x65\x73\x6b\x5f\x63\x61\x6c\x6c\x65\x72\x69\x64"}or $eQouG92ptw->{$nLhoBPgdW8}->{"\x48\x4f\x54\x44\x45\x53\x4b\x5f\x43\x49\x44"}){$fng3qhG0dp=1;}return kNcPgbROm2($scrqlZeB3C,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x70\x69\x6e\x66\x6f\x2e\x74\x74",{PHONE=>$eQouG92ptw->{$nLhoBPgdW8},HOTDESK=>$fng3qhG0dp,Q_STAT=>$zNd98shYwJ,CUSTOM_CID=>$TKMqsJTFij,DID=>$scrqlZeB3C->rPzKJZrW3L(),LANG=>$scrqlZeB3C->I9FA8Y5Ep6("\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($ttaEwbuMUZ eq "\x70\x70\x5f\x70\x75\x70\x64\x61\x74\x65"){$scrqlZeB3C->jdS8eFc2Hz();$scrqlZeB3C->jdS8eFc2Hz({CALLED_ID=>"\x77\x65\x62",CALLER_ID=>$ENV{REMOTE_ADDR},CALL_TYPE=>"\x77\x65\x62"});my $EzE9Ne7MFK=$scrqlZeB3C->TH8vcZTGhW("\x44\x4e\x44");unless($EzE9Ne7MFK){$EzE9Ne7MFK=0;}else{if($scrqlZeB3C->TH8vcZTGhW("\x52\x41\x57\x44\x4e\x44")){$EzE9Ne7MFK=$scrqlZeB3C->TH8vcZTGhW("\x52\x41\x57\x44\x4e\x44");}else{$EzE9Ne7MFK=time;}}my $Wvl18E9OxC=$scrqlZeB3C->TH8vcZTGhW("\x46\x57\x44\x5f\x41\x46\x54\x45\x52");my $RPghlTBIWZ=$scrqlZeB3C->TH8vcZTGhW("\x4c\x41\x4e\x47\x5f\x49\x44");if($eQouG92ptw->{$nLhoBPgdW8}->{"\x43\x55\x53\x54\x4f\x4d\x5f\x56\x41\x52\x53"}and $eQouG92ptw->{$nLhoBPgdW8}->{"\x43\x55\x53\x54\x4f\x4d\x5f\x56\x41\x52\x53"}=~ /ALLOW_CCID/){foreach my $yY93keg2bT(split(/\s*\|\s*/,$eQouG92ptw->{$nLhoBPgdW8}->{"\x43\x55\x53\x54\x4f\x4d\x5f\x56\x41\x52\x53"})){my($M7iumb3g2t,$x81dSVAnYe)=split(/=/,$yY93keg2bT,2);if($M7iumb3g2t eq "\x41\x4c\x4c\x4f\x57\x5f\x43\x43\x49\x44" and $x81dSVAnYe){$eQouG92ptw->{$nLhoBPgdW8}->{"\x44\x45\x46\x43\x49\x44"}=$scrqlZeB3C->TH8vcZTGhW("\x44\x45\x46\x43\x49\x44");}}}if($scrqlZeB3C->QKEusw8Sf4($eQouG92ptw->{$nLhoBPgdW8}->{"\x44\x41\x54\x41\x5f\x49\x44"},$eQouG92ptw->{$nLhoBPgdW8}->{"\x73\x65\x63\x72\x65\x74"},$eQouG92ptw->{$nLhoBPgdW8}->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"},$eQouG92ptw->{$nLhoBPgdW8}->{"\x44\x45\x53\x43\x52\x49\x50\x54\x49\x4f\x4e"},$eQouG92ptw->{$nLhoBPgdW8}->{"\x52\x45\x43\x5f\x4d\x4f\x44\x45"},$eQouG92ptw->{$nLhoBPgdW8}->{"\x52\x45\x43\x5f\x45\x58\x54"},$eQouG92ptw->{$nLhoBPgdW8}->{"\x50\x49\x43\x4b\x55\x50\x5f\x47\x52\x4f\x55\x50\x53"},$eQouG92ptw->{$nLhoBPgdW8}->{"\x6e\x61\x6d\x65"},$eQouG92ptw->{$nLhoBPgdW8}->{"\x44\x45\x46\x43\x49\x44"},$eQouG92ptw->{$nLhoBPgdW8}->{"\x74\x72\x75\x73\x74\x65\x64\x5f\x69\x70"},$eQouG92ptw->{$nLhoBPgdW8}->{"\x45\x4d\x41\x49\x4c"},$eQouG92ptw->{$nLhoBPgdW8}->{"\x43\x4f\x4c"},$eQouG92ptw->{$nLhoBPgdW8}->{"\x46\x57\x44\x5f\x4e\x55\x4d"},$Wvl18E9OxC,$eQouG92ptw->{$nLhoBPgdW8}->{"\x57\x45\x42\x5f\x53\x45\x43\x52\x45\x54"},$eQouG92ptw->{$nLhoBPgdW8}->{"\x48\x4f\x54\x44\x45\x53\x4b\x5f\x50\x49\x4e"},$eQouG92ptw->{$nLhoBPgdW8}->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"},$eQouG92ptw->{$nLhoBPgdW8}->{"\x4c\x44\x5f\x54\x54\x4c"},$RPghlTBIWZ,$eQouG92ptw->{$nLhoBPgdW8}->{"\x50\x45\x52\x4d\x49\x54\x5f\x57\x45\x42"},$eQouG92ptw->{$nLhoBPgdW8}->{"\x43\x55\x53\x54\x4f\x4d\x5f\x56\x41\x52\x53"},$EzE9Ne7MFK)){if($scrqlZeB3C->T0fMjaKi97()->{"\x41\x4c\x4c\x4f\x57\x5f\x53\x55\x42\x53\x43\x52\x49\x42\x45"}){if($EzE9Ne7MFK and ! $eQouG92ptw->{$nLhoBPgdW8}->{"\x44\x4e\x44"}){$scrqlZeB3C->vy9iZKQsW5($scrqlZeB3C->T0fMjaKi97()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"},$nLhoBPgdW8,"\x42\x55\x53\x59");}elsif(! $EzE9Ne7MFK and $eQouG92ptw->{$nLhoBPgdW8}->{"\x44\x4e\x44"}){$scrqlZeB3C->vy9iZKQsW5($scrqlZeB3C->T0fMjaKi97()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"},$nLhoBPgdW8,"\x4e\x4f\x54\x5f\x49\x4e\x55\x53\x45");}}return $scrqlZeB3C->CsbkvtiHqf();}else{return $scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x70\x70\x5f\x70\x62\x6f\x6f\x6b\x5f\x6c\x69\x73\x74"){my $aY3eG58zFx;if($eQouG92ptw->{$nLhoBPgdW8}->{"\x43\x55\x53\x54\x4f\x4d\x5f\x56\x41\x52\x53"}and $eQouG92ptw->{$nLhoBPgdW8}->{"\x43\x55\x53\x54\x4f\x4d\x5f\x56\x41\x52\x53"}=~ /HIDE_SHPBOOK/){foreach my $yY93keg2bT(split(/\s*\|\s*/,$eQouG92ptw->{$nLhoBPgdW8}->{"\x43\x55\x53\x54\x4f\x4d\x5f\x56\x41\x52\x53"})){my($M7iumb3g2t,$x81dSVAnYe)=split(/=/,$yY93keg2bT,2);if($M7iumb3g2t eq "\x48\x49\x44\x45\x5f\x53\x48\x50\x42\x4f\x4f\x4b"){$aY3eG58zFx=$x81dSVAnYe;}}}my $b76xLhRQrU=[];unless($aY3eG58zFx){$b76xLhRQrU=$scrqlZeB3C->YS9fLP6Xki()||return undef;}my $b3LK0MaYgz=$scrqlZeB3C->YS9fLP6Xki($eQouG92ptw->{$nLhoBPgdW8}->{"\x44\x41\x54\x41\x5f\x49\x44"})||return undef;my $OAFu52ljK0=$scrqlZeB3C->TH8vcZTGhW("\x66\x6f\x72\x6d\x61\x74");if($OAFu52ljK0 eq "\x65\x78\x63\x65\x6c"){my $FwMgAGKTzH=[];foreach my $TOPa01r3Xq(@{$b3LK0MaYgz}){push @$FwMgAGKTzH,$TOPa01r3Xq;}foreach my $TOPa01r3Xq(@{$b76xLhRQrU}){push @$FwMgAGKTzH,$TOPa01r3Xq;}my $ZWbtupBIwx=$scrqlZeB3C->zvfCecnl70("\x70\x62\x6f\x6f\x6b",[$FwMgAGKTzH,[qw(PHONE FIRST_NAME LAST_NAME SHORTCUT DESCRIPTION RESPONSIBLE)]]);unless($ZWbtupBIwx){return $scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}else{if($ZWbtupBIwx=~ /xlsx$/){return $scrqlZeB3C->oypGmxJ10z($ZWbtupBIwx,"\x61\x70\x70\x6c\x69\x63\x61\x74\x69\x6f\x6e\x2f\x78\x6c\x73\x78");}else{return $scrqlZeB3C->oypGmxJ10z($ZWbtupBIwx,"\x74\x65\x78\x74\x2f\x63\x73\x76");}}}my $Sz1fOc8ryx=$scrqlZeB3C->Vj0qyrFGPg();my $plUVODXPzB;foreach my $is2oB3IjkL(keys %$Sz1fOc8ryx){if($Sz1fOc8ryx->{$is2oB3IjkL}->{"\x45\x58\x54\x45\x4e\x53\x49\x4f\x4e"}eq "\x63\x72\x6d\x2d\x63\x32\x63\x2d\x67\x77"){$plUVODXPzB="ph=$nLhoBPgdW8&key=$is2oB3IjkL&ac=".$scrqlZeB3C->T0fMjaKi97()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"};last;}}return kNcPgbROm2($scrqlZeB3C,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x70\x62\x6f\x6f\x6b\x2e\x74\x74",{PBOOK_LIST_S=>$b76xLhRQrU,PBOOK_LIST_P=>$b3LK0MaYgz,C2C=>$plUVODXPzB,PHONE=>$nLhoBPgdW8,});}elsif($ttaEwbuMUZ eq "\x70\x70\x5f\x70\x62\x6f\x6f\x6b\x5f\x64\x65\x6c"){my $PEiUCkrMSm=$scrqlZeB3C->TH8vcZTGhW("\x64\x61\x74\x61\x5f\x69\x64");if($scrqlZeB3C->jeQ1AjwsoD($PEiUCkrMSm,($PEiUCkrMSm eq "\x61\x6c\x6c" ? 1:undef),undef,$eQouG92ptw->{$nLhoBPgdW8}->{"\x44\x41\x54\x41\x5f\x49\x44"},$nLhoBPgdW8)){return $scrqlZeB3C->CsbkvtiHqf();}else{return $scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x70\x70\x5f\x70\x62\x6f\x6f\x6b\x5f\x61\x64\x64"){unless($scrqlZeB3C->nfMO7qNJCp($scrqlZeB3C->XUp8KtvxSh("\x54\x41\x42\x4c\x45\x53\x5f\x50\x48\x4f\x4e\x45\x5f\x42\x4f\x4f\x4b"),$scrqlZeB3C->T0fMjaKi97()->{"\x4d\x41\x58\x5f\x50\x42\x4f\x4f\x4b\x5f\x49\x54\x45\x4d\x53"},{SUBSCR_ID=>$scrqlZeB3C->T0fMjaKi97()->{"\x49\x44"},PHONE_OWNER=>$eQouG92ptw->{$nLhoBPgdW8}->{"\x44\x41\x54\x41\x5f\x49\x44"}})){return $scrqlZeB3C->CsbkvtiHqf(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 $PEiUCkrMSm=$scrqlZeB3C->l5D9VQSox0($scrqlZeB3C->TH8vcZTGhW([qw(shortcut ph fn ln description)]),undef,undef,$eQouG92ptw->{$nLhoBPgdW8}->{"\x44\x41\x54\x41\x5f\x49\x44"},$nLhoBPgdW8))){return $scrqlZeB3C->CsbkvtiHqf(undef,undef,$PEiUCkrMSm,"\x23\x61\x64\x64\x61\x72\x65\x61");}else{return $scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x70\x70\x5f\x70\x62\x6f\x6f\x6b\x5f\x75\x70\x64\x61\x74\x65"){if($scrqlZeB3C->cXWpN2kAu9($scrqlZeB3C->TH8vcZTGhW([qw(data_id shortcut ph fn ln description)]),undef,$eQouG92ptw->{$nLhoBPgdW8}->{"\x44\x41\x54\x41\x5f\x49\x44"},$nLhoBPgdW8)){return $scrqlZeB3C->CsbkvtiHqf();}else{return $scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x70\x70\x5f\x70\x62\x6f\x6f\x6b\x5f\x75\x70\x6c\x6f\x61\x64"){my $MnYgEKqIQx=$scrqlZeB3C->TH8vcZTGhW("\x63\x6f\x6e\x66\x69\x67\x5f\x66\x69\x6c\x65");unless(ref($MnYgEKqIQx)){$MnYgEKqIQx=undef;my $EzgvTWbCnr=$scrqlZeB3C->TH8vcZTGhW("\x63\x6f\x6e\x66\x69\x67\x5f\x69\x64");if(length($EzgvTWbCnr)){my $hwy4V5JB0C=$scrqlZeB3C->ryIndwgO17($scrqlZeB3C->T0fMjaKi97()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"},undef,$EzgvTWbCnr);if(ref($hwy4V5JB0C)eq "\x41\x52\x52\x41\x59" and scalar(@{$hwy4V5JB0C})){$MnYgEKqIQx=$hwy4V5JB0C->[0]->{"\x46\x5f\x50\x41\x54\x48"};}}}unless($MnYgEKqIQx){return $scrqlZeB3C->CsbkvtiHqf();}if($scrqlZeB3C->r9sakgVAtf($MnYgEKqIQx,0,"\x55\x50\x42\x4f\x4f\x4b",undef,undef,"\x75\x70\x62\x6f\x6f\x6b",{PHONE_OWNER=>$eQouG92ptw->{$nLhoBPgdW8}->{"\x44\x41\x54\x41\x5f\x49\x44"},PHONE_NUMBER=>$nLhoBPgdW8})){return $scrqlZeB3C->CsbkvtiHqf();}}elsif($ttaEwbuMUZ eq "\x70\x70\x5f\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74"){LgwQ31ankl($scrqlZeB3C,$eQouG92ptw->{$nLhoBPgdW8});}elsif($ttaEwbuMUZ eq "\x70\x70\x5f\x72\x65\x70\x6f\x72\x74\x5f\x6c\x69\x73\x74"){qZAdzFsy9P($scrqlZeB3C,$eQouG92ptw->{$nLhoBPgdW8});}elsif($ttaEwbuMUZ eq "\x70\x70\x5f\x72\x65\x70\x6f\x72\x74\x5f\x72\x75\x6e"){Tft2I53vX6($scrqlZeB3C,$eQouG92ptw->{$nLhoBPgdW8});}elsif($ttaEwbuMUZ=~ /^pp_web_phone/){my $TfeJUvBnra=$scrqlZeB3C->XUp8KtvxSh("\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($scrqlZeB3C->T0fMjaKi97()->{"\x50\x48\x4f\x4e\x45\x5f\x55\x49\x5f\x53\x4b\x49\x50\x5f\x50\x53\x57\x44"})){$TfeJUvBnra=$scrqlZeB3C->T0fMjaKi97()->{"\x50\x48\x4f\x4e\x45\x5f\x55\x49\x5f\x53\x4b\x49\x50\x5f\x50\x53\x57\x44"};}my $xAfjBueCha=$scrqlZeB3C->TH8vcZTGhW("\x6e\x6f\x63\x6f\x6e\x74\x72\x6f\x6c");my $ewp5zv9ro8=0;if($ttaEwbuMUZ eq "\x70\x70\x5f\x77\x65\x62\x5f\x70\x68\x6f\x6e\x65\x5f\x6f\x6e\x6c\x79"){$xAfjBueCha=$ewp5zv9ro8=1;}return kNcPgbROm2($scrqlZeB3C,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x77\x65\x62\x5f\x70\x68\x6f\x6e\x65\x2e\x74\x74",{PHONE=>$eQouG92ptw->{$nLhoBPgdW8},WEBRTC=>{REALM=>$scrqlZeB3C->XUp8KtvxSh("\x57\x45\x42\x52\x54\x43\x5f\x52\x45\x41\x4c\x4d"),WS=>$scrqlZeB3C->XUp8KtvxSh("\x57\x45\x42\x52\x54\x43\x5f\x57\x53"),ICE=>$scrqlZeB3C->XUp8KtvxSh("\x57\x45\x42\x52\x54\x43\x5f\x49\x43\x45"),UI_SKIP_PSWD=>$TfeJUvBnra},NOCONTROL=>$xAfjBueCha,PHONE_ONLY=>$ewp5zv9ro8});}elsif($ttaEwbuMUZ eq "\x70\x70\x5f\x71\x73\x74\x61\x74\x75\x73"){my $M0dORtUMq2=$scrqlZeB3C->TH8vcZTGhW("\x71\x5f\x69\x64");my $soUk1FquQp=$scrqlZeB3C->TH8vcZTGhW("\x73\x74\x61\x74\x75\x73")||0;if($M0dORtUMq2 and length($soUk1FquQp)){TkGtCsQ67E($scrqlZeB3C,$eQouG92ptw->{$nLhoBPgdW8},$M0dORtUMq2,$soUk1FquQp);}return $scrqlZeB3C->CsbkvtiHqf();}else{return eWvFUzJf1x($scrqlZeB3C,{});}}sub vV1UJIexOQ{my($scrqlZeB3C,$uOLck4eI1s)=@_;my($jdW9ZHgIRA,$tBOxm9Vf5H,$irhALTt8Hq,$RODWMGdR0B,$ZJFKQc3NIv,$DXDc6xzHrB,$qGX158jrDJ,$qToYQUV2AZ,$tNdRPA3Bpt)=$scrqlZeB3C->TH8vcZTGhW([[(from=>0)],qw(from_time to_time smart_time caller_id called_id duration login pswd)]);my @qPt9pCMNmE=($uOLck4eI1s->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"});if($uOLck4eI1s->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"}){push @qPt9pCMNmE,@{$scrqlZeB3C->Cl7eJBZ4yI($uOLck4eI1s->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"})};}unless(length("$tBOxm9Vf5H$irhALTt8Hq$ZJFKQc3NIv$DXDc6xzHrB$qGX158jrDJ")){my $mpJES5Rlk0=$scrqlZeB3C->XUp8KtvxSh("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x55\x49");$tBOxm9Vf5H=$scrqlZeB3C->YPbw2qFVnY(time-86400*$mpJES5Rlk0,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$irhALTt8Hq=$scrqlZeB3C->YPbw2qFVnY(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}$scrqlZeB3C->wvlK3SPr9x($scrqlZeB3C->T0fMjaKi97()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$scrqlZeB3C->T0fMjaKi97()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});my $n321hVH09a=$scrqlZeB3C->uQ2gY49zTq(0,$jdW9ZHgIRA,$scrqlZeB3C->T0fMjaKi97()->{"\x49\x44"},undef,$scrqlZeB3C->q4wf1vd9KY($tBOxm9Vf5H),$scrqlZeB3C->q4wf1vd9KY($irhALTt8Hq),$ZJFKQc3NIv,$DXDc6xzHrB,undef,$qGX158jrDJ,join("\x7c",@qPt9pCMNmE));if($n321hVH09a){my $WyKdnao6be=$jdW9ZHgIRA+1;my $ZMLSTybBp0=$scrqlZeB3C->T0fMjaKi97()->{"\x48\x49\x44\x45\x5f\x4e\x55\x4d\x42\x45\x52\x53"};foreach my $YfrRAq49Py(@{$n321hVH09a}){$YfrRAq49Py->{"\x4d\x53\x47\x5f\x4e\x55\x4d"}=$WyKdnao6be++;$YfrRAq49Py->{"\x4d\x53\x47\x5f\x44\x41\x54\x45"}=$scrqlZeB3C->YPbw2qFVnY($YfrRAq49Py->{"\x43\x52\x45\x41\x54\x45\x5f\x54\x49\x4d\x45"});if($ZMLSTybBp0){$scrqlZeB3C->jtTGXpHZq9(\$YfrRAq49Py->{"\x43\x41\x4c\x4c\x45\x52\x49\x44"},$ZMLSTybBp0);$scrqlZeB3C->jtTGXpHZq9(\$YfrRAq49Py->{"\x43\x41\x4c\x4c\x45\x44\x49\x44"},$ZMLSTybBp0);}}}$scrqlZeB3C->wvlK3SPr9x();return kNcPgbROm2($scrqlZeB3C,"\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=>$n321hVH09a,FROM_TIME=>$tBOxm9Vf5H,TO_TIME=>$irhALTt8Hq,CALLER_ID=>$ZJFKQc3NIv,CALLED_ID=>$DXDc6xzHrB,DURATION=>$qGX158jrDJ,SMART_TIME=>$RODWMGdR0B,$scrqlZeB3C->NHvhUgMaw6(0,$n321hVH09a,$jdW9ZHgIRA)});}sub RTC5USDhVx{my($scrqlZeB3C,$uOLck4eI1s)=@_;my($tBOxm9Vf5H,$irhALTt8Hq,$RODWMGdR0B,$ZJFKQc3NIv,$ud1BRQ0X9l,$DXDc6xzHrB,$qGX158jrDJ,$lTMLOFqljn,$TtMmydp4WX)=$scrqlZeB3C->TH8vcZTGhW([qw(from_time to_time smart_time caller_id call_type called_id duration data raw_chart_data)]);my $nLhoBPgdW8=$uOLck4eI1s->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"};$scrqlZeB3C->wvlK3SPr9x($scrqlZeB3C->T0fMjaKi97()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$scrqlZeB3C->T0fMjaKi97()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});unless(length("$tBOxm9Vf5H$irhALTt8Hq$ZJFKQc3NIv$ud1BRQ0X9l$DXDc6xzHrB$qGX158jrDJ$lTMLOFqljn")){my $mpJES5Rlk0=$scrqlZeB3C->XUp8KtvxSh("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x55\x49");$tBOxm9Vf5H=$scrqlZeB3C->YPbw2qFVnY(time-86400*$mpJES5Rlk0,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$irhALTt8Hq=$scrqlZeB3C->YPbw2qFVnY(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my @qPt9pCMNmE=($nLhoBPgdW8);if($uOLck4eI1s->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"}){push @qPt9pCMNmE,@{$scrqlZeB3C->Cl7eJBZ4yI($uOLck4eI1s->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"})};}my $dPuU3a7WG8=$scrqlZeB3C->AmgIOA7BFy($ZJFKQc3NIv,$scrqlZeB3C->q4wf1vd9KY(($tBOxm9Vf5H||"\x30\x30\x3a\x30\x30")),$scrqlZeB3C->q4wf1vd9KY($irhALTt8Hq),($scrqlZeB3C->TH8vcZTGhW("\x63\x68\x61\x72\x74\x5f\x67\x72\x6f\x75\x70\x5f\x70\x65\x72\x69\x6f\x64")||"\x64"),$ud1BRQ0X9l,$DXDc6xzHrB,$qGX158jrDJ,$lTMLOFqljn,$TtMmydp4WX,join("\x7c",@qPt9pCMNmE));my $odEght50cB;unless($TtMmydp4WX){$odEght50cB=$scrqlZeB3C->YPbw2qFVnY($dPuU3a7WG8->[2])."\x20\x2d\x20".$scrqlZeB3C->YPbw2qFVnY($dPuU3a7WG8->[3]);}$scrqlZeB3C->wvlK3SPr9x();if($TtMmydp4WX){unless($dPuU3a7WG8){$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}else{if($dPuU3a7WG8=~ /xlsx$/){return $scrqlZeB3C->oypGmxJ10z($dPuU3a7WG8,"\x61\x70\x70\x6c\x69\x63\x61\x74\x69\x6f\x6e\x2f\x78\x6c\x73\x78");}else{return $scrqlZeB3C->oypGmxJ10z($dPuU3a7WG8,"\x74\x65\x78\x74\x2f\x63\x73\x76");}}}unless(ref $dPuU3a7WG8 eq "\x41\x52\x52\x41\x59"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $fSkhyucA9s=$scrqlZeB3C->XUp8KtvxSh("\x43\x47\x49\x5f\x45\x58\x43\x45\x4c\x5f\x4d\x4f\x44\x45");if(exists $scrqlZeB3C->T0fMjaKi97()->{"\x45\x58\x43\x45\x4c\x5f\x4d\x4f\x44\x45"}){$fSkhyucA9s=$scrqlZeB3C->T0fMjaKi97()->{"\x45\x58\x43\x45\x4c\x5f\x4d\x4f\x44\x45"};}return kNcPgbROm2($scrqlZeB3C,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x63\x64\x72\x73\x5f\x63\x68\x61\x72\x74\x2e\x74\x74",{CDR_LIST=>$dPuU3a7WG8->[0],CDR_HEADER=>$odEght50cB,CDR_PERIOD=>$dPuU3a7WG8->[1],CDR_CALLER_ID=>$ZJFKQc3NIv,CDR_CALLED_ID=>$DXDc6xzHrB,CDR_CALL_TYPE=>$ud1BRQ0X9l,CDR_DURATION=>$qGX158jrDJ,CDR_DATA=>$lTMLOFqljn,CDR_WITH_ASR=>$scrqlZeB3C->XUp8KtvxSh("\x43\x47\x49\x5f\x53\x54\x41\x54\x5f\x57\x49\x54\x48\x5f\x41\x53\x52"),PHONE=>$nLhoBPgdW8,EXCEL_MODE=>$fSkhyucA9s,SMART_TIME=>$RODWMGdR0B,FROM_TIME=>$tBOxm9Vf5H,TO_TIME=>$irhALTt8Hq});}sub JW6nGfpHJ7{my($scrqlZeB3C,$uOLck4eI1s)=@_;my($jdW9ZHgIRA,$tBOxm9Vf5H,$irhALTt8Hq,$ZJFKQc3NIv,$ud1BRQ0X9l,$DXDc6xzHrB,$qGX158jrDJ)=$scrqlZeB3C->TH8vcZTGhW([[(from=>0)],qw(from_time to_time caller_id call_type called_id duration)]);unless(length("$ZJFKQc3NIv$DXDc6xzHrB$tBOxm9Vf5H$irhALTt8Hq$ud1BRQ0X9l$qGX158jrDJ")){my $mpJES5Rlk0=$scrqlZeB3C->XUp8KtvxSh("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x55\x49");$tBOxm9Vf5H=$scrqlZeB3C->YPbw2qFVnY(time-86400*$mpJES5Rlk0,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$irhALTt8Hq=$scrqlZeB3C->YPbw2qFVnY(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my $nLhoBPgdW8=$uOLck4eI1s->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"};my @qPt9pCMNmE=($nLhoBPgdW8);if($uOLck4eI1s->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"}){push @qPt9pCMNmE,@{$scrqlZeB3C->Cl7eJBZ4yI($uOLck4eI1s->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"})};}$scrqlZeB3C->wvlK3SPr9x($scrqlZeB3C->T0fMjaKi97()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$scrqlZeB3C->T0fMjaKi97()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});my $ZWbtupBIwx=$scrqlZeB3C->SNvWeyszfD("\x63\x64\x72",$ZJFKQc3NIv,$scrqlZeB3C->q4wf1vd9KY($tBOxm9Vf5H),$scrqlZeB3C->q4wf1vd9KY($irhALTt8Hq),undef,undef,$ud1BRQ0X9l,$DXDc6xzHrB,$qGX158jrDJ,undef,join("\x7c",@qPt9pCMNmE));$scrqlZeB3C->wvlK3SPr9x();unless($ZWbtupBIwx){$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}else{if($ZWbtupBIwx=~ /xlsx$/){return $scrqlZeB3C->oypGmxJ10z($ZWbtupBIwx,"\x61\x70\x70\x6c\x69\x63\x61\x74\x69\x6f\x6e\x2f\x78\x6c\x73\x78");}else{return $scrqlZeB3C->oypGmxJ10z($ZWbtupBIwx,"\x74\x65\x78\x74\x2f\x63\x73\x76");}}}sub JqTtoNsx09{my($scrqlZeB3C,$uOLck4eI1s)=@_;my($jdW9ZHgIRA,$tBOxm9Vf5H,$irhALTt8Hq,$RODWMGdR0B,$ZJFKQc3NIv,$ud1BRQ0X9l,$DXDc6xzHrB,$qGX158jrDJ,$tvo971Rgmu)=$scrqlZeB3C->TH8vcZTGhW([[(from=>0)],qw(from_time to_time smart_time caller_id call_type called_id duration cnam)]);my $nLhoBPgdW8=$uOLck4eI1s->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"};$scrqlZeB3C->wvlK3SPr9x($scrqlZeB3C->T0fMjaKi97()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$scrqlZeB3C->T0fMjaKi97()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});unless(length("$ZJFKQc3NIv$DXDc6xzHrB$tBOxm9Vf5H$irhALTt8Hq$ud1BRQ0X9l$qGX158jrDJ$tvo971Rgmu")){my $mpJES5Rlk0=$scrqlZeB3C->XUp8KtvxSh("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x55\x49");$tBOxm9Vf5H=$scrqlZeB3C->YPbw2qFVnY(time-86400*$mpJES5Rlk0,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$irhALTt8Hq=$scrqlZeB3C->YPbw2qFVnY(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my @qPt9pCMNmE=($nLhoBPgdW8);if($uOLck4eI1s->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"}){push @qPt9pCMNmE,@{$scrqlZeB3C->Cl7eJBZ4yI($uOLck4eI1s->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"})};}my $Ik9YoaH2DU=$scrqlZeB3C->ZU2hZWAKnE(undef,$ZJFKQc3NIv,$jdW9ZHgIRA,"\x63\x64\x72",$scrqlZeB3C->q4wf1vd9KY($tBOxm9Vf5H),$scrqlZeB3C->q4wf1vd9KY($irhALTt8Hq),undef,undef,$ud1BRQ0X9l,$DXDc6xzHrB,$qGX158jrDJ,undef,undef,join("\x7c",@qPt9pCMNmE),$tvo971Rgmu);if($Ik9YoaH2DU){my $ZMLSTybBp0=$scrqlZeB3C->T0fMjaKi97()->{"\x48\x49\x44\x45\x5f\x4e\x55\x4d\x42\x45\x52\x53"};my $WyKdnao6be=$jdW9ZHgIRA+1;foreach my $VJl1O7oyw5(@{$Ik9YoaH2DU}){$VJl1O7oyw5->{"\x43\x44\x52\x5f\x4e\x55\x4d"}=$WyKdnao6be++;$VJl1O7oyw5->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$scrqlZeB3C->YPbw2qFVnY($VJl1O7oyw5->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});if($ZMLSTybBp0){$scrqlZeB3C->jtTGXpHZq9(\$VJl1O7oyw5->{"\x43\x41\x4c\x4c\x45\x52\x5f\x49\x44"},$ZMLSTybBp0);$scrqlZeB3C->jtTGXpHZq9(\$VJl1O7oyw5->{"\x43\x41\x4c\x4c\x45\x44\x5f\x49\x44"},$ZMLSTybBp0);$VJl1O7oyw5->{"\x44\x41\x54\x41"}=~ s/(DID=|PN=|RN=)([^,]+)(\d{$ZMLSTybBp0})(,|$)/$1x$3$4/g;}if(not exists $VJl1O7oyw5->{"\x56\x42\x5f\x49\x44"}and $VJl1O7oyw5->{"\x44\x41\x54\x41"}=~ /FILE=(\d+):([^\s,]+)/){$VJl1O7oyw5->{"\x56\x42\x5f\x49\x44"}=$1;$VJl1O7oyw5->{"\x46\x49\x4c\x45\x5f\x4e\x41\x4d\x45"}=$2;}}}$scrqlZeB3C->wvlK3SPr9x();my $Sz1fOc8ryx=$scrqlZeB3C->Vj0qyrFGPg();my $plUVODXPzB;foreach my $is2oB3IjkL(keys %$Sz1fOc8ryx){if($Sz1fOc8ryx->{$is2oB3IjkL}->{"\x45\x58\x54\x45\x4e\x53\x49\x4f\x4e"}eq "\x63\x72\x6d\x2d\x63\x32\x63\x2d\x67\x77"){$plUVODXPzB="ph=$nLhoBPgdW8&key=$is2oB3IjkL&ac=".$scrqlZeB3C->T0fMjaKi97()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"};last;}}return kNcPgbROm2($scrqlZeB3C,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x63\x64\x72\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74",{CDR_LIST=>$Ik9YoaH2DU,CDR_CALLER_ID=>$ZJFKQc3NIv,CDR_CALLED_ID=>$DXDc6xzHrB,CDR_DURATION=>$qGX158jrDJ,FROM_TIME=>$tBOxm9Vf5H,TO_TIME=>$irhALTt8Hq,SMART_TIME=>$RODWMGdR0B,CDR_CNAM=>$tvo971Rgmu,CDR_CALL_TYPE=>$ud1BRQ0X9l,C2C=>$plUVODXPzB,PHONE=>$nLhoBPgdW8,$scrqlZeB3C->NHvhUgMaw6(0,$Ik9YoaH2DU,$jdW9ZHgIRA)});}sub LgwQ31ankl{my($scrqlZeB3C,$uOLck4eI1s)=@_;my($jdW9ZHgIRA,$ZJFKQc3NIv,$DXDc6xzHrB,$C1KxN90s87,$ud1BRQ0X9l,$i7P6o0E8ac,$plUVODXPzB,$qGX158jrDJ)=$scrqlZeB3C->TH8vcZTGhW([[(from=>0)],qw(caller_id called_id ac call_type refresh c2c duration)]);my $lrf4leuzLm;if($scrqlZeB3C->T0fMjaKi97()->{"\x41\x4c\x4c\x4f\x57\x5f\x43\x54\x52"}){$lrf4leuzLm=$scrqlZeB3C->EAChg3VyoO($ZJFKQc3NIv,$DXDc6xzHrB,$scrqlZeB3C->T0fMjaKi97()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"},$ud1BRQ0X9l,$qGX158jrDJ,undef,undef,undef,$jdW9ZHgIRA);}else{$i7P6o0E8ac="\x38\x36\x34\x30\x30";}unless(ref $lrf4leuzLm eq "\x41\x52\x52\x41\x59"){$lrf4leuzLm=[];}my $sSTN91gFoJ=[];if(scalar @$lrf4leuzLm){$scrqlZeB3C->wvlK3SPr9x($scrqlZeB3C->T0fMjaKi97()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$scrqlZeB3C->T0fMjaKi97()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});my $ZMLSTybBp0=$scrqlZeB3C->T0fMjaKi97()->{"\x48\x49\x44\x45\x5f\x4e\x55\x4d\x42\x45\x52\x53"};foreach my $VJl1O7oyw5(@{$lrf4leuzLm}){$VJl1O7oyw5->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$scrqlZeB3C->YPbw2qFVnY($VJl1O7oyw5->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});$VJl1O7oyw5->{"\x43\x44\x52\x5f\x44\x55\x52\x41\x54\x49\x4f\x4e"}=time-$VJl1O7oyw5->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"};if($VJl1O7oyw5->{"\x43\x41\x4c\x4c\x5f\x54\x59\x50\x45"}ne "\x74\x72\x61\x6e\x73\x69\x74" and $VJl1O7oyw5->{"\x43\x41\x4c\x4c\x5f\x54\x59\x50\x45"}ne "\x69\x6e\x74\x65\x72\x6e\x61\x6c" and $VJl1O7oyw5->{"\x43\x41\x4c\x4c\x5f\x54\x59\x50\x45"}ne "\x73\x65\x72\x76\x69\x63\x65"){my($nSi1CjEOUv,$Kza0lnNokv,$ZFGeA8TvJV)=split(/:/,$scrqlZeB3C->zO9VlUrSf1("\x73\x68\x2d\x63\x2d\x74\x72\x61\x63\x6b\x2d\x63\x75\x72\x2d\x65\x78\x74\x2d".$VJl1O7oyw5->{"\x43\x41\x4c\x4c\x5f\x49\x44"}));$VJl1O7oyw5->{"\x45\x58\x54\x5f\x54\x53"}=time-$nSi1CjEOUv;$VJl1O7oyw5->{"\x45\x58\x54\x5f\x49\x44"}=$Kza0lnNokv;$VJl1O7oyw5->{"\x41\x4e\x53\x57\x45\x52\x45\x44"}=$ZFGeA8TvJV;}foreach my $ZdpY7gFCoO(@{$scrqlZeB3C->Cl7eJBZ4yI($uOLck4eI1s->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"})},$uOLck4eI1s->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"}){next unless length $ZdpY7gFCoO;if($VJl1O7oyw5->{"\x43\x41\x4c\x4c\x45\x52\x5f\x49\x44"}eq $ZdpY7gFCoO or $VJl1O7oyw5->{"\x43\x41\x4c\x4c\x45\x44\x5f\x49\x44"}eq $ZdpY7gFCoO or $VJl1O7oyw5->{"\x41\x4e\x53\x57\x45\x52\x45\x44"}eq $ZdpY7gFCoO){push @$sSTN91gFoJ,$VJl1O7oyw5;last;}elsif(index($ZdpY7gFCoO,"\x2a")==0 and length($ZdpY7gFCoO)>1){if("\x2a".$VJl1O7oyw5->{"\x45\x58\x54\x5f\x49\x44"}eq $ZdpY7gFCoO){push @$sSTN91gFoJ,$VJl1O7oyw5;last;}}}if($ZMLSTybBp0){$scrqlZeB3C->jtTGXpHZq9(\$VJl1O7oyw5->{"\x43\x41\x4c\x4c\x45\x52\x5f\x49\x44"},$ZMLSTybBp0);$scrqlZeB3C->jtTGXpHZq9(\$VJl1O7oyw5->{"\x43\x41\x4c\x4c\x45\x44\x5f\x49\x44"},$ZMLSTybBp0);}}$scrqlZeB3C->wvlK3SPr9x();}if($i7P6o0E8ac and $i7P6o0E8ac<$scrqlZeB3C->XUp8KtvxSh("\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")){$i7P6o0E8ac=$scrqlZeB3C->XUp8KtvxSh("\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($i7P6o0E8ac){my $Sz1fOc8ryx=$scrqlZeB3C->Vj0qyrFGPg();foreach my $is2oB3IjkL(keys %$Sz1fOc8ryx){if($Sz1fOc8ryx->{$is2oB3IjkL}->{"\x45\x58\x54\x45\x4e\x53\x49\x4f\x4e"}eq "\x78\x76\x62\x73\x70\x79"){if($scrqlZeB3C->GNab4vzMVu()->{"\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"){$plUVODXPzB=$is2oB3IjkL."\x26\x70\x68\x3d".$uOLck4eI1s->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"};}last;}}}return kNcPgbROm2($scrqlZeB3C,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74",{CALLS_COUNT=>scalar(@$sSTN91gFoJ),CALLS_LIST=>$sSTN91gFoJ,CDR_CALLER_ID=>$ZJFKQc3NIv,CDR_CALLED_ID=>$DXDc6xzHrB,CDR_CALL_TYPE=>$ud1BRQ0X9l,CDR_REFRESH_TIME=>$i7P6o0E8ac,CDR_C2C=>$plUVODXPzB,CDR_DURATION=>$qGX158jrDJ,$scrqlZeB3C->NHvhUgMaw6(1,$sSTN91gFoJ,$jdW9ZHgIRA)});}sub TkGtCsQ67E{my($scrqlZeB3C,$uOLck4eI1s,$M0dORtUMq2,$soUk1FquQp)=@_;my $ZJFKQc3NIv=$uOLck4eI1s->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"};foreach my $Kza0lnNokv(keys %{$scrqlZeB3C->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}}){if($scrqlZeB3C->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$Kza0lnNokv}->{"\x54\x59\x50\x45"}eq "\x31\x33"){if($M0dORtUMq2 and $M0dORtUMq2 ne $scrqlZeB3C->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$Kza0lnNokv}->{"\x49\x44"}){next;}my($g54ZaY6Jw9)=$scrqlZeB3C->ygcJ8eY2v3([$scrqlZeB3C->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$Kza0lnNokv}->{"\x43\x41\x4c\x4c\x5f\x4e\x55\x4d\x42\x45\x52"}],"\x6e\x6f\x71\x75\x6f\x74\x65");$g54ZaY6Jw9=~ s#[^,_@\w\d:.*\|\/-]##gs;foreach my $ncVYdjQt4X(split(/,/,$g54ZaY6Jw9)){unless(index($ncVYdjQt4X,"$ZJFKQc3NIv/")){if($soUk1FquQp){$soUk1FquQp=1;}else{$soUk1FquQp=0;}$scrqlZeB3C->zO9VlUrSf1("\x73\x68\x2d\x71\x75\x65\x75\x65\x2d\x61\x67\x65\x6e\x74\x2d".$scrqlZeB3C->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$Kza0lnNokv}->{"\x49\x44"}."\x2d".$ZJFKQc3NIv,$soUk1FquQp,0);$scrqlZeB3C->jdS8eFc2Hz();$scrqlZeB3C->jdS8eFc2Hz({EVENT_START_TIME=>$scrqlZeB3C->sX0UiaHcVY(),EVENT_TYPE=>"\x41\x67\x65\x6e\x74\x53\x74\x61\x74\x75\x73",EVENT_STOP_TIME=>0,EVENT_EXT=>$Kza0lnNokv,ENH_STATUS=>$soUk1FquQp,ENH_AGENT=>$ZJFKQc3NIv,CALL_TYPE=>"\x77\x65\x62",CALLED_ID=>"\x77\x65\x62",CALLER_ID=>$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"}});$scrqlZeB3C->uhlqxk4d1M();last;}}}}}sub qZAdzFsy9P{my($scrqlZeB3C,$uOLck4eI1s)=@_;my($jdW9ZHgIRA,$PRmHGQ0Ya8)=$scrqlZeB3C->TH8vcZTGhW([[(from=>0)],"\x6e\x61\x6d\x65"]);my $dZdHVGlAxg;if(length($uOLck4eI1s->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"})){$dZdHVGlAxg=2;}else{$dZdHVGlAxg=3;}my $AKRM0lAN9q=$scrqlZeB3C->vSraIgJKbD(undef,$dZdHVGlAxg,$PRmHGQ0Ya8,$jdW9ZHgIRA,"\x69\x73\x5f\x75\x69");unless(ref $AKRM0lAN9q eq "\x41\x52\x52\x41\x59"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;return 0;}kNcPgbROm2($scrqlZeB3C,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x72\x65\x70\x6f\x72\x74\x5f\x6c\x69\x73\x74\x2e\x74\x74",{REPORTS=>$AKRM0lAN9q,SEARCH_NAME=>$PRmHGQ0Ya8,$scrqlZeB3C->NHvhUgMaw6(1,$AKRM0lAN9q,$jdW9ZHgIRA)});}sub Tft2I53vX6{my($scrqlZeB3C,$uOLck4eI1s)=@_;my($y9gqorTZKs,$MF8C6QxLUk,$sWXlkdZYNz,$JS9km8vfY5,$RODWMGdR0B)=$scrqlZeB3C->TH8vcZTGhW([qw(report_id need_excel from_time to_time smart_time)]);$scrqlZeB3C->wvlK3SPr9x($scrqlZeB3C->T0fMjaKi97()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$scrqlZeB3C->T0fMjaKi97()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});my $t3HnCN9MKv=$scrqlZeB3C->q4wf1vd9KY($sWXlkdZYNz);my $msLd7uBvp1=$scrqlZeB3C->q4wf1vd9KY($JS9km8vfY5);$scrqlZeB3C->wvlK3SPr9x();my(%a7b86LPkK2,@d5JnxIeahb,$dZdHVGlAxg);if(length($uOLck4eI1s->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"})){$dZdHVGlAxg=2;}else{$dZdHVGlAxg=3;}my $YAvVholYBS=$scrqlZeB3C->vSraIgJKbD($y9gqorTZKs,$dZdHVGlAxg,undef,undef,"\x69\x73\x5f\x75\x69");if(! ref $YAvVholYBS eq "\x41\x52\x52\x41\x59" or scalar(@{$YAvVholYBS})==0){$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);return 0;}if($YAvVholYBS->[0]->{"\x45\x58\x54\x52\x41\x5f\x50\x41\x52\x41\x4d\x53"}){foreach my $lG1VD3yCNu(split(/\s*\|\s*/,$YAvVholYBS->[0]->{"\x45\x58\x54\x52\x41\x5f\x50\x41\x52\x41\x4d\x53"})){my($NrBig7AEKo,$zojXkdlV9h,$ns145oQkKu)=split(/\s*:\s*/,$lG1VD3yCNu,3);$a7b86LPkK2{$NrBig7AEKo}=$scrqlZeB3C->TH8vcZTGhW($NrBig7AEKo);push @d5JnxIeahb,{name=>$NrBig7AEKo,label=>$zojXkdlV9h,value=>$a7b86LPkK2{$NrBig7AEKo}};}}$a7b86LPkK2{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"}=$uOLck4eI1s->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"};$a7b86LPkK2{"\x55\x53\x45\x52\x5f\x50\x48\x4f\x4e\x45"}=$uOLck4eI1s->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"};my $EHqn9m5Q48=$scrqlZeB3C->vP4lyvEzsu($y9gqorTZKs,$YAvVholYBS->[0]->{"\x54\x59\x50\x45"},$MF8C6QxLUk,$t3HnCN9MKv,$msLd7uBvp1,\%a7b86LPkK2,"\x69\x73\x5f\x75\x69");if($MF8C6QxLUk){if($EHqn9m5Q48){if($EHqn9m5Q48=~ /xlsx$/){return $scrqlZeB3C->oypGmxJ10z($EHqn9m5Q48,"\x61\x70\x70\x6c\x69\x63\x61\x74\x69\x6f\x6e\x2f\x78\x6c\x73\x78");}else{return $scrqlZeB3C->oypGmxJ10z($EHqn9m5Q48,"\x74\x65\x78\x74\x2f\x63\x73\x76");}}}unless(ref $EHqn9m5Q48 eq "\x41\x52\x52\x41\x59"){$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);return 0;}my $aN30h9dstL=[];my $c6HNEWIvY7=[];foreach my $ih3G0nS7uC(@{$EHqn9m5Q48->[1]}){my $is2oB3IjkL=$ih3G0nS7uC;if($is2oB3IjkL=~ s/^=//){push @{$c6HNEWIvY7},{name=>$is2oB3IjkL,align=>"\x6c\x65\x66\x74"};}elsif($is2oB3IjkL=~ s/=$//){push @{$c6HNEWIvY7},{name=>$is2oB3IjkL,align=>"\x72\x69\x67\x68\x74"};}else{push @{$c6HNEWIvY7},{name=>$is2oB3IjkL,align=>"\x63\x65\x6e\x74\x65\x72"};}}for(0..$#{$EHqn9m5Q48->[0]}){$aN30h9dstL->[$_]=[];foreach my $ih3G0nS7uC(@{$EHqn9m5Q48->[1]}){my $is2oB3IjkL=$ih3G0nS7uC;my $n9Z6pCyUs7=$EHqn9m5Q48->[0]->[$_]->{$is2oB3IjkL};if($is2oB3IjkL=~ s/^=//){push @{$aN30h9dstL->[$_]},{value=>$n9Z6pCyUs7,align=>"\x6c\x65\x66\x74",label=>$is2oB3IjkL};}elsif($is2oB3IjkL=~ s/=$//){push @{$aN30h9dstL->[$_]},{value=>$n9Z6pCyUs7,align=>"\x72\x69\x67\x68\x74",label=>$is2oB3IjkL};}else{push @{$aN30h9dstL->[$_]},{value=>$n9Z6pCyUs7,align=>"\x63\x65\x6e\x74\x65\x72",label=>$is2oB3IjkL};}}}my @naLKzcwGgb;unless($scrqlZeB3C->JFEGSlp8HB()->{"\x44\x46"}){@naLKzcwGgb=(REPORT_DATA=>$EHqn9m5Q48->[2]);}kNcPgbROm2($scrqlZeB3C,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x72\x65\x70\x6f\x72\x74\x5f\x72\x65\x73\x75\x6c\x74\x2e\x74\x74",{FROM_TIME=>($sWXlkdZYNz||$EHqn9m5Q48->[3]),TO_TIME=>($JS9km8vfY5||$EHqn9m5Q48->[4]),SMART_TIME=>$RODWMGdR0B,REPORT_RESULT=>$aN30h9dstL,REPORT_HDR=>$c6HNEWIvY7,REPORT_RAW_DATA=>$EHqn9m5Q48->[5],EXTRA_PARAMS=>\@d5JnxIeahb,@naLKzcwGgb});}sub eWvFUzJf1x{my($scrqlZeB3C,$dPuU3a7WG8)=@_;if(my $V7omcfZMkV=$scrqlZeB3C->TH8vcZTGhW("\x6c\x61\x6e\x67")){$V7omcfZMkV=~ s#[^\d\w_.-]##gs;$scrqlZeB3C->T0fMjaKi97()->{"\x4c\x41\x4e\x47\x5f\x4e\x41\x4d\x45"}=$V7omcfZMkV;}return kNcPgbROm2($scrqlZeB3C,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x6c\x6f\x67\x69\x6e\x2e\x74\x74",$dPuU3a7WG8);}sub iHA6OGwKYk{my($scrqlZeB3C)=@_;my $fM8Xkzcu5d=$scrqlZeB3C->TH8vcZTGhW("\x65\x78\x74");my($csn8YdgkWF,$UxvNkU3VbG)=split(/\//,$fM8Xkzcu5d,2);my $dPuU3a7WG8="\x53\x49\x50\x2f\x58\x58\x58\x58\x58\x58\x58\x58\x58\x58";if($ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"}eq "\x31\x32\x37\x2e\x30\x2e\x30\x2e\x31" or $ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"}eq "\x3a\x3a\x31"){if($csn8YdgkWF){my $Ia4Dsv6i27=$scrqlZeB3C->ys6lbfVRgd($csn8YdgkWF);if($Ia4Dsv6i27){my $B8yLHomDrv=$scrqlZeB3C->T0fMjaKi97();%{$B8yLHomDrv}=%{$Ia4Dsv6i27};if($scrqlZeB3C->T0fMjaKi97()->{"\x41\x4c\x4c\x4f\x57\x5f\x53\x55\x42\x53\x43\x52\x49\x42\x45"}){my $eQouG92ptw=$scrqlZeB3C->XzyLTW0V1v();if(ref $eQouG92ptw eq "\x48\x41\x53\x48"){if(exists($eQouG92ptw->{$UxvNkU3VbG})){$dPuU3a7WG8="\x53\x49\x50\x2f".$eQouG92ptw->{$UxvNkU3VbG}->{"\x6e\x61\x6d\x65"}."\x26\x43\x75\x73\x74\x6f\x6d\x3a\x58\x56\x42\x2d".$scrqlZeB3C->T0fMjaKi97()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"}."-$UxvNkU3VbG";}}}}}}$scrqlZeB3C->Ng5UVDpLIM(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",$dPuU3a7WG8);}sub rbCh5BROa0{my($scrqlZeB3C,$C1KxN90s87,$Q3SdH1wWcN)=@_;$scrqlZeB3C->KpSl2jAc6i(["\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"},$C1KxN90s87,$Q3SdH1wWcN]);}sub kNcPgbROm2{my($scrqlZeB3C,$h9HMqKGxSZ,$dPuU3a7WG8,$j8y9coA46j)=@_;$dPuU3a7WG8->{"\x43\x47\x49\x5f\x55\x52\x4c"}=$scrqlZeB3C->XUp8KtvxSh("\x43\x47\x49\x5f\x55\x52\x4c");$dPuU3a7WG8->{"\x43\x47\x49\x5f\x53\x45\x52\x56\x45\x52"}=$scrqlZeB3C->XUp8KtvxSh("\x43\x47\x49\x5f\x53\x45\x52\x56\x45\x52");$dPuU3a7WG8->{"\x55\x4e\x49\x58\x54\x49\x4d\x45"}=time;my $CstK9mSrFo='';my $LpXRuCzZM6='';unless($CstK9mSrFo){my $bnrl8R0PL9;my $qz5hYyVsfR=$scrqlZeB3C->XUp8KtvxSh("\x50\x41\x54\x48\x5f\x54\x45\x4d\x50\x4c\x41\x54\x45\x5f\x44\x49\x52");my $V7omcfZMkV=$scrqlZeB3C->T0fMjaKi97()->{"\x4c\x41\x4e\x47\x5f\x4e\x41\x4d\x45"}||$scrqlZeB3C->XUp8KtvxSh("\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 $B2jwTPUK53=$scrqlZeB3C->T0fMjaKi97()->{"\x53\x55\x42\x5f\x54\x45\x4d\x50\x4c\x41\x54\x45\x5f\x44\x49\x52"};if(length $B2jwTPUK53){$B2jwTPUK53=~ s#[^\d\w_.-]##gs;}if(length($B2jwTPUK53)and-e "$qz5hYyVsfR/$B2jwTPUK53/$V7omcfZMkV/$h9HMqKGxSZ"){$bnrl8R0PL9="$qz5hYyVsfR/$B2jwTPUK53/$V7omcfZMkV/$h9HMqKGxSZ";}elsif(-e "$qz5hYyVsfR/$V7omcfZMkV/$h9HMqKGxSZ"){$bnrl8R0PL9="$qz5hYyVsfR/$V7omcfZMkV/$h9HMqKGxSZ";}else{$bnrl8R0PL9="$qz5hYyVsfR/$h9HMqKGxSZ";}my $Cj4oZQklhY=$scrqlZeB3C->{"\x5f\x54\x4d\x50\x4c"};my $TR9l7EfKQd=$scrqlZeB3C->zO9VlUrSf1("files-$bnrl8R0PL9");unless($TR9l7EfKQd){$TR9l7EfKQd=$Cj4oZQklhY->load_src('',$bnrl8R0PL9);$scrqlZeB3C->zO9VlUrSf1("files-$bnrl8R0PL9",$TR9l7EfKQd,$scrqlZeB3C->XUp8KtvxSh("\x54\x49\x4d\x45\x4f\x55\x54\x5f\x4d\x45\x4d\x5f\x43\x41\x43\x48\x45\x44"));}$dPuU3a7WG8->{"\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}=$scrqlZeB3C->T0fMjaKi97();$Cj4oZQklhY->process(\$TR9l7EfKQd,$dPuU3a7WG8,\$LpXRuCzZM6);}unless($CstK9mSrFo){$scrqlZeB3C->Ng5UVDpLIM(200,"\x4f\x6b",$j8y9coA46j,$LpXRuCzZM6.$scrqlZeB3C->x98mXV5nID("\x67\x36\x31\x33","\x43"));}elsif($CstK9mSrFo eq "\x78\x6d\x6c"){$LpXRuCzZM6=XML::Simple::XMLout($dPuU3a7WG8);$scrqlZeB3C->hdFsb6T8Jk(200,"\x4f\x6b",undef,$LpXRuCzZM6);}elsif($CstK9mSrFo eq "\x6a\x73\x6f\x6e"){my $m9Cn8ySqJl=JSON::XS->new();$scrqlZeB3C->Ng5UVDpLIM(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",$m9Cn8ySqJl->encode($dPuU3a7WG8));}}