#!/usr/bin/perl
########################################################################
#
# $Id: VirtualPBX-EI.cgi,v 1.62 2026/01/31 16:19:40 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 Template::EasyTT;use JSON::XS;use XML::Simple;use POSIX qw(locale_h);use CGI;use vars qw($SpOG4QsB72);KicWIKJ9sR();sub new{my($Y913V678sh,$mEW3pzeGYB)=@_;unless($SpOG4QsB72){$SpOG4QsB72=bless{_TMPL=>Template::EasyTT->new({}),_CONF=>{},},$Y913V678sh;$SpOG4QsB72->TZR6aS18KG($mEW3pzeGYB);$SpOG4QsB72->XvLKd8uXrN();if($SpOG4QsB72->HjVJUqtEFu("\x44\x45\x42\x55\x47\x5f\x48\x54\x54\x50\x5f\x41\x55\x44\x49\x54\x5f\x46\x49\x4c\x45")){$SpOG4QsB72->XvLKd8uXrN("\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");}$SpOG4QsB72->{"\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;$SpOG4QsB72->t1KZpdWmDc(1);chdir($SpOG4QsB72->HjVJUqtEFu("\x50\x41\x54\x48\x5f\x57\x4f\x52\x4b\x5f\x44\x49\x52"));$SpOG4QsB72->UTQoBp9qGm();$SpOG4QsB72->{"\x5f\x54\x4d\x50\x4c"}->filters_add("\x6c\x6f\x63\x61\x6c\x65\x5f\x6d\x73\x67",sub{my $mn0kfhmU9V=$SpOG4QsB72->Si6SRTFdoE($_[1],$SpOG4QsB72->ecsJZ9UvIP()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});$mn0kfhmU9V=~ s#&#&amp;#gs;$mn0kfhmU9V=~ s#\x22#&quot;#gs;$mn0kfhmU9V=~ s#<#&lt;#gs;$mn0kfhmU9V=~ s#>#&gt;#gs;$mn0kfhmU9V=~ s#\x27#&apos;#gs;return $mn0kfhmU9V;});}$SpOG4QsB72->{"\x5f\x43\x44\x52"}={};$SpOG4QsB72->{"\x5f\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}={};$SpOG4QsB72->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}={};$SpOG4QsB72->{"\x5f\x53\x45\x53\x53\x49\x4f\x4e"}={};$SpOG4QsB72->{"\x5f\x43\x47\x49"}=CGI->new();return $SpOG4QsB72;}sub KicWIKJ9sR{my $iIcdnGV59h=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($VUJmEzIP5Q,$mEe1Y2KBzD,$ajJ9vMbs6Z)=$iIcdnGV59h->qTOFl06qrL([qw(login pswd action)]);if(! length($VUJmEzIP5Q)){if($VUJmEzIP5Q=$iIcdnGV59h->{"\x5f\x43\x47\x49"}->cookie("\x6c\x6f\x67\x69\x6e")){$iIcdnGV59h->{"\x5f\x43\x47\x49"}->param(-name=>"\x6c\x6f\x67\x69\x6e",-value=>$VUJmEzIP5Q);}$mEe1Y2KBzD=$iIcdnGV59h->{"\x5f\x43\x47\x49"}->cookie("\x70\x73\x77\x64");}if(! $VUJmEzIP5Q){return YTAR7qmu5S($iIcdnGV59h,{});}elsif($ajJ9vMbs6Z eq "\x68\x69\x6e\x74"){return NA9GNH86x5($iIcdnGV59h);}my($KIWZEG8XOJ,$ZGAYmTzBXU)=split(/\@/,$VUJmEzIP5Q);my $JMrtlNp0Ba;if($iIcdnGV59h->HjVJUqtEFu("\x44\x42\x5f\x43\x41\x43\x48\x45\x5f\x57\x45\x42\x5f\x41\x55\x54\x48")){$JMrtlNp0Ba=$iIcdnGV59h->pV0Rwk87qv("short-user-$ZGAYmTzBXU");unless(ref($JMrtlNp0Ba)){QJFS0lYEPT($iIcdnGV59h,$ZGAYmTzBXU,"\x70\x73\x77\x64\x20\x6d\x69\x73\x6d\x61\x74\x63\x68")if $iIcdnGV59h->Pt8yIjAxeG(1);return YTAR7qmu5S($iIcdnGV59h,{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(! $JMrtlNp0Ba->{"\x53\x54\x41\x54\x55\x53"}and ! $iIcdnGV59h->HjVJUqtEFu("\x43\x47\x49\x5f\x49\x47\x4e\x4f\x52\x45\x5f\x4c\x4f\x43\x4b")){QJFS0lYEPT($iIcdnGV59h,$ZGAYmTzBXU,"\x6c\x6f\x63\x6b\x65\x64")if $iIcdnGV59h->Pt8yIjAxeG(1);return YTAR7qmu5S($iIcdnGV59h,{ERROR_STR=>"\x59\x6f\x75\x72\x20\x61\x63\x63\x6f\x75\x6e\x74\x20\x69\x73\x20\x6c\x6f\x63\x6b\x65\x64"});}}$JMrtlNp0Ba=$iIcdnGV59h->Wc43CEi25W(undef,$ZGAYmTzBXU);unless($JMrtlNp0Ba==1){QJFS0lYEPT($iIcdnGV59h,$ZGAYmTzBXU,"\x70\x73\x77\x64\x20\x6d\x69\x73\x6d\x61\x74\x63\x68")if $iIcdnGV59h->Pt8yIjAxeG(1);return YTAR7qmu5S($iIcdnGV59h,{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 $lGKwetzy4q=$iIcdnGV59h->S9CY8dbac2();if(ref $lGKwetzy4q ne "\x48\x41\x53\x48"){return YTAR7qmu5S($iIcdnGV59h,{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($lGKwetzy4q->{$KIWZEG8XOJ})or length($lGKwetzy4q->{$KIWZEG8XOJ}->{"\x57\x45\x42\x5f\x53\x45\x43\x52\x45\x54"})==0 or $lGKwetzy4q->{$KIWZEG8XOJ}->{"\x57\x45\x42\x5f\x53\x45\x43\x52\x45\x54"}ne $mEe1Y2KBzD){QJFS0lYEPT($iIcdnGV59h,$ZGAYmTzBXU,"\x70\x73\x77\x64\x20\x6d\x69\x73\x6d\x61\x74\x63\x68")if $iIcdnGV59h->Pt8yIjAxeG(1);return YTAR7qmu5S($iIcdnGV59h,{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($lGKwetzy4q->{$KIWZEG8XOJ}->{"\x50\x45\x52\x4d\x49\x54\x5f\x57\x45\x42"})and ! $iIcdnGV59h->{"\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"}){$iIcdnGV59h->{"\x5f\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}->{"\x50\x45\x52\x4d\x49\x54\x5f\x57\x45\x42"}=$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x50\x45\x52\x4d\x49\x54\x5f\x57\x45\x42"};}if(length($iIcdnGV59h->ecsJZ9UvIP()->{"\x50\x45\x52\x4d\x49\x54\x5f\x57\x45\x42"})){unless($iIcdnGV59h->cWFmb1QowC($iIcdnGV59h->ecsJZ9UvIP()->{"\x50\x45\x52\x4d\x49\x54\x5f\x57\x45\x42"},$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"})){return $iIcdnGV59h->YE1ankzU4F(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($lGKwetzy4q->{$KIWZEG8XOJ}->{"\x4c\x41\x4e\x47\x5f\x49\x44"}){$iIcdnGV59h->{"\x5f\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}->{"\x4c\x41\x4e\x47\x5f\x4e\x41\x4d\x45"}=$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x4c\x41\x4e\x47\x5f\x4e\x41\x4d\x45"};$iIcdnGV59h->{"\x5f\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"}=$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"};}if(my $l4stGdmZYc=$iIcdnGV59h->HjVJUqtEFu("\x43\x47\x49\x5f\x45\x49\x5f\x57\x45\x42\x52\x54\x43\x5f\x50\x52\x45\x46")){if($mEe1Y2KBzD=~ /^\Q$l4stGdmZYc\E/i){$ajJ9vMbs6Z="\x70\x70\x5f\x77\x65\x62\x5f\x70\x68\x6f\x6e\x65\x5f\x6f\x6e\x6c\x79";}}if($ajJ9vMbs6Z eq "\x70\x70\x5f\x6d\x65\x6e\x75"){my $Sq8mO6bCrw=$iIcdnGV59h->HjVJUqtEFu("\x57\x45\x42\x52\x54\x43\x5f\x57\x53");if($Sq8mO6bCrw){$Sq8mO6bCrw=0 if $iIcdnGV59h->qTOFl06qrL("\x73\x6b\x69\x70\x5f\x77\x65\x62\x5f\x70\x68\x6f\x6e\x65");}my $rlfe6GA3Jp;if(length($lGKwetzy4q->{$KIWZEG8XOJ}->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"})){$rlfe6GA3Jp=2;}else{$rlfe6GA3Jp=3;}my $ycaN1oMfer=$iIcdnGV59h->VIF92JpEka(undef,$rlfe6GA3Jp,undef,undef,"\x69\x73\x5f\x75\x69");return mTHs1Pwm9i($iIcdnGV59h,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x6d\x65\x6e\x75\x2e\x74\x74",{PHONE=>$lGKwetzy4q->{$KIWZEG8XOJ},CDR_EXTRA_REPORTS=>scalar(@{$ycaN1oMfer}),WEBRTC=>$Sq8mO6bCrw});}elsif($ajJ9vMbs6Z eq "\x70\x70\x5f\x73\x74\x61\x72\x74"){my $jgYw4GP1Ih=$iIcdnGV59h->{"\x5f\x43\x47\x49"}->cookie(-name=>"\x6c\x6f\x67\x69\x6e",-value=>$VUJmEzIP5Q,-path=>"\x2f\x70\x68\x6f\x6e\x65");my $dqrTDWCNXd=$iIcdnGV59h->{"\x5f\x43\x47\x49"}->cookie(-name=>"\x70\x73\x77\x64",-value=>$mEe1Y2KBzD,-path=>"\x2f\x70\x68\x6f\x6e\x65");return mTHs1Pwm9i($iIcdnGV59h,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x73\x74\x61\x72\x74\x2e\x74\x74",{WITH_PHONE=>$iIcdnGV59h->qTOFl06qrL("\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: $jgYw4GP1Ih","Set-Cookie: $dqrTDWCNXd"]);}elsif($ajJ9vMbs6Z eq "\x70\x70\x5f\x6d\x73\x67\x5f\x6c\x69\x73\x74"){twT8aDxAEh($iIcdnGV59h,$lGKwetzy4q->{$KIWZEG8XOJ});}elsif($ajJ9vMbs6Z eq "\x70\x70\x5f\x63\x64\x72\x5f\x6c\x69\x73\x74"){my($HmT8StJfYM,$mUIjbMeJ8P)=$iIcdnGV59h->qTOFl06qrL([qw(need_excel need_chart)]);if($HmT8StJfYM && ! $iIcdnGV59h->ecsJZ9UvIP()->{"\x48\x49\x44\x45\x5f\x4e\x55\x4d\x42\x45\x52\x53"}){Svh7AeTWZ9($iIcdnGV59h,$lGKwetzy4q->{$KIWZEG8XOJ});}elsif($mUIjbMeJ8P){OahrtVqlFy($iIcdnGV59h,$lGKwetzy4q->{$KIWZEG8XOJ});}else{uD7gPhk8wQ($iIcdnGV59h,$lGKwetzy4q->{$KIWZEG8XOJ});}}elsif($ajJ9vMbs6Z eq "\x70\x70\x5f\x70\x69\x6e\x66\x6f"){my $AVwJ4EH1zp=time;$iIcdnGV59h->alHTOaEGkW($iIcdnGV59h->ecsJZ9UvIP()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$iIcdnGV59h->ecsJZ9UvIP()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});if($AVwJ4EH1zp<$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}){$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x52\x45\x47\x5f\x53\x54\x41\x54\x55\x53"}="\x52\x65\x67\x69\x73\x74\x65\x72\x65\x64";}else{$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x52\x45\x47\x5f\x53\x54\x41\x54\x55\x53"}="\x55\x6e\x72\x65\x67\x69\x73\x74\x65\x72\x65\x64";}$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x52\x45\x47\x5f\x45\x58\x50\x49\x52\x45\x44"}=$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}? $iIcdnGV59h->FzbeXHJgMB($lGKwetzy4q->{$KIWZEG8XOJ}->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}):"\x2d";$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}=$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}? $iIcdnGV59h->FzbeXHJgMB($lGKwetzy4q->{$KIWZEG8XOJ}->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}):"\x2d";$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x52\x41\x57\x44\x4e\x44"}=$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x44\x4e\x44"};$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x44\x4e\x44"}=$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x44\x4e\x44"}? $iIcdnGV59h->FzbeXHJgMB($lGKwetzy4q->{$KIWZEG8XOJ}->{"\x44\x4e\x44"}):'';$iIcdnGV59h->alHTOaEGkW();my $fbhpgSYozW=$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"};my $qZvKkOaijl=[];foreach my $Z07Zcz3tAl(keys %{$iIcdnGV59h->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}}){if($iIcdnGV59h->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$Z07Zcz3tAl}->{"\x54\x59\x50\x45"}eq "\x31\x33"){my($t9dIX4xOaF)=$iIcdnGV59h->S8fZCDAlrv([$iIcdnGV59h->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$Z07Zcz3tAl}->{"\x43\x41\x4c\x4c\x5f\x4e\x55\x4d\x42\x45\x52"}],"\x6e\x6f\x71\x75\x6f\x74\x65");$t9dIX4xOaF=~ s#[^,_@\w\d:.*\|\/-]##gs;foreach my $z89lbn2zo7(split(/,/,$t9dIX4xOaF)){unless(index($z89lbn2zo7,"$fbhpgSYozW/")){my $KQvWtR0pKs=$iIcdnGV59h->pV0Rwk87qv("\x73\x68\x2d\x71\x75\x65\x75\x65\x2d\x61\x67\x65\x6e\x74\x2d".$iIcdnGV59h->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$Z07Zcz3tAl}->{"\x49\x44"}."\x2d".$fbhpgSYozW);push @{$qZvKkOaijl},{NAME=>$iIcdnGV59h->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$Z07Zcz3tAl}->{"\x45\x58\x54\x5f\x4e\x55\x4d\x42\x45\x52"}."\x20\x28\x20".$iIcdnGV59h->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$Z07Zcz3tAl}->{"\x4e\x41\x4d\x45"}."\x20\x29",STATUS=>$KQvWtR0pKs,ID=>$iIcdnGV59h->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$Z07Zcz3tAl}->{"\x49\x44"}};last;}}}}my $FWah3ZRD92=0;if($lGKwetzy4q->{$KIWZEG8XOJ}->{"\x68\x6f\x74\x64\x65\x73\x6b\x5f\x63\x61\x6c\x6c\x65\x72\x69\x64"}or $lGKwetzy4q->{$KIWZEG8XOJ}->{"\x48\x4f\x54\x44\x45\x53\x4b\x5f\x43\x49\x44"}){$FWah3ZRD92=1;}return mTHs1Pwm9i($iIcdnGV59h,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x70\x69\x6e\x66\x6f\x2e\x74\x74",{PHONE=>$lGKwetzy4q->{$KIWZEG8XOJ},HOTDESK=>$FWah3ZRD92,Q_STAT=>$qZvKkOaijl,LANG=>$iIcdnGV59h->ng5orO4Pky("\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($ajJ9vMbs6Z eq "\x70\x70\x5f\x70\x75\x70\x64\x61\x74\x65"){$iIcdnGV59h->QtMuFcAN7x();$iIcdnGV59h->QtMuFcAN7x({CALLED_ID=>"\x77\x65\x62",CALLER_ID=>$ENV{REMOTE_ADDR},CALL_TYPE=>"\x77\x65\x62"});my $PG7uFt6oci=$iIcdnGV59h->qTOFl06qrL("\x44\x4e\x44");unless($PG7uFt6oci){$PG7uFt6oci=0;}else{if($iIcdnGV59h->qTOFl06qrL("\x52\x41\x57\x44\x4e\x44")){$PG7uFt6oci=$iIcdnGV59h->qTOFl06qrL("\x52\x41\x57\x44\x4e\x44");}else{$PG7uFt6oci=time;}}my $NQ8hSGtb9H=$iIcdnGV59h->qTOFl06qrL("\x46\x57\x44\x5f\x41\x46\x54\x45\x52");my $NKFB8dHyRZ=$iIcdnGV59h->qTOFl06qrL("\x4c\x41\x4e\x47\x5f\x49\x44");if($iIcdnGV59h->CC5HDzTvd8($lGKwetzy4q->{$KIWZEG8XOJ}->{"\x44\x41\x54\x41\x5f\x49\x44"},$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x73\x65\x63\x72\x65\x74"},$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"},$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x44\x45\x53\x43\x52\x49\x50\x54\x49\x4f\x4e"},$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x52\x45\x43\x5f\x4d\x4f\x44\x45"},$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x52\x45\x43\x5f\x45\x58\x54"},$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x50\x49\x43\x4b\x55\x50\x5f\x47\x52\x4f\x55\x50\x53"},$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x6e\x61\x6d\x65"},$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x44\x45\x46\x43\x49\x44"},$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x74\x72\x75\x73\x74\x65\x64\x5f\x69\x70"},$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x45\x4d\x41\x49\x4c"},$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x43\x4f\x4c"},$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x46\x57\x44\x5f\x4e\x55\x4d"},$NQ8hSGtb9H,$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x57\x45\x42\x5f\x53\x45\x43\x52\x45\x54"},$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x48\x4f\x54\x44\x45\x53\x4b\x5f\x50\x49\x4e"},$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"},$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x4c\x44\x5f\x54\x54\x4c"},$NKFB8dHyRZ,$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x50\x45\x52\x4d\x49\x54\x5f\x57\x45\x42"},$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x43\x55\x53\x54\x4f\x4d\x5f\x56\x41\x52\x53"},$PG7uFt6oci)){if($iIcdnGV59h->ecsJZ9UvIP()->{"\x41\x4c\x4c\x4f\x57\x5f\x53\x55\x42\x53\x43\x52\x49\x42\x45"}){if($PG7uFt6oci and ! $lGKwetzy4q->{$KIWZEG8XOJ}->{"\x44\x4e\x44"}){$iIcdnGV59h->NTAISCDWfj($iIcdnGV59h->ecsJZ9UvIP()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"},$KIWZEG8XOJ,"\x42\x55\x53\x59");}elsif(! $PG7uFt6oci and $lGKwetzy4q->{$KIWZEG8XOJ}->{"\x44\x4e\x44"}){$iIcdnGV59h->NTAISCDWfj($iIcdnGV59h->ecsJZ9UvIP()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"},$KIWZEG8XOJ,"\x4e\x4f\x54\x5f\x49\x4e\x55\x53\x45");}}return $iIcdnGV59h->YE1ankzU4F();}else{return $iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x70\x70\x5f\x70\x62\x6f\x6f\x6b\x5f\x6c\x69\x73\x74"){my $CIJWq2e3cF=$iIcdnGV59h->ts8y2z41ut()||return undef;my $AVyiSmxUTh=$iIcdnGV59h->ts8y2z41ut($lGKwetzy4q->{$KIWZEG8XOJ}->{"\x44\x41\x54\x41\x5f\x49\x44"})||return undef;my $S9wBLoHmGX=$iIcdnGV59h->qTOFl06qrL("\x66\x6f\x72\x6d\x61\x74");if($S9wBLoHmGX eq "\x65\x78\x63\x65\x6c"){my $iwQ4ion1Y0=[];foreach my $yGPnQdCo7U(@{$AVyiSmxUTh}){push @$iwQ4ion1Y0,$yGPnQdCo7U;}foreach my $yGPnQdCo7U(@{$CIJWq2e3cF}){push @$iwQ4ion1Y0,$yGPnQdCo7U;}my $IBNQbKcx9M=$iIcdnGV59h->Lhqs3D2Ky0("\x70\x62\x6f\x6f\x6b",[$iwQ4ion1Y0,[qw(PHONE FIRST_NAME LAST_NAME SHORTCUT DESCRIPTION RESPONSIBLE)]]);unless($IBNQbKcx9M){return $iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}else{if($IBNQbKcx9M=~ /xlsx$/){return $iIcdnGV59h->UjiQak1bsx($IBNQbKcx9M,"\x61\x70\x70\x6c\x69\x63\x61\x74\x69\x6f\x6e\x2f\x78\x6c\x73\x78");}else{return $iIcdnGV59h->UjiQak1bsx($IBNQbKcx9M,"\x74\x65\x78\x74\x2f\x63\x73\x76");}}}my $R9hH0IaWJp=$iIcdnGV59h->krQtJOM3my();my $N54InhmlU6;foreach my $OAbuhZeGgK(keys %$R9hH0IaWJp){if($R9hH0IaWJp->{$OAbuhZeGgK}->{"\x45\x58\x54\x45\x4e\x53\x49\x4f\x4e"}eq "\x63\x72\x6d\x2d\x63\x32\x63\x2d\x67\x77"){$N54InhmlU6="ph=$KIWZEG8XOJ&key=$OAbuhZeGgK&ac=".$iIcdnGV59h->ecsJZ9UvIP()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"};last;}}return mTHs1Pwm9i($iIcdnGV59h,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x70\x62\x6f\x6f\x6b\x2e\x74\x74",{PBOOK_LIST_S=>$CIJWq2e3cF,PBOOK_LIST_P=>$AVyiSmxUTh,C2C=>$N54InhmlU6,PHONE=>$KIWZEG8XOJ,});}elsif($ajJ9vMbs6Z eq "\x70\x70\x5f\x70\x62\x6f\x6f\x6b\x5f\x64\x65\x6c"){my $mNYDVC96zv=$iIcdnGV59h->qTOFl06qrL("\x64\x61\x74\x61\x5f\x69\x64");if($iIcdnGV59h->E6zg8kS7tI($mNYDVC96zv,($mNYDVC96zv eq "\x61\x6c\x6c" ? 1:undef),undef,$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x44\x41\x54\x41\x5f\x49\x44"},$KIWZEG8XOJ)){return $iIcdnGV59h->YE1ankzU4F();}else{return $iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x70\x70\x5f\x70\x62\x6f\x6f\x6b\x5f\x61\x64\x64"){unless($iIcdnGV59h->BaGmk7ZR46($iIcdnGV59h->HjVJUqtEFu("\x54\x41\x42\x4c\x45\x53\x5f\x50\x48\x4f\x4e\x45\x5f\x42\x4f\x4f\x4b"),$iIcdnGV59h->ecsJZ9UvIP()->{"\x4d\x41\x58\x5f\x50\x42\x4f\x4f\x4b\x5f\x49\x54\x45\x4d\x53"},{SUBSCR_ID=>$iIcdnGV59h->ecsJZ9UvIP()->{"\x49\x44"},PHONE_OWNER=>$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x44\x41\x54\x41\x5f\x49\x44"}})){return $iIcdnGV59h->YE1ankzU4F(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 $mNYDVC96zv=$iIcdnGV59h->BZ5r8zN4y0($iIcdnGV59h->qTOFl06qrL([qw(shortcut ph fn ln description)]),undef,undef,$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x44\x41\x54\x41\x5f\x49\x44"},$KIWZEG8XOJ))){return $iIcdnGV59h->YE1ankzU4F(undef,undef,$mNYDVC96zv,"\x23\x61\x64\x64\x61\x72\x65\x61");}else{return $iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x70\x70\x5f\x70\x62\x6f\x6f\x6b\x5f\x75\x70\x64\x61\x74\x65"){if($iIcdnGV59h->Zu6pQA57BJ($iIcdnGV59h->qTOFl06qrL([qw(data_id shortcut ph fn ln description)]),undef,$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x44\x41\x54\x41\x5f\x49\x44"},$KIWZEG8XOJ)){return $iIcdnGV59h->YE1ankzU4F();}else{return $iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x70\x70\x5f\x70\x62\x6f\x6f\x6b\x5f\x75\x70\x6c\x6f\x61\x64"){my $mEW3pzeGYB=$iIcdnGV59h->qTOFl06qrL("\x63\x6f\x6e\x66\x69\x67\x5f\x66\x69\x6c\x65");unless(ref($mEW3pzeGYB)){$mEW3pzeGYB=undef;my $jfz4VY2rJc=$iIcdnGV59h->qTOFl06qrL("\x63\x6f\x6e\x66\x69\x67\x5f\x69\x64");if(length($jfz4VY2rJc)){my $s7tDHxkAQZ=$iIcdnGV59h->GgvBPRUhfG($iIcdnGV59h->ecsJZ9UvIP()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"},undef,$jfz4VY2rJc);if(ref($s7tDHxkAQZ)eq "\x41\x52\x52\x41\x59" and scalar(@{$s7tDHxkAQZ})){$mEW3pzeGYB=$s7tDHxkAQZ->[0]->{"\x46\x5f\x50\x41\x54\x48"};}}}unless($mEW3pzeGYB){return $iIcdnGV59h->YE1ankzU4F();}if($iIcdnGV59h->jw9oXWxvpO($mEW3pzeGYB,0,"\x55\x50\x42\x4f\x4f\x4b",undef,undef,"\x75\x70\x62\x6f\x6f\x6b",{PHONE_OWNER=>$lGKwetzy4q->{$KIWZEG8XOJ}->{"\x44\x41\x54\x41\x5f\x49\x44"},PHONE_NUMBER=>$KIWZEG8XOJ})){return $iIcdnGV59h->YE1ankzU4F();}}elsif($ajJ9vMbs6Z eq "\x70\x70\x5f\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74"){K9jkRUg8Ts($iIcdnGV59h,$lGKwetzy4q->{$KIWZEG8XOJ});}elsif($ajJ9vMbs6Z eq "\x70\x70\x5f\x72\x65\x70\x6f\x72\x74\x5f\x6c\x69\x73\x74"){Eo3IENw2fs($iIcdnGV59h,$lGKwetzy4q->{$KIWZEG8XOJ});}elsif($ajJ9vMbs6Z eq "\x70\x70\x5f\x72\x65\x70\x6f\x72\x74\x5f\x72\x75\x6e"){htT0YjkLDW($iIcdnGV59h,$lGKwetzy4q->{$KIWZEG8XOJ});}elsif($ajJ9vMbs6Z=~ /^pp_web_phone/){my $tJuAPfh0gI=$iIcdnGV59h->HjVJUqtEFu("\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($iIcdnGV59h->ecsJZ9UvIP()->{"\x50\x48\x4f\x4e\x45\x5f\x55\x49\x5f\x53\x4b\x49\x50\x5f\x50\x53\x57\x44"})){$tJuAPfh0gI=$iIcdnGV59h->ecsJZ9UvIP()->{"\x50\x48\x4f\x4e\x45\x5f\x55\x49\x5f\x53\x4b\x49\x50\x5f\x50\x53\x57\x44"};}my $R8ACfB3H4X=$iIcdnGV59h->qTOFl06qrL("\x6e\x6f\x63\x6f\x6e\x74\x72\x6f\x6c");my $YLTtpbaD7A=0;if($ajJ9vMbs6Z eq "\x70\x70\x5f\x77\x65\x62\x5f\x70\x68\x6f\x6e\x65\x5f\x6f\x6e\x6c\x79"){$R8ACfB3H4X=$YLTtpbaD7A=1;}return mTHs1Pwm9i($iIcdnGV59h,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x77\x65\x62\x5f\x70\x68\x6f\x6e\x65\x2e\x74\x74",{PHONE=>$lGKwetzy4q->{$KIWZEG8XOJ},WEBRTC=>{REALM=>$iIcdnGV59h->HjVJUqtEFu("\x57\x45\x42\x52\x54\x43\x5f\x52\x45\x41\x4c\x4d"),WS=>$iIcdnGV59h->HjVJUqtEFu("\x57\x45\x42\x52\x54\x43\x5f\x57\x53"),ICE=>$iIcdnGV59h->HjVJUqtEFu("\x57\x45\x42\x52\x54\x43\x5f\x49\x43\x45"),UI_SKIP_PSWD=>$tJuAPfh0gI},NOCONTROL=>$R8ACfB3H4X,PHONE_ONLY=>$YLTtpbaD7A});}elsif($ajJ9vMbs6Z eq "\x70\x70\x5f\x71\x73\x74\x61\x74\x75\x73"){my $qvy0QaX1JZ=$iIcdnGV59h->qTOFl06qrL("\x71\x5f\x69\x64");my $KQvWtR0pKs=$iIcdnGV59h->qTOFl06qrL("\x73\x74\x61\x74\x75\x73")||0;if($qvy0QaX1JZ and length($KQvWtR0pKs)){mIDq0rNS8f($iIcdnGV59h,$lGKwetzy4q->{$KIWZEG8XOJ},$qvy0QaX1JZ,$KQvWtR0pKs);}return $iIcdnGV59h->YE1ankzU4F();}else{return YTAR7qmu5S($iIcdnGV59h,{});}}sub twT8aDxAEh{my($iIcdnGV59h,$YI5B72kbh1)=@_;my($md6Ee2wxca,$yc8sd7qhkD,$ORwoFtC329,$OSEK34W8Qy,$fbhpgSYozW,$N280nmwrFp,$XVJre0sXw9,$VUJmEzIP5Q,$mEe1Y2KBzD)=$iIcdnGV59h->qTOFl06qrL([[(from=>0)],qw(from_time to_time smart_time caller_id called_id duration login pswd)]);my @Z9jvloNh26=($YI5B72kbh1->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"});if($YI5B72kbh1->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"}){push @Z9jvloNh26,@{$iIcdnGV59h->kwXtq6r70M($YI5B72kbh1->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"})};}unless(length("$yc8sd7qhkD$ORwoFtC329$fbhpgSYozW$N280nmwrFp$XVJre0sXw9")){my $SusjvywmFr=$iIcdnGV59h->HjVJUqtEFu("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x55\x49");$yc8sd7qhkD=$iIcdnGV59h->FzbeXHJgMB(time-86400*$SusjvywmFr,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$ORwoFtC329=$iIcdnGV59h->FzbeXHJgMB(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}$iIcdnGV59h->alHTOaEGkW($iIcdnGV59h->ecsJZ9UvIP()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$iIcdnGV59h->ecsJZ9UvIP()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});my $rK2qz4ypgr=$iIcdnGV59h->Y8O6LFfZ5T(0,$md6Ee2wxca,$iIcdnGV59h->ecsJZ9UvIP()->{"\x49\x44"},undef,$iIcdnGV59h->l5e0jTkJvu($yc8sd7qhkD),$iIcdnGV59h->l5e0jTkJvu($ORwoFtC329),$fbhpgSYozW,$N280nmwrFp,undef,$XVJre0sXw9,join("\x7c",@Z9jvloNh26));if($rK2qz4ypgr){my $idBtAnV7Fk=$md6Ee2wxca+1;my $d0gojqOJ3Q=$iIcdnGV59h->ecsJZ9UvIP()->{"\x48\x49\x44\x45\x5f\x4e\x55\x4d\x42\x45\x52\x53"};foreach my $Q0nPNexruw(@{$rK2qz4ypgr}){$Q0nPNexruw->{"\x4d\x53\x47\x5f\x4e\x55\x4d"}=$idBtAnV7Fk++;$Q0nPNexruw->{"\x4d\x53\x47\x5f\x44\x41\x54\x45"}=$iIcdnGV59h->FzbeXHJgMB($Q0nPNexruw->{"\x43\x52\x45\x41\x54\x45\x5f\x54\x49\x4d\x45"});if($d0gojqOJ3Q){$iIcdnGV59h->gRq1LAWTJ9(\$Q0nPNexruw->{"\x43\x41\x4c\x4c\x45\x52\x49\x44"},$d0gojqOJ3Q);$iIcdnGV59h->gRq1LAWTJ9(\$Q0nPNexruw->{"\x43\x41\x4c\x4c\x45\x44\x49\x44"},$d0gojqOJ3Q);}}}$iIcdnGV59h->alHTOaEGkW();return mTHs1Pwm9i($iIcdnGV59h,"\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=>$rK2qz4ypgr,FROM_TIME=>$yc8sd7qhkD,TO_TIME=>$ORwoFtC329,CALLER_ID=>$fbhpgSYozW,CALLED_ID=>$N280nmwrFp,DURATION=>$XVJre0sXw9,SMART_TIME=>$OSEK34W8Qy,$iIcdnGV59h->cH1IwGlB98(0,$rK2qz4ypgr,$md6Ee2wxca)});}sub OahrtVqlFy{my($iIcdnGV59h,$YI5B72kbh1)=@_;my($yc8sd7qhkD,$ORwoFtC329,$OSEK34W8Qy,$fbhpgSYozW,$yl0qD1kitr,$N280nmwrFp,$XVJre0sXw9,$hWSIiaCGoJ,$D8Qc9VKaqF)=$iIcdnGV59h->qTOFl06qrL([qw(from_time to_time smart_time caller_id call_type called_id duration data raw_chart_data)]);my $KIWZEG8XOJ=$YI5B72kbh1->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"};$iIcdnGV59h->alHTOaEGkW($iIcdnGV59h->ecsJZ9UvIP()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$iIcdnGV59h->ecsJZ9UvIP()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});unless(length("$yc8sd7qhkD$ORwoFtC329$fbhpgSYozW$yl0qD1kitr$N280nmwrFp$XVJre0sXw9$hWSIiaCGoJ")){my $SusjvywmFr=$iIcdnGV59h->HjVJUqtEFu("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x55\x49");$yc8sd7qhkD=$iIcdnGV59h->FzbeXHJgMB(time-86400*$SusjvywmFr,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$ORwoFtC329=$iIcdnGV59h->FzbeXHJgMB(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my @Z9jvloNh26=($KIWZEG8XOJ);if($YI5B72kbh1->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"}){push @Z9jvloNh26,@{$iIcdnGV59h->kwXtq6r70M($YI5B72kbh1->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"})};}my $rJazqo1IZY=$iIcdnGV59h->mfHPZ3BM2X($fbhpgSYozW,$iIcdnGV59h->l5e0jTkJvu(($yc8sd7qhkD||"\x30\x30\x3a\x30\x30")),$iIcdnGV59h->l5e0jTkJvu($ORwoFtC329),($iIcdnGV59h->qTOFl06qrL("\x63\x68\x61\x72\x74\x5f\x67\x72\x6f\x75\x70\x5f\x70\x65\x72\x69\x6f\x64")||"\x64"),$yl0qD1kitr,$N280nmwrFp,$XVJre0sXw9,$hWSIiaCGoJ,$D8Qc9VKaqF,join("\x7c",@Z9jvloNh26));my $FslQKoLt7e;unless($D8Qc9VKaqF){$FslQKoLt7e=$iIcdnGV59h->FzbeXHJgMB($rJazqo1IZY->[2])."\x20\x2d\x20".$iIcdnGV59h->FzbeXHJgMB($rJazqo1IZY->[3]);}$iIcdnGV59h->alHTOaEGkW();if($D8Qc9VKaqF){unless($rJazqo1IZY){$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}else{if($rJazqo1IZY=~ /xlsx$/){return $iIcdnGV59h->UjiQak1bsx($rJazqo1IZY,"\x61\x70\x70\x6c\x69\x63\x61\x74\x69\x6f\x6e\x2f\x78\x6c\x73\x78");}else{return $iIcdnGV59h->UjiQak1bsx($rJazqo1IZY,"\x74\x65\x78\x74\x2f\x63\x73\x76");}}}unless(ref $rJazqo1IZY eq "\x41\x52\x52\x41\x59"){$iIcdnGV59h->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $PoRzZhv59b=$iIcdnGV59h->HjVJUqtEFu("\x43\x47\x49\x5f\x45\x58\x43\x45\x4c\x5f\x4d\x4f\x44\x45");if(exists $iIcdnGV59h->ecsJZ9UvIP()->{"\x45\x58\x43\x45\x4c\x5f\x4d\x4f\x44\x45"}){$PoRzZhv59b=$iIcdnGV59h->ecsJZ9UvIP()->{"\x45\x58\x43\x45\x4c\x5f\x4d\x4f\x44\x45"};}return mTHs1Pwm9i($iIcdnGV59h,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x63\x64\x72\x73\x5f\x63\x68\x61\x72\x74\x2e\x74\x74",{CDR_LIST=>$rJazqo1IZY->[0],CDR_HEADER=>$FslQKoLt7e,CDR_PERIOD=>$rJazqo1IZY->[1],CDR_CALLER_ID=>$fbhpgSYozW,CDR_CALLED_ID=>$N280nmwrFp,CDR_CALL_TYPE=>$yl0qD1kitr,CDR_DURATION=>$XVJre0sXw9,CDR_DATA=>$hWSIiaCGoJ,CDR_WITH_ASR=>$iIcdnGV59h->HjVJUqtEFu("\x43\x47\x49\x5f\x53\x54\x41\x54\x5f\x57\x49\x54\x48\x5f\x41\x53\x52"),PHONE=>$KIWZEG8XOJ,EXCEL_MODE=>$PoRzZhv59b,SMART_TIME=>$OSEK34W8Qy,FROM_TIME=>$yc8sd7qhkD,TO_TIME=>$ORwoFtC329});}sub Svh7AeTWZ9{my($iIcdnGV59h,$YI5B72kbh1)=@_;my($md6Ee2wxca,$yc8sd7qhkD,$ORwoFtC329,$fbhpgSYozW,$yl0qD1kitr,$N280nmwrFp,$XVJre0sXw9)=$iIcdnGV59h->qTOFl06qrL([[(from=>0)],qw(from_time to_time caller_id call_type called_id duration)]);unless(length("$fbhpgSYozW$N280nmwrFp$yc8sd7qhkD$ORwoFtC329$yl0qD1kitr$XVJre0sXw9")){my $SusjvywmFr=$iIcdnGV59h->HjVJUqtEFu("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x55\x49");$yc8sd7qhkD=$iIcdnGV59h->FzbeXHJgMB(time-86400*$SusjvywmFr,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$ORwoFtC329=$iIcdnGV59h->FzbeXHJgMB(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my $KIWZEG8XOJ=$YI5B72kbh1->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"};my @Z9jvloNh26=($KIWZEG8XOJ);if($YI5B72kbh1->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"}){push @Z9jvloNh26,@{$iIcdnGV59h->kwXtq6r70M($YI5B72kbh1->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"})};}$iIcdnGV59h->alHTOaEGkW($iIcdnGV59h->ecsJZ9UvIP()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$iIcdnGV59h->ecsJZ9UvIP()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});my $IBNQbKcx9M=$iIcdnGV59h->nsVCHtbx9o("\x63\x64\x72",$fbhpgSYozW,$iIcdnGV59h->l5e0jTkJvu($yc8sd7qhkD),$iIcdnGV59h->l5e0jTkJvu($ORwoFtC329),undef,undef,$yl0qD1kitr,$N280nmwrFp,$XVJre0sXw9,undef,join("\x7c",@Z9jvloNh26));$iIcdnGV59h->alHTOaEGkW();unless($IBNQbKcx9M){$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}else{if($IBNQbKcx9M=~ /xlsx$/){return $iIcdnGV59h->UjiQak1bsx($IBNQbKcx9M,"\x61\x70\x70\x6c\x69\x63\x61\x74\x69\x6f\x6e\x2f\x78\x6c\x73\x78");}else{return $iIcdnGV59h->UjiQak1bsx($IBNQbKcx9M,"\x74\x65\x78\x74\x2f\x63\x73\x76");}}}sub uD7gPhk8wQ{my($iIcdnGV59h,$YI5B72kbh1)=@_;my($md6Ee2wxca,$yc8sd7qhkD,$ORwoFtC329,$OSEK34W8Qy,$fbhpgSYozW,$yl0qD1kitr,$N280nmwrFp,$XVJre0sXw9,$sDJ6pboTmV)=$iIcdnGV59h->qTOFl06qrL([[(from=>0)],qw(from_time to_time smart_time caller_id call_type called_id duration cnam)]);my $KIWZEG8XOJ=$YI5B72kbh1->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"};$iIcdnGV59h->alHTOaEGkW($iIcdnGV59h->ecsJZ9UvIP()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$iIcdnGV59h->ecsJZ9UvIP()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});unless(length("$fbhpgSYozW$N280nmwrFp$yc8sd7qhkD$ORwoFtC329$yl0qD1kitr$XVJre0sXw9$sDJ6pboTmV")){my $SusjvywmFr=$iIcdnGV59h->HjVJUqtEFu("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x55\x49");$yc8sd7qhkD=$iIcdnGV59h->FzbeXHJgMB(time-86400*$SusjvywmFr,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$ORwoFtC329=$iIcdnGV59h->FzbeXHJgMB(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my @Z9jvloNh26=($KIWZEG8XOJ);if($YI5B72kbh1->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"}){push @Z9jvloNh26,@{$iIcdnGV59h->kwXtq6r70M($YI5B72kbh1->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"})};}my $HW981upGvr=$iIcdnGV59h->g3xw0T9VLE(undef,$fbhpgSYozW,$md6Ee2wxca,"\x63\x64\x72",$iIcdnGV59h->l5e0jTkJvu($yc8sd7qhkD),$iIcdnGV59h->l5e0jTkJvu($ORwoFtC329),undef,undef,$yl0qD1kitr,$N280nmwrFp,$XVJre0sXw9,undef,undef,join("\x7c",@Z9jvloNh26),$sDJ6pboTmV);if($HW981upGvr){my $d0gojqOJ3Q=$iIcdnGV59h->ecsJZ9UvIP()->{"\x48\x49\x44\x45\x5f\x4e\x55\x4d\x42\x45\x52\x53"};my $idBtAnV7Fk=$md6Ee2wxca+1;foreach my $jMO896X7zT(@{$HW981upGvr}){$jMO896X7zT->{"\x43\x44\x52\x5f\x4e\x55\x4d"}=$idBtAnV7Fk++;$jMO896X7zT->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$iIcdnGV59h->FzbeXHJgMB($jMO896X7zT->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});if($d0gojqOJ3Q){$iIcdnGV59h->gRq1LAWTJ9(\$jMO896X7zT->{"\x43\x41\x4c\x4c\x45\x52\x5f\x49\x44"},$d0gojqOJ3Q);$iIcdnGV59h->gRq1LAWTJ9(\$jMO896X7zT->{"\x43\x41\x4c\x4c\x45\x44\x5f\x49\x44"},$d0gojqOJ3Q);$jMO896X7zT->{"\x44\x41\x54\x41"}=~ s/(DID=|PN=|RN=)([^,]+)(\d{$d0gojqOJ3Q})(,|$)/$1x$3$4/g;}if(not exists $jMO896X7zT->{"\x56\x42\x5f\x49\x44"}and $jMO896X7zT->{"\x44\x41\x54\x41"}=~ /FILE=(\d+):([^\s,]+)/){$jMO896X7zT->{"\x56\x42\x5f\x49\x44"}=$1;$jMO896X7zT->{"\x46\x49\x4c\x45\x5f\x4e\x41\x4d\x45"}=$2;}}}$iIcdnGV59h->alHTOaEGkW();my $R9hH0IaWJp=$iIcdnGV59h->krQtJOM3my();my $N54InhmlU6;foreach my $OAbuhZeGgK(keys %$R9hH0IaWJp){if($R9hH0IaWJp->{$OAbuhZeGgK}->{"\x45\x58\x54\x45\x4e\x53\x49\x4f\x4e"}eq "\x63\x72\x6d\x2d\x63\x32\x63\x2d\x67\x77"){$N54InhmlU6="ph=$KIWZEG8XOJ&key=$OAbuhZeGgK&ac=".$iIcdnGV59h->ecsJZ9UvIP()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"};last;}}return mTHs1Pwm9i($iIcdnGV59h,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x63\x64\x72\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74",{CDR_LIST=>$HW981upGvr,CDR_CALLER_ID=>$fbhpgSYozW,CDR_CALLED_ID=>$N280nmwrFp,CDR_DURATION=>$XVJre0sXw9,FROM_TIME=>$yc8sd7qhkD,TO_TIME=>$ORwoFtC329,SMART_TIME=>$OSEK34W8Qy,CDR_CNAM=>$sDJ6pboTmV,CDR_CALL_TYPE=>$yl0qD1kitr,C2C=>$N54InhmlU6,PHONE=>$KIWZEG8XOJ,$iIcdnGV59h->cH1IwGlB98(0,$HW981upGvr,$md6Ee2wxca)});}sub K9jkRUg8Ts{my($iIcdnGV59h,$YI5B72kbh1)=@_;my($md6Ee2wxca,$fbhpgSYozW,$N280nmwrFp,$ZGAYmTzBXU,$yl0qD1kitr,$RepDf9E73o,$N54InhmlU6,$XVJre0sXw9)=$iIcdnGV59h->qTOFl06qrL([[(from=>0)],qw(caller_id called_id ac call_type refresh c2c duration)]);my $rpnNzc7TqD;if($iIcdnGV59h->ecsJZ9UvIP()->{"\x41\x4c\x4c\x4f\x57\x5f\x43\x54\x52"}){$rpnNzc7TqD=$iIcdnGV59h->aF3DjovaMe($fbhpgSYozW,$N280nmwrFp,$iIcdnGV59h->ecsJZ9UvIP()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"},$yl0qD1kitr,$XVJre0sXw9,undef,undef,undef,$md6Ee2wxca);}else{$RepDf9E73o="\x38\x36\x34\x30\x30";}unless(ref $rpnNzc7TqD eq "\x41\x52\x52\x41\x59"){$rpnNzc7TqD=[];}my $Ja9n8g4lbG=[];if(scalar @$rpnNzc7TqD){$iIcdnGV59h->alHTOaEGkW($iIcdnGV59h->ecsJZ9UvIP()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$iIcdnGV59h->ecsJZ9UvIP()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});my $d0gojqOJ3Q=$iIcdnGV59h->ecsJZ9UvIP()->{"\x48\x49\x44\x45\x5f\x4e\x55\x4d\x42\x45\x52\x53"};foreach my $jMO896X7zT(@{$rpnNzc7TqD}){$jMO896X7zT->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$iIcdnGV59h->FzbeXHJgMB($jMO896X7zT->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});$jMO896X7zT->{"\x43\x44\x52\x5f\x44\x55\x52\x41\x54\x49\x4f\x4e"}=time-$jMO896X7zT->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"};if($jMO896X7zT->{"\x43\x41\x4c\x4c\x5f\x54\x59\x50\x45"}ne "\x74\x72\x61\x6e\x73\x69\x74" and $jMO896X7zT->{"\x43\x41\x4c\x4c\x5f\x54\x59\x50\x45"}ne "\x69\x6e\x74\x65\x72\x6e\x61\x6c" and $jMO896X7zT->{"\x43\x41\x4c\x4c\x5f\x54\x59\x50\x45"}ne "\x73\x65\x72\x76\x69\x63\x65"){my($YTnqsP4Gic,$Z07Zcz3tAl,$uGxC5NlVTw)=split(/:/,$iIcdnGV59h->pV0Rwk87qv("\x73\x68\x2d\x63\x2d\x74\x72\x61\x63\x6b\x2d\x63\x75\x72\x2d\x65\x78\x74\x2d".$jMO896X7zT->{"\x43\x41\x4c\x4c\x5f\x49\x44"}));$jMO896X7zT->{"\x45\x58\x54\x5f\x54\x53"}=time-$YTnqsP4Gic;$jMO896X7zT->{"\x45\x58\x54\x5f\x49\x44"}=$Z07Zcz3tAl;$jMO896X7zT->{"\x41\x4e\x53\x57\x45\x52\x45\x44"}=$uGxC5NlVTw;}foreach my $YSdX4D5unh(@{$iIcdnGV59h->kwXtq6r70M($YI5B72kbh1->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"})},$YI5B72kbh1->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"}){next unless length $YSdX4D5unh;if($jMO896X7zT->{"\x43\x41\x4c\x4c\x45\x52\x5f\x49\x44"}eq $YSdX4D5unh or $jMO896X7zT->{"\x43\x41\x4c\x4c\x45\x44\x5f\x49\x44"}eq $YSdX4D5unh or $jMO896X7zT->{"\x41\x4e\x53\x57\x45\x52\x45\x44"}eq $YSdX4D5unh){push @$Ja9n8g4lbG,$jMO896X7zT;last;}elsif(index($YSdX4D5unh,"\x2a")==0 and length($YSdX4D5unh)>1){if("\x2a".$jMO896X7zT->{"\x45\x58\x54\x5f\x49\x44"}eq $YSdX4D5unh){push @$Ja9n8g4lbG,$jMO896X7zT;last;}}}if($d0gojqOJ3Q){$iIcdnGV59h->gRq1LAWTJ9(\$jMO896X7zT->{"\x43\x41\x4c\x4c\x45\x52\x5f\x49\x44"},$d0gojqOJ3Q);$iIcdnGV59h->gRq1LAWTJ9(\$jMO896X7zT->{"\x43\x41\x4c\x4c\x45\x44\x5f\x49\x44"},$d0gojqOJ3Q);}}$iIcdnGV59h->alHTOaEGkW();}if($RepDf9E73o and $RepDf9E73o<$iIcdnGV59h->HjVJUqtEFu("\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")){$RepDf9E73o=$iIcdnGV59h->HjVJUqtEFu("\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($RepDf9E73o){my $R9hH0IaWJp=$iIcdnGV59h->krQtJOM3my();foreach my $OAbuhZeGgK(keys %$R9hH0IaWJp){if($R9hH0IaWJp->{$OAbuhZeGgK}->{"\x45\x58\x54\x45\x4e\x53\x49\x4f\x4e"}eq "\x78\x76\x62\x73\x70\x79"){if($iIcdnGV59h->sldXzYvJZP()->{"\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"){$N54InhmlU6=$OAbuhZeGgK."\x26\x70\x68\x3d".$YI5B72kbh1->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"};}last;}}}return mTHs1Pwm9i($iIcdnGV59h,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74",{CALLS_COUNT=>scalar(@$Ja9n8g4lbG),CALLS_LIST=>$Ja9n8g4lbG,CDR_CALLER_ID=>$fbhpgSYozW,CDR_CALLED_ID=>$N280nmwrFp,CDR_CALL_TYPE=>$yl0qD1kitr,CDR_REFRESH_TIME=>$RepDf9E73o,CDR_C2C=>$N54InhmlU6,CDR_DURATION=>$XVJre0sXw9,$iIcdnGV59h->cH1IwGlB98(1,$Ja9n8g4lbG,$md6Ee2wxca)});}sub mIDq0rNS8f{my($iIcdnGV59h,$YI5B72kbh1,$qvy0QaX1JZ,$KQvWtR0pKs)=@_;my $fbhpgSYozW=$YI5B72kbh1->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"};foreach my $Z07Zcz3tAl(keys %{$iIcdnGV59h->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}}){if($iIcdnGV59h->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$Z07Zcz3tAl}->{"\x54\x59\x50\x45"}eq "\x31\x33"){if($qvy0QaX1JZ and $qvy0QaX1JZ ne $iIcdnGV59h->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$Z07Zcz3tAl}->{"\x49\x44"}){next;}my($t9dIX4xOaF)=$iIcdnGV59h->S8fZCDAlrv([$iIcdnGV59h->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$Z07Zcz3tAl}->{"\x43\x41\x4c\x4c\x5f\x4e\x55\x4d\x42\x45\x52"}],"\x6e\x6f\x71\x75\x6f\x74\x65");$t9dIX4xOaF=~ s#[^,_@\w\d:.*\|\/-]##gs;foreach my $z89lbn2zo7(split(/,/,$t9dIX4xOaF)){unless(index($z89lbn2zo7,"$fbhpgSYozW/")){if($KQvWtR0pKs){$KQvWtR0pKs=1;}else{$KQvWtR0pKs=0;}$iIcdnGV59h->pV0Rwk87qv("\x73\x68\x2d\x71\x75\x65\x75\x65\x2d\x61\x67\x65\x6e\x74\x2d".$iIcdnGV59h->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$Z07Zcz3tAl}->{"\x49\x44"}."\x2d".$fbhpgSYozW,$KQvWtR0pKs,0);$iIcdnGV59h->QtMuFcAN7x();$iIcdnGV59h->QtMuFcAN7x({EVENT_START_TIME=>$iIcdnGV59h->xpsGURCDoQ(),EVENT_TYPE=>"\x41\x67\x65\x6e\x74\x53\x74\x61\x74\x75\x73",EVENT_STOP_TIME=>0,EVENT_EXT=>$Z07Zcz3tAl,ENH_STATUS=>$KQvWtR0pKs,ENH_AGENT=>$fbhpgSYozW,CALL_TYPE=>"\x77\x65\x62",CALLED_ID=>"\x77\x65\x62",CALLER_ID=>$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"}});$iIcdnGV59h->N56ugB4Ft9();last;}}}}}sub Eo3IENw2fs{my($iIcdnGV59h,$YI5B72kbh1)=@_;my($md6Ee2wxca,$NV4vMFpsWe)=$iIcdnGV59h->qTOFl06qrL([[(from=>0)],"\x6e\x61\x6d\x65"]);my $rlfe6GA3Jp;if(length($YI5B72kbh1->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"})){$rlfe6GA3Jp=2;}else{$rlfe6GA3Jp=3;}my $ycaN1oMfer=$iIcdnGV59h->VIF92JpEka(undef,$rlfe6GA3Jp,$NV4vMFpsWe,$md6Ee2wxca,"\x69\x73\x5f\x75\x69");unless(ref $ycaN1oMfer eq "\x41\x52\x52\x41\x59"){$iIcdnGV59h->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;return 0;}mTHs1Pwm9i($iIcdnGV59h,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x72\x65\x70\x6f\x72\x74\x5f\x6c\x69\x73\x74\x2e\x74\x74",{REPORTS=>$ycaN1oMfer,SEARCH_NAME=>$NV4vMFpsWe,$iIcdnGV59h->cH1IwGlB98(1,$ycaN1oMfer,$md6Ee2wxca)});}sub htT0YjkLDW{my($iIcdnGV59h,$YI5B72kbh1)=@_;my($vx3LYpsKcf,$HmT8StJfYM,$SBNHrbwGEg,$RpUI3DzVSr,$OSEK34W8Qy)=$iIcdnGV59h->qTOFl06qrL([qw(report_id need_excel from_time to_time smart_time)]);$iIcdnGV59h->alHTOaEGkW($iIcdnGV59h->ecsJZ9UvIP()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$iIcdnGV59h->ecsJZ9UvIP()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});my $ZDfGip78an=$iIcdnGV59h->l5e0jTkJvu($SBNHrbwGEg);my $SwVCdR6qNh=$iIcdnGV59h->l5e0jTkJvu($RpUI3DzVSr);$iIcdnGV59h->alHTOaEGkW();my(%wbVQ5ehWK4,@sOr8HAqo7p,$rlfe6GA3Jp);if(length($YI5B72kbh1->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"})){$rlfe6GA3Jp=2;}else{$rlfe6GA3Jp=3;}my $a9UVKAv8mS=$iIcdnGV59h->VIF92JpEka($vx3LYpsKcf,$rlfe6GA3Jp,undef,undef,"\x69\x73\x5f\x75\x69");if(! ref $a9UVKAv8mS eq "\x41\x52\x52\x41\x59" or scalar(@{$a9UVKAv8mS})==0){$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);return 0;}if($a9UVKAv8mS->[0]->{"\x45\x58\x54\x52\x41\x5f\x50\x41\x52\x41\x4d\x53"}){foreach my $zHzSJT8u5c(split(/\s*\|\s*/,$a9UVKAv8mS->[0]->{"\x45\x58\x54\x52\x41\x5f\x50\x41\x52\x41\x4d\x53"})){my($UEMv0JOI9K,$c9yQKmpS7R,$YUByXqN3rD)=split(/\s*:\s*/,$zHzSJT8u5c,3);$wbVQ5ehWK4{$UEMv0JOI9K}=$iIcdnGV59h->qTOFl06qrL($UEMv0JOI9K);push @sOr8HAqo7p,{name=>$UEMv0JOI9K,label=>$c9yQKmpS7R,value=>$wbVQ5ehWK4{$UEMv0JOI9K}};}}$wbVQ5ehWK4{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"}=$YI5B72kbh1->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"};$wbVQ5ehWK4{"\x55\x53\x45\x52\x5f\x50\x48\x4f\x4e\x45"}=$YI5B72kbh1->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"};my $dN7SFBlAhr=$iIcdnGV59h->u01cQI35DJ($vx3LYpsKcf,$a9UVKAv8mS->[0]->{"\x54\x59\x50\x45"},$HmT8StJfYM,$ZDfGip78an,$SwVCdR6qNh,\%wbVQ5ehWK4,"\x69\x73\x5f\x75\x69");if($HmT8StJfYM){if($dN7SFBlAhr){if($dN7SFBlAhr=~ /xlsx$/){return $iIcdnGV59h->UjiQak1bsx($dN7SFBlAhr,"\x61\x70\x70\x6c\x69\x63\x61\x74\x69\x6f\x6e\x2f\x78\x6c\x73\x78");}else{return $iIcdnGV59h->UjiQak1bsx($dN7SFBlAhr,"\x74\x65\x78\x74\x2f\x63\x73\x76");}}}unless(ref $dN7SFBlAhr eq "\x41\x52\x52\x41\x59"){$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);return 0;}my $G8m92ajPOS=[];my $ft5g1Ti0PU=[];foreach my $yC93c6hlPr(@{$dN7SFBlAhr->[1]}){my $OAbuhZeGgK=$yC93c6hlPr;if($OAbuhZeGgK=~ s/^=//){push @{$ft5g1Ti0PU},{name=>$OAbuhZeGgK,align=>"\x6c\x65\x66\x74"};}elsif($OAbuhZeGgK=~ s/=$//){push @{$ft5g1Ti0PU},{name=>$OAbuhZeGgK,align=>"\x72\x69\x67\x68\x74"};}else{push @{$ft5g1Ti0PU},{name=>$OAbuhZeGgK,align=>"\x63\x65\x6e\x74\x65\x72"};}}for(0..$#{$dN7SFBlAhr->[0]}){$G8m92ajPOS->[$_]=[];foreach my $OAbuhZeGgK(@{$dN7SFBlAhr->[1]}){my $cWbU4yoCpw=$dN7SFBlAhr->[0]->[$_]->{$OAbuhZeGgK};if($OAbuhZeGgK=~ /^=/){push @{$G8m92ajPOS->[$_]},{value=>$cWbU4yoCpw,align=>"\x6c\x65\x66\x74"};}elsif($OAbuhZeGgK=~ /=$/){push @{$G8m92ajPOS->[$_]},{value=>$cWbU4yoCpw,align=>"\x72\x69\x67\x68\x74"};}else{push @{$G8m92ajPOS->[$_]},{value=>$cWbU4yoCpw,align=>"\x63\x65\x6e\x74\x65\x72"};}}}my @fAdUNz8DyB;unless($iIcdnGV59h->K9yp2bmtnZ()->{"\x44\x46"}){@fAdUNz8DyB=(REPORT_DATA=>$dN7SFBlAhr->[2]);}mTHs1Pwm9i($iIcdnGV59h,"\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=>($SBNHrbwGEg||$dN7SFBlAhr->[3]),TO_TIME=>($RpUI3DzVSr||$dN7SFBlAhr->[4]),SMART_TIME=>$OSEK34W8Qy,REPORT_RESULT=>$G8m92ajPOS,REPORT_HDR=>$ft5g1Ti0PU,REPORT_RAW_DATA=>$dN7SFBlAhr->[5],EXTRA_PARAMS=>\@sOr8HAqo7p,@fAdUNz8DyB});}sub YTAR7qmu5S{my($iIcdnGV59h,$rJazqo1IZY)=@_;if(my $oNeH1qUySD=$iIcdnGV59h->qTOFl06qrL("\x6c\x61\x6e\x67")){$iIcdnGV59h->ecsJZ9UvIP()->{"\x4c\x41\x4e\x47\x5f\x4e\x41\x4d\x45"}=$oNeH1qUySD;}return mTHs1Pwm9i($iIcdnGV59h,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x6c\x6f\x67\x69\x6e\x2e\x74\x74",$rJazqo1IZY);}sub NA9GNH86x5{my($iIcdnGV59h)=@_;my $FEwiyYKCTB=$iIcdnGV59h->qTOFl06qrL("\x65\x78\x74");my($md6Ee2wxca,$mwfYvb5cLV)=split(/\//,$FEwiyYKCTB,2);my $rJazqo1IZY="\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($md6Ee2wxca){my $ZvxugEqCwD=$iIcdnGV59h->XrkEuenjcz($md6Ee2wxca);if(ref $ZvxugEqCwD){if($iIcdnGV59h->Wc43CEi25W(undef,$ZvxugEqCwD->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"})){if($iIcdnGV59h->ecsJZ9UvIP()->{"\x41\x4c\x4c\x4f\x57\x5f\x53\x55\x42\x53\x43\x52\x49\x42\x45"}){my $lGKwetzy4q=$iIcdnGV59h->S9CY8dbac2();if(ref $lGKwetzy4q eq "\x48\x41\x53\x48"){if(exists($lGKwetzy4q->{$mwfYvb5cLV})){$rJazqo1IZY="\x53\x49\x50\x2f".$lGKwetzy4q->{$mwfYvb5cLV}->{"\x6e\x61\x6d\x65"}."\x26\x43\x75\x73\x74\x6f\x6d\x3a\x58\x56\x42\x2d".$ZvxugEqCwD->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"}."-$mwfYvb5cLV";}}}}}}}$iIcdnGV59h->KGLk27Q1Hl(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",$rJazqo1IZY);}sub QJFS0lYEPT{my($iIcdnGV59h,$ZGAYmTzBXU,$mWJnv7hTaA)=@_;$iIcdnGV59h->mW3MERjBKz(["\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"},$ZGAYmTzBXU,$mWJnv7hTaA]);}sub mTHs1Pwm9i{my($iIcdnGV59h,$OfQkAuWdL0,$rJazqo1IZY,$WKWAy9GxPC)=@_;$rJazqo1IZY->{"\x43\x47\x49\x5f\x55\x52\x4c"}=$iIcdnGV59h->HjVJUqtEFu("\x43\x47\x49\x5f\x55\x52\x4c");$rJazqo1IZY->{"\x43\x47\x49\x5f\x53\x45\x52\x56\x45\x52"}=$iIcdnGV59h->HjVJUqtEFu("\x43\x47\x49\x5f\x53\x45\x52\x56\x45\x52");$rJazqo1IZY->{"\x55\x4e\x49\x58\x54\x49\x4d\x45"}=time;my $uakgbJ27KF='';my $gVxg6p9LFJ='';unless($uakgbJ27KF){my $SAWpeoLYXZ;my $Vf9XV3iOwH=$iIcdnGV59h->HjVJUqtEFu("\x50\x41\x54\x48\x5f\x54\x45\x4d\x50\x4c\x41\x54\x45\x5f\x44\x49\x52");my $oNeH1qUySD=$iIcdnGV59h->ecsJZ9UvIP()->{"\x4c\x41\x4e\x47\x5f\x4e\x41\x4d\x45"}||$iIcdnGV59h->HjVJUqtEFu("\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 $gTSNFmA9tg=$iIcdnGV59h->ecsJZ9UvIP()->{"\x53\x55\x42\x5f\x54\x45\x4d\x50\x4c\x41\x54\x45\x5f\x44\x49\x52"};if(length $gTSNFmA9tg){$gTSNFmA9tg=~ s#[^\d\w_.-]##gs;}if(length($gTSNFmA9tg)and-e "$Vf9XV3iOwH/$gTSNFmA9tg/$oNeH1qUySD/$OfQkAuWdL0"){$SAWpeoLYXZ="$Vf9XV3iOwH/$gTSNFmA9tg/$oNeH1qUySD/$OfQkAuWdL0";}elsif(-e "$Vf9XV3iOwH/$oNeH1qUySD/$OfQkAuWdL0"){$SAWpeoLYXZ="$Vf9XV3iOwH/$oNeH1qUySD/$OfQkAuWdL0";}else{$SAWpeoLYXZ="$Vf9XV3iOwH/$OfQkAuWdL0";}my $EC4ch9bgqF=$iIcdnGV59h->{"\x5f\x54\x4d\x50\x4c"};my $i8GWBnu5xp=$iIcdnGV59h->pV0Rwk87qv("files-$SAWpeoLYXZ");unless($i8GWBnu5xp){$i8GWBnu5xp=$EC4ch9bgqF->load_src('',$SAWpeoLYXZ);$iIcdnGV59h->pV0Rwk87qv("files-$SAWpeoLYXZ",$i8GWBnu5xp,$iIcdnGV59h->HjVJUqtEFu("\x54\x49\x4d\x45\x4f\x55\x54\x5f\x4d\x45\x4d\x5f\x43\x41\x43\x48\x45\x44"));}$rJazqo1IZY->{"\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}=$iIcdnGV59h->ecsJZ9UvIP();$EC4ch9bgqF->process(\$i8GWBnu5xp,$rJazqo1IZY,\$gVxg6p9LFJ);}unless($uakgbJ27KF){$iIcdnGV59h->KGLk27Q1Hl(200,"\x4f\x6b",$WKWAy9GxPC,$gVxg6p9LFJ.$iIcdnGV59h->Si6SRTFdoE("\x67\x36\x31\x33","\x43"));}elsif($uakgbJ27KF eq "\x78\x6d\x6c"){$gVxg6p9LFJ=XML::Simple::XMLout($rJazqo1IZY);$iIcdnGV59h->mxcmE1MOLC(200,"\x4f\x6b",undef,$gVxg6p9LFJ);}elsif($uakgbJ27KF eq "\x6a\x73\x6f\x6e"){my $J9ES8X7yfj=JSON::XS->new();$iIcdnGV59h->KGLk27Q1Hl(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",$J9ES8X7yfj->encode($rJazqo1IZY));}}