#!/usr/bin/perl
########################################################################
#
# $Id: VirtualPBX-EI.cgi,v 1.60 2025/12/30 19:48:23 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($HXsdJrWEm9);duMeG5gnQc();sub new{my($FIwL9fKS4q,$MPzWuR2YIk)=@_;unless($HXsdJrWEm9){$HXsdJrWEm9=bless{_TMPL=>Template::EasyTT->new({}),_CONF=>{},},$FIwL9fKS4q;$HXsdJrWEm9->d5y9ZKn0Ci($MPzWuR2YIk);$HXsdJrWEm9->cEO9kI51SM();if($HXsdJrWEm9->VzAEujaiBr("\x44\x45\x42\x55\x47\x5f\x48\x54\x54\x50\x5f\x41\x55\x44\x49\x54\x5f\x46\x49\x4c\x45")){$HXsdJrWEm9->cEO9kI51SM("\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");}$HXsdJrWEm9->{"\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;$HXsdJrWEm9->jdtpksbcew(1);chdir($HXsdJrWEm9->VzAEujaiBr("\x50\x41\x54\x48\x5f\x57\x4f\x52\x4b\x5f\x44\x49\x52"));$HXsdJrWEm9->VKdDgN7uUv();$HXsdJrWEm9->{"\x5f\x54\x4d\x50\x4c"}->filters_add("\x6c\x6f\x63\x61\x6c\x65\x5f\x6d\x73\x67",sub{my $Q17jX0WpYc=$HXsdJrWEm9->jstdEDPBr5($_[1],$HXsdJrWEm9->M9Ztzifv2j()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});$Q17jX0WpYc=~ s#&#&amp;#gs;$Q17jX0WpYc=~ s#\x22#&quot;#gs;$Q17jX0WpYc=~ s#<#&lt;#gs;$Q17jX0WpYc=~ s#>#&gt;#gs;$Q17jX0WpYc=~ s#\x27#&apos;#gs;return $Q17jX0WpYc;});}$HXsdJrWEm9->{"\x5f\x43\x44\x52"}={};$HXsdJrWEm9->{"\x5f\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}={};$HXsdJrWEm9->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}={};$HXsdJrWEm9->{"\x5f\x53\x45\x53\x53\x49\x4f\x4e"}={};$HXsdJrWEm9->{"\x5f\x43\x47\x49"}=CGI->new();return $HXsdJrWEm9;}sub duMeG5gnQc{my $FvaYR8d3Tu=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($wDyzSqRsLd,$JwxpryRHTz,$TDCT05sRen)=$FvaYR8d3Tu->FVFE1uXA0t([qw(login pswd action)]);if(! length($wDyzSqRsLd)){if($wDyzSqRsLd=$FvaYR8d3Tu->{"\x5f\x43\x47\x49"}->cookie("\x6c\x6f\x67\x69\x6e")){$FvaYR8d3Tu->{"\x5f\x43\x47\x49"}->param(-name=>"\x6c\x6f\x67\x69\x6e",-value=>$wDyzSqRsLd);}$JwxpryRHTz=$FvaYR8d3Tu->{"\x5f\x43\x47\x49"}->cookie("\x70\x73\x77\x64");}if(! $wDyzSqRsLd){return oI3nSJwMum($FvaYR8d3Tu,{});}elsif($TDCT05sRen eq "\x68\x69\x6e\x74"){return Rqr8DcLsJO($FvaYR8d3Tu);}my($UzmXABbRkH,$EyF6kxm2Qu)=split(/\@/,$wDyzSqRsLd);my $kZPDcCVXOb;if($FvaYR8d3Tu->VzAEujaiBr("\x44\x42\x5f\x43\x41\x43\x48\x45\x5f\x57\x45\x42\x5f\x41\x55\x54\x48")){$kZPDcCVXOb=$FvaYR8d3Tu->PanqhE4j3m("short-user-$EyF6kxm2Qu");unless(ref($kZPDcCVXOb)){DzZu9EekF8($FvaYR8d3Tu,$EyF6kxm2Qu,"\x70\x73\x77\x64\x20\x6d\x69\x73\x6d\x61\x74\x63\x68")if $FvaYR8d3Tu->JOMNJKrGVf(1);return oI3nSJwMum($FvaYR8d3Tu,{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(! $kZPDcCVXOb->{"\x53\x54\x41\x54\x55\x53"}and ! $FvaYR8d3Tu->VzAEujaiBr("\x43\x47\x49\x5f\x49\x47\x4e\x4f\x52\x45\x5f\x4c\x4f\x43\x4b")){DzZu9EekF8($FvaYR8d3Tu,$EyF6kxm2Qu,"\x6c\x6f\x63\x6b\x65\x64")if $FvaYR8d3Tu->JOMNJKrGVf(1);return oI3nSJwMum($FvaYR8d3Tu,{ERROR_STR=>"\x59\x6f\x75\x72\x20\x61\x63\x63\x6f\x75\x6e\x74\x20\x69\x73\x20\x6c\x6f\x63\x6b\x65\x64"});}}$kZPDcCVXOb=$FvaYR8d3Tu->VjkcO9dlhA(undef,$EyF6kxm2Qu);unless($kZPDcCVXOb==1){DzZu9EekF8($FvaYR8d3Tu,$EyF6kxm2Qu,"\x70\x73\x77\x64\x20\x6d\x69\x73\x6d\x61\x74\x63\x68")if $FvaYR8d3Tu->JOMNJKrGVf(1);return oI3nSJwMum($FvaYR8d3Tu,{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 $CekWlIqbAO=$FvaYR8d3Tu->mbhjiSVkXt();if(ref $CekWlIqbAO ne "\x48\x41\x53\x48"){return oI3nSJwMum($FvaYR8d3Tu,{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($CekWlIqbAO->{$UzmXABbRkH})or length($CekWlIqbAO->{$UzmXABbRkH}->{"\x57\x45\x42\x5f\x53\x45\x43\x52\x45\x54"})==0 or $CekWlIqbAO->{$UzmXABbRkH}->{"\x57\x45\x42\x5f\x53\x45\x43\x52\x45\x54"}ne $JwxpryRHTz){DzZu9EekF8($FvaYR8d3Tu,$EyF6kxm2Qu,"\x70\x73\x77\x64\x20\x6d\x69\x73\x6d\x61\x74\x63\x68")if $FvaYR8d3Tu->JOMNJKrGVf(1);return oI3nSJwMum($FvaYR8d3Tu,{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($CekWlIqbAO->{$UzmXABbRkH}->{"\x50\x45\x52\x4d\x49\x54\x5f\x57\x45\x42"})and ! $FvaYR8d3Tu->{"\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"}){$FvaYR8d3Tu->{"\x5f\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}->{"\x50\x45\x52\x4d\x49\x54\x5f\x57\x45\x42"}=$CekWlIqbAO->{$UzmXABbRkH}->{"\x50\x45\x52\x4d\x49\x54\x5f\x57\x45\x42"};}if(length($FvaYR8d3Tu->M9Ztzifv2j()->{"\x50\x45\x52\x4d\x49\x54\x5f\x57\x45\x42"})){unless($FvaYR8d3Tu->neFyhucTd3($FvaYR8d3Tu->M9Ztzifv2j()->{"\x50\x45\x52\x4d\x49\x54\x5f\x57\x45\x42"},$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"})){return $FvaYR8d3Tu->rOY8JLMXZI(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($CekWlIqbAO->{$UzmXABbRkH}->{"\x4c\x41\x4e\x47\x5f\x49\x44"}){$FvaYR8d3Tu->{"\x5f\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}->{"\x4c\x41\x4e\x47\x5f\x4e\x41\x4d\x45"}=$CekWlIqbAO->{$UzmXABbRkH}->{"\x4c\x41\x4e\x47\x5f\x4e\x41\x4d\x45"};$FvaYR8d3Tu->{"\x5f\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"}=$CekWlIqbAO->{$UzmXABbRkH}->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"};}if(my $kfIclGpk2U=$FvaYR8d3Tu->VzAEujaiBr("\x43\x47\x49\x5f\x45\x49\x5f\x57\x45\x42\x52\x54\x43\x5f\x50\x52\x45\x46")){if($JwxpryRHTz=~ /^\Q$kfIclGpk2U\E/i){$TDCT05sRen="\x70\x70\x5f\x77\x65\x62\x5f\x70\x68\x6f\x6e\x65\x5f\x6f\x6e\x6c\x79";}}if($TDCT05sRen eq "\x70\x70\x5f\x6d\x65\x6e\x75"){my $CaNR1IKWDb=$FvaYR8d3Tu->VzAEujaiBr("\x57\x45\x42\x52\x54\x43\x5f\x57\x53");if($CaNR1IKWDb){$CaNR1IKWDb=0 if $FvaYR8d3Tu->FVFE1uXA0t("\x73\x6b\x69\x70\x5f\x77\x65\x62\x5f\x70\x68\x6f\x6e\x65");}return dKUouA9SJq($FvaYR8d3Tu,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x6d\x65\x6e\x75\x2e\x74\x74",{PHONE=>$CekWlIqbAO->{$UzmXABbRkH},WEBRTC=>$CaNR1IKWDb});}elsif($TDCT05sRen eq "\x70\x70\x5f\x73\x74\x61\x72\x74"){my $rTV1sKzUQ6=$FvaYR8d3Tu->{"\x5f\x43\x47\x49"}->cookie(-name=>"\x6c\x6f\x67\x69\x6e",-value=>$wDyzSqRsLd,-path=>"\x2f\x70\x68\x6f\x6e\x65");my $i1l9JLAuwQ=$FvaYR8d3Tu->{"\x5f\x43\x47\x49"}->cookie(-name=>"\x70\x73\x77\x64",-value=>$JwxpryRHTz,-path=>"\x2f\x70\x68\x6f\x6e\x65");return dKUouA9SJq($FvaYR8d3Tu,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x73\x74\x61\x72\x74\x2e\x74\x74",{WITH_PHONE=>$FvaYR8d3Tu->FVFE1uXA0t("\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: $rTV1sKzUQ6","Set-Cookie: $i1l9JLAuwQ"]);}elsif($TDCT05sRen eq "\x70\x70\x5f\x6d\x73\x67\x5f\x6c\x69\x73\x74"){UH7oVSQFhG($FvaYR8d3Tu,$CekWlIqbAO->{$UzmXABbRkH});}elsif($TDCT05sRen eq "\x70\x70\x5f\x63\x64\x72\x5f\x6c\x69\x73\x74"){my($eJ4e7kYMrt,$bhYLq9XWfO)=$FvaYR8d3Tu->FVFE1uXA0t([qw(need_excel need_chart)]);if($eJ4e7kYMrt && ! $FvaYR8d3Tu->M9Ztzifv2j()->{"\x48\x49\x44\x45\x5f\x4e\x55\x4d\x42\x45\x52\x53"}){fJujKL3ATm($FvaYR8d3Tu,$CekWlIqbAO->{$UzmXABbRkH});}elsif($bhYLq9XWfO){d90p8XIrMC($FvaYR8d3Tu,$CekWlIqbAO->{$UzmXABbRkH});}else{dP1No8qWTd($FvaYR8d3Tu,$CekWlIqbAO->{$UzmXABbRkH});}}elsif($TDCT05sRen eq "\x70\x70\x5f\x70\x69\x6e\x66\x6f"){my $T1I8MWFwNV=time;$FvaYR8d3Tu->YjMaukNG5f($FvaYR8d3Tu->M9Ztzifv2j()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$FvaYR8d3Tu->M9Ztzifv2j()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});if($T1I8MWFwNV<$CekWlIqbAO->{$UzmXABbRkH}->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}){$CekWlIqbAO->{$UzmXABbRkH}->{"\x52\x45\x47\x5f\x53\x54\x41\x54\x55\x53"}="\x52\x65\x67\x69\x73\x74\x65\x72\x65\x64";}else{$CekWlIqbAO->{$UzmXABbRkH}->{"\x52\x45\x47\x5f\x53\x54\x41\x54\x55\x53"}="\x55\x6e\x72\x65\x67\x69\x73\x74\x65\x72\x65\x64";}$CekWlIqbAO->{$UzmXABbRkH}->{"\x52\x45\x47\x5f\x45\x58\x50\x49\x52\x45\x44"}=$CekWlIqbAO->{$UzmXABbRkH}->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}? $FvaYR8d3Tu->MKVjIJR5aZ($CekWlIqbAO->{$UzmXABbRkH}->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}):"\x2d";$CekWlIqbAO->{$UzmXABbRkH}->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}=$CekWlIqbAO->{$UzmXABbRkH}->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}? $FvaYR8d3Tu->MKVjIJR5aZ($CekWlIqbAO->{$UzmXABbRkH}->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}):"\x2d";$CekWlIqbAO->{$UzmXABbRkH}->{"\x52\x41\x57\x44\x4e\x44"}=$CekWlIqbAO->{$UzmXABbRkH}->{"\x44\x4e\x44"};$CekWlIqbAO->{$UzmXABbRkH}->{"\x44\x4e\x44"}=$CekWlIqbAO->{$UzmXABbRkH}->{"\x44\x4e\x44"}? $FvaYR8d3Tu->MKVjIJR5aZ($CekWlIqbAO->{$UzmXABbRkH}->{"\x44\x4e\x44"}):'';$FvaYR8d3Tu->YjMaukNG5f();my $ySbyniXW7o=$CekWlIqbAO->{$UzmXABbRkH}->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"};my $OHV981mzX7=[];foreach my $F6SY5uFowT(keys %{$FvaYR8d3Tu->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}}){if($FvaYR8d3Tu->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$F6SY5uFowT}->{"\x54\x59\x50\x45"}eq "\x31\x33"){my($xSZsPBoyRQ)=$FvaYR8d3Tu->V7VF94EW5H([$FvaYR8d3Tu->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$F6SY5uFowT}->{"\x43\x41\x4c\x4c\x5f\x4e\x55\x4d\x42\x45\x52"}],"\x6e\x6f\x71\x75\x6f\x74\x65");$xSZsPBoyRQ=~ s#[^,_@\w\d:.*\|\/-]##gs;foreach my $tHIbRzqkAJ(split(/,/,$xSZsPBoyRQ)){unless(index($tHIbRzqkAJ,"$ySbyniXW7o/")){my $YfYVi8h15q=$FvaYR8d3Tu->PanqhE4j3m("\x73\x68\x2d\x71\x75\x65\x75\x65\x2d\x61\x67\x65\x6e\x74\x2d".$FvaYR8d3Tu->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$F6SY5uFowT}->{"\x49\x44"}."\x2d".$ySbyniXW7o);push @{$OHV981mzX7},{NAME=>$FvaYR8d3Tu->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$F6SY5uFowT}->{"\x45\x58\x54\x5f\x4e\x55\x4d\x42\x45\x52"}."\x20\x28\x20".$FvaYR8d3Tu->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$F6SY5uFowT}->{"\x4e\x41\x4d\x45"}."\x20\x29",STATUS=>$YfYVi8h15q,ID=>$FvaYR8d3Tu->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$F6SY5uFowT}->{"\x49\x44"}};last;}}}}my $lF8wP0zOHQ=0;if($CekWlIqbAO->{$UzmXABbRkH}->{"\x68\x6f\x74\x64\x65\x73\x6b\x5f\x63\x61\x6c\x6c\x65\x72\x69\x64"}or $CekWlIqbAO->{$UzmXABbRkH}->{"\x48\x4f\x54\x44\x45\x53\x4b\x5f\x43\x49\x44"}){$lF8wP0zOHQ=1;}return dKUouA9SJq($FvaYR8d3Tu,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x70\x69\x6e\x66\x6f\x2e\x74\x74",{PHONE=>$CekWlIqbAO->{$UzmXABbRkH},HOTDESK=>$lF8wP0zOHQ,Q_STAT=>$OHV981mzX7,LANG=>$FvaYR8d3Tu->DQxHM4dIYu("\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($TDCT05sRen eq "\x70\x70\x5f\x70\x75\x70\x64\x61\x74\x65"){$FvaYR8d3Tu->wk8lgxQIri();$FvaYR8d3Tu->wk8lgxQIri({CALLED_ID=>"\x77\x65\x62",CALLER_ID=>$ENV{REMOTE_ADDR},CALL_TYPE=>"\x77\x65\x62"});my $fjQcn04Tz5=$FvaYR8d3Tu->FVFE1uXA0t("\x44\x4e\x44");unless($fjQcn04Tz5){$fjQcn04Tz5=0;}else{if($FvaYR8d3Tu->FVFE1uXA0t("\x52\x41\x57\x44\x4e\x44")){$fjQcn04Tz5=$FvaYR8d3Tu->FVFE1uXA0t("\x52\x41\x57\x44\x4e\x44");}else{$fjQcn04Tz5=time;}}my $Yzwc4o09Ee=$FvaYR8d3Tu->FVFE1uXA0t("\x46\x57\x44\x5f\x41\x46\x54\x45\x52");my $ygudctYOMJ=$FvaYR8d3Tu->FVFE1uXA0t("\x4c\x41\x4e\x47\x5f\x49\x44");if($FvaYR8d3Tu->TF5xGcERJK($CekWlIqbAO->{$UzmXABbRkH}->{"\x44\x41\x54\x41\x5f\x49\x44"},$CekWlIqbAO->{$UzmXABbRkH}->{"\x73\x65\x63\x72\x65\x74"},$CekWlIqbAO->{$UzmXABbRkH}->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"},$CekWlIqbAO->{$UzmXABbRkH}->{"\x44\x45\x53\x43\x52\x49\x50\x54\x49\x4f\x4e"},$CekWlIqbAO->{$UzmXABbRkH}->{"\x52\x45\x43\x5f\x4d\x4f\x44\x45"},$CekWlIqbAO->{$UzmXABbRkH}->{"\x52\x45\x43\x5f\x45\x58\x54"},$CekWlIqbAO->{$UzmXABbRkH}->{"\x50\x49\x43\x4b\x55\x50\x5f\x47\x52\x4f\x55\x50\x53"},$CekWlIqbAO->{$UzmXABbRkH}->{"\x6e\x61\x6d\x65"},$CekWlIqbAO->{$UzmXABbRkH}->{"\x44\x45\x46\x43\x49\x44"},$CekWlIqbAO->{$UzmXABbRkH}->{"\x74\x72\x75\x73\x74\x65\x64\x5f\x69\x70"},$CekWlIqbAO->{$UzmXABbRkH}->{"\x45\x4d\x41\x49\x4c"},$CekWlIqbAO->{$UzmXABbRkH}->{"\x43\x4f\x4c"},$CekWlIqbAO->{$UzmXABbRkH}->{"\x46\x57\x44\x5f\x4e\x55\x4d"},$Yzwc4o09Ee,$CekWlIqbAO->{$UzmXABbRkH}->{"\x57\x45\x42\x5f\x53\x45\x43\x52\x45\x54"},$CekWlIqbAO->{$UzmXABbRkH}->{"\x48\x4f\x54\x44\x45\x53\x4b\x5f\x50\x49\x4e"},$CekWlIqbAO->{$UzmXABbRkH}->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"},$CekWlIqbAO->{$UzmXABbRkH}->{"\x4c\x44\x5f\x54\x54\x4c"},$ygudctYOMJ,$CekWlIqbAO->{$UzmXABbRkH}->{"\x50\x45\x52\x4d\x49\x54\x5f\x57\x45\x42"},$CekWlIqbAO->{$UzmXABbRkH}->{"\x43\x55\x53\x54\x4f\x4d\x5f\x56\x41\x52\x53"},$fjQcn04Tz5)){if($FvaYR8d3Tu->M9Ztzifv2j()->{"\x41\x4c\x4c\x4f\x57\x5f\x53\x55\x42\x53\x43\x52\x49\x42\x45"}){if($fjQcn04Tz5 and ! $CekWlIqbAO->{$UzmXABbRkH}->{"\x44\x4e\x44"}){$FvaYR8d3Tu->mEPVhTJKIS($FvaYR8d3Tu->M9Ztzifv2j()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"},$UzmXABbRkH,"\x42\x55\x53\x59");}elsif(! $fjQcn04Tz5 and $CekWlIqbAO->{$UzmXABbRkH}->{"\x44\x4e\x44"}){$FvaYR8d3Tu->mEPVhTJKIS($FvaYR8d3Tu->M9Ztzifv2j()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"},$UzmXABbRkH,"\x4e\x4f\x54\x5f\x49\x4e\x55\x53\x45");}}return $FvaYR8d3Tu->rOY8JLMXZI();}else{return $FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x70\x70\x5f\x70\x62\x6f\x6f\x6b\x5f\x6c\x69\x73\x74"){my $nY59vXWEZ0=$FvaYR8d3Tu->pCSJaIPbOH()||return undef;my $mqTOiMDPjK=$FvaYR8d3Tu->pCSJaIPbOH($CekWlIqbAO->{$UzmXABbRkH}->{"\x44\x41\x54\x41\x5f\x49\x44"})||return undef;my $i543zZxXtH=$FvaYR8d3Tu->FVFE1uXA0t("\x66\x6f\x72\x6d\x61\x74");if($i543zZxXtH eq "\x65\x78\x63\x65\x6c"){my $tSlz2BhRGt=[];foreach my $Nuh1Io3OnW(@{$mqTOiMDPjK}){push @$tSlz2BhRGt,$Nuh1Io3OnW;}foreach my $Nuh1Io3OnW(@{$nY59vXWEZ0}){push @$tSlz2BhRGt,$Nuh1Io3OnW;}my $OB48xFhRgn=$FvaYR8d3Tu->t3x8XH2VNe("\x70\x62\x6f\x6f\x6b",[$tSlz2BhRGt,[qw(PHONE FIRST_NAME LAST_NAME SHORTCUT DESCRIPTION RESPONSIBLE)]]);unless($OB48xFhRgn){return $FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}else{if($OB48xFhRgn=~ /xlsx$/){return $FvaYR8d3Tu->r14BEJaLr6($OB48xFhRgn,"\x61\x70\x70\x6c\x69\x63\x61\x74\x69\x6f\x6e\x2f\x78\x6c\x73\x78");}else{return $FvaYR8d3Tu->r14BEJaLr6($OB48xFhRgn,"\x74\x65\x78\x74\x2f\x63\x73\x76");}}}my $RFCUIKDk4V=$FvaYR8d3Tu->z9HQX7nGpM();my $eC8mIBukG1;foreach my $ZqYaiBmNpz(keys %$RFCUIKDk4V){if($RFCUIKDk4V->{$ZqYaiBmNpz}->{"\x45\x58\x54\x45\x4e\x53\x49\x4f\x4e"}eq "\x63\x72\x6d\x2d\x63\x32\x63\x2d\x67\x77"){$eC8mIBukG1="ph=$UzmXABbRkH&key=$ZqYaiBmNpz&ac=".$FvaYR8d3Tu->M9Ztzifv2j()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"};last;}}return dKUouA9SJq($FvaYR8d3Tu,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x70\x62\x6f\x6f\x6b\x2e\x74\x74",{PBOOK_LIST_S=>$nY59vXWEZ0,PBOOK_LIST_P=>$mqTOiMDPjK,C2C=>$eC8mIBukG1,PHONE=>$UzmXABbRkH,});}elsif($TDCT05sRen eq "\x70\x70\x5f\x70\x62\x6f\x6f\x6b\x5f\x64\x65\x6c"){my $XJxhX5Hvfz=$FvaYR8d3Tu->FVFE1uXA0t("\x64\x61\x74\x61\x5f\x69\x64");if($FvaYR8d3Tu->ZZi9M6J0Pt($XJxhX5Hvfz,($XJxhX5Hvfz eq "\x61\x6c\x6c" ? 1:undef),undef,$CekWlIqbAO->{$UzmXABbRkH}->{"\x44\x41\x54\x41\x5f\x49\x44"},$UzmXABbRkH)){return $FvaYR8d3Tu->rOY8JLMXZI();}else{return $FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x70\x70\x5f\x70\x62\x6f\x6f\x6b\x5f\x61\x64\x64"){unless($FvaYR8d3Tu->vw8XWYErxk($FvaYR8d3Tu->VzAEujaiBr("\x54\x41\x42\x4c\x45\x53\x5f\x50\x48\x4f\x4e\x45\x5f\x42\x4f\x4f\x4b"),$FvaYR8d3Tu->M9Ztzifv2j()->{"\x4d\x41\x58\x5f\x50\x42\x4f\x4f\x4b\x5f\x49\x54\x45\x4d\x53"},{SUBSCR_ID=>$FvaYR8d3Tu->M9Ztzifv2j()->{"\x49\x44"},PHONE_OWNER=>$CekWlIqbAO->{$UzmXABbRkH}->{"\x44\x41\x54\x41\x5f\x49\x44"}})){return $FvaYR8d3Tu->rOY8JLMXZI(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 $XJxhX5Hvfz=$FvaYR8d3Tu->CpEfH8vWoe($FvaYR8d3Tu->FVFE1uXA0t([qw(shortcut ph fn ln description)]),undef,undef,$CekWlIqbAO->{$UzmXABbRkH}->{"\x44\x41\x54\x41\x5f\x49\x44"},$UzmXABbRkH))){return $FvaYR8d3Tu->rOY8JLMXZI(undef,undef,$XJxhX5Hvfz,"\x23\x61\x64\x64\x61\x72\x65\x61");}else{return $FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x70\x70\x5f\x70\x62\x6f\x6f\x6b\x5f\x75\x70\x64\x61\x74\x65"){if($FvaYR8d3Tu->alaejbOmno($FvaYR8d3Tu->FVFE1uXA0t([qw(data_id shortcut ph fn ln description)]),undef,$CekWlIqbAO->{$UzmXABbRkH}->{"\x44\x41\x54\x41\x5f\x49\x44"},$UzmXABbRkH)){return $FvaYR8d3Tu->rOY8JLMXZI();}else{return $FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x70\x70\x5f\x70\x62\x6f\x6f\x6b\x5f\x75\x70\x6c\x6f\x61\x64"){my $MPzWuR2YIk=$FvaYR8d3Tu->FVFE1uXA0t("\x63\x6f\x6e\x66\x69\x67\x5f\x66\x69\x6c\x65");unless(ref($MPzWuR2YIk)){$MPzWuR2YIk=undef;my $fi8D4T97LR=$FvaYR8d3Tu->FVFE1uXA0t("\x63\x6f\x6e\x66\x69\x67\x5f\x69\x64");if(length($fi8D4T97LR)){my $TMNb6KRjlw=$FvaYR8d3Tu->MArhEefsgx($FvaYR8d3Tu->M9Ztzifv2j()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"},undef,$fi8D4T97LR);if(ref($TMNb6KRjlw)eq "\x41\x52\x52\x41\x59" and scalar(@{$TMNb6KRjlw})){$MPzWuR2YIk=$TMNb6KRjlw->[0]->{"\x46\x5f\x50\x41\x54\x48"};}}}unless($MPzWuR2YIk){return $FvaYR8d3Tu->rOY8JLMXZI();}if($FvaYR8d3Tu->isVtSFT160($MPzWuR2YIk,0,"\x55\x50\x42\x4f\x4f\x4b",undef,undef,"\x75\x70\x62\x6f\x6f\x6b",{PHONE_OWNER=>$CekWlIqbAO->{$UzmXABbRkH}->{"\x44\x41\x54\x41\x5f\x49\x44"},PHONE_NUMBER=>$UzmXABbRkH})){return $FvaYR8d3Tu->rOY8JLMXZI();}}elsif($TDCT05sRen eq "\x70\x70\x5f\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74"){Tr4AhKbBaF($FvaYR8d3Tu,$CekWlIqbAO->{$UzmXABbRkH});}elsif($TDCT05sRen=~ /^pp_web_phone/){my $m83NXxK71e=$FvaYR8d3Tu->VzAEujaiBr("\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($FvaYR8d3Tu->M9Ztzifv2j()->{"\x50\x48\x4f\x4e\x45\x5f\x55\x49\x5f\x53\x4b\x49\x50\x5f\x50\x53\x57\x44"})){$m83NXxK71e=$FvaYR8d3Tu->M9Ztzifv2j()->{"\x50\x48\x4f\x4e\x45\x5f\x55\x49\x5f\x53\x4b\x49\x50\x5f\x50\x53\x57\x44"};}my $tcgthBX4iM=$FvaYR8d3Tu->FVFE1uXA0t("\x6e\x6f\x63\x6f\x6e\x74\x72\x6f\x6c");my $UIrhyJB93e=0;if($TDCT05sRen eq "\x70\x70\x5f\x77\x65\x62\x5f\x70\x68\x6f\x6e\x65\x5f\x6f\x6e\x6c\x79"){$tcgthBX4iM=$UIrhyJB93e=1;}return dKUouA9SJq($FvaYR8d3Tu,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x77\x65\x62\x5f\x70\x68\x6f\x6e\x65\x2e\x74\x74",{PHONE=>$CekWlIqbAO->{$UzmXABbRkH},WEBRTC=>{REALM=>$FvaYR8d3Tu->VzAEujaiBr("\x57\x45\x42\x52\x54\x43\x5f\x52\x45\x41\x4c\x4d"),WS=>$FvaYR8d3Tu->VzAEujaiBr("\x57\x45\x42\x52\x54\x43\x5f\x57\x53"),ICE=>$FvaYR8d3Tu->VzAEujaiBr("\x57\x45\x42\x52\x54\x43\x5f\x49\x43\x45"),UI_SKIP_PSWD=>$m83NXxK71e},NOCONTROL=>$tcgthBX4iM,PHONE_ONLY=>$UIrhyJB93e});}elsif($TDCT05sRen eq "\x70\x70\x5f\x71\x73\x74\x61\x74\x75\x73"){my $JapJEzKctL=$FvaYR8d3Tu->FVFE1uXA0t("\x71\x5f\x69\x64");my $YfYVi8h15q=$FvaYR8d3Tu->FVFE1uXA0t("\x73\x74\x61\x74\x75\x73")||0;if($JapJEzKctL and length($YfYVi8h15q)){As8qFCnUaQ($FvaYR8d3Tu,$CekWlIqbAO->{$UzmXABbRkH},$JapJEzKctL,$YfYVi8h15q);}return $FvaYR8d3Tu->rOY8JLMXZI();}else{return oI3nSJwMum($FvaYR8d3Tu,{});}}sub UH7oVSQFhG{my($FvaYR8d3Tu,$SOf9tJ2LmI)=@_;my($xJElBtxmzL,$n28gwTVaft,$O0b21OUPC6,$G3j2qgSd8z,$ySbyniXW7o,$FGow7Px5BJ,$LRGsSmvDlC,$wDyzSqRsLd,$JwxpryRHTz)=$FvaYR8d3Tu->FVFE1uXA0t([[(from=>0)],qw(from_time to_time smart_time caller_id called_id duration login pswd)]);my @N6ZQITGvlc=($SOf9tJ2LmI->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"});if($SOf9tJ2LmI->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"}){push @N6ZQITGvlc,@{$FvaYR8d3Tu->Vg7aN3AS2c($SOf9tJ2LmI->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"})};}unless(length("$n28gwTVaft$O0b21OUPC6$ySbyniXW7o$FGow7Px5BJ$LRGsSmvDlC")){my $X3bwT8FyOi=$FvaYR8d3Tu->VzAEujaiBr("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x55\x49");$n28gwTVaft=$FvaYR8d3Tu->MKVjIJR5aZ(time-86400*$X3bwT8FyOi,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$O0b21OUPC6=$FvaYR8d3Tu->MKVjIJR5aZ(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}$FvaYR8d3Tu->YjMaukNG5f($FvaYR8d3Tu->M9Ztzifv2j()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$FvaYR8d3Tu->M9Ztzifv2j()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});my $EnS9jbzacW=$FvaYR8d3Tu->V5tqwYZhPg(0,$xJElBtxmzL,$FvaYR8d3Tu->M9Ztzifv2j()->{"\x49\x44"},undef,$FvaYR8d3Tu->E2zGx7vyZq($n28gwTVaft),$FvaYR8d3Tu->E2zGx7vyZq($O0b21OUPC6),$ySbyniXW7o,$FGow7Px5BJ,undef,$LRGsSmvDlC,join("\x7c",@N6ZQITGvlc));if($EnS9jbzacW){my $djKwxbGC2I=$xJElBtxmzL+1;my $dklwfKzFja=$FvaYR8d3Tu->M9Ztzifv2j()->{"\x48\x49\x44\x45\x5f\x4e\x55\x4d\x42\x45\x52\x53"};foreach my $RJXbTAPoR8(@{$EnS9jbzacW}){$RJXbTAPoR8->{"\x4d\x53\x47\x5f\x4e\x55\x4d"}=$djKwxbGC2I++;$RJXbTAPoR8->{"\x4d\x53\x47\x5f\x44\x41\x54\x45"}=$FvaYR8d3Tu->MKVjIJR5aZ($RJXbTAPoR8->{"\x43\x52\x45\x41\x54\x45\x5f\x54\x49\x4d\x45"});if($dklwfKzFja){$FvaYR8d3Tu->oOjb1fhR9n(\$RJXbTAPoR8->{"\x43\x41\x4c\x4c\x45\x52\x49\x44"},$dklwfKzFja);$FvaYR8d3Tu->oOjb1fhR9n(\$RJXbTAPoR8->{"\x43\x41\x4c\x4c\x45\x44\x49\x44"},$dklwfKzFja);}}}$FvaYR8d3Tu->YjMaukNG5f();return dKUouA9SJq($FvaYR8d3Tu,"\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=>$EnS9jbzacW,FROM_TIME=>$n28gwTVaft,TO_TIME=>$O0b21OUPC6,CALLER_ID=>$ySbyniXW7o,CALLED_ID=>$FGow7Px5BJ,DURATION=>$LRGsSmvDlC,SMART_TIME=>$G3j2qgSd8z,$FvaYR8d3Tu->cqGL29RrWo(0,$EnS9jbzacW,$xJElBtxmzL)});}sub d90p8XIrMC{my($FvaYR8d3Tu,$SOf9tJ2LmI)=@_;my($n28gwTVaft,$O0b21OUPC6,$G3j2qgSd8z,$ySbyniXW7o,$Bn7cL6yx58,$FGow7Px5BJ,$LRGsSmvDlC,$AYAtpKLX8H,$CTU9dtZoQK)=$FvaYR8d3Tu->FVFE1uXA0t([qw(from_time to_time smart_time caller_id call_type called_id duration data raw_chart_data)]);my $UzmXABbRkH=$SOf9tJ2LmI->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"};$FvaYR8d3Tu->YjMaukNG5f($FvaYR8d3Tu->M9Ztzifv2j()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$FvaYR8d3Tu->M9Ztzifv2j()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});unless(length("$n28gwTVaft$O0b21OUPC6$ySbyniXW7o$Bn7cL6yx58$FGow7Px5BJ$LRGsSmvDlC$AYAtpKLX8H")){my $X3bwT8FyOi=$FvaYR8d3Tu->VzAEujaiBr("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x55\x49");$n28gwTVaft=$FvaYR8d3Tu->MKVjIJR5aZ(time-86400*$X3bwT8FyOi,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$O0b21OUPC6=$FvaYR8d3Tu->MKVjIJR5aZ(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my @N6ZQITGvlc=($UzmXABbRkH);if($SOf9tJ2LmI->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"}){push @N6ZQITGvlc,@{$FvaYR8d3Tu->Vg7aN3AS2c($SOf9tJ2LmI->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"})};}my $JJXfg5ALa9=$FvaYR8d3Tu->dMxS3gPs0h($ySbyniXW7o,$FvaYR8d3Tu->E2zGx7vyZq(($n28gwTVaft||"\x30\x30\x3a\x30\x30")),$FvaYR8d3Tu->E2zGx7vyZq($O0b21OUPC6),($FvaYR8d3Tu->FVFE1uXA0t("\x63\x68\x61\x72\x74\x5f\x67\x72\x6f\x75\x70\x5f\x70\x65\x72\x69\x6f\x64")||"\x64"),$Bn7cL6yx58,$FGow7Px5BJ,$LRGsSmvDlC,$AYAtpKLX8H,$CTU9dtZoQK,join("\x7c",@N6ZQITGvlc));my $JeYqjHJmMi;unless($CTU9dtZoQK){$JeYqjHJmMi=$FvaYR8d3Tu->MKVjIJR5aZ($JJXfg5ALa9->[2])."\x20\x2d\x20".$FvaYR8d3Tu->MKVjIJR5aZ($JJXfg5ALa9->[3]);}$FvaYR8d3Tu->YjMaukNG5f();if($CTU9dtZoQK){unless($JJXfg5ALa9){$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}else{if($JJXfg5ALa9=~ /xlsx$/){return $FvaYR8d3Tu->r14BEJaLr6($JJXfg5ALa9,"\x61\x70\x70\x6c\x69\x63\x61\x74\x69\x6f\x6e\x2f\x78\x6c\x73\x78");}else{return $FvaYR8d3Tu->r14BEJaLr6($JJXfg5ALa9,"\x74\x65\x78\x74\x2f\x63\x73\x76");}}}unless(ref $JJXfg5ALa9 eq "\x41\x52\x52\x41\x59"){$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $i3QoGqfAkD=$FvaYR8d3Tu->VzAEujaiBr("\x43\x47\x49\x5f\x45\x58\x43\x45\x4c\x5f\x4d\x4f\x44\x45");if(exists $FvaYR8d3Tu->M9Ztzifv2j()->{"\x45\x58\x43\x45\x4c\x5f\x4d\x4f\x44\x45"}){$i3QoGqfAkD=$FvaYR8d3Tu->M9Ztzifv2j()->{"\x45\x58\x43\x45\x4c\x5f\x4d\x4f\x44\x45"};}return dKUouA9SJq($FvaYR8d3Tu,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x63\x64\x72\x73\x5f\x63\x68\x61\x72\x74\x2e\x74\x74",{CDR_LIST=>$JJXfg5ALa9->[0],CDR_HEADER=>$JeYqjHJmMi,CDR_PERIOD=>$JJXfg5ALa9->[1],CDR_CALLER_ID=>$ySbyniXW7o,CDR_CALLED_ID=>$FGow7Px5BJ,CDR_CALL_TYPE=>$Bn7cL6yx58,CDR_DURATION=>$LRGsSmvDlC,CDR_DATA=>$AYAtpKLX8H,CDR_WITH_ASR=>$FvaYR8d3Tu->VzAEujaiBr("\x43\x47\x49\x5f\x53\x54\x41\x54\x5f\x57\x49\x54\x48\x5f\x41\x53\x52"),PHONE=>$UzmXABbRkH,EXCEL_MODE=>$i3QoGqfAkD,SMART_TIME=>$G3j2qgSd8z,FROM_TIME=>$n28gwTVaft,TO_TIME=>$O0b21OUPC6});}sub fJujKL3ATm{my($FvaYR8d3Tu,$SOf9tJ2LmI)=@_;my($xJElBtxmzL,$n28gwTVaft,$O0b21OUPC6,$ySbyniXW7o,$Bn7cL6yx58,$FGow7Px5BJ,$LRGsSmvDlC)=$FvaYR8d3Tu->FVFE1uXA0t([[(from=>0)],qw(from_time to_time caller_id call_type called_id duration)]);unless(length("$ySbyniXW7o$FGow7Px5BJ$n28gwTVaft$O0b21OUPC6$Bn7cL6yx58$LRGsSmvDlC")){my $X3bwT8FyOi=$FvaYR8d3Tu->VzAEujaiBr("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x55\x49");$n28gwTVaft=$FvaYR8d3Tu->MKVjIJR5aZ(time-86400*$X3bwT8FyOi,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$O0b21OUPC6=$FvaYR8d3Tu->MKVjIJR5aZ(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my $UzmXABbRkH=$SOf9tJ2LmI->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"};my @N6ZQITGvlc=($UzmXABbRkH);if($SOf9tJ2LmI->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"}){push @N6ZQITGvlc,@{$FvaYR8d3Tu->Vg7aN3AS2c($SOf9tJ2LmI->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"})};}$FvaYR8d3Tu->YjMaukNG5f($FvaYR8d3Tu->M9Ztzifv2j()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$FvaYR8d3Tu->M9Ztzifv2j()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});my $OB48xFhRgn=$FvaYR8d3Tu->Fpagf389hQ("\x63\x64\x72",$ySbyniXW7o,$FvaYR8d3Tu->E2zGx7vyZq($n28gwTVaft),$FvaYR8d3Tu->E2zGx7vyZq($O0b21OUPC6),undef,undef,$Bn7cL6yx58,$FGow7Px5BJ,$LRGsSmvDlC,undef,join("\x7c",@N6ZQITGvlc));$FvaYR8d3Tu->YjMaukNG5f();unless($OB48xFhRgn){$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}else{if($OB48xFhRgn=~ /xlsx$/){return $FvaYR8d3Tu->r14BEJaLr6($OB48xFhRgn,"\x61\x70\x70\x6c\x69\x63\x61\x74\x69\x6f\x6e\x2f\x78\x6c\x73\x78");}else{return $FvaYR8d3Tu->r14BEJaLr6($OB48xFhRgn,"\x74\x65\x78\x74\x2f\x63\x73\x76");}}}sub dP1No8qWTd{my($FvaYR8d3Tu,$SOf9tJ2LmI)=@_;my($xJElBtxmzL,$n28gwTVaft,$O0b21OUPC6,$G3j2qgSd8z,$ySbyniXW7o,$Bn7cL6yx58,$FGow7Px5BJ,$LRGsSmvDlC,$DxepGSaU9c)=$FvaYR8d3Tu->FVFE1uXA0t([[(from=>0)],qw(from_time to_time smart_time caller_id call_type called_id duration cnam)]);my $UzmXABbRkH=$SOf9tJ2LmI->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"};$FvaYR8d3Tu->YjMaukNG5f($FvaYR8d3Tu->M9Ztzifv2j()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$FvaYR8d3Tu->M9Ztzifv2j()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});unless(length("$ySbyniXW7o$FGow7Px5BJ$n28gwTVaft$O0b21OUPC6$Bn7cL6yx58$LRGsSmvDlC$DxepGSaU9c")){my $X3bwT8FyOi=$FvaYR8d3Tu->VzAEujaiBr("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x55\x49");$n28gwTVaft=$FvaYR8d3Tu->MKVjIJR5aZ(time-86400*$X3bwT8FyOi,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$O0b21OUPC6=$FvaYR8d3Tu->MKVjIJR5aZ(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my @N6ZQITGvlc=($UzmXABbRkH);if($SOf9tJ2LmI->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"}){push @N6ZQITGvlc,@{$FvaYR8d3Tu->Vg7aN3AS2c($SOf9tJ2LmI->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"})};}my $JgkeKfMZLN=$FvaYR8d3Tu->a5G9b8IWDO(undef,$ySbyniXW7o,$xJElBtxmzL,"\x63\x64\x72",$FvaYR8d3Tu->E2zGx7vyZq($n28gwTVaft),$FvaYR8d3Tu->E2zGx7vyZq($O0b21OUPC6),undef,undef,$Bn7cL6yx58,$FGow7Px5BJ,$LRGsSmvDlC,undef,undef,join("\x7c",@N6ZQITGvlc),$DxepGSaU9c);if($JgkeKfMZLN){my $dklwfKzFja=$FvaYR8d3Tu->M9Ztzifv2j()->{"\x48\x49\x44\x45\x5f\x4e\x55\x4d\x42\x45\x52\x53"};my $djKwxbGC2I=$xJElBtxmzL+1;foreach my $q7tsiJTwuX(@{$JgkeKfMZLN}){$q7tsiJTwuX->{"\x43\x44\x52\x5f\x4e\x55\x4d"}=$djKwxbGC2I++;$q7tsiJTwuX->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$FvaYR8d3Tu->MKVjIJR5aZ($q7tsiJTwuX->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});if($dklwfKzFja){$FvaYR8d3Tu->oOjb1fhR9n(\$q7tsiJTwuX->{"\x43\x41\x4c\x4c\x45\x52\x5f\x49\x44"},$dklwfKzFja);$FvaYR8d3Tu->oOjb1fhR9n(\$q7tsiJTwuX->{"\x43\x41\x4c\x4c\x45\x44\x5f\x49\x44"},$dklwfKzFja);$q7tsiJTwuX->{"\x44\x41\x54\x41"}=~ s/(DID=|PN=|RN=)([^,]+)(\d{$dklwfKzFja})(,|$)/$1x$3$4/g;}if(not exists $q7tsiJTwuX->{"\x56\x42\x5f\x49\x44"}and $q7tsiJTwuX->{"\x44\x41\x54\x41"}=~ /FILE=(\d+):([^\s,]+)/){$q7tsiJTwuX->{"\x56\x42\x5f\x49\x44"}=$1;$q7tsiJTwuX->{"\x46\x49\x4c\x45\x5f\x4e\x41\x4d\x45"}=$2;}}}$FvaYR8d3Tu->YjMaukNG5f();my $RFCUIKDk4V=$FvaYR8d3Tu->z9HQX7nGpM();my $eC8mIBukG1;foreach my $ZqYaiBmNpz(keys %$RFCUIKDk4V){if($RFCUIKDk4V->{$ZqYaiBmNpz}->{"\x45\x58\x54\x45\x4e\x53\x49\x4f\x4e"}eq "\x63\x72\x6d\x2d\x63\x32\x63\x2d\x67\x77"){$eC8mIBukG1="ph=$UzmXABbRkH&key=$ZqYaiBmNpz&ac=".$FvaYR8d3Tu->M9Ztzifv2j()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"};last;}}return dKUouA9SJq($FvaYR8d3Tu,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x63\x64\x72\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74",{CDR_LIST=>$JgkeKfMZLN,CDR_CALLER_ID=>$ySbyniXW7o,CDR_CALLED_ID=>$FGow7Px5BJ,CDR_DURATION=>$LRGsSmvDlC,FROM_TIME=>$n28gwTVaft,TO_TIME=>$O0b21OUPC6,SMART_TIME=>$G3j2qgSd8z,CDR_CNAM=>$DxepGSaU9c,CDR_CALL_TYPE=>$Bn7cL6yx58,C2C=>$eC8mIBukG1,PHONE=>$UzmXABbRkH,$FvaYR8d3Tu->cqGL29RrWo(0,$JgkeKfMZLN,$xJElBtxmzL)});}sub Tr4AhKbBaF{my($FvaYR8d3Tu,$SOf9tJ2LmI)=@_;my($xJElBtxmzL,$ySbyniXW7o,$FGow7Px5BJ,$EyF6kxm2Qu,$Bn7cL6yx58,$PLGQdBRSel,$eC8mIBukG1,$LRGsSmvDlC)=$FvaYR8d3Tu->FVFE1uXA0t([[(from=>0)],qw(caller_id called_id ac call_type refresh c2c duration)]);my $YwUdmHkVcI;if($FvaYR8d3Tu->M9Ztzifv2j()->{"\x41\x4c\x4c\x4f\x57\x5f\x43\x54\x52"}){$YwUdmHkVcI=$FvaYR8d3Tu->XUVqrGnMmP($ySbyniXW7o,$FGow7Px5BJ,$FvaYR8d3Tu->M9Ztzifv2j()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"},$Bn7cL6yx58,$LRGsSmvDlC,undef,undef,undef,$xJElBtxmzL);}else{$PLGQdBRSel="\x38\x36\x34\x30\x30";}unless(ref $YwUdmHkVcI eq "\x41\x52\x52\x41\x59"){$YwUdmHkVcI=[];}my $yUQvVRxGSP=[];if(scalar @$YwUdmHkVcI){$FvaYR8d3Tu->YjMaukNG5f($FvaYR8d3Tu->M9Ztzifv2j()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$FvaYR8d3Tu->M9Ztzifv2j()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});my $dklwfKzFja=$FvaYR8d3Tu->M9Ztzifv2j()->{"\x48\x49\x44\x45\x5f\x4e\x55\x4d\x42\x45\x52\x53"};foreach my $q7tsiJTwuX(@{$YwUdmHkVcI}){$q7tsiJTwuX->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$FvaYR8d3Tu->MKVjIJR5aZ($q7tsiJTwuX->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});$q7tsiJTwuX->{"\x43\x44\x52\x5f\x44\x55\x52\x41\x54\x49\x4f\x4e"}=time-$q7tsiJTwuX->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"};if($q7tsiJTwuX->{"\x43\x41\x4c\x4c\x5f\x54\x59\x50\x45"}ne "\x74\x72\x61\x6e\x73\x69\x74" and $q7tsiJTwuX->{"\x43\x41\x4c\x4c\x5f\x54\x59\x50\x45"}ne "\x69\x6e\x74\x65\x72\x6e\x61\x6c" and $q7tsiJTwuX->{"\x43\x41\x4c\x4c\x5f\x54\x59\x50\x45"}ne "\x73\x65\x72\x76\x69\x63\x65"){my($Yx249CgwM8,$F6SY5uFowT,$DsgBwI9LAC)=split(/:/,$FvaYR8d3Tu->PanqhE4j3m("\x73\x68\x2d\x63\x2d\x74\x72\x61\x63\x6b\x2d\x63\x75\x72\x2d\x65\x78\x74\x2d".$q7tsiJTwuX->{"\x43\x41\x4c\x4c\x5f\x49\x44"}));$q7tsiJTwuX->{"\x45\x58\x54\x5f\x54\x53"}=time-$Yx249CgwM8;$q7tsiJTwuX->{"\x45\x58\x54\x5f\x49\x44"}=$F6SY5uFowT;$q7tsiJTwuX->{"\x41\x4e\x53\x57\x45\x52\x45\x44"}=$DsgBwI9LAC;}foreach my $tqCVyKOzFL(@{$FvaYR8d3Tu->Vg7aN3AS2c($SOf9tJ2LmI->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"})},$SOf9tJ2LmI->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"}){next unless length $tqCVyKOzFL;if($q7tsiJTwuX->{"\x43\x41\x4c\x4c\x45\x52\x5f\x49\x44"}eq $tqCVyKOzFL or $q7tsiJTwuX->{"\x43\x41\x4c\x4c\x45\x44\x5f\x49\x44"}eq $tqCVyKOzFL or $q7tsiJTwuX->{"\x41\x4e\x53\x57\x45\x52\x45\x44"}eq $tqCVyKOzFL){push @$yUQvVRxGSP,$q7tsiJTwuX;last;}elsif(index($tqCVyKOzFL,"\x2a")==0 and length($tqCVyKOzFL)>1){if("\x2a".$q7tsiJTwuX->{"\x45\x58\x54\x5f\x49\x44"}eq $tqCVyKOzFL){push @$yUQvVRxGSP,$q7tsiJTwuX;last;}}}if($dklwfKzFja){$FvaYR8d3Tu->oOjb1fhR9n(\$q7tsiJTwuX->{"\x43\x41\x4c\x4c\x45\x52\x5f\x49\x44"},$dklwfKzFja);$FvaYR8d3Tu->oOjb1fhR9n(\$q7tsiJTwuX->{"\x43\x41\x4c\x4c\x45\x44\x5f\x49\x44"},$dklwfKzFja);}}$FvaYR8d3Tu->YjMaukNG5f();}if($PLGQdBRSel and $PLGQdBRSel<$FvaYR8d3Tu->VzAEujaiBr("\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")){$PLGQdBRSel=$FvaYR8d3Tu->VzAEujaiBr("\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($PLGQdBRSel){my $RFCUIKDk4V=$FvaYR8d3Tu->z9HQX7nGpM();foreach my $ZqYaiBmNpz(keys %$RFCUIKDk4V){if($RFCUIKDk4V->{$ZqYaiBmNpz}->{"\x45\x58\x54\x45\x4e\x53\x49\x4f\x4e"}eq "\x78\x76\x62\x73\x70\x79"){if($FvaYR8d3Tu->JOu2vwz8E9()->{"\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"){$eC8mIBukG1=$ZqYaiBmNpz."\x26\x70\x68\x3d".$SOf9tJ2LmI->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"};}last;}}}return dKUouA9SJq($FvaYR8d3Tu,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74",{CALLS_COUNT=>scalar(@$yUQvVRxGSP),CALLS_LIST=>$yUQvVRxGSP,CDR_CALLER_ID=>$ySbyniXW7o,CDR_CALLED_ID=>$FGow7Px5BJ,CDR_CALL_TYPE=>$Bn7cL6yx58,CDR_REFRESH_TIME=>$PLGQdBRSel,CDR_C2C=>$eC8mIBukG1,CDR_DURATION=>$LRGsSmvDlC,$FvaYR8d3Tu->cqGL29RrWo(1,$yUQvVRxGSP,$xJElBtxmzL)});}sub As8qFCnUaQ{my($FvaYR8d3Tu,$SOf9tJ2LmI,$JapJEzKctL,$YfYVi8h15q)=@_;my $ySbyniXW7o=$SOf9tJ2LmI->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"};foreach my $F6SY5uFowT(keys %{$FvaYR8d3Tu->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}}){if($FvaYR8d3Tu->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$F6SY5uFowT}->{"\x54\x59\x50\x45"}eq "\x31\x33"){if($JapJEzKctL and $JapJEzKctL ne $FvaYR8d3Tu->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$F6SY5uFowT}->{"\x49\x44"}){next;}my($xSZsPBoyRQ)=$FvaYR8d3Tu->V7VF94EW5H([$FvaYR8d3Tu->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$F6SY5uFowT}->{"\x43\x41\x4c\x4c\x5f\x4e\x55\x4d\x42\x45\x52"}],"\x6e\x6f\x71\x75\x6f\x74\x65");$xSZsPBoyRQ=~ s#[^,_@\w\d:.*\|\/-]##gs;foreach my $tHIbRzqkAJ(split(/,/,$xSZsPBoyRQ)){unless(index($tHIbRzqkAJ,"$ySbyniXW7o/")){if($YfYVi8h15q){$YfYVi8h15q=1;}else{$YfYVi8h15q=0;}$FvaYR8d3Tu->PanqhE4j3m("\x73\x68\x2d\x71\x75\x65\x75\x65\x2d\x61\x67\x65\x6e\x74\x2d".$FvaYR8d3Tu->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$F6SY5uFowT}->{"\x49\x44"}."\x2d".$ySbyniXW7o,$YfYVi8h15q,0);$FvaYR8d3Tu->wk8lgxQIri();$FvaYR8d3Tu->wk8lgxQIri({EVENT_START_TIME=>$FvaYR8d3Tu->iyENxzPI5p(),EVENT_TYPE=>"\x41\x67\x65\x6e\x74\x53\x74\x61\x74\x75\x73",EVENT_STOP_TIME=>0,EVENT_EXT=>$F6SY5uFowT,ENH_STATUS=>$YfYVi8h15q,ENH_AGENT=>$ySbyniXW7o,CALL_TYPE=>"\x77\x65\x62",CALLED_ID=>"\x77\x65\x62",CALLER_ID=>$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"}});$FvaYR8d3Tu->TJqSzXliP5();last;}}}}}sub oI3nSJwMum{my($FvaYR8d3Tu,$JJXfg5ALa9)=@_;if(my $KuvEMlcanx=$FvaYR8d3Tu->FVFE1uXA0t("\x6c\x61\x6e\x67")){$FvaYR8d3Tu->M9Ztzifv2j()->{"\x4c\x41\x4e\x47\x5f\x4e\x41\x4d\x45"}=$KuvEMlcanx;}return dKUouA9SJq($FvaYR8d3Tu,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x6c\x6f\x67\x69\x6e\x2e\x74\x74",$JJXfg5ALa9);}sub Rqr8DcLsJO{my($FvaYR8d3Tu)=@_;my $z16NW2QVlU=$FvaYR8d3Tu->FVFE1uXA0t("\x65\x78\x74");my($xJElBtxmzL,$F1TXZQspIg)=split(/\//,$z16NW2QVlU,2);my $JJXfg5ALa9="\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($xJElBtxmzL){my $MmMVvwN17F=$FvaYR8d3Tu->mf6ym7uWOI($xJElBtxmzL);if(ref $MmMVvwN17F){if($FvaYR8d3Tu->VjkcO9dlhA(undef,$MmMVvwN17F->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"})){if($FvaYR8d3Tu->M9Ztzifv2j()->{"\x41\x4c\x4c\x4f\x57\x5f\x53\x55\x42\x53\x43\x52\x49\x42\x45"}){my $CekWlIqbAO=$FvaYR8d3Tu->mbhjiSVkXt();if(ref $CekWlIqbAO eq "\x48\x41\x53\x48"){if(exists($CekWlIqbAO->{$F1TXZQspIg})){$JJXfg5ALa9="\x53\x49\x50\x2f".$CekWlIqbAO->{$F1TXZQspIg}->{"\x6e\x61\x6d\x65"}."\x26\x43\x75\x73\x74\x6f\x6d\x3a\x58\x56\x42\x2d".$MmMVvwN17F->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"}."-$F1TXZQspIg";}}}}}}}$FvaYR8d3Tu->j30azARfnj(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",$JJXfg5ALa9);}sub DzZu9EekF8{my($FvaYR8d3Tu,$EyF6kxm2Qu,$tDCa63B1SJ)=@_;$FvaYR8d3Tu->Xs9WReQtYI(["\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"},$EyF6kxm2Qu,$tDCa63B1SJ]);}sub dKUouA9SJq{my($FvaYR8d3Tu,$xW6bwfEDd2,$JJXfg5ALa9,$j6YQI5N37G)=@_;$JJXfg5ALa9->{"\x43\x47\x49\x5f\x55\x52\x4c"}=$FvaYR8d3Tu->VzAEujaiBr("\x43\x47\x49\x5f\x55\x52\x4c");$JJXfg5ALa9->{"\x43\x47\x49\x5f\x53\x45\x52\x56\x45\x52"}=$FvaYR8d3Tu->VzAEujaiBr("\x43\x47\x49\x5f\x53\x45\x52\x56\x45\x52");$JJXfg5ALa9->{"\x55\x4e\x49\x58\x54\x49\x4d\x45"}=time;my $rMiUXf0kW8='';my $Z8RNYCtDbE='';unless($rMiUXf0kW8){my $drlBAkaVCi;my $txIkobn5w6=$FvaYR8d3Tu->VzAEujaiBr("\x50\x41\x54\x48\x5f\x54\x45\x4d\x50\x4c\x41\x54\x45\x5f\x44\x49\x52");my $KuvEMlcanx=$FvaYR8d3Tu->M9Ztzifv2j()->{"\x4c\x41\x4e\x47\x5f\x4e\x41\x4d\x45"}||$FvaYR8d3Tu->VzAEujaiBr("\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 $DCkGES8OTm=$FvaYR8d3Tu->M9Ztzifv2j()->{"\x53\x55\x42\x5f\x54\x45\x4d\x50\x4c\x41\x54\x45\x5f\x44\x49\x52"};if(length $DCkGES8OTm){$DCkGES8OTm=~ s#[^\d\w_.-]##gs;}if(length($DCkGES8OTm)and-e "$txIkobn5w6/$DCkGES8OTm/$KuvEMlcanx/$xW6bwfEDd2"){$drlBAkaVCi="$txIkobn5w6/$DCkGES8OTm/$KuvEMlcanx/$xW6bwfEDd2";}elsif(-e "$txIkobn5w6/$KuvEMlcanx/$xW6bwfEDd2"){$drlBAkaVCi="$txIkobn5w6/$KuvEMlcanx/$xW6bwfEDd2";}else{$drlBAkaVCi="$txIkobn5w6/$xW6bwfEDd2";}my $BOHlwEk2ZR=$FvaYR8d3Tu->{"\x5f\x54\x4d\x50\x4c"};my $uBWTdcHpCx=$FvaYR8d3Tu->PanqhE4j3m("files-$drlBAkaVCi");unless($uBWTdcHpCx){$uBWTdcHpCx=$BOHlwEk2ZR->load_src('',$drlBAkaVCi);$FvaYR8d3Tu->PanqhE4j3m("files-$drlBAkaVCi",$uBWTdcHpCx,$FvaYR8d3Tu->VzAEujaiBr("\x54\x49\x4d\x45\x4f\x55\x54\x5f\x4d\x45\x4d\x5f\x43\x41\x43\x48\x45\x44"));}$JJXfg5ALa9->{"\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}=$FvaYR8d3Tu->M9Ztzifv2j();$BOHlwEk2ZR->process(\$uBWTdcHpCx,$JJXfg5ALa9,\$Z8RNYCtDbE);}unless($rMiUXf0kW8){$FvaYR8d3Tu->j30azARfnj(200,"\x4f\x6b",$j6YQI5N37G,$Z8RNYCtDbE.$FvaYR8d3Tu->jstdEDPBr5("\x67\x36\x31\x33","\x43"));}elsif($rMiUXf0kW8 eq "\x78\x6d\x6c"){$Z8RNYCtDbE=XML::Simple::XMLout($JJXfg5ALa9);$FvaYR8d3Tu->XeSMKRzEf1(200,"\x4f\x6b",undef,$Z8RNYCtDbE);}elsif($rMiUXf0kW8 eq "\x6a\x73\x6f\x6e"){my $y2DfJG9NYE=JSON::XS->new();$FvaYR8d3Tu->j30azARfnj(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",$y2DfJG9NYE->encode($JJXfg5ALa9));}}