#!/usr/bin/perl
########################################################################
#
# $Id: VirtualPBX-EI.cgi,v 1.52 2025/11/13 08:42:42 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($kJUNrM2Ylc);DwEe7lgfHd();sub new{my($Na4KXDY05O,$m4vDJP6hMk)=@_;unless($kJUNrM2Ylc){$kJUNrM2Ylc=bless{_TMPL=>Template::EasyTT->new({}),_CONF=>{},},$Na4KXDY05O;$kJUNrM2Ylc->uan385Lv9B($m4vDJP6hMk);$kJUNrM2Ylc->kh6jHCDIMv();$kJUNrM2Ylc->{"\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;$kJUNrM2Ylc->LwBxcahkvj(1);chdir($kJUNrM2Ylc->LkXDqNIi1U("\x50\x41\x54\x48\x5f\x57\x4f\x52\x4b\x5f\x44\x49\x52"));$kJUNrM2Ylc->tCcgFj0RMW();$kJUNrM2Ylc->{"\x5f\x54\x4d\x50\x4c"}->filters_add("\x6c\x6f\x63\x61\x6c\x65\x5f\x6d\x73\x67",sub{my $tUVnXBzM9Z=$kJUNrM2Ylc->AOihZumA9j($_[1],$kJUNrM2Ylc->Pa4lJy7CWz()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});$tUVnXBzM9Z=~ s#&#&amp;#gs;$tUVnXBzM9Z=~ s#\x22#&quot;#gs;$tUVnXBzM9Z=~ s#<#&lt;#gs;$tUVnXBzM9Z=~ s#>#&gt;#gs;$tUVnXBzM9Z=~ s#\x27#&apos;#gs;return $tUVnXBzM9Z;});}$kJUNrM2Ylc->{"\x5f\x43\x44\x52"}={};$kJUNrM2Ylc->{"\x5f\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}={};$kJUNrM2Ylc->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}={};$kJUNrM2Ylc->{"\x5f\x53\x45\x53\x53\x49\x4f\x4e"}={};$kJUNrM2Ylc->{"\x5f\x43\x47\x49"}=CGI->new();return $kJUNrM2Ylc;}sub DwEe7lgfHd{my $YxJPfXkGup=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($Z7YLP80G1l,$Acn7R23Kum,$Jr74KMNfHh)=$YxJPfXkGup->a4eP9YOWX5([qw(login pswd action)]);if(! length($Z7YLP80G1l)){$Z7YLP80G1l=$YxJPfXkGup->{"\x5f\x43\x47\x49"}->cookie("\x6c\x6f\x67\x69\x6e");$Acn7R23Kum=$YxJPfXkGup->{"\x5f\x43\x47\x49"}->cookie("\x70\x73\x77\x64");}unless($Z7YLP80G1l){return hQ2iof3eP9($YxJPfXkGup,{});}my($TfQJnK1Vzg,$ZDPvIsBfeO)=split(/\@/,$Z7YLP80G1l);my $XQzc7faDBW;if($YxJPfXkGup->LkXDqNIi1U("\x44\x42\x5f\x43\x41\x43\x48\x45\x5f\x57\x45\x42\x5f\x41\x55\x54\x48")){$XQzc7faDBW=$YxJPfXkGup->TXkoyCYDH0("short-user-$ZDPvIsBfeO");unless(ref($XQzc7faDBW)){hAqOXrpHci($YxJPfXkGup,$ZDPvIsBfeO,"\x70\x73\x77\x64\x20\x6d\x69\x73\x6d\x61\x74\x63\x68")if $YxJPfXkGup->Zun8izTW1I(1);return hQ2iof3eP9($YxJPfXkGup,{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(! $XQzc7faDBW->{"\x53\x54\x41\x54\x55\x53"}and ! $YxJPfXkGup->LkXDqNIi1U("\x43\x47\x49\x5f\x49\x47\x4e\x4f\x52\x45\x5f\x4c\x4f\x43\x4b")){hAqOXrpHci($YxJPfXkGup,$ZDPvIsBfeO,"\x6c\x6f\x63\x6b\x65\x64")if $YxJPfXkGup->Zun8izTW1I(1);return hQ2iof3eP9($YxJPfXkGup,{ERROR_STR=>"\x59\x6f\x75\x72\x20\x61\x63\x63\x6f\x75\x6e\x74\x20\x69\x73\x20\x6c\x6f\x63\x6b\x65\x64"});}}$XQzc7faDBW=$YxJPfXkGup->tOlP8ynhfu(undef,$ZDPvIsBfeO);unless($XQzc7faDBW==1){hAqOXrpHci($YxJPfXkGup,$ZDPvIsBfeO,"\x70\x73\x77\x64\x20\x6d\x69\x73\x6d\x61\x74\x63\x68")if $YxJPfXkGup->Zun8izTW1I(1);return hQ2iof3eP9($YxJPfXkGup,{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 $krSN8jVakE=$YxJPfXkGup->oq4YkX5cBr();if(ref $krSN8jVakE ne "\x48\x41\x53\x48"){return hQ2iof3eP9($YxJPfXkGup,{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($krSN8jVakE->{$TfQJnK1Vzg})or length($krSN8jVakE->{$TfQJnK1Vzg}->{"\x57\x45\x42\x5f\x53\x45\x43\x52\x45\x54"})==0 or $krSN8jVakE->{$TfQJnK1Vzg}->{"\x57\x45\x42\x5f\x53\x45\x43\x52\x45\x54"}ne $Acn7R23Kum){hAqOXrpHci($YxJPfXkGup,$ZDPvIsBfeO,"\x70\x73\x77\x64\x20\x6d\x69\x73\x6d\x61\x74\x63\x68")if $YxJPfXkGup->Zun8izTW1I(1);return hQ2iof3eP9($YxJPfXkGup,{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($krSN8jVakE->{$TfQJnK1Vzg}->{"\x50\x45\x52\x4d\x49\x54\x5f\x57\x45\x42"})and ! $YxJPfXkGup->{"\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"}){$YxJPfXkGup->{"\x5f\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}->{"\x50\x45\x52\x4d\x49\x54\x5f\x57\x45\x42"}=$krSN8jVakE->{$TfQJnK1Vzg}->{"\x50\x45\x52\x4d\x49\x54\x5f\x57\x45\x42"};}if(length($YxJPfXkGup->Pa4lJy7CWz()->{"\x50\x45\x52\x4d\x49\x54\x5f\x57\x45\x42"})){unless($YxJPfXkGup->Y2n491Qf3K($YxJPfXkGup->Pa4lJy7CWz()->{"\x50\x45\x52\x4d\x49\x54\x5f\x57\x45\x42"},$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"})){return $YxJPfXkGup->GRXMuq4YHg(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($krSN8jVakE->{$TfQJnK1Vzg}->{"\x4c\x41\x4e\x47\x5f\x49\x44"}){$YxJPfXkGup->{"\x5f\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}->{"\x4c\x41\x4e\x47\x5f\x4e\x41\x4d\x45"}=$krSN8jVakE->{$TfQJnK1Vzg}->{"\x4c\x41\x4e\x47\x5f\x4e\x41\x4d\x45"};$YxJPfXkGup->{"\x5f\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"}=$krSN8jVakE->{$TfQJnK1Vzg}->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"};}if(my $HvgyPkSelb=$YxJPfXkGup->LkXDqNIi1U("\x43\x47\x49\x5f\x45\x49\x5f\x57\x45\x42\x52\x54\x43\x5f\x50\x52\x45\x46")){if($Acn7R23Kum=~ /^\Q$HvgyPkSelb\E/i){$Jr74KMNfHh="\x70\x70\x5f\x77\x65\x62\x5f\x70\x68\x6f\x6e\x65\x5f\x6f\x6e\x6c\x79";}}if($Jr74KMNfHh eq "\x70\x70\x5f\x6d\x65\x6e\x75"){my $njbAxw2v5r=$YxJPfXkGup->LkXDqNIi1U("\x57\x45\x42\x52\x54\x43\x5f\x57\x53");if($njbAxw2v5r){$njbAxw2v5r=0 if $YxJPfXkGup->a4eP9YOWX5("\x73\x6b\x69\x70\x5f\x77\x65\x62\x5f\x70\x68\x6f\x6e\x65");}return IkgY8wZQ7z($YxJPfXkGup,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x6d\x65\x6e\x75\x2e\x74\x74",{PHONE=>$krSN8jVakE->{$TfQJnK1Vzg},WEBRTC=>$njbAxw2v5r});}elsif($Jr74KMNfHh eq "\x70\x70\x5f\x73\x74\x61\x72\x74"){my $WCYE9n40Fg=$YxJPfXkGup->{"\x5f\x43\x47\x49"}->cookie(-name=>"\x6c\x6f\x67\x69\x6e",-value=>$Z7YLP80G1l,-path=>"\x2f\x70\x68\x6f\x6e\x65");my $QdRWefEIBl=$YxJPfXkGup->{"\x5f\x43\x47\x49"}->cookie(-name=>"\x70\x73\x77\x64",-value=>$Acn7R23Kum,-path=>"\x2f\x70\x68\x6f\x6e\x65");return IkgY8wZQ7z($YxJPfXkGup,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x73\x74\x61\x72\x74\x2e\x74\x74",{WITH_PHONE=>$YxJPfXkGup->a4eP9YOWX5("\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: $WCYE9n40Fg","Set-Cookie: $QdRWefEIBl"]);}elsif($Jr74KMNfHh eq "\x70\x70\x5f\x6d\x73\x67\x5f\x6c\x69\x73\x74"){Z2NjiegfRP($YxJPfXkGup,$krSN8jVakE->{$TfQJnK1Vzg});}elsif($Jr74KMNfHh eq "\x70\x70\x5f\x63\x64\x72\x5f\x6c\x69\x73\x74"){my($ZRv3pLDdw1,$c1fqa6c59d)=$YxJPfXkGup->a4eP9YOWX5([qw(need_excel need_chart)]);if($ZRv3pLDdw1 && ! $YxJPfXkGup->Pa4lJy7CWz()->{"\x48\x49\x44\x45\x5f\x4e\x55\x4d\x42\x45\x52\x53"}){nAKZ0ijzot($YxJPfXkGup,$krSN8jVakE->{$TfQJnK1Vzg});}elsif($c1fqa6c59d){hUf2QA8nOB($YxJPfXkGup,$krSN8jVakE->{$TfQJnK1Vzg});}else{j7cDBfe9mv($YxJPfXkGup,$krSN8jVakE->{$TfQJnK1Vzg});}}elsif($Jr74KMNfHh eq "\x70\x70\x5f\x70\x69\x6e\x66\x6f"){my $Yu6SXN4zTM=time;$YxJPfXkGup->nGQ1HXlYbW($YxJPfXkGup->Pa4lJy7CWz()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$YxJPfXkGup->Pa4lJy7CWz()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});if($Yu6SXN4zTM<$krSN8jVakE->{$TfQJnK1Vzg}->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}){$krSN8jVakE->{$TfQJnK1Vzg}->{"\x52\x45\x47\x5f\x53\x54\x41\x54\x55\x53"}="\x52\x65\x67\x69\x73\x74\x65\x72\x65\x64";}else{$krSN8jVakE->{$TfQJnK1Vzg}->{"\x52\x45\x47\x5f\x53\x54\x41\x54\x55\x53"}="\x55\x6e\x72\x65\x67\x69\x73\x74\x65\x72\x65\x64";}$krSN8jVakE->{$TfQJnK1Vzg}->{"\x52\x45\x47\x5f\x45\x58\x50\x49\x52\x45\x44"}=$krSN8jVakE->{$TfQJnK1Vzg}->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}? $YxJPfXkGup->H3SdXqsMcr($krSN8jVakE->{$TfQJnK1Vzg}->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}):"\x2d";$krSN8jVakE->{$TfQJnK1Vzg}->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}=$krSN8jVakE->{$TfQJnK1Vzg}->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}? $YxJPfXkGup->H3SdXqsMcr($krSN8jVakE->{$TfQJnK1Vzg}->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}):"\x2d";$krSN8jVakE->{$TfQJnK1Vzg}->{"\x52\x41\x57\x44\x4e\x44"}=$krSN8jVakE->{$TfQJnK1Vzg}->{"\x44\x4e\x44"};$krSN8jVakE->{$TfQJnK1Vzg}->{"\x44\x4e\x44"}=$krSN8jVakE->{$TfQJnK1Vzg}->{"\x44\x4e\x44"}? $YxJPfXkGup->H3SdXqsMcr($krSN8jVakE->{$TfQJnK1Vzg}->{"\x44\x4e\x44"}):'';$YxJPfXkGup->nGQ1HXlYbW();my $IqeVuCtloF=$krSN8jVakE->{$TfQJnK1Vzg}->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"};my $z8QjYfRExP=[];foreach my $rmfKFS2LUJ(keys %{$YxJPfXkGup->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}}){if($YxJPfXkGup->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$rmfKFS2LUJ}->{"\x54\x59\x50\x45"}eq "\x31\x33"){my($mfwo6Kcers)=$YxJPfXkGup->CcvdzJuw9U([$YxJPfXkGup->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$rmfKFS2LUJ}->{"\x43\x41\x4c\x4c\x5f\x4e\x55\x4d\x42\x45\x52"}],"\x6e\x6f\x71\x75\x6f\x74\x65");$mfwo6Kcers=~ s#[^,_@\w\d:.*\|\/-]##gs;foreach my $Yz6grdW3LR(split(/,/,$mfwo6Kcers)){unless(index($Yz6grdW3LR,"$IqeVuCtloF/")){my $y5XOicf4IW=$YxJPfXkGup->TXkoyCYDH0("\x73\x68\x2d\x71\x75\x65\x75\x65\x2d\x61\x67\x65\x6e\x74\x2d".$YxJPfXkGup->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$rmfKFS2LUJ}->{"\x49\x44"}."\x2d".$IqeVuCtloF);push @{$z8QjYfRExP},{NAME=>$YxJPfXkGup->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$rmfKFS2LUJ}->{"\x45\x58\x54\x5f\x4e\x55\x4d\x42\x45\x52"}."\x20\x28\x20".$YxJPfXkGup->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$rmfKFS2LUJ}->{"\x4e\x41\x4d\x45"}."\x20\x29",STATUS=>$y5XOicf4IW,ID=>$YxJPfXkGup->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$rmfKFS2LUJ}->{"\x49\x44"}};last;}}}}return IkgY8wZQ7z($YxJPfXkGup,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x70\x69\x6e\x66\x6f\x2e\x74\x74",{PHONE=>$krSN8jVakE->{$TfQJnK1Vzg},Q_STAT=>$z8QjYfRExP,LANG=>$YxJPfXkGup->AGC8EX7TZ9("\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($Jr74KMNfHh eq "\x70\x70\x5f\x70\x75\x70\x64\x61\x74\x65"){$YxJPfXkGup->a8eI2bTcmC();$YxJPfXkGup->a8eI2bTcmC({CALLED_ID=>"\x77\x65\x62",CALLER_ID=>$ENV{REMOTE_ADDR},CALL_TYPE=>"\x77\x65\x62"});my $f8096H4ABr=$YxJPfXkGup->a4eP9YOWX5("\x44\x4e\x44");unless($f8096H4ABr){$f8096H4ABr=0;}else{if($YxJPfXkGup->a4eP9YOWX5("\x52\x41\x57\x44\x4e\x44")){$f8096H4ABr=$YxJPfXkGup->a4eP9YOWX5("\x52\x41\x57\x44\x4e\x44");}else{$f8096H4ABr=time;}}my $DEiRL8cMpg=$YxJPfXkGup->a4eP9YOWX5("\x46\x57\x44\x5f\x41\x46\x54\x45\x52");my $yXKmjWQ8YC=$YxJPfXkGup->a4eP9YOWX5("\x4c\x41\x4e\x47\x5f\x49\x44");if($YxJPfXkGup->dfUoq5978k($krSN8jVakE->{$TfQJnK1Vzg}->{"\x44\x41\x54\x41\x5f\x49\x44"},$krSN8jVakE->{$TfQJnK1Vzg}->{"\x73\x65\x63\x72\x65\x74"},$krSN8jVakE->{$TfQJnK1Vzg}->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"},$krSN8jVakE->{$TfQJnK1Vzg}->{"\x44\x45\x53\x43\x52\x49\x50\x54\x49\x4f\x4e"},$krSN8jVakE->{$TfQJnK1Vzg}->{"\x52\x45\x43\x5f\x4d\x4f\x44\x45"},$krSN8jVakE->{$TfQJnK1Vzg}->{"\x52\x45\x43\x5f\x45\x58\x54"},$krSN8jVakE->{$TfQJnK1Vzg}->{"\x50\x49\x43\x4b\x55\x50\x5f\x47\x52\x4f\x55\x50\x53"},$krSN8jVakE->{$TfQJnK1Vzg}->{"\x6e\x61\x6d\x65"},$krSN8jVakE->{$TfQJnK1Vzg}->{"\x44\x45\x46\x43\x49\x44"},$krSN8jVakE->{$TfQJnK1Vzg}->{"\x74\x72\x75\x73\x74\x65\x64\x5f\x69\x70"},$krSN8jVakE->{$TfQJnK1Vzg}->{"\x45\x4d\x41\x49\x4c"},$krSN8jVakE->{$TfQJnK1Vzg}->{"\x43\x4f\x4c"},$krSN8jVakE->{$TfQJnK1Vzg}->{"\x46\x57\x44\x5f\x4e\x55\x4d"},$DEiRL8cMpg,$krSN8jVakE->{$TfQJnK1Vzg}->{"\x57\x45\x42\x5f\x53\x45\x43\x52\x45\x54"},$krSN8jVakE->{$TfQJnK1Vzg}->{"\x48\x4f\x54\x44\x45\x53\x4b\x5f\x50\x49\x4e"},$krSN8jVakE->{$TfQJnK1Vzg}->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"},$krSN8jVakE->{$TfQJnK1Vzg}->{"\x4c\x44\x5f\x54\x54\x4c"},$yXKmjWQ8YC,$krSN8jVakE->{$TfQJnK1Vzg}->{"\x50\x45\x52\x4d\x49\x54\x5f\x57\x45\x42"},$krSN8jVakE->{$TfQJnK1Vzg}->{"\x43\x55\x53\x54\x4f\x4d\x5f\x56\x41\x52\x53"},$f8096H4ABr)){return $YxJPfXkGup->GRXMuq4YHg();}else{return $YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x70\x70\x5f\x70\x62\x6f\x6f\x6b\x5f\x6c\x69\x73\x74"){my $sLUMTEaQhb=$YxJPfXkGup->og8DGdQziy()||return undef;my $VmXiekO82A=$YxJPfXkGup->og8DGdQziy($krSN8jVakE->{$TfQJnK1Vzg}->{"\x44\x41\x54\x41\x5f\x49\x44"})||return undef;my $cRQAUxV4LS=$YxJPfXkGup->a4eP9YOWX5("\x66\x6f\x72\x6d\x61\x74");if($cRQAUxV4LS eq "\x65\x78\x63\x65\x6c"){my $EzHJs8yPth=[];foreach my $mVfNAEu2Tn(@{$VmXiekO82A}){push @$EzHJs8yPth,$mVfNAEu2Tn;}foreach my $mVfNAEu2Tn(@{$sLUMTEaQhb}){push @$EzHJs8yPth,$mVfNAEu2Tn;}my $kJ9AdheIcl=$YxJPfXkGup->YGXNHdJaWv("\x70\x62\x6f\x6f\x6b",[$EzHJs8yPth,[qw(PHONE FIRST_NAME LAST_NAME SHORTCUT DESCRIPTION RESPONSIBLE)]]);unless($kJ9AdheIcl){return $YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}else{if($kJ9AdheIcl=~ /xlsx$/){return $YxJPfXkGup->bM98umJaNS($kJ9AdheIcl,"\x61\x70\x70\x6c\x69\x63\x61\x74\x69\x6f\x6e\x2f\x78\x6c\x73\x78");}else{return $YxJPfXkGup->bM98umJaNS($kJ9AdheIcl,"\x74\x65\x78\x74\x2f\x63\x73\x76");}}}my $jyIL2Hk3p1=$YxJPfXkGup->i8HRYhrZxS();my $DKbHVmBDkC;foreach my $eX97Pj0uw8(keys %$jyIL2Hk3p1){if($jyIL2Hk3p1->{$eX97Pj0uw8}->{"\x45\x58\x54\x45\x4e\x53\x49\x4f\x4e"}eq "\x63\x72\x6d\x2d\x63\x32\x63\x2d\x67\x77"){$DKbHVmBDkC="ph=$TfQJnK1Vzg&key=$eX97Pj0uw8&ac=".$YxJPfXkGup->Pa4lJy7CWz()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"};last;}}return IkgY8wZQ7z($YxJPfXkGup,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x70\x62\x6f\x6f\x6b\x2e\x74\x74",{PBOOK_LIST_S=>$sLUMTEaQhb,PBOOK_LIST_P=>$VmXiekO82A,C2C=>$DKbHVmBDkC,PHONE=>$TfQJnK1Vzg,});}elsif($Jr74KMNfHh eq "\x70\x70\x5f\x70\x62\x6f\x6f\x6b\x5f\x64\x65\x6c"){my $z90NJcd2UA=$YxJPfXkGup->a4eP9YOWX5("\x64\x61\x74\x61\x5f\x69\x64");if($YxJPfXkGup->Ej8DBspbc7($z90NJcd2UA,($z90NJcd2UA eq "\x61\x6c\x6c" ? 1:undef),undef,$krSN8jVakE->{$TfQJnK1Vzg}->{"\x44\x41\x54\x41\x5f\x49\x44"},$TfQJnK1Vzg)){return $YxJPfXkGup->GRXMuq4YHg();}else{return $YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x70\x70\x5f\x70\x62\x6f\x6f\x6b\x5f\x61\x64\x64"){unless($YxJPfXkGup->L9GDvhOjuE($YxJPfXkGup->LkXDqNIi1U("\x54\x41\x42\x4c\x45\x53\x5f\x50\x48\x4f\x4e\x45\x5f\x42\x4f\x4f\x4b"),$YxJPfXkGup->Pa4lJy7CWz()->{"\x4d\x41\x58\x5f\x50\x42\x4f\x4f\x4b\x5f\x49\x54\x45\x4d\x53"},{SUBSCR_ID=>$YxJPfXkGup->Pa4lJy7CWz()->{"\x49\x44"},PHONE_OWNER=>$krSN8jVakE->{$TfQJnK1Vzg}->{"\x44\x41\x54\x41\x5f\x49\x44"}})){return $YxJPfXkGup->GRXMuq4YHg(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 $z90NJcd2UA=$YxJPfXkGup->Zup0fvGwHo($YxJPfXkGup->a4eP9YOWX5([qw(shortcut ph fn ln description)]),undef,undef,$krSN8jVakE->{$TfQJnK1Vzg}->{"\x44\x41\x54\x41\x5f\x49\x44"},$TfQJnK1Vzg))){return $YxJPfXkGup->GRXMuq4YHg(undef,undef,$z90NJcd2UA,"\x23\x61\x64\x64\x61\x72\x65\x61");}else{return $YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x70\x70\x5f\x70\x62\x6f\x6f\x6b\x5f\x75\x70\x64\x61\x74\x65"){if($YxJPfXkGup->ABb709oRFM($YxJPfXkGup->a4eP9YOWX5([qw(data_id shortcut ph fn ln description)]),undef,$krSN8jVakE->{$TfQJnK1Vzg}->{"\x44\x41\x54\x41\x5f\x49\x44"},$TfQJnK1Vzg)){return $YxJPfXkGup->GRXMuq4YHg();}else{return $YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x70\x70\x5f\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74"){sOX4RJ6qc9($YxJPfXkGup,$krSN8jVakE->{$TfQJnK1Vzg});}elsif($Jr74KMNfHh=~ /^pp_web_phone/){my $vZzrqV6FXl=$YxJPfXkGup->LkXDqNIi1U("\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($YxJPfXkGup->Pa4lJy7CWz()->{"\x50\x48\x4f\x4e\x45\x5f\x55\x49\x5f\x53\x4b\x49\x50\x5f\x50\x53\x57\x44"})){$vZzrqV6FXl=$YxJPfXkGup->Pa4lJy7CWz()->{"\x50\x48\x4f\x4e\x45\x5f\x55\x49\x5f\x53\x4b\x49\x50\x5f\x50\x53\x57\x44"};}my $hFgKzv32ME=$YxJPfXkGup->a4eP9YOWX5("\x6e\x6f\x63\x6f\x6e\x74\x72\x6f\x6c");my $xQzgS4tjF8=0;if($Jr74KMNfHh eq "\x70\x70\x5f\x77\x65\x62\x5f\x70\x68\x6f\x6e\x65\x5f\x6f\x6e\x6c\x79"){$hFgKzv32ME=$xQzgS4tjF8=1;}return IkgY8wZQ7z($YxJPfXkGup,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x77\x65\x62\x5f\x70\x68\x6f\x6e\x65\x2e\x74\x74",{PHONE=>$krSN8jVakE->{$TfQJnK1Vzg},WEBRTC=>{REALM=>$YxJPfXkGup->LkXDqNIi1U("\x57\x45\x42\x52\x54\x43\x5f\x52\x45\x41\x4c\x4d"),WS=>$YxJPfXkGup->LkXDqNIi1U("\x57\x45\x42\x52\x54\x43\x5f\x57\x53"),ICE=>$YxJPfXkGup->LkXDqNIi1U("\x57\x45\x42\x52\x54\x43\x5f\x49\x43\x45"),UI_SKIP_PSWD=>$vZzrqV6FXl},NOCONTROL=>$hFgKzv32ME,PHONE_ONLY=>$xQzgS4tjF8});}elsif($Jr74KMNfHh eq "\x70\x70\x5f\x71\x73\x74\x61\x74\x75\x73"){my $vWGdNwuH70=$YxJPfXkGup->a4eP9YOWX5("\x71\x5f\x69\x64");my $y5XOicf4IW=$YxJPfXkGup->a4eP9YOWX5("\x73\x74\x61\x74\x75\x73")||0;if($vWGdNwuH70 and length($y5XOicf4IW)){unXiz1fHoV($YxJPfXkGup,$krSN8jVakE->{$TfQJnK1Vzg},$vWGdNwuH70,$y5XOicf4IW);}return $YxJPfXkGup->GRXMuq4YHg();}else{return hQ2iof3eP9($YxJPfXkGup,{});}}sub Z2NjiegfRP{my($YxJPfXkGup,$nQAeLij7vr)=@_;my($hDQHtr2pNC,$Kpnf1495Po,$u0fxC9ygKc,$JMVyejJzLK,$IqeVuCtloF,$sTVZac4LKN,$ncae5KU46E,$Z7YLP80G1l,$Acn7R23Kum)=$YxJPfXkGup->a4eP9YOWX5([[(from=>0)],qw(from_time to_time smart_time caller_id called_id duration login pswd)]);my @wg05YXa91L=($nQAeLij7vr->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"});if($nQAeLij7vr->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"}){push @wg05YXa91L,@{$YxJPfXkGup->c6y7gsa92z($nQAeLij7vr->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"})};}unless(length("$Kpnf1495Po$u0fxC9ygKc$IqeVuCtloF$sTVZac4LKN$ncae5KU46E")){my $OLAwUn5gvr=$YxJPfXkGup->LkXDqNIi1U("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x55\x49");$Kpnf1495Po=$YxJPfXkGup->H3SdXqsMcr(time-86400*$OLAwUn5gvr,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$u0fxC9ygKc=$YxJPfXkGup->H3SdXqsMcr(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}$YxJPfXkGup->nGQ1HXlYbW($YxJPfXkGup->Pa4lJy7CWz()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$YxJPfXkGup->Pa4lJy7CWz()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});my $mg2dasvB6F=$YxJPfXkGup->OP48et3Lvz(0,$hDQHtr2pNC,$YxJPfXkGup->Pa4lJy7CWz()->{"\x49\x44"},undef,$YxJPfXkGup->SQcuPHeSxy($Kpnf1495Po),$YxJPfXkGup->SQcuPHeSxy($u0fxC9ygKc),$IqeVuCtloF,$sTVZac4LKN,undef,$ncae5KU46E,join("\x7c",@wg05YXa91L));if($mg2dasvB6F){my $WSzHK5PiTx=$hDQHtr2pNC+1;my $IPjtXU9afA=$YxJPfXkGup->Pa4lJy7CWz()->{"\x48\x49\x44\x45\x5f\x4e\x55\x4d\x42\x45\x52\x53"};foreach my $Bkp4tGlcSb(@{$mg2dasvB6F}){$Bkp4tGlcSb->{"\x4d\x53\x47\x5f\x4e\x55\x4d"}=$WSzHK5PiTx++;$Bkp4tGlcSb->{"\x4d\x53\x47\x5f\x44\x41\x54\x45"}=$YxJPfXkGup->H3SdXqsMcr($Bkp4tGlcSb->{"\x43\x52\x45\x41\x54\x45\x5f\x54\x49\x4d\x45"});if($IPjtXU9afA){$YxJPfXkGup->ZwEGPkf6bK(\$Bkp4tGlcSb->{"\x43\x41\x4c\x4c\x45\x52\x49\x44"},$IPjtXU9afA);$YxJPfXkGup->ZwEGPkf6bK(\$Bkp4tGlcSb->{"\x43\x41\x4c\x4c\x45\x44\x49\x44"},$IPjtXU9afA);}}}$YxJPfXkGup->nGQ1HXlYbW();return IkgY8wZQ7z($YxJPfXkGup,"\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=>$mg2dasvB6F,FROM_TIME=>$Kpnf1495Po,TO_TIME=>$u0fxC9ygKc,CALLER_ID=>$IqeVuCtloF,CALLED_ID=>$sTVZac4LKN,DURATION=>$ncae5KU46E,SMART_TIME=>$JMVyejJzLK,$YxJPfXkGup->cwI6zgro3i(0,$mg2dasvB6F,$hDQHtr2pNC)});}sub hUf2QA8nOB{my($YxJPfXkGup,$nQAeLij7vr)=@_;my($Kpnf1495Po,$u0fxC9ygKc,$JMVyejJzLK,$IqeVuCtloF,$YG8IoKPv9F,$sTVZac4LKN,$ncae5KU46E,$QJcHG16Sps,$Y9hMyLwgbQ)=$YxJPfXkGup->a4eP9YOWX5([qw(from_time to_time smart_time caller_id call_type called_id duration data raw_chart_data)]);my $TfQJnK1Vzg=$nQAeLij7vr->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"};$YxJPfXkGup->nGQ1HXlYbW($YxJPfXkGup->Pa4lJy7CWz()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$YxJPfXkGup->Pa4lJy7CWz()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});unless(length("$Kpnf1495Po$u0fxC9ygKc$IqeVuCtloF$YG8IoKPv9F$sTVZac4LKN$ncae5KU46E$QJcHG16Sps")){my $OLAwUn5gvr=$YxJPfXkGup->LkXDqNIi1U("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x55\x49");$Kpnf1495Po=$YxJPfXkGup->H3SdXqsMcr(time-86400*$OLAwUn5gvr,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$u0fxC9ygKc=$YxJPfXkGup->H3SdXqsMcr(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my @wg05YXa91L=($TfQJnK1Vzg);if($nQAeLij7vr->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"}){push @wg05YXa91L,@{$YxJPfXkGup->c6y7gsa92z($nQAeLij7vr->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"})};}my $XVQdoRstcl=$YxJPfXkGup->zUlcmxVvdH($IqeVuCtloF,$YxJPfXkGup->SQcuPHeSxy(($Kpnf1495Po||"\x30\x30\x3a\x30\x30")),$YxJPfXkGup->SQcuPHeSxy($u0fxC9ygKc),($YxJPfXkGup->a4eP9YOWX5("\x63\x68\x61\x72\x74\x5f\x67\x72\x6f\x75\x70\x5f\x70\x65\x72\x69\x6f\x64")||"\x64"),$YG8IoKPv9F,$sTVZac4LKN,$ncae5KU46E,$QJcHG16Sps,$Y9hMyLwgbQ,join("\x7c",@wg05YXa91L));my $iuBk9s1PNt;unless($Y9hMyLwgbQ){$iuBk9s1PNt=$YxJPfXkGup->H3SdXqsMcr($XVQdoRstcl->[2])."\x20\x2d\x20".$YxJPfXkGup->H3SdXqsMcr($XVQdoRstcl->[3]);}$YxJPfXkGup->nGQ1HXlYbW();if($Y9hMyLwgbQ){unless($XVQdoRstcl){$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}else{if($XVQdoRstcl=~ /xlsx$/){return $YxJPfXkGup->bM98umJaNS($XVQdoRstcl,"\x61\x70\x70\x6c\x69\x63\x61\x74\x69\x6f\x6e\x2f\x78\x6c\x73\x78");}else{return $YxJPfXkGup->bM98umJaNS($XVQdoRstcl,"\x74\x65\x78\x74\x2f\x63\x73\x76");}}}unless(ref $XVQdoRstcl eq "\x41\x52\x52\x41\x59"){$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $H3rwqgsoKy=$YxJPfXkGup->LkXDqNIi1U("\x43\x47\x49\x5f\x45\x58\x43\x45\x4c\x5f\x4d\x4f\x44\x45");if(exists $YxJPfXkGup->Pa4lJy7CWz()->{"\x45\x58\x43\x45\x4c\x5f\x4d\x4f\x44\x45"}){$H3rwqgsoKy=$YxJPfXkGup->Pa4lJy7CWz()->{"\x45\x58\x43\x45\x4c\x5f\x4d\x4f\x44\x45"};}return IkgY8wZQ7z($YxJPfXkGup,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x63\x64\x72\x73\x5f\x63\x68\x61\x72\x74\x2e\x74\x74",{CDR_LIST=>$XVQdoRstcl->[0],CDR_HEADER=>$iuBk9s1PNt,CDR_PERIOD=>$XVQdoRstcl->[1],CDR_CALLER_ID=>$IqeVuCtloF,CDR_CALLED_ID=>$sTVZac4LKN,CDR_CALL_TYPE=>$YG8IoKPv9F,CDR_DURATION=>$ncae5KU46E,CDR_DATA=>$QJcHG16Sps,CDR_WITH_ASR=>$YxJPfXkGup->LkXDqNIi1U("\x43\x47\x49\x5f\x53\x54\x41\x54\x5f\x57\x49\x54\x48\x5f\x41\x53\x52"),PHONE=>$TfQJnK1Vzg,EXCEL_MODE=>$H3rwqgsoKy,SMART_TIME=>$JMVyejJzLK,FROM_TIME=>$Kpnf1495Po,TO_TIME=>$u0fxC9ygKc});}sub nAKZ0ijzot{my($YxJPfXkGup,$nQAeLij7vr)=@_;my($hDQHtr2pNC,$Kpnf1495Po,$u0fxC9ygKc,$IqeVuCtloF,$YG8IoKPv9F,$sTVZac4LKN,$ncae5KU46E)=$YxJPfXkGup->a4eP9YOWX5([[(from=>0)],qw(from_time to_time caller_id call_type called_id duration)]);unless(length("$IqeVuCtloF$sTVZac4LKN$Kpnf1495Po$u0fxC9ygKc$YG8IoKPv9F$ncae5KU46E")){my $OLAwUn5gvr=$YxJPfXkGup->LkXDqNIi1U("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x55\x49");$Kpnf1495Po=$YxJPfXkGup->H3SdXqsMcr(time-86400*$OLAwUn5gvr,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$u0fxC9ygKc=$YxJPfXkGup->H3SdXqsMcr(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my $TfQJnK1Vzg=$nQAeLij7vr->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"};my @wg05YXa91L=($TfQJnK1Vzg);if($nQAeLij7vr->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"}){push @wg05YXa91L,@{$YxJPfXkGup->c6y7gsa92z($nQAeLij7vr->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"})};}$YxJPfXkGup->nGQ1HXlYbW($YxJPfXkGup->Pa4lJy7CWz()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$YxJPfXkGup->Pa4lJy7CWz()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});my $kJ9AdheIcl=$YxJPfXkGup->S0d8AEDY3c("\x63\x64\x72",$IqeVuCtloF,$YxJPfXkGup->SQcuPHeSxy($Kpnf1495Po),$YxJPfXkGup->SQcuPHeSxy($u0fxC9ygKc),undef,undef,$YG8IoKPv9F,$sTVZac4LKN,$ncae5KU46E,undef,join("\x7c",@wg05YXa91L));$YxJPfXkGup->nGQ1HXlYbW();unless($kJ9AdheIcl){$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}else{if($kJ9AdheIcl=~ /xlsx$/){return $YxJPfXkGup->bM98umJaNS($kJ9AdheIcl,"\x61\x70\x70\x6c\x69\x63\x61\x74\x69\x6f\x6e\x2f\x78\x6c\x73\x78");}else{return $YxJPfXkGup->bM98umJaNS($kJ9AdheIcl,"\x74\x65\x78\x74\x2f\x63\x73\x76");}}}sub j7cDBfe9mv{my($YxJPfXkGup,$nQAeLij7vr)=@_;my($hDQHtr2pNC,$Kpnf1495Po,$u0fxC9ygKc,$JMVyejJzLK,$IqeVuCtloF,$YG8IoKPv9F,$sTVZac4LKN,$ncae5KU46E,$sLweSJlcx4)=$YxJPfXkGup->a4eP9YOWX5([[(from=>0)],qw(from_time to_time smart_time caller_id call_type called_id duration cnam)]);my $TfQJnK1Vzg=$nQAeLij7vr->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"};$YxJPfXkGup->nGQ1HXlYbW($YxJPfXkGup->Pa4lJy7CWz()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$YxJPfXkGup->Pa4lJy7CWz()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});unless(length("$IqeVuCtloF$sTVZac4LKN$Kpnf1495Po$u0fxC9ygKc$YG8IoKPv9F$ncae5KU46E$sLweSJlcx4")){my $OLAwUn5gvr=$YxJPfXkGup->LkXDqNIi1U("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x55\x49");$Kpnf1495Po=$YxJPfXkGup->H3SdXqsMcr(time-86400*$OLAwUn5gvr,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$u0fxC9ygKc=$YxJPfXkGup->H3SdXqsMcr(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my @wg05YXa91L=($TfQJnK1Vzg);if($nQAeLij7vr->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"}){push @wg05YXa91L,@{$YxJPfXkGup->c6y7gsa92z($nQAeLij7vr->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"})};}my $cU5AYtskQi=$YxJPfXkGup->GxPBnelWVH(undef,$IqeVuCtloF,$hDQHtr2pNC,"\x63\x64\x72",$YxJPfXkGup->SQcuPHeSxy($Kpnf1495Po),$YxJPfXkGup->SQcuPHeSxy($u0fxC9ygKc),undef,undef,$YG8IoKPv9F,$sTVZac4LKN,$ncae5KU46E,undef,undef,join("\x7c",@wg05YXa91L),$sLweSJlcx4);if($cU5AYtskQi){my $IPjtXU9afA=$YxJPfXkGup->Pa4lJy7CWz()->{"\x48\x49\x44\x45\x5f\x4e\x55\x4d\x42\x45\x52\x53"};my $WSzHK5PiTx=$hDQHtr2pNC+1;foreach my $XxHtcQjGAY(@{$cU5AYtskQi}){$XxHtcQjGAY->{"\x43\x44\x52\x5f\x4e\x55\x4d"}=$WSzHK5PiTx++;$XxHtcQjGAY->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$YxJPfXkGup->H3SdXqsMcr($XxHtcQjGAY->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});if($IPjtXU9afA){$YxJPfXkGup->ZwEGPkf6bK(\$XxHtcQjGAY->{"\x43\x41\x4c\x4c\x45\x52\x5f\x49\x44"},$IPjtXU9afA);$YxJPfXkGup->ZwEGPkf6bK(\$XxHtcQjGAY->{"\x43\x41\x4c\x4c\x45\x44\x5f\x49\x44"},$IPjtXU9afA);$XxHtcQjGAY->{"\x44\x41\x54\x41"}=~ s/(DID=|PN=|RN=)([^,]+)(\d{$IPjtXU9afA})(,|$)/$1x$3$4/g;}if(not exists $XxHtcQjGAY->{"\x56\x42\x5f\x49\x44"}and $XxHtcQjGAY->{"\x44\x41\x54\x41"}=~ /FILE=(\d+):([^\s,]+)/){$XxHtcQjGAY->{"\x56\x42\x5f\x49\x44"}=$1;$XxHtcQjGAY->{"\x46\x49\x4c\x45\x5f\x4e\x41\x4d\x45"}=$2;}}}$YxJPfXkGup->nGQ1HXlYbW();my $jyIL2Hk3p1=$YxJPfXkGup->i8HRYhrZxS();my $DKbHVmBDkC;foreach my $eX97Pj0uw8(keys %$jyIL2Hk3p1){if($jyIL2Hk3p1->{$eX97Pj0uw8}->{"\x45\x58\x54\x45\x4e\x53\x49\x4f\x4e"}eq "\x63\x72\x6d\x2d\x63\x32\x63\x2d\x67\x77"){$DKbHVmBDkC="ph=$TfQJnK1Vzg&key=$eX97Pj0uw8&ac=".$YxJPfXkGup->Pa4lJy7CWz()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"};last;}}return IkgY8wZQ7z($YxJPfXkGup,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x63\x64\x72\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74",{CDR_LIST=>$cU5AYtskQi,CDR_CALLER_ID=>$IqeVuCtloF,CDR_CALLED_ID=>$sTVZac4LKN,CDR_DURATION=>$ncae5KU46E,FROM_TIME=>$Kpnf1495Po,TO_TIME=>$u0fxC9ygKc,SMART_TIME=>$JMVyejJzLK,CDR_CNAM=>$sLweSJlcx4,CDR_CALL_TYPE=>$YG8IoKPv9F,C2C=>$DKbHVmBDkC,PHONE=>$TfQJnK1Vzg,$YxJPfXkGup->cwI6zgro3i(0,$cU5AYtskQi,$hDQHtr2pNC)});}sub sOX4RJ6qc9{my($YxJPfXkGup,$nQAeLij7vr)=@_;my($hDQHtr2pNC,$IqeVuCtloF,$sTVZac4LKN,$ZDPvIsBfeO,$YG8IoKPv9F,$IuhV8w9PJn,$DKbHVmBDkC,$ncae5KU46E)=$YxJPfXkGup->a4eP9YOWX5([[(from=>0)],qw(caller_id called_id ac call_type refresh c2c duration)]);my $Ef7au4oVw0;if($YxJPfXkGup->Pa4lJy7CWz()->{"\x41\x4c\x4c\x4f\x57\x5f\x43\x54\x52"}){$Ef7au4oVw0=$YxJPfXkGup->jsBcfAQ8av($IqeVuCtloF,$sTVZac4LKN,$YxJPfXkGup->Pa4lJy7CWz()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"},$YG8IoKPv9F,$ncae5KU46E,undef,undef,undef,$hDQHtr2pNC);}else{$IuhV8w9PJn="\x38\x36\x34\x30\x30";}unless(ref $Ef7au4oVw0 eq "\x41\x52\x52\x41\x59"){$Ef7au4oVw0=[];}my $UL3rbmM8KF=[];if(scalar @$Ef7au4oVw0){$YxJPfXkGup->nGQ1HXlYbW($YxJPfXkGup->Pa4lJy7CWz()->{"\x54\x5a\x5f\x4e\x41\x4d\x45"},$YxJPfXkGup->Pa4lJy7CWz()->{"\x4c\x41\x4e\x47\x5f\x4c\x4f\x43\x41\x4c\x45"});my $IPjtXU9afA=$YxJPfXkGup->Pa4lJy7CWz()->{"\x48\x49\x44\x45\x5f\x4e\x55\x4d\x42\x45\x52\x53"};foreach my $XxHtcQjGAY(@{$Ef7au4oVw0}){$XxHtcQjGAY->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$YxJPfXkGup->H3SdXqsMcr($XxHtcQjGAY->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});$XxHtcQjGAY->{"\x43\x44\x52\x5f\x44\x55\x52\x41\x54\x49\x4f\x4e"}=time-$XxHtcQjGAY->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"};if($XxHtcQjGAY->{"\x43\x41\x4c\x4c\x5f\x54\x59\x50\x45"}ne "\x74\x72\x61\x6e\x73\x69\x74" and $XxHtcQjGAY->{"\x43\x41\x4c\x4c\x5f\x54\x59\x50\x45"}ne "\x69\x6e\x74\x65\x72\x6e\x61\x6c" and $XxHtcQjGAY->{"\x43\x41\x4c\x4c\x5f\x54\x59\x50\x45"}ne "\x73\x65\x72\x76\x69\x63\x65"){my($DMLRzg17XK,$rmfKFS2LUJ,$va8MW1QX0l)=split(/:/,$YxJPfXkGup->TXkoyCYDH0("\x73\x68\x2d\x63\x2d\x74\x72\x61\x63\x6b\x2d\x63\x75\x72\x2d\x65\x78\x74\x2d".$XxHtcQjGAY->{"\x43\x41\x4c\x4c\x5f\x49\x44"}));$XxHtcQjGAY->{"\x45\x58\x54\x5f\x54\x53"}=time-$DMLRzg17XK;$XxHtcQjGAY->{"\x45\x58\x54\x5f\x49\x44"}=$rmfKFS2LUJ;$XxHtcQjGAY->{"\x41\x4e\x53\x57\x45\x52\x45\x44"}=$va8MW1QX0l;}foreach my $bJ9IregFmZ(@{$YxJPfXkGup->c6y7gsa92z($nQAeLij7vr->{"\x4d\x41\x4e\x41\x47\x45\x52\x5f\x46\x4f\x52"})},$nQAeLij7vr->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"}){next unless length $bJ9IregFmZ;if($XxHtcQjGAY->{"\x43\x41\x4c\x4c\x45\x52\x5f\x49\x44"}eq $bJ9IregFmZ or $XxHtcQjGAY->{"\x43\x41\x4c\x4c\x45\x44\x5f\x49\x44"}eq $bJ9IregFmZ or $XxHtcQjGAY->{"\x41\x4e\x53\x57\x45\x52\x45\x44"}eq $bJ9IregFmZ){push @$UL3rbmM8KF,$XxHtcQjGAY;last;}elsif(index($bJ9IregFmZ,"\x2a")==0 and length($bJ9IregFmZ)>1){if("\x2a".$XxHtcQjGAY->{"\x45\x58\x54\x5f\x49\x44"}eq $bJ9IregFmZ){push @$UL3rbmM8KF,$XxHtcQjGAY;last;}}}if($IPjtXU9afA){$YxJPfXkGup->ZwEGPkf6bK(\$XxHtcQjGAY->{"\x43\x41\x4c\x4c\x45\x52\x5f\x49\x44"},$IPjtXU9afA);$YxJPfXkGup->ZwEGPkf6bK(\$XxHtcQjGAY->{"\x43\x41\x4c\x4c\x45\x44\x5f\x49\x44"},$IPjtXU9afA);}}$YxJPfXkGup->nGQ1HXlYbW();}if($IuhV8w9PJn and $IuhV8w9PJn<$YxJPfXkGup->LkXDqNIi1U("\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")){$IuhV8w9PJn=$YxJPfXkGup->LkXDqNIi1U("\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($IuhV8w9PJn){my $jyIL2Hk3p1=$YxJPfXkGup->i8HRYhrZxS();foreach my $eX97Pj0uw8(keys %$jyIL2Hk3p1){if($jyIL2Hk3p1->{$eX97Pj0uw8}->{"\x45\x58\x54\x45\x4e\x53\x49\x4f\x4e"}eq "\x78\x76\x62\x73\x70\x79"){if($YxJPfXkGup->Z3nzTy2dLK()->{"\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"){$DKbHVmBDkC=$eX97Pj0uw8."\x26\x70\x68\x3d".$nQAeLij7vr->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"};}last;}}}return IkgY8wZQ7z($YxJPfXkGup,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74",{CALLS_COUNT=>scalar(@$UL3rbmM8KF),CALLS_LIST=>$UL3rbmM8KF,CDR_CALLER_ID=>$IqeVuCtloF,CDR_CALLED_ID=>$sTVZac4LKN,CDR_CALL_TYPE=>$YG8IoKPv9F,CDR_REFRESH_TIME=>$IuhV8w9PJn,CDR_C2C=>$DKbHVmBDkC,CDR_DURATION=>$ncae5KU46E,$YxJPfXkGup->cwI6zgro3i(1,$UL3rbmM8KF,$hDQHtr2pNC)});}sub unXiz1fHoV{my($YxJPfXkGup,$nQAeLij7vr,$vWGdNwuH70,$y5XOicf4IW)=@_;my $IqeVuCtloF=$nQAeLij7vr->{"\x63\x61\x6c\x6c\x65\x72\x69\x64"};foreach my $rmfKFS2LUJ(keys %{$YxJPfXkGup->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}}){if($YxJPfXkGup->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$rmfKFS2LUJ}->{"\x54\x59\x50\x45"}eq "\x31\x33"){if($vWGdNwuH70 and $vWGdNwuH70 ne $YxJPfXkGup->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$rmfKFS2LUJ}->{"\x49\x44"}){next;}my($mfwo6Kcers)=$YxJPfXkGup->CcvdzJuw9U([$YxJPfXkGup->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$rmfKFS2LUJ}->{"\x43\x41\x4c\x4c\x5f\x4e\x55\x4d\x42\x45\x52"}],"\x6e\x6f\x71\x75\x6f\x74\x65");$mfwo6Kcers=~ s#[^,_@\w\d:.*\|\/-]##gs;foreach my $Yz6grdW3LR(split(/,/,$mfwo6Kcers)){unless(index($Yz6grdW3LR,"$IqeVuCtloF/")){if($y5XOicf4IW){$y5XOicf4IW=1;}else{$y5XOicf4IW=0;}$YxJPfXkGup->TXkoyCYDH0("\x73\x68\x2d\x71\x75\x65\x75\x65\x2d\x61\x67\x65\x6e\x74\x2d".$YxJPfXkGup->{"\x5f\x55\x53\x45\x52\x5f\x56\x42\x4f\x58\x45\x53"}->{$rmfKFS2LUJ}->{"\x49\x44"}."\x2d".$IqeVuCtloF,$y5XOicf4IW,0);$YxJPfXkGup->a8eI2bTcmC();$YxJPfXkGup->a8eI2bTcmC({EVENT_START_TIME=>$YxJPfXkGup->QgBFO9UCK5(),EVENT_TYPE=>"\x41\x67\x65\x6e\x74\x53\x74\x61\x74\x75\x73",EVENT_STOP_TIME=>0,EVENT_EXT=>$rmfKFS2LUJ,ENH_STATUS=>$y5XOicf4IW,ENH_AGENT=>$IqeVuCtloF,CALL_TYPE=>"\x77\x65\x62",CALLED_ID=>"\x77\x65\x62",CALLER_ID=>$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"}});$YxJPfXkGup->PgX8D437R5();last;}}}}}sub hQ2iof3eP9{my($YxJPfXkGup,$XVQdoRstcl)=@_;if(my $gfFJclSDe4=$YxJPfXkGup->a4eP9YOWX5("\x6c\x61\x6e\x67")){$YxJPfXkGup->Pa4lJy7CWz()->{"\x4c\x41\x4e\x47\x5f\x4e\x41\x4d\x45"}=$gfFJclSDe4;}return IkgY8wZQ7z($YxJPfXkGup,"\x70\x68\x6f\x6e\x65\x5f\x70\x5f\x6c\x6f\x67\x69\x6e\x2e\x74\x74",$XVQdoRstcl);}sub hAqOXrpHci{my($YxJPfXkGup,$ZDPvIsBfeO,$prOYq7cFeX)=@_;$YxJPfXkGup->vO0ICvPzRw(["\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"},$ZDPvIsBfeO,$prOYq7cFeX]);}sub IkgY8wZQ7z{my($YxJPfXkGup,$dTqaQZ1Sr9,$XVQdoRstcl,$eKlu5F0RxS)=@_;$XVQdoRstcl->{"\x43\x47\x49\x5f\x55\x52\x4c"}=$YxJPfXkGup->LkXDqNIi1U("\x43\x47\x49\x5f\x55\x52\x4c");$XVQdoRstcl->{"\x43\x47\x49\x5f\x53\x45\x52\x56\x45\x52"}=$YxJPfXkGup->LkXDqNIi1U("\x43\x47\x49\x5f\x53\x45\x52\x56\x45\x52");$XVQdoRstcl->{"\x55\x4e\x49\x58\x54\x49\x4d\x45"}=time;my $UGwpBZ980A='';my $e96mu25L8U='';unless($UGwpBZ980A){my $auj9LHC4fV;my $O0mvihkcSa=$YxJPfXkGup->LkXDqNIi1U("\x50\x41\x54\x48\x5f\x54\x45\x4d\x50\x4c\x41\x54\x45\x5f\x44\x49\x52");my $gfFJclSDe4=$YxJPfXkGup->Pa4lJy7CWz()->{"\x4c\x41\x4e\x47\x5f\x4e\x41\x4d\x45"}||$YxJPfXkGup->LkXDqNIi1U("\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 $Y3aIyFdzE7=$YxJPfXkGup->Pa4lJy7CWz()->{"\x53\x55\x42\x5f\x54\x45\x4d\x50\x4c\x41\x54\x45\x5f\x44\x49\x52"};if(length $Y3aIyFdzE7){$Y3aIyFdzE7=~ s#[^\d\w_.-]##gs;}if(length($Y3aIyFdzE7)and-e "$O0mvihkcSa/$Y3aIyFdzE7/$gfFJclSDe4/$dTqaQZ1Sr9"){$auj9LHC4fV="$O0mvihkcSa/$Y3aIyFdzE7/$gfFJclSDe4/$dTqaQZ1Sr9";}elsif(-e "$O0mvihkcSa/$gfFJclSDe4/$dTqaQZ1Sr9"){$auj9LHC4fV="$O0mvihkcSa/$gfFJclSDe4/$dTqaQZ1Sr9";}else{$auj9LHC4fV="$O0mvihkcSa/$dTqaQZ1Sr9";}my $uSltXZAToO=$YxJPfXkGup->{"\x5f\x54\x4d\x50\x4c"};my $IfGiWXSYjv=$YxJPfXkGup->TXkoyCYDH0("files-$auj9LHC4fV");unless($IfGiWXSYjv){$IfGiWXSYjv=$uSltXZAToO->load_src('',$auj9LHC4fV);$YxJPfXkGup->TXkoyCYDH0("files-$auj9LHC4fV",$IfGiWXSYjv,$YxJPfXkGup->LkXDqNIi1U("\x54\x49\x4d\x45\x4f\x55\x54\x5f\x4d\x45\x4d\x5f\x43\x41\x43\x48\x45\x44"));}$XVQdoRstcl->{"\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}=$YxJPfXkGup->Pa4lJy7CWz();$uSltXZAToO->process(\$IfGiWXSYjv,$XVQdoRstcl,\$e96mu25L8U);}unless($UGwpBZ980A){$YxJPfXkGup->s5BrWRZyYk(200,"\x4f\x6b",$eKlu5F0RxS,$e96mu25L8U.$YxJPfXkGup->AOihZumA9j("\x67\x36\x31\x33","\x43"));}elsif($UGwpBZ980A eq "\x78\x6d\x6c"){$e96mu25L8U=XML::Simple::XMLout($XVQdoRstcl);$YxJPfXkGup->N9u2xXnOzE(200,"\x4f\x6b",undef,$e96mu25L8U);}elsif($UGwpBZ980A eq "\x6a\x73\x6f\x6e"){my $ULuY8HxzvC=JSON::XS->new();$YxJPfXkGup->s5BrWRZyYk(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",$ULuY8HxzvC->encode($XVQdoRstcl));}}