#!/usr/bin/perl
########################################################################
#
# $Id: VirtualPBX-AI.cgi,v 1.220 2025/12/18 06:31:52 gosha Exp $
#
# Copyright (c) Igor Okunev <igor[at]prv.mts-nn.ru>  2008 - 2025
#
########################################################################
package VirtualPBXAI;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::Admin;use XVB::Core;use XVB::Database;use XVB::Mailboxes;use XVB::Messages;use XVB::Journal;use XVB::Users;use XVB::Billing;use XVB::MC;use XVB::Locale;use XVB::Routes;use Template::EasyTT;use XVB::UI::CGI;use XVB::UI::CGI::Reports;use XVB::UI::CGI::Mailboxes;use XVB::UI::CGI::Users;use XVB::UI::CGI::CDR;use XVB::UI::CGI::Journal;use XVB::UI::CGI::CallsTrack;use XVB::UI::CGI::Routes;use XVB::UI::DATA::CSV;use XVB::UI::AGI::CallsGeoLocation;use XVB::UI::CGI::ExtStat::Dashboard;use XVB::DIDs;use CGI;Tcmt8nsVuo();sub new{my($g38qa0hog1,$gjYqHeiGI4)=@_;my $yInoMmEp9f=bless{_CGI=>CGI->new(),_CONF=>{},_CDR=>{CALLED_ID=>"\x77\x65\x62",},_USER_CREDS=>{},_USER_VBOXES=>{},_SESSION=>{},},$g38qa0hog1;$yInoMmEp9f->YEnmDKuRXT($gjYqHeiGI4);$yInoMmEp9f->mws24oGRnA();if($yInoMmEp9f->JisSHQVMcn("\x44\x45\x42\x55\x47\x5f\x48\x54\x54\x50\x5f\x41\x55\x44\x49\x54\x5f\x46\x49\x4c\x45")){$yInoMmEp9f->mws24oGRnA("\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");}$yInoMmEp9f->{"\x5f\x4c\x49\x53\x54\x53"}={ACTIVITIES=>[qw(AgentStatus Listen Download CallBlast Transfer Pickup Playback RecordVMMessages DBVar FaxRX UserVar RoboText WebRequest Intercom Record Dialout Podcast Parking Voting WebVar Callback FaxTX Streaming AlarmClock BBS Conference ASR DateTime DISA Queue DtmfRX DtmfTX Click2Call MultiDialout Pause Eavesdrop)]};my $NMVkyr6CFG;$yInoMmEp9f->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}={};foreach my $tlbGDE4YBn(split(/\s*;\s*/,$yInoMmEp9f->JisSHQVMcn("\x43\x47\x49\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"))){my($m3yix4pO6S,@YJg5eAnDf9)=split(/\s*:\s*/,$tlbGDE4YBn);foreach my $KzybdcnCas(@YJg5eAnDf9){$yInoMmEp9f->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$KzybdcnCas}=$m3yix4pO6S;}}my $KzybdcnCas=$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"};unless(exists $yInoMmEp9f->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$KzybdcnCas}){$KzybdcnCas=~ s#\.\d+$##;}unless(exists $yInoMmEp9f->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$KzybdcnCas}){if($yInoMmEp9f->JisSHQVMcn("\x43\x47\x49\x5f\x41\x4c\x49\x41\x53\x45\x53\x5f\x57\x4f\x5f\x49\x50")){$NMVkyr6CFG="\x61\x64\x6d\x69\x6e";}else{$NMVkyr6CFG="\x61\x64\x6d\x69\x6e\x20\x28\x20".$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"}."\x20\x29";}}else{if($yInoMmEp9f->JisSHQVMcn("\x43\x47\x49\x5f\x41\x4c\x49\x41\x53\x45\x53\x5f\x57\x4f\x5f\x49\x50")){$NMVkyr6CFG=$yInoMmEp9f->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$KzybdcnCas};}else{$NMVkyr6CFG=$yInoMmEp9f->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$KzybdcnCas}."\x20\x28\x20".$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"}."\x20\x29";}}$yInoMmEp9f->{"\x5f\x43\x44\x52"}->{"\x43\x41\x4c\x4c\x45\x52\x5f\x49\x44"}=$NMVkyr6CFG;;$yInoMmEp9f->{"\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;chdir($yInoMmEp9f->JisSHQVMcn("\x50\x41\x54\x48\x5f\x57\x4f\x52\x4b\x5f\x44\x49\x52"));$yInoMmEp9f->{"\x5f\x43\x4f\x4e\x46"}->{"\x74\x61\x62\x6c\x65\x73\x5f\x63\x64\x72\x73"}=$yInoMmEp9f->{"\x5f\x43\x4f\x4e\x46"}->{"\x74\x61\x62\x6c\x65\x73\x5f\x63\x64\x72\x73\x5f\x61\x6c\x6c"};$yInoMmEp9f->{"\x5f\x43\x4f\x4e\x46"}->{"\x74\x61\x62\x6c\x65\x73\x5f\x63\x64\x72\x73\x5f\x61"}=$yInoMmEp9f->{"\x5f\x43\x4f\x4e\x46"}->{"\x74\x61\x62\x6c\x65\x73\x5f\x63\x64\x72\x73\x5f\x61\x5f\x61\x6c\x6c"};$yInoMmEp9f->mRLMDckAHG();return $yInoMmEp9f;}sub Tcmt8nsVuo{my $yInoMmEp9f=VirtualPBXAI->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($IGpN1O4KIw,$a6ZzUa9YK2,$bug8mabXnG,$KxsADhbFCo,$y9UYB35uJL);$yInoMmEp9f->Bjt169fgr3(1);my($nKAL9Qjq8T,$GLpcmRsF3M)=$yInoMmEp9f->ygswNUMao5([qw(action from)]);if($nKAL9Qjq8T eq "\x62\x61\x6c\x61\x6e\x63\x65\x5f\x75\x70\x64\x61\x74\x65"){my($LVW42yudUq,$J9s6fQ7XYw,$v31fAYrazG)=$yInoMmEp9f->ygswNUMao5([qw(balance user_id cur_id)]);my $h9AmNRHQij=$yInoMmEp9f->LlhCkQDIE1($J9s6fQ7XYw);unless(ref $h9AmNRHQij eq "\x48\x41\x53\x48"){$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);return;}else{my $dSzPMBpsOT=$yInoMmEp9f->NXOtBmzSP8();%{$dSzPMBpsOT}=%{$h9AmNRHQij};}if($yInoMmEp9f->TCjXtkdyiH($LVW42yudUq,$v31fAYrazG)){$yInoMmEp9f->sG9uzwS3Zm("\x75\x73\x65\x72\x2d".$yInoMmEp9f->NXOtBmzSP8()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"},undef);$yInoMmEp9f->yvfPlkqJS2();}else{$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x63\x64\x72\x5f\x6c\x69\x73\x74"){if($yInoMmEp9f->ygswNUMao5("\x6e\x65\x65\x64\x5f\x63\x68\x61\x72\x74")){iscjT7ZKdU($yInoMmEp9f);}else{f38NvX5CMJ($yInoMmEp9f);}}elsif($nKAL9Qjq8T eq "\x61\x63\x74\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c"){f38NvX5CMJ($yInoMmEp9f,"\x61\x63\x74\x61\x6c\x6c");}elsif($nKAL9Qjq8T eq "\x6a\x5f\x6c\x69\x73\x74"){m0EuLdZ2Aa($yInoMmEp9f);}elsif($nKAL9Qjq8T eq "\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x6c\x69\x73\x74"){hS6FW9mMCX($yInoMmEp9f);}elsif($nKAL9Qjq8T eq "\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x64\x65\x6c"){if($yInoMmEp9f->TOqx9WwgVI($yInoMmEp9f->ygswNUMao5("\x64\x69\x64"))){$yInoMmEp9f->yvfPlkqJS2("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$yInoMmEp9f->ygswNUMao5("\x64\x66"));$yInoMmEp9f->y2q9pdsUQo("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x64\x72\x6f\x70",$yInoMmEp9f->ygswNUMao5("\x64\x69\x64"));}else{$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x61\x64\x64"){my @xwPyaMZHKn=$yInoMmEp9f->ygswNUMao5();my %ws2JIYTHoU;foreach my $doPipDxGLZ(@xwPyaMZHKn){if($doPipDxGLZ=~ /^T_(.*)/){my $oQ6qdS8ruR=$1;$oQ6qdS8ruR=~ s#[^\d\w._-]##g;$ws2JIYTHoU{$oQ6qdS8ruR}=$yInoMmEp9f->ygswNUMao5($doPipDxGLZ);}}if($yInoMmEp9f->THomW4eCUy(\%ws2JIYTHoU)){$yInoMmEp9f->y2q9pdsUQo("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x61\x64\x64",$ws2JIYTHoU{"\x44\x49\x44"});$yInoMmEp9f->yvfPlkqJS2();}else{$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x75\x70\x64\x61\x74\x65"){my $UCIYtsghp9=$yInoMmEp9f->ygswNUMao5("\x64\x61\x74\x61\x5f\x69\x64");my @xwPyaMZHKn=$yInoMmEp9f->ygswNUMao5();my %ws2JIYTHoU;foreach my $doPipDxGLZ(@xwPyaMZHKn){if($doPipDxGLZ=~ /^T_(.*)/){my $oQ6qdS8ruR=$1;$oQ6qdS8ruR=~ s#[^\d\w._-]##g;next if $oQ6qdS8ruR eq "\x49\x44";$ws2JIYTHoU{$oQ6qdS8ruR}=$yInoMmEp9f->ygswNUMao5($doPipDxGLZ);}}if($yInoMmEp9f->MciX7809od($UCIYtsghp9,\%ws2JIYTHoU)){$yInoMmEp9f->yvfPlkqJS2();}else{$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x74\x61\x72\x69\x66\x66\x5f\x6c\x69\x73\x74"){Jiu2H8ws7W($yInoMmEp9f);}elsif($nKAL9Qjq8T eq "\x74\x61\x72\x69\x66\x66\x5f\x69\x6e\x66\x6f"){eV5EwBWKNX($yInoMmEp9f,$yInoMmEp9f->ygswNUMao5("\x74\x61\x72\x69\x66\x66\x5f\x69\x64"));}elsif($nKAL9Qjq8T eq "\x74\x61\x72\x69\x66\x66\x5f\x64\x65\x6c"){if($yInoMmEp9f->lXtio5KNxM($yInoMmEp9f->ygswNUMao5("\x74\x61\x72\x69\x66\x66\x5f\x69\x64"))){$yInoMmEp9f->yvfPlkqJS2("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x74\x61\x72\x69\x66\x66\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$yInoMmEp9f->ygswNUMao5("\x64\x66"));}else{$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x74\x61\x72\x69\x66\x66\x5f\x61\x64\x64"){my @xwPyaMZHKn=$yInoMmEp9f->ygswNUMao5();my %ws2JIYTHoU;foreach my $doPipDxGLZ(@xwPyaMZHKn){if($doPipDxGLZ=~ /^T_(.*)/){my $oQ6qdS8ruR=$1;$oQ6qdS8ruR=~ s#[^\d\w._-]##g;$ws2JIYTHoU{$oQ6qdS8ruR}=$yInoMmEp9f->ygswNUMao5($doPipDxGLZ);}}if($yInoMmEp9f->YMzResy9gH(\%ws2JIYTHoU)){$yInoMmEp9f->yvfPlkqJS2();}else{$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x74\x61\x72\x69\x66\x66\x5f\x75\x70\x64\x61\x74\x65"){my $nUQ5uMgxI3=$yInoMmEp9f->ygswNUMao5("\x74\x61\x72\x69\x66\x66\x5f\x69\x64");my @xwPyaMZHKn=$yInoMmEp9f->ygswNUMao5();my %ws2JIYTHoU;foreach my $doPipDxGLZ(@xwPyaMZHKn){if($doPipDxGLZ=~ /^T_(.*)/){my $oQ6qdS8ruR=$1;$oQ6qdS8ruR=~ s#[^\d\w._-]##g;next if $oQ6qdS8ruR eq "\x49\x44";$ws2JIYTHoU{$oQ6qdS8ruR}=$yInoMmEp9f->ygswNUMao5($doPipDxGLZ);}}if($yInoMmEp9f->yhlw6muK7F($nUQ5uMgxI3,\%ws2JIYTHoU)){$yInoMmEp9f->yvfPlkqJS2();}else{$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x72\x65\x70\x6f\x72\x74\x5f\x6c\x69\x73\x74"){Q6lQ3pkHTS($yInoMmEp9f);}elsif($nKAL9Qjq8T eq "\x72\x65\x70\x6f\x72\x74\x5f\x64\x65\x6c"){my $LQwptGWs2I=$yInoMmEp9f->ygswNUMao5("\x72\x65\x70\x6f\x72\x74\x5f\x69\x64");unless($LQwptGWs2I){$yInoMmEp9f->yvfPlkqJS2(undef,"\x4e\x6f\x20\x73\x65\x61\x72\x63\x68\x20\x72\x65\x70\x6f\x72\x74");}elsif(! $yInoMmEp9f->Iyre3XQIpa($LQwptGWs2I)){$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}else{if($ENV{"\x48\x54\x54\x50\x5f\x52\x45\x46\x45\x52\x45\x52"}=~ /report_list/){$yInoMmEp9f->yvfPlkqJS2();}else{$yInoMmEp9f->yvfPlkqJS2("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x72\x65\x70\x6f\x72\x74\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$yInoMmEp9f->ygswNUMao5("\x64\x66"));}}}elsif($nKAL9Qjq8T eq "\x72\x65\x70\x6f\x72\x74\x5f\x61\x64\x64"){if(my $rpq8NVflR9=$yInoMmEp9f->F2VoFZE3gn($yInoMmEp9f->ygswNUMao5("\x52\x5f\x4e\x41\x4d\x45"),1)){$yInoMmEp9f->yvfPlkqJS2("?action=report_info&report_id=$rpq8NVflR9&df=".$yInoMmEp9f->ygswNUMao5("\x64\x66"));}else{$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x72\x65\x70\x6f\x72\x74\x5f\x69\x6e\x66\x6f"){my $LQwptGWs2I=$yInoMmEp9f->ygswNUMao5("\x72\x65\x70\x6f\x72\x74\x5f\x69\x64")||1;my $sEnZM9geUI=$yInoMmEp9f->HXtPpMmo79($LQwptGWs2I)||[];my(%sbOh5t9m3X,@CsftOyKniC);if(ref $sEnZM9geUI eq "\x41\x52\x52\x41\x59" and $sEnZM9geUI->[0]->{"\x45\x58\x54\x52\x41\x5f\x50\x41\x52\x41\x4d\x53"}){foreach my $yHBTZ9WsPi(split(/\s*\|\s*/,$sEnZM9geUI->[0]->{"\x45\x58\x54\x52\x41\x5f\x50\x41\x52\x41\x4d\x53"})){my($V7wKxtn1sa,$YBUW7xcSEs,$Me0IWQD69m)=split(/\s*:\s*/,$yHBTZ9WsPi,3);$sbOh5t9m3X{$V7wKxtn1sa}=$yInoMmEp9f->ygswNUMao5($V7wKxtn1sa);push @CsftOyKniC,{name=>$V7wKxtn1sa,label=>$YBUW7xcSEs,value=>$sbOh5t9m3X{$V7wKxtn1sa}};}}QnGabKiy9C($yInoMmEp9f,"\x72\x65\x70\x6f\x72\x74\x5f\x69\x6e\x66\x6f\x2e\x74\x74",{REPORT_DATA=>$sEnZM9geUI->[0],EXTRA_PARAMS=>\@CsftOyKniC});}elsif($nKAL9Qjq8T eq "\x72\x65\x70\x6f\x72\x74\x5f\x75\x70\x64\x61\x74\x65"){my($ENMJLXn4kz,$PJogDhlkvx,$S08UzNZ1xY,$fqevmQLctR,$LQwptGWs2I)=$yInoMmEp9f->ygswNUMao5([qw(R_FILE R_QUERY R_FILTER_FILE R_POST_FILTER report_id)]);unless($LQwptGWs2I){return $yInoMmEp9f->yvfPlkqJS2(undef,"\x4e\x6f\x20\x73\x65\x61\x72\x63\x68\x20\x72\x65\x70\x6f\x72\x74");}if($ENMJLXn4kz){$PJogDhlkvx='';while(<$ENMJLXn4kz>){$PJogDhlkvx.=$_;}}if($S08UzNZ1xY){$fqevmQLctR='';while(<$S08UzNZ1xY>){$fqevmQLctR.=$_;}}if($yInoMmEp9f->tjgolMrHbh($LQwptGWs2I,$yInoMmEp9f->ygswNUMao5([qw(R_NAME R_TYPE R_TTL R_DATE_START R_DATE_STOP R_ACCESS_GROUPS R_ACCESS_ACCOUNTS R_EXTRA_PARAMS)]),$PJogDhlkvx,$fqevmQLctR)){$yInoMmEp9f->yvfPlkqJS2();}else{$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x72\x65\x70\x6f\x72\x74\x5f\x72\x75\x6e"){iFtj0smTNo($yInoMmEp9f);}elsif($nKAL9Qjq8T eq "\x6e\x6f\x64\x65\x5f\x6c\x69\x73\x74"){B8o7pUvkCw($yInoMmEp9f);}elsif($nKAL9Qjq8T eq "\x6e\x6f\x64\x65\x5f\x64\x65\x6c"){if($yInoMmEp9f->c83stBF5uI($yInoMmEp9f->ygswNUMao5("\x6e\x6f\x64\x65\x5f\x69\x64"))){$yInoMmEp9f->yvfPlkqJS2("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x6e\x6f\x64\x65\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$yInoMmEp9f->ygswNUMao5("\x64\x66"));}else{$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x6e\x6f\x64\x65\x5f\x61\x64\x64"){if($yInoMmEp9f->PjqFNWkv71($yInoMmEp9f->ygswNUMao5([qw(N_NODE_ID N_NODE_IP N_DOWNLOAD_IP N_AMI_CREDS N_NODE_DESC N_NODE_LIMITS N_NODE_STAT_URL)]))){$yInoMmEp9f->yvfPlkqJS2();}else{$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x6e\x6f\x64\x65\x5f\x75\x70\x64\x61\x74\x65"){my $H6hKesX4vz=$yInoMmEp9f->ygswNUMao5("\x6e\x6f\x64\x65\x5f\x69\x64");my @xwPyaMZHKn=$yInoMmEp9f->ygswNUMao5();my %ws2JIYTHoU;foreach my $doPipDxGLZ(@xwPyaMZHKn){if($doPipDxGLZ=~ /^N_(.*)/){my $oQ6qdS8ruR=$1;$oQ6qdS8ruR=~ s#[^\d\w._-]##g;next if $oQ6qdS8ruR eq "\x49\x44";$ws2JIYTHoU{$oQ6qdS8ruR}=$yInoMmEp9f->ygswNUMao5($doPipDxGLZ);}}if($yInoMmEp9f->lWLXsTxR4k($H6hKesX4vz,\%ws2JIYTHoU)){$yInoMmEp9f->y2q9pdsUQo("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65");$yInoMmEp9f->yvfPlkqJS2();}else{$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x67\x72\x6f\x75\x70\x5f\x6c\x69\x73\x74"){SmVcejiudy($yInoMmEp9f);}elsif($nKAL9Qjq8T eq "\x67\x72\x6f\x75\x70\x5f\x64\x65\x6c"){if($yInoMmEp9f->sg0eIQnVSA($yInoMmEp9f->ygswNUMao5("\x67\x72\x6f\x75\x70\x5f\x69\x64"))){$yInoMmEp9f->yvfPlkqJS2("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x67\x72\x6f\x75\x70\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$yInoMmEp9f->ygswNUMao5("\x64\x66"));}else{$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x67\x72\x6f\x75\x70\x5f\x61\x64\x64"){my($Nrtbx8sRwS,$YWIKNVEGgY)=$yInoMmEp9f->ygswNUMao5([qw(group_name node_name)]);if($yInoMmEp9f->SBJh9yRAuN($Nrtbx8sRwS,$YWIKNVEGgY)){my $volVmx4gsr=$yInoMmEp9f->TEu3aZwFJI(undef,$Nrtbx8sRwS);$yInoMmEp9f->yvfPlkqJS2("\x3f".join("\x26","\x61\x63\x74\x69\x6f\x6e\x3d\x67\x72\x6f\x75\x70\x5f\x69\x6e\x66\x6f","\x67\x72\x6f\x75\x70\x5f\x69\x64\x3d".$volVmx4gsr->[0]->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"},"\x64\x66\x3d".$yInoMmEp9f->ygswNUMao5("\x64\x66")));}else{$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x67\x72\x6f\x75\x70\x5f\x69\x6e\x66\x6f"){n0CubG7W6t($yInoMmEp9f,$yInoMmEp9f->ygswNUMao5("\x67\x72\x6f\x75\x70\x5f\x69\x64"));}elsif($nKAL9Qjq8T eq "\x67\x72\x6f\x75\x70\x5f\x75\x70\x64\x61\x74\x65"){my $EQC1sBtkLw=$yInoMmEp9f->ygswNUMao5("\x67\x72\x6f\x75\x70\x5f\x69\x64");my @xwPyaMZHKn=$yInoMmEp9f->ygswNUMao5();my %ws2JIYTHoU;foreach my $doPipDxGLZ(@xwPyaMZHKn){if($doPipDxGLZ=~ /^GR_(.*)/){my $oQ6qdS8ruR=$1;$oQ6qdS8ruR=~ s#[^\d\w._-]##g;next if $oQ6qdS8ruR eq "\x49\x44";$ws2JIYTHoU{$oQ6qdS8ruR}=$yInoMmEp9f->ygswNUMao5($doPipDxGLZ);}}if($yInoMmEp9f->dFWejcCxaE($EQC1sBtkLw,\%ws2JIYTHoU)){$yInoMmEp9f->y2q9pdsUQo("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65");$yInoMmEp9f->yvfPlkqJS2();}else{$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x64\x69\x64\x5f\x61\x64\x64"){my($UCIYtsghp9,$zaJBAbvW89,$IGpN1O4KIw,$G81AT9FYdE,$E7yJA8zhcl)=$yInoMmEp9f->ygswNUMao5([qw(did pn ac channels cnam)]);my @IaHLk6W12R=split(/\s*,\s*/,$UCIYtsghp9);my $QcNRBSYn47=0;foreach my $Yr3zgiqXGt(@IaHLk6W12R){if($yInoMmEp9f->oKrf8sGtAO($Yr3zgiqXGt,$zaJBAbvW89,$IGpN1O4KIw,$G81AT9FYdE,$E7yJA8zhcl)){$yInoMmEp9f->y2q9pdsUQo("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x61\x64\x64",$Yr3zgiqXGt);}else{$QcNRBSYn47++;}}if($QcNRBSYn47){$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : [ $QcNRBSYn47 / ".(scalar(@IaHLk6W12R))."\x20\x5d\x20".__LINE__);}else{$yInoMmEp9f->yvfPlkqJS2();}}elsif($nKAL9Qjq8T eq "\x64\x69\x64\x5f\x64\x65\x6c"){my($LK6rGPI0nW,$J9s6fQ7XYw,$UCIYtsghp9)=$yInoMmEp9f->ygswNUMao5([qw(did_id user_id did)]);if($yInoMmEp9f->zkN9OTIJcb($LK6rGPI0nW,$J9s6fQ7XYw,$UCIYtsghp9)){$yInoMmEp9f->y2q9pdsUQo("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x64\x72\x6f\x70",$UCIYtsghp9);$yInoMmEp9f->yvfPlkqJS2();}else{$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x64\x69\x64\x5f\x6c\x69\x73\x74"){t1jc9SBAIE($yInoMmEp9f);}elsif($nKAL9Qjq8T eq "\x64\x69\x64\x5f\x61\x64\x64\x5f\x73\x69\x70\x64\x6f\x6d\x61\x69\x6e"){my($EjXPtmv9Iq,$zaJBAbvW89,$IGpN1O4KIw)=$yInoMmEp9f->ygswNUMao5([qw(domain pn ac)]);if($yInoMmEp9f->OtxZu6hIFU(lc($EjXPtmv9Iq),$zaJBAbvW89,$IGpN1O4KIw)){$yInoMmEp9f->y2q9pdsUQo("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x61\x64\x64","\x40".lc($EjXPtmv9Iq));$yInoMmEp9f->yvfPlkqJS2();}else{$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x64\x69\x64\x5f\x64\x65\x6c\x5f\x73\x69\x70\x64\x6f\x6d\x61\x69\x6e"){my($VdRX98atZI,$J9s6fQ7XYw,$EjXPtmv9Iq)=$yInoMmEp9f->ygswNUMao5([qw(domain_id user_id domain)]);if($yInoMmEp9f->oMolwHzgTS($VdRX98atZI,$J9s6fQ7XYw,lc($EjXPtmv9Iq))){$yInoMmEp9f->y2q9pdsUQo("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x64\x72\x6f\x70","\x40".lc($EjXPtmv9Iq));$yInoMmEp9f->yvfPlkqJS2();}else{$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x64\x69\x64\x5f\x6c\x69\x73\x74\x5f\x73\x69\x70\x64\x6f\x6d\x61\x69\x6e"){ME5tN0S8Uy($yInoMmEp9f);}elsif($nKAL9Qjq8T eq "\x72\x6f\x75\x74\x65\x5f\x6c\x69\x73\x74"){if($yInoMmEp9f->ygswNUMao5("\x6e\x65\x65\x64\x5f\x6c\x6f\x6f\x6b\x75\x70")and $yInoMmEp9f->ygswNUMao5("\x63\x61\x6c\x6c\x65\x64\x5f\x69\x64")){return mrgcy7GaQJ($yInoMmEp9f);}QnGabKiy9C($yInoMmEp9f,"\x72\x6f\x75\x74\x65\x5f\x6c\x69\x73\x74\x2e\x74\x74",{ROUTES=>$yInoMmEp9f->mImoMxZjnp("\x69\x73\x5f\x61\x69")});}elsif($nKAL9Qjq8T eq "\x72\x6f\x75\x74\x65\x5f\x61\x64\x64"){my @o1p7yRbsK6;if(my $eY5FUhTirK=$yInoMmEp9f->ygswNUMao5("\x63\x6c\x6f\x6e\x65\x5f\x69\x64")){my $NmkcAwenq4=$yInoMmEp9f->mImoMxZjnp("\x69\x73\x5f\x61\x69");if(ref($NmkcAwenq4)eq "\x41\x52\x52\x41\x59"){foreach my $YWfHmL1xGy(@{$NmkcAwenq4}){if($YWfHmL1xGy->{"\x44\x41\x54\x41\x5f\x49\x44"}eq $eY5FUhTirK){foreach my $NY9V7C5bAq(qw(PATTERN PEER PRIORITY SUBSTR EXT_NUMBER DESCRIPTION DEFCID LAST_ROUTE)){push @o1p7yRbsK6,$YWfHmL1xGy->{$NY9V7C5bAq};}last;}}}}else{@o1p7yRbsK6=$yInoMmEp9f->ygswNUMao5([qw(r_PATTERN r_PEER r_PRIORITY r_SUBSTR r_EXT_NUMBER r_DESCRIPTION r_DEFCID r_LAST_ROUTE)]);}if(scalar(@o1p7yRbsK6)and defined($yInoMmEp9f->dDTVu9dkih(@o1p7yRbsK6))){return $yInoMmEp9f->yvfPlkqJS2();}else{return $yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x72\x6f\x75\x74\x65\x5f\x75\x70\x64\x61\x74\x65"){if($yInoMmEp9f->XNb85wRaDL($yInoMmEp9f->ygswNUMao5([qw(data_id r_PATTERN r_PEER r_PRIORITY r_SUBSTR r_EXT_NUMBER r_DESCRIPTION r_DEFCID r_LAST_ROUTE)]))){return $yInoMmEp9f->yvfPlkqJS2();}else{return $yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x72\x6f\x75\x74\x65\x5f\x64\x65\x6c"){my $qgJDkiZ7vY;$qgJDkiZ7vY="\x61\x6c\x6c" if $yInoMmEp9f->ygswNUMao5("\x64\x61\x74\x61\x5f\x69\x64")eq "\x61\x6c\x6c";if($yInoMmEp9f->HrYUi4jHuL($yInoMmEp9f->ygswNUMao5("\x64\x61\x74\x61\x5f\x69\x64"),$qgJDkiZ7vY)){return $yInoMmEp9f->yvfPlkqJS2();}else{return $yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x75\x73\x65\x72\x5f\x75\x70\x64\x61\x74\x65"){my $J9s6fQ7XYw=$yInoMmEp9f->ygswNUMao5("\x75\x73\x65\x72\x5f\x69\x64");my @xwPyaMZHKn=$yInoMmEp9f->ygswNUMao5();my %ws2JIYTHoU;my $h9AmNRHQij=$yInoMmEp9f->LlhCkQDIE1($J9s6fQ7XYw);unless(ref $h9AmNRHQij eq "\x48\x41\x53\x48"){$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);return;}my $dSzPMBpsOT=$yInoMmEp9f->NXOtBmzSP8();%{$dSzPMBpsOT}=%{$h9AmNRHQij};foreach my $doPipDxGLZ(@xwPyaMZHKn){if($doPipDxGLZ=~ /^US_(.*)/){my $oQ6qdS8ruR=$1;$oQ6qdS8ruR=~ s#[^\d\w._-]##g;next if $oQ6qdS8ruR eq "\x49\x44";if($yInoMmEp9f->ygswNUMao5($doPipDxGLZ)ne $h9AmNRHQij->{$oQ6qdS8ruR}){$ws2JIYTHoU{$oQ6qdS8ruR}=$yInoMmEp9f->ygswNUMao5($doPipDxGLZ);}}}if($yInoMmEp9f->TeRyVT8K6h($J9s6fQ7XYw,\%ws2JIYTHoU)){$yInoMmEp9f->y2q9pdsUQo("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65",undef,$J9s6fQ7XYw);$yInoMmEp9f->yvfPlkqJS2();}else{$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x75\x73\x65\x72\x5f\x75\x70\x64\x61\x74\x65\x5f\x70\x69\x6e"){my $J9s6fQ7XYw=$yInoMmEp9f->ygswNUMao5("\x75\x73\x65\x72\x5f\x69\x64");my $ibUT5WEqNd=$yInoMmEp9f->ygswNUMao5("\x70\x69\x6e");if($yInoMmEp9f->nBeERQjMIw($J9s6fQ7XYw,$ibUT5WEqNd)){$yInoMmEp9f->y2q9pdsUQo("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65",undef,$J9s6fQ7XYw);$yInoMmEp9f->yvfPlkqJS2();}else{$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x75\x73\x65\x72\x5f\x61\x64\x64"){my($zaJBAbvW89,$EQC1sBtkLw,$kNynpMTgru,$ajksLQglJe,$IGpN1O4KIw,$J9s6fQ7XYw)=$yInoMmEp9f->ygswNUMao5([qw(phone group_id conf_file uname user_ac user_id)]);my $Zv1LXfeFki={};foreach my $MrmhNOlwT9(split(/\s*,\s*/,$yInoMmEp9f->JisSHQVMcn("\x43\x55\x53\x54\x4f\x4d\x5f\x45\x58\x54\x52\x41\x5f\x55\x53\x45\x52\x5f\x46\x49\x45\x4c\x44\x53\x5f\x34\x5f\x41\x49"))){my($oQ6qdS8ruR,$wtBWXqF8lp)=split(/:/,$MrmhNOlwT9);$Zv1LXfeFki->{$wtBWXqF8lp||$oQ6qdS8ruR}=$yInoMmEp9f->ygswNUMao5($oQ6qdS8ruR);$Zv1LXfeFki->{$wtBWXqF8lp||$oQ6qdS8ruR}='' unless defined $Zv1LXfeFki->{$wtBWXqF8lp||$oQ6qdS8ruR};}if(my $IGpN1O4KIw=$yInoMmEp9f->Vi5lkBhgef($zaJBAbvW89,$EQC1sBtkLw,$ajksLQglJe,$IGpN1O4KIw,$J9s6fQ7XYw,$Zv1LXfeFki)){$yInoMmEp9f->y2q9pdsUQo("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x61\x64\x64",$IGpN1O4KIw);if($kNynpMTgru and-e $kNynpMTgru){system "\x2f\x6f\x70\x74\x2f\x56\x69\x72\x74\x75\x61\x6c\x50\x42\x58\x2f\x63\x6f\x6e\x74\x72\x69\x62\x2f\x75\x74\x69\x6c\x73\x2f\x62\x61\x63\x6b\x75\x70\x5f\x72\x65\x73\x74\x6f\x72\x65\x2e\x70\x6c\x20"."$zaJBAbvW89 $IGpN1O4KIw $kNynpMTgru &>/dev/null";}$yInoMmEp9f->yvfPlkqJS2("?action=user_info&ac=$IGpN1O4KIw&df=".$yInoMmEp9f->ygswNUMao5("\x64\x66"));}else{$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x75\x73\x65\x72\x5f\x64\x65\x6c"){my($J9s6fQ7XYw,$nd6h7BCmca)=$yInoMmEp9f->ygswNUMao5([qw(user_id single_user)]);if($yInoMmEp9f->c9vijGEDLu($J9s6fQ7XYw)){my $h9AmNRHQij=$yInoMmEp9f->LlhCkQDIE1($J9s6fQ7XYw);if(ref $h9AmNRHQij eq "\x48\x41\x53\x48"){$yInoMmEp9f->y2q9pdsUQo("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x64\x72\x6f\x70",$h9AmNRHQij->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"});}if($nd6h7BCmca){$yInoMmEp9f->yvfPlkqJS2("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x75\x73\x65\x72\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$yInoMmEp9f->ygswNUMao5("\x64\x66"));}else{$yInoMmEp9f->yvfPlkqJS2();}}else{$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x75\x73\x65\x72\x5f\x69\x6e\x66\x6f"){ZiUGkvxMsr($yInoMmEp9f);}elsif($nKAL9Qjq8T eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x69\x73\x74"){cdypICnJVW($yInoMmEp9f);}elsif($nKAL9Qjq8T eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x64\x65\x6c"){if($yInoMmEp9f->Bybc4kGnNd($yInoMmEp9f->ygswNUMao5("\x70\x61\x72\x74\x6e\x65\x72\x5f\x69\x64"))){$yInoMmEp9f->yvfPlkqJS2("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$yInoMmEp9f->ygswNUMao5("\x64\x66"));}else{$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x61\x64\x64"){my @xwPyaMZHKn=$yInoMmEp9f->ygswNUMao5();my %ws2JIYTHoU;foreach my $doPipDxGLZ(@xwPyaMZHKn){if($doPipDxGLZ=~ /^P_(.*)/){my $oQ6qdS8ruR=$1;$oQ6qdS8ruR=~ s#[^\d\w._-]##g;$ws2JIYTHoU{$oQ6qdS8ruR}=$yInoMmEp9f->ygswNUMao5($doPipDxGLZ);}}if($yInoMmEp9f->e1KbHU7uBq(\%ws2JIYTHoU,$yInoMmEp9f->ygswNUMao5("\x47\x52\x4f\x55\x50\x5f\x49\x44"))){$yInoMmEp9f->yvfPlkqJS2();}else{$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x75\x70\x64\x61\x74\x65"){my $Lbpg9OsdFv=$yInoMmEp9f->ygswNUMao5("\x70\x61\x72\x74\x6e\x65\x72\x5f\x69\x64");my @xwPyaMZHKn=$yInoMmEp9f->ygswNUMao5();my %ws2JIYTHoU;foreach my $doPipDxGLZ(@xwPyaMZHKn){if($doPipDxGLZ=~ /^P_(.*)/){my $oQ6qdS8ruR=$1;$oQ6qdS8ruR=~ s#[^\d\w._-]##g;next if $oQ6qdS8ruR eq "\x49\x44";$ws2JIYTHoU{$oQ6qdS8ruR}=$yInoMmEp9f->ygswNUMao5($doPipDxGLZ);if($oQ6qdS8ruR eq "\x54\x41\x47" and length($ws2JIYTHoU{$oQ6qdS8ruR})==0){$ws2JIYTHoU{$oQ6qdS8ruR}=undef;}}}if($yInoMmEp9f->DMX3YkhybN($Lbpg9OsdFv,\%ws2JIYTHoU)){$yInoMmEp9f->yvfPlkqJS2();}else{$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x67\x72\x6f\x75\x70\x5f\x64\x65\x6c"){if($yInoMmEp9f->pC0s6qNb4M($yInoMmEp9f->ygswNUMao5("\x70\x61\x72\x74\x6e\x65\x72\x5f\x69\x64"),$yInoMmEp9f->ygswNUMao5("\x67\x72\x6f\x75\x70\x5f\x69\x64"))){$yInoMmEp9f->yvfPlkqJS2("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$yInoMmEp9f->ygswNUMao5("\x64\x66"));}else{$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x67\x72\x6f\x75\x70\x5f\x61\x64\x64"){if($yInoMmEp9f->HKXrg9ybj6($yInoMmEp9f->ygswNUMao5("\x70\x61\x72\x74\x6e\x65\x72\x5f\x69\x64"),$yInoMmEp9f->ygswNUMao5("\x67\x72\x6f\x75\x70\x5f\x69\x64"))){$yInoMmEp9f->yvfPlkqJS2("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$yInoMmEp9f->ygswNUMao5("\x64\x66"));}else{$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x70\x68\x6f\x6e\x65\x5f\x6c\x69\x73\x74"){vHUR1GXu0x($yInoMmEp9f);}elsif($nKAL9Qjq8T eq "\x70\x65\x65\x72\x5f\x6c\x69\x73\x74"){T1Ur2cwqkp($yInoMmEp9f);}elsif($nKAL9Qjq8T eq "\x61\x75\x74\x68\x5f\x6e\x61\x6d\x65\x5f\x72\x65\x73\x65\x74"){if(my $SZ1p9l0Uj2=$yInoMmEp9f->tWZeN2AyCH($yInoMmEp9f->ygswNUMao5("\x69\x64"),$yInoMmEp9f->ygswNUMao5("\x70\x61\x63"),$yInoMmEp9f->ygswNUMao5("\x6e\x65\x77\x69\x64"),$yInoMmEp9f->ygswNUMao5("\x6e\x65\x77\x70\x77"))){my $ktfQeINLyE=$yInoMmEp9f->ygswNUMao5("\x6d\x6f\x64\x65");if($ktfQeINLyE eq "\x72\x65\x64\x69\x72"){return $yInoMmEp9f->yvfPlkqJS2();}else{my $xxA9dfhR2b=$yInoMmEp9f->ygswNUMao5("\x64\x74\x79\x70\x65");if($xxA9dfhR2b eq "\x70\x68\x6f\x6e\x65"){vHUR1GXu0x($yInoMmEp9f);}else{T1Ur2cwqkp($yInoMmEp9f);}}}else{$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x73\x69\x70\x5f\x63\x61\x6c\x6c\x5f\x6c\x69\x6d\x69\x74"){if($yInoMmEp9f->qhuLWUnVgd($yInoMmEp9f->ygswNUMao5([qw(data_id user_id phone limit)]))){return $yInoMmEp9f->yvfPlkqJS2();}else{$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x70\x62\x78\x5f\x6d\x6f\x64\x65\x5f\x75\x70\x64\x61\x74\x65"){if($yInoMmEp9f->Gu6zCv7Xgm($yInoMmEp9f->ygswNUMao5([qw(data_id need_reg user_id host PBXMODE)]))){return $yInoMmEp9f->yvfPlkqJS2();}else{return $yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x63\x6c\x6f\x6e\x65"){my($ZT0lB6o8r9,$rpq8NVflR9,$OIGvpBY9DK,$Z0RBVw1Mlq,$nKAL9Qjq8T,$hhrRdiju12)=$yInoMmEp9f->ygswNUMao5([qw(tname id fname fid newaction noauto)]);my $SZ1p9l0Uj2=$yInoMmEp9f->kIkLzfRKCF($ZT0lB6o8r9,$rpq8NVflR9,$OIGvpBY9DK,$Z0RBVw1Mlq,$hhrRdiju12);if(defined $SZ1p9l0Uj2){$yInoMmEp9f->yvfPlkqJS2("\x3f\x61\x63\x74\x69\x6f\x6e\x3d".$nKAL9Qjq8T."\x3d".$SZ1p9l0Uj2);}else{$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x63\x6f\x75\x6e\x74\x65\x72\x73\x5f\x63\x6c\x65\x61\x6e"){my $U3mQafGucY=$yInoMmEp9f->ygswNUMao5("\x61\x63");if($U3mQafGucY){my $gkpwhMQYgF="\x2f\x6f\x70\x74\x2f\x56\x69\x72\x74\x75\x61\x6c\x50\x42\x58\x2f\x63\x6f\x6e\x74\x72\x69\x62\x2f\x75\x74\x69\x6c\x73\x2f\x75\x73\x65\x72\x5f\x63\x6f\x75\x6e\x74\x65\x72\x73\x2e\x70\x6c\x20".$U3mQafGucY."\x20\x63\x6c\x65\x61\x6e";my $cdn6mIL8OM=`$gkpwhMQYgF`;}$yInoMmEp9f->yvfPlkqJS2();}elsif($nKAL9Qjq8T eq "\x73\x79\x73\x73\x74\x61\x74\x75\x73"){otmSZhbzaX($yInoMmEp9f);}elsif($nKAL9Qjq8T eq "\x72\x65\x70\x6f\x72\x74"){$yInoMmEp9f->eNIeah5Mdf(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",'');my $u5QYD67Tar=$yInoMmEp9f->ygswNUMao5("\x74\x79\x70\x65");if($u5QYD67Tar eq "\x73\x79\x73\x73\x74\x61\x74\x65"){my $lnaB0Wp3zI=$yInoMmEp9f->nzxiDrslNB("\x73\x75\x64\x6f\x20\x2f\x6f\x70\x74\x2f\x56\x69\x72\x74\x75\x61\x6c\x50\x42\x58\x2f\x63\x6f\x6e\x74\x72\x69\x62\x2f\x75\x74\x69\x6c\x73\x2f\x73\x79\x73\x73\x74\x61\x74\x75\x73\x2e\x70\x6c\x20\x72\x65\x70\x6f\x72\x74");print $lnaB0Wp3zI;}elsif($u5QYD67Tar eq "\x78\x76\x62\x6c\x6f\x67"){system("\x74\x61\x69\x6c\x20\x2d\x31\x30\x30\x30\x30\x30\x20\x2f\x76\x61\x72\x2f\x6c\x6f\x67\x2f\x56\x69\x72\x74\x75\x61\x6c\x50\x42\x58\x2f\x58\x56\x42\x2e\x6c\x6f\x67");}elsif($u5QYD67Tar eq "\x78\x76\x62\x65\x72\x72"){system("\x74\x61\x69\x6c\x20\x2d\x31\x30\x30\x30\x30\x30\x20\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");}elsif($u5QYD67Tar eq "\x78\x76\x62\x63\x72\x6d"){system("\x74\x61\x69\x6c\x20\x2d\x31\x30\x30\x30\x30\x30\x20\x2f\x76\x61\x72\x2f\x6c\x6f\x67\x2f\x56\x69\x72\x74\x75\x61\x6c\x50\x42\x58\x2f\x58\x56\x42\x2d\x43\x52\x4d\x2e\x6c\x6f\x67");}elsif($u5QYD67Tar eq "\x78\x76\x62\x68\x74\x74\x70\x61\x75\x64\x69\x74"){system("\x74\x61\x69\x6c\x20\x2d\x31\x30\x30\x30\x30\x30\x20\x2f\x76\x61\x72\x2f\x6c\x6f\x67\x2f\x56\x69\x72\x74\x75\x61\x6c\x50\x42\x58\x2f\x58\x56\x42\x2d\x48\x54\x54\x50\x2e\x6c\x6f\x67");}elsif($u5QYD67Tar eq "\x61\x73\x74\x65\x72\x69\x73\x6b"){system("\x74\x61\x69\x6c\x20\x2d\x31\x30\x30\x30\x30\x30\x20\x2f\x76\x61\x72\x2f\x6c\x6f\x67\x2f\x61\x73\x74\x65\x72\x69\x73\x6b\x2f\x6d\x65\x73\x73\x61\x67\x65\x73");}}elsif($nKAL9Qjq8T eq "\x63\x61\x6c\x6c\x5f\x6c\x6f\x67"){my $BD9BFa8fXx=$yInoMmEp9f->ygswNUMao5("\x63\x61\x6c\x6c\x5f\x69\x64");my $gkpwhMQYgF="find /var/log/VirtualPBX/backup/ -name 'XVB.log*.gz'";my @OtN091h3VI=`$gkpwhMQYgF`;push @OtN091h3VI,"\x2f\x76\x61\x72\x2f\x6c\x6f\x67\x2f\x56\x69\x72\x74\x75\x61\x6c\x50\x42\x58\x2f\x58\x56\x42\x2e\x6c\x6f\x67";chomp @OtN091h3VI;@OtN091h3VI=sort{(stat($b))[9]<=>(stat($a))[9]}@OtN091h3VI;my $K4xCL90vhs='';local $|=1;$yInoMmEp9f->eNIeah5Mdf(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","#=== Call-ID $BD9BFa8fXx ");my $QRfFXSQOsM=time;my $EJVG9icshy=$yInoMmEp9f->ygswNUMao5("\x6d\x6c")||$yInoMmEp9f->JisSHQVMcn("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x4d\x41\x58\x5f\x4c\x4f\x47\x53")||3;my $VCfeQZdgIW=$yInoMmEp9f->ygswNUMao5("\x6d\x6c\x74")||$yInoMmEp9f->JisSHQVMcn("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x4d\x41\x58\x5f\x4c\x4f\x47\x53\x5f\x54\x4f")||20;$#OtN091h3VI=$EJVG9icshy-1 if $#OtN091h3VI>$EJVG9icshy-1;foreach my $nBAer62LPf(@OtN091h3VI){my $ZhdUbFNtVD='';$gkpwhMQYgF="grep '$BD9BFa8fXx' $nBAer62LPf | tac";if($nBAer62LPf=~ /gz$/){$gkpwhMQYgF="z$gkpwhMQYgF";}$ZhdUbFNtVD=`$gkpwhMQYgF`;$K4xCL90vhs.=$ZhdUbFNtVD;print "=";if(time>$QRfFXSQOsM+$VCfeQZdgIW){last;}}unless(length($K4xCL90vhs)){print "\n\nCannot found data, the call is too old or log-files is too huge, try to grep in console\n";}else{my @uJ2WZUSXI3=split(/[\r\n]+/,$K4xCL90vhs);print "\n\n".join("\n",reverse(@uJ2WZUSXI3));}}elsif($nKAL9Qjq8T eq "\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74"){DxFRBKie3E($yInoMmEp9f);}elsif($nKAL9Qjq8T eq "\x6d\x73\x67\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c"){my($sWj7gVCv5z,$z1dJrQHyqu)=split("\x2c",$yInoMmEp9f->ygswNUMao5("\x6d\x73\x67\x5f\x74\x79\x70\x65"),2);my @vAHXcrOI5g=map{int($_)}split("\x3a",$sWj7gVCv5z,10);if(scalar(@vAHXcrOI5g)){tYZofRd8xb($yInoMmEp9f,\@vAHXcrOI5g,$z1dJrQHyqu);}else{tYZofRd8xb($yInoMmEp9f,undef,$z1dJrQHyqu);}}elsif($nKAL9Qjq8T eq "\x63\x61\x6c\x6c\x73\x5f\x68\x61\x6e\x67\x75\x70"){my($J9s6fQ7XYw,$BD9BFa8fXx)=$yInoMmEp9f->ygswNUMao5([qw(user_id call_id)]);if(length($BD9BFa8fXx)and length($J9s6fQ7XYw)){$yInoMmEp9f->ylW83hBVEP($BD9BFa8fXx,$J9s6fQ7XYw);}$yInoMmEp9f->yvfPlkqJS2();}elsif($nKAL9Qjq8T eq "\x73\x69\x70\x5f\x6c\x6f\x67"){Y3jtvFWCax($yInoMmEp9f);}elsif($nKAL9Qjq8T eq "\x66\x32\x62"){my $TH5CmJDQ7W=ytSJP6F7Za($yInoMmEp9f);otmSZhbzaX($yInoMmEp9f);}elsif($nKAL9Qjq8T eq "\x75\x73\x65\x72\x5f\x6c\x69\x73\x74"){B30YpiZAtD($yInoMmEp9f);}elsif($nKAL9Qjq8T eq "\x62\x61\x63\x6b\x75\x70"){m5xK1V9ScR($yInoMmEp9f);}else{$yInoMmEp9f->yvfPlkqJS2("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x75\x73\x65\x72\x5f\x6c\x69\x73\x74\x26\x66\x5f\x73\x74\x61\x74\x75\x73\x3d\x31");}}sub ZiUGkvxMsr{my $yInoMmEp9f=shift;my($IGpN1O4KIw)=$yInoMmEp9f->ygswNUMao5("\x61\x63");my $lM7HOpWEon=$yInoMmEp9f->zYwIvHeEKs(0,$IGpN1O4KIw,undef,undef);unless(ref $lM7HOpWEon eq "\x41\x52\x52\x41\x59"){$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $Zzi8O24BP5=$yInoMmEp9f->TEu3aZwFJI();unless(ref $Zzi8O24BP5 eq "\x41\x52\x52\x41\x59"){$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $dSzPMBpsOT=$yInoMmEp9f->NXOtBmzSP8();%{$dSzPMBpsOT}=(ID=>$lM7HOpWEon->[0]->{"\x49\x44"},TARIFF_ID=>$lM7HOpWEon->[0]->{"\x54\x41\x52\x49\x46\x46\x5f\x49\x44"});$lM7HOpWEon->[0]->{"\x43\x55\x52\x5f\x43\x41\x4c\x4c\x53"}=$yInoMmEp9f->jZ8JcyD0v3("\x73\x68\x2d\x61\x63\x2d\x69\x6e\x2d".$lM7HOpWEon->[0]->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"})||0;my @PEzXT9VWIB;foreach my $MrmhNOlwT9(split(/\s*,\s*/,$yInoMmEp9f->JisSHQVMcn("\x43\x55\x53\x54\x4f\x4d\x5f\x45\x58\x54\x52\x41\x5f\x55\x53\x45\x52\x5f\x46\x49\x45\x4c\x44\x53\x5f\x34\x5f\x41\x49"))){my($oQ6qdS8ruR,$wtBWXqF8lp,$rqxc39wrgU)=split(/:/,$MrmhNOlwT9);next unless $rqxc39wrgU;push @PEzXT9VWIB,{NAME=>$rqxc39wrgU,VAL=>$lM7HOpWEon->[0]->{$oQ6qdS8ruR},KEY=>$oQ6qdS8ruR};}my $gkpwhMQYgF="\x2f\x6f\x70\x74\x2f\x56\x69\x72\x74\x75\x61\x6c\x50\x42\x58\x2f\x63\x6f\x6e\x74\x72\x69\x62\x2f\x75\x74\x69\x6c\x73\x2f\x75\x73\x65\x72\x5f\x63\x6f\x75\x6e\x74\x65\x72\x73\x2e\x70\x6c\x20".($lM7HOpWEon->[0]->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"}||0);my $cdn6mIL8OM=`$gkpwhMQYgF`;QnGabKiy9C($yInoMmEp9f,"\x75\x73\x65\x72\x5f\x69\x6e\x66\x6f\x2e\x74\x74",{USER=>$lM7HOpWEon->[0],USER_COUNTERS=>$cdn6mIL8OM,DIDS=>$yInoMmEp9f->lkyXJ9zRsF(),DOMAINS=>$yInoMmEp9f->x5rsblVI6J(),TARIFF=>$yInoMmEp9f->wqL79kG4l2(),ADMIN_KEY=>$yInoMmEp9f->JisSHQVMcn("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x4b\x45\x59"),CUSTOM_FIELDS=>\@PEzXT9VWIB,GROUPS=>$Zzi8O24BP5,LIMITS=>$yInoMmEp9f->TZWFuYXpSm($lM7HOpWEon->[0]->{"\x49\x44"})});}sub B30YpiZAtD{my $yInoMmEp9f=shift;my($GLpcmRsF3M,$DmJ8AW4OD9,$G5EV4BMTNb,$CN9wkpu2j1,$yYouz84nMU,$ofg8DOTWpd,$Nunbc15oAh,$xIyJM8AecE,$f78Bn90qZj)=$yInoMmEp9f->ygswNUMao5([[(from=>0)],"\x66\x5f\x61\x63","\x66\x5f\x76\x6e","\x66\x5f\x67\x72\x6f\x75\x70","\x66\x5f\x75\x6e\x61\x6d\x65","\x66\x5f\x73\x74\x61\x74\x75\x73","\x66\x5f\x74\x61\x72\x69\x66\x66","\x66\x5f\x64\x65\x73\x63","\x66\x5f\x69\x64"]);my($lM7HOpWEon,$mw5xtS42M8)=$yInoMmEp9f->zYwIvHeEKs($GLpcmRsF3M,$DmJ8AW4OD9,$G5EV4BMTNb,$CN9wkpu2j1,$yYouz84nMU,$ofg8DOTWpd,$Nunbc15oAh,$xIyJM8AecE,undef,$f78Bn90qZj);unless(ref $lM7HOpWEon eq "\x41\x52\x52\x41\x59"){$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $Zzi8O24BP5=$yInoMmEp9f->TEu3aZwFJI();unless(ref $Zzi8O24BP5 eq "\x41\x52\x52\x41\x59"){$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $aOVlHkvhg2=[];foreach my $YuQK8jELmP(split(/\s*;\s*/,$yInoMmEp9f->JisSHQVMcn("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x54\x45\x4e\x41\x4e\x54\x53\x5f\x54\x45\x4d\x50\x4c\x41\x54\x45\x53"))){my($nBAer62LPf,$ZJi4t5frWX)=split(/:/,$YuQK8jELmP,2);unless($ZJi4t5frWX){$ZJi4t5frWX=$nBAer62LPf;$ZJi4t5frWX=~ s{.*/([^/]+)$}{$1};}push @$aOVlHkvhg2,{FILE=>$nBAer62LPf,DESC=>$ZJi4t5frWX};}my $CAIVhGHlJo=1;foreach my $dSzPMBpsOT(@{$lM7HOpWEon}){$dSzPMBpsOT->{"\x49\x44\x58"}=$GLpcmRsF3M+$CAIVhGHlJo;$CAIVhGHlJo++;}QnGabKiy9C($yInoMmEp9f,"\x75\x73\x65\x72\x5f\x6c\x69\x73\x74\x2e\x74\x74",{USERS=>$lM7HOpWEon,USERS_CNT=>$mw5xtS42M8,GROUPS=>$Zzi8O24BP5,TEMPLATES=>$aOVlHkvhg2,F_AC=>$DmJ8AW4OD9,F_VN=>$G5EV4BMTNb,F_GROUP=>$CN9wkpu2j1,F_UNAME=>$yYouz84nMU,F_STATUS=>$ofg8DOTWpd,F_TARIFF=>$Nunbc15oAh,F_DESC=>$xIyJM8AecE,F_ID=>$f78Bn90qZj,TARIFFS=>$yInoMmEp9f->XzI6F73m1p("\x54\x41\x52\x49\x46\x46"),DEF_SH_DID=>$yInoMmEp9f->JisSHQVMcn("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x44\x45\x46\x5f\x53\x48\x5f\x44\x49\x44"),$yInoMmEp9f->YBhgq75yGD(1,$lM7HOpWEon,$GLpcmRsF3M)});}sub t1jc9SBAIE{my $yInoMmEp9f=shift;my($GLpcmRsF3M,$DmJ8AW4OD9,$G5EV4BMTNb)=$yInoMmEp9f->ygswNUMao5([[(from=>0)],"\x66\x5f\x61\x63","\x66\x5f\x76\x6e"]);my $Zawo1J8BtV=$yInoMmEp9f->LWdqb61rGE($GLpcmRsF3M,$DmJ8AW4OD9,$G5EV4BMTNb);unless(ref $Zawo1J8BtV eq "\x41\x52\x52\x41\x59"){$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}QnGabKiy9C($yInoMmEp9f,"\x64\x69\x64\x5f\x6c\x69\x73\x74\x2e\x74\x74",{DIDS=>$Zawo1J8BtV,F_AC=>$DmJ8AW4OD9,F_VN=>$G5EV4BMTNb,$yInoMmEp9f->YBhgq75yGD(1,$Zawo1J8BtV,$GLpcmRsF3M)});}sub ME5tN0S8Uy{my $yInoMmEp9f=shift;my($GLpcmRsF3M,$DmJ8AW4OD9,$G5EV4BMTNb)=$yInoMmEp9f->ygswNUMao5([[(from=>0)],"\x66\x5f\x61\x63","\x66\x5f\x76\x6e"]);my $NhqBVc8God=$yInoMmEp9f->lhYn5arZoO($GLpcmRsF3M,$DmJ8AW4OD9,$G5EV4BMTNb);unless(ref $NhqBVc8God eq "\x41\x52\x52\x41\x59"){$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}QnGabKiy9C($yInoMmEp9f,"\x73\x69\x70\x64\x6f\x6d\x61\x69\x6e\x5f\x6c\x69\x73\x74\x2e\x74\x74",{DOMAINS=>$NhqBVc8God,F_AC=>$DmJ8AW4OD9,F_VN=>$G5EV4BMTNb,$yInoMmEp9f->YBhgq75yGD(1,$NhqBVc8God,$GLpcmRsF3M)});}sub SmVcejiudy{my $yInoMmEp9f=shift;my($GLpcmRsF3M,$CN9wkpu2j1)=$yInoMmEp9f->ygswNUMao5([[(from=>0)],"\x66\x5f\x67\x72\x6f\x75\x70"]);my $Zzi8O24BP5=$yInoMmEp9f->TEu3aZwFJI(undef,$CN9wkpu2j1,$GLpcmRsF3M);unless(ref $Zzi8O24BP5 eq "\x41\x52\x52\x41\x59"){$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}QnGabKiy9C($yInoMmEp9f,"\x67\x72\x6f\x75\x70\x5f\x6c\x69\x73\x74\x2e\x74\x74",{GROUPS=>$Zzi8O24BP5,NODES=>$yInoMmEp9f->PlkymUY2tI(),F_GROUP=>$CN9wkpu2j1,$yInoMmEp9f->YBhgq75yGD(1,$Zzi8O24BP5,$GLpcmRsF3M)});}sub n0CubG7W6t{my($yInoMmEp9f,$EQC1sBtkLw,$Nrtbx8sRwS)=@_;my $volVmx4gsr=$yInoMmEp9f->TEu3aZwFJI($EQC1sBtkLw,$Nrtbx8sRwS);unless(ref $volVmx4gsr eq "\x41\x52\x52\x41\x59"){$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;SmVcejiudy($yInoMmEp9f);}else{my $l1R7qWC8DV=$yInoMmEp9f->XzI6F73m1p("\x56\x42\x54\x59\x50\x45\x53");foreach my $uRcmOjl8iT(@$l1R7qWC8DV){$uRcmOjl8iT->{"\x4c\x49\x4d\x49\x54\x5f\x56\x41\x4c\x55\x45"}=$volVmx4gsr->[0]->{"\x56\x42\x4c\x5f".$uRcmOjl8iT->{"\x49\x44"}};}QnGabKiy9C($yInoMmEp9f,"\x67\x72\x6f\x75\x70\x5f\x69\x6e\x66\x6f\x2e\x74\x74",{GROUP=>$volVmx4gsr->[0],NODES=>$yInoMmEp9f->XzI6F73m1p("\x4e\x4f\x44\x45","\x4e\x4f\x44\x45\x5f\x49\x44"),TARIFFS=>$yInoMmEp9f->XzI6F73m1p("\x54\x41\x52\x49\x46\x46"),LANG=>$yInoMmEp9f->XzI6F73m1p("\x4c\x41\x4e\x47",undef,{STATUS=>1}),VB_TYPES=>$l1R7qWC8DV});}}sub eV5EwBWKNX{my($yInoMmEp9f,$rpq8NVflR9)=@_;my $gpr1GjCnZy=$yInoMmEp9f->fB8TYt01CU(undef,$rpq8NVflR9);if(ref $gpr1GjCnZy ne "\x41\x52\x52\x41\x59" or ref $gpr1GjCnZy->[0]ne "\x48\x41\x53\x48"){$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}QnGabKiy9C($yInoMmEp9f,"\x74\x61\x72\x69\x66\x66\x5f\x69\x6e\x66\x6f\x2e\x74\x74",{%{$gpr1GjCnZy->[0]},CURRENCY=>$yInoMmEp9f->XzI6F73m1p("\x43\x55\x52\x52\x45\x4e\x43\x59","\x43\x55\x52\x5f\x49\x44"),});}sub f38NvX5CMJ{my($yInoMmEp9f,$zPOu0jNYFW)=@_;my($GLpcmRsF3M,$TdUNLKBHnz,$d14LDTCW6E,$e6QCR59Tv8,$BD9BFa8fXx,$GQoMfts9n2,$rpKT2zrogm,$IGpN1O4KIw,$Z7eQCH3tRx,$ydKAIopkU1,$VJ3ZCVlIbD,$vd5mzi7gHW,$T9Unp8mQvo,$aL25VDBc0v)=$yInoMmEp9f->ygswNUMao5([[(from=>0)],qw(from_time to_time smart_time call_id caller_id called_id ac call_type duration act_type ext data group)]);unless(length("$BD9BFa8fXx$GQoMfts9n2$rpKT2zrogm$TdUNLKBHnz$d14LDTCW6E$Z7eQCH3tRx$IGpN1O4KIw$ydKAIopkU1$T9Unp8mQvo")){my $yFYDg5AS1w=$yInoMmEp9f->JisSHQVMcn("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x41\x49");$TdUNLKBHnz=$yInoMmEp9f->aD5a7Zuy2E(time-86400*$yFYDg5AS1w,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$d14LDTCW6E=$yInoMmEp9f->aD5a7Zuy2E(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my $xQ7mrHhuBJ;if($IGpN1O4KIw=~ /,/){$xQ7mrHhuBJ=[split(/\s*,\s*/,$IGpN1O4KIw)];}else{$xQ7mrHhuBJ=$IGpN1O4KIw;}my $Vn89rq0YwN=$yInoMmEp9f->Xq89gCLbxo($BD9BFa8fXx,$GQoMfts9n2,$rpKT2zrogm,$GLpcmRsF3M,$yInoMmEp9f->P9gARsKNnI($TdUNLKBHnz),$yInoMmEp9f->P9gARsKNnI($d14LDTCW6E),$Z7eQCH3tRx,$xQ7mrHhuBJ,$ydKAIopkU1,$T9Unp8mQvo,$zPOu0jNYFW,$vd5mzi7gHW,$VJ3ZCVlIbD,$aL25VDBc0v);unless(ref $Vn89rq0YwN eq "\x41\x52\x52\x41\x59"){$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my(@xwPyaMZHKn,$l5bZLfc4uA,$k29AnBrleU);my $Zzi8O24BP5=$yInoMmEp9f->TEu3aZwFJI();if($Vn89rq0YwN){my $wS7dg80G3V=$GLpcmRsF3M+1;unless($BD9BFa8fXx){foreach my $uRcmOjl8iT(@{$Vn89rq0YwN}){$uRcmOjl8iT->{"\x43\x44\x52\x5f\x4e\x55\x4d"}=$wS7dg80G3V++;$uRcmOjl8iT->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$yInoMmEp9f->aD5a7Zuy2E($uRcmOjl8iT->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});}}else{foreach my $uRcmOjl8iT(@{$Vn89rq0YwN}){$uRcmOjl8iT->{"\x43\x44\x52\x5f\x4e\x55\x4d"}=$wS7dg80G3V++;$uRcmOjl8iT->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$yInoMmEp9f->aD5a7Zuy2E($uRcmOjl8iT->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});if($uRcmOjl8iT->{"\x54\x59\x50\x45"}eq "\x43\x61\x6c\x6c"){$l5bZLfc4uA=$uRcmOjl8iT->{"\x45\x58\x54\x5f\x4e\x55\x4d\x42\x45\x52"};$k29AnBrleU=$uRcmOjl8iT->{"\x44\x4f\x57\x4e\x4c\x4f\x41\x44\x5f\x49\x50"};}}$l5bZLfc4uA=$BD9BFa8fXx unless length($l5bZLfc4uA);if(ref $Vn89rq0YwN and ref $Vn89rq0YwN->[0]){my $uGt26ld54o=$yInoMmEp9f->aD5a7Zuy2E($Vn89rq0YwN->[0]->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"},"\x25\x59\x2d\x25\x6d\x2d\x25\x64\x2d\x25\x48\x2d\x25\x4d\x2d\x25\x53");push @xwPyaMZHKn,(JS_DATE_STR=>$uGt26ld54o);push @xwPyaMZHKn,(SIP_CALL_ID=>$l5bZLfc4uA,SIP_CALL_START=>$Vn89rq0YwN->[0]->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"},SIP_CALL_STOP=>$Vn89rq0YwN->[$#{$Vn89rq0YwN}]->{"\x53\x54\x4f\x50\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"},SIP_NODE_IP=>$k29AnBrleU);}}}my $NghyM780K4;if($BD9BFa8fXx){$NghyM780K4="\x63\x64\x72\x73\x5f\x61\x63\x74\x5f\x6c\x69\x73\x74\x2e\x74\x74";}elsif($zPOu0jNYFW){$NghyM780K4="\x61\x63\x74\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c\x2e\x74\x74";push @xwPyaMZHKn,(CDR_ACT_TYPE=>$VJ3ZCVlIbD,CDR_ACT_EXT=>$vd5mzi7gHW);unless($yInoMmEp9f->y7FE8GPAza()->{"\x44\x46"}){push @xwPyaMZHKn,(ACT_TYPES=>$yInoMmEp9f->{"\x5f\x4c\x49\x53\x54\x53"}->{"\x41\x43\x54\x49\x56\x49\x54\x49\x45\x53"});}}else{$NghyM780K4="\x63\x64\x72\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74";push @xwPyaMZHKn,(CDR_CALL_TYPE=>$Z7eQCH3tRx);}return QnGabKiy9C($yInoMmEp9f,$NghyM780K4,{CDR_LIST=>$Vn89rq0YwN,CDR_CALL_ID=>$BD9BFa8fXx,CDR_CALLER_ID=>$GQoMfts9n2,CDR_CALLED_ID=>$rpKT2zrogm,CDR_AC=>$IGpN1O4KIw,CDR_DURATION=>$ydKAIopkU1,CDR_DATA=>$T9Unp8mQvo,CDR_GROUP=>$aL25VDBc0v,GROUPS=>$Zzi8O24BP5,FROM_TIME=>$TdUNLKBHnz,TO_TIME=>$d14LDTCW6E,SMART_TIME=>$e6QCR59Tv8,@xwPyaMZHKn,$yInoMmEp9f->YBhgq75yGD(1,$Vn89rq0YwN,$GLpcmRsF3M)});}sub m0EuLdZ2Aa{my $yInoMmEp9f=shift;my($GLpcmRsF3M,$IGpN1O4KIw,$TdUNLKBHnz,$d14LDTCW6E,$e6QCR59Tv8,$x2BV1cm0p6,$MO7zbmnEKx,$T9Unp8mQvo,$T7NYSZbsgM)=$yInoMmEp9f->ygswNUMao5([[(from=>0)],qw(ac from_time to_time smart_time ext_num action_type data cid)]);unless(length("$IGpN1O4KIw$TdUNLKBHnz$d14LDTCW6E$x2BV1cm0p6$MO7zbmnEKx$T9Unp8mQvo$T7NYSZbsgM")){my $yFYDg5AS1w=$yInoMmEp9f->JisSHQVMcn("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x41\x49");$TdUNLKBHnz=$yInoMmEp9f->aD5a7Zuy2E(time-86400*$yFYDg5AS1w,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$d14LDTCW6E=$yInoMmEp9f->aD5a7Zuy2E(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my $xQ7mrHhuBJ;if($IGpN1O4KIw=~ /,/){$xQ7mrHhuBJ=[split(/\s*,\s*/,$IGpN1O4KIw)];}else{$xQ7mrHhuBJ=$IGpN1O4KIw;}my $O8sSaklFpT=$yInoMmEp9f->UoP7M1UdHB($xQ7mrHhuBJ,$x2BV1cm0p6,$T9Unp8mQvo,$GLpcmRsF3M,$MO7zbmnEKx,$yInoMmEp9f->P9gARsKNnI($TdUNLKBHnz),$yInoMmEp9f->P9gARsKNnI($d14LDTCW6E),$T7NYSZbsgM);if(ref $O8sSaklFpT ne "\x41\x52\x52\x41\x59"){$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}elsif($O8sSaklFpT){my $wS7dg80G3V=$GLpcmRsF3M+1;foreach my $uRcmOjl8iT(@{$O8sSaklFpT}){$uRcmOjl8iT->{"\x4a\x5f\x4e\x55\x4d"}=$wS7dg80G3V++;$uRcmOjl8iT->{"\x4a\x5f\x44\x41\x54\x45"}=$yInoMmEp9f->aD5a7Zuy2E($uRcmOjl8iT->{"\x43\x52\x45\x41\x54\x45\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});}}return QnGabKiy9C($yInoMmEp9f,"\x6a\x6f\x75\x72\x6e\x61\x6c\x5f\x6c\x69\x73\x74\x2e\x74\x74",{J_LIST=>$O8sSaklFpT,J_DATA=>$T9Unp8mQvo,J_EXT_NUM=>$x2BV1cm0p6,J_ACTION=>$MO7zbmnEKx,J_AC=>$IGpN1O4KIw,J_CID=>$T7NYSZbsgM,ACTIONS=>$yInoMmEp9f->ADMS2psvBh(),FROM_TIME=>$TdUNLKBHnz,TO_TIME=>$d14LDTCW6E,SMART_TIME=>$e6QCR59Tv8,$yInoMmEp9f->YBhgq75yGD(1,$O8sSaklFpT,$GLpcmRsF3M)});}sub hS6FW9mMCX{my $yInoMmEp9f=shift;my($GLpcmRsF3M,$G5EV4BMTNb)=$yInoMmEp9f->ygswNUMao5([[(from=>0)],"\x66\x5f\x76\x6e"]);my $EnTv1KxqSV=$yInoMmEp9f->QbE2i6S18H($GLpcmRsF3M,$G5EV4BMTNb);unless(ref $EnTv1KxqSV eq "\x41\x52\x52\x41\x59"){$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}QnGabKiy9C($yInoMmEp9f,"\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x6c\x69\x73\x74\x2e\x74\x74",{DIDS=>$EnTv1KxqSV,LANG=>$yInoMmEp9f->XzI6F73m1p("\x4c\x41\x4e\x47",undef,{STATUS=>1}),F_VN=>$G5EV4BMTNb,$yInoMmEp9f->YBhgq75yGD(1,$EnTv1KxqSV,$GLpcmRsF3M)});}sub Jiu2H8ws7W{my $yInoMmEp9f=shift;my $GLpcmRsF3M=$yInoMmEp9f->ygswNUMao5("\x66\x72\x6f\x6d")||0;my $gpr1GjCnZy=$yInoMmEp9f->fB8TYt01CU($GLpcmRsF3M);unless(ref $gpr1GjCnZy eq "\x41\x52\x52\x41\x59"){$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}QnGabKiy9C($yInoMmEp9f,"\x74\x61\x72\x69\x66\x66\x5f\x6c\x69\x73\x74\x2e\x74\x74",{TARIFFS=>$gpr1GjCnZy,CURRENCY=>$yInoMmEp9f->XzI6F73m1p("\x43\x55\x52\x52\x45\x4e\x43\x59","\x43\x55\x52\x5f\x49\x44"),$yInoMmEp9f->YBhgq75yGD(1,$gpr1GjCnZy,$GLpcmRsF3M)});}sub B8o7pUvkCw{my $yInoMmEp9f=shift;my $GLpcmRsF3M=$yInoMmEp9f->ygswNUMao5("\x66\x72\x6f\x6d")||0;my $GtVuH6y59U=$yInoMmEp9f->PlkymUY2tI($GLpcmRsF3M);unless(ref $GtVuH6y59U eq "\x41\x52\x52\x41\x59"){$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}else{foreach my $DakoFcHDtK(@{$GtVuH6y59U}){$DakoFcHDtK->{"\x73\x74\x61\x74"}=$yInoMmEp9f->jZ8JcyD0v3("\x73\x68\x2d\x73\x74\x61\x74\x2d".$DakoFcHDtK->{"\x4e\x4f\x44\x45\x5f\x49\x44"})||{};$DakoFcHDtK->{"\x73\x74\x61\x74"}->{"\x63\x61\x6c\x6c\x73"}=$yInoMmEp9f->jZ8JcyD0v3("\x73\x68\x2d\x63\x61\x6c\x6c\x73\x2d".$DakoFcHDtK->{"\x4e\x4f\x44\x45\x5f\x49\x44"})||0;}}QnGabKiy9C($yInoMmEp9f,"\x6e\x6f\x64\x65\x5f\x6c\x69\x73\x74\x2e\x74\x74",{NODES=>$GtVuH6y59U,$yInoMmEp9f->YBhgq75yGD(1,$GtVuH6y59U,$GLpcmRsF3M)});}sub Q6lQ3pkHTS{my $yInoMmEp9f=shift;my($GLpcmRsF3M,$dioxuOYnrQ,$xxA9dfhR2b)=$yInoMmEp9f->ygswNUMao5([[(from=>0)],"\x6e\x61\x6d\x65","\x74\x79\x70\x65"]);my $KSPeTyv5wZ=$yInoMmEp9f->HXtPpMmo79(undef,$xxA9dfhR2b,$dioxuOYnrQ,$GLpcmRsF3M);unless(ref $KSPeTyv5wZ eq "\x41\x52\x52\x41\x59"){$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;return 0;}QnGabKiy9C($yInoMmEp9f,"\x72\x65\x70\x6f\x72\x74\x5f\x6c\x69\x73\x74\x2e\x74\x74",{REPORTS=>$KSPeTyv5wZ,SEARCH_NAME=>$dioxuOYnrQ,SEARCH_TYPE=>$xxA9dfhR2b,$yInoMmEp9f->YBhgq75yGD(1,$KSPeTyv5wZ,$GLpcmRsF3M)});}sub iFtj0smTNo{my $yInoMmEp9f=shift;my($LQwptGWs2I,$Ad5M1098xN,$vo5PlLrm0j,$WcjkPEuKXT,$e6QCR59Tv8,$xxA9dfhR2b)=$yInoMmEp9f->ygswNUMao5([qw(report_id need_excel from_time to_time smart_time type)]);my $sZ8h6LQtEl=$yInoMmEp9f->P9gARsKNnI($vo5PlLrm0j);my $JKUbLvelMV=$yInoMmEp9f->P9gARsKNnI($WcjkPEuKXT);my(%sbOh5t9m3X,@CsftOyKniC);my $sEnZM9geUI=$yInoMmEp9f->HXtPpMmo79($LQwptGWs2I);if(ref $sEnZM9geUI eq "\x41\x52\x52\x41\x59" and $sEnZM9geUI->[0]->{"\x45\x58\x54\x52\x41\x5f\x50\x41\x52\x41\x4d\x53"}){foreach my $yHBTZ9WsPi(split(/\s*\|\s*/,$sEnZM9geUI->[0]->{"\x45\x58\x54\x52\x41\x5f\x50\x41\x52\x41\x4d\x53"})){my($V7wKxtn1sa,$YBUW7xcSEs,$Me0IWQD69m)=split(/\s*:\s*/,$yHBTZ9WsPi,3);$sbOh5t9m3X{$V7wKxtn1sa}=$yInoMmEp9f->ygswNUMao5($V7wKxtn1sa);push @CsftOyKniC,{name=>$V7wKxtn1sa,label=>$YBUW7xcSEs,value=>$sbOh5t9m3X{$V7wKxtn1sa}};}}my $YWfHmL1xGy=$yInoMmEp9f->tE1lYikbGu($LQwptGWs2I,$xxA9dfhR2b,$Ad5M1098xN,$sZ8h6LQtEl,$JKUbLvelMV,\%sbOh5t9m3X);if($Ad5M1098xN){if($YWfHmL1xGy){if($YWfHmL1xGy=~ /xlsx$/){return $yInoMmEp9f->oG85HDb3U0($YWfHmL1xGy,"\x61\x70\x70\x6c\x69\x63\x61\x74\x69\x6f\x6e\x2f\x78\x6c\x73\x78");}else{return $yInoMmEp9f->oG85HDb3U0($YWfHmL1xGy,"\x74\x65\x78\x74\x2f\x63\x73\x76");}}}unless(ref $YWfHmL1xGy eq "\x41\x52\x52\x41\x59"){$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="\x52\x65\x70\x6f\x72\x74\x20\x4e\x6f\x74\x20\x66\x6f\x75\x6e\x64";$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);return 0;}my $MIM9B8XxC5=[];my $xxtGcbK9e8=[];foreach my $JQmFGgIiwc(@{$YWfHmL1xGy->[1]}){my $doPipDxGLZ=$JQmFGgIiwc;if($doPipDxGLZ=~ s/^=//){push @{$xxtGcbK9e8},{name=>$doPipDxGLZ,align=>"\x6c\x65\x66\x74"};}elsif($doPipDxGLZ=~ s/=$//){push @{$xxtGcbK9e8},{name=>$doPipDxGLZ,align=>"\x72\x69\x67\x68\x74"};}else{push @{$xxtGcbK9e8},{name=>$doPipDxGLZ,align=>"\x63\x65\x6e\x74\x65\x72"};}}for(0..$#{$YWfHmL1xGy->[0]}){$MIM9B8XxC5->[$_]=[];foreach my $doPipDxGLZ(@{$YWfHmL1xGy->[1]}){my $q0wMKxPhOQ=$YWfHmL1xGy->[0]->[$_]->{$doPipDxGLZ};my $uqb6ci5PGj=0;if($doPipDxGLZ=~ /^=?ACCESS_CODE=?$/){$q0wMKxPhOQ="<a href='/ai?ac=$q0wMKxPhOQ&action=user_info'>$q0wMKxPhOQ</a>";$uqb6ci5PGj=1;}if($doPipDxGLZ=~ /^=/){push @{$MIM9B8XxC5->[$_]},{value=>$q0wMKxPhOQ,align=>"\x6c\x65\x66\x74",is_raw=>$uqb6ci5PGj};}elsif($doPipDxGLZ=~ /=$/){push @{$MIM9B8XxC5->[$_]},{value=>$q0wMKxPhOQ,align=>"\x72\x69\x67\x68\x74",is_raw=>$uqb6ci5PGj};}else{push @{$MIM9B8XxC5->[$_]},{value=>$q0wMKxPhOQ,align=>"\x63\x65\x6e\x74\x65\x72",is_raw=>$uqb6ci5PGj};}}}QnGabKiy9C($yInoMmEp9f,"\x72\x65\x70\x6f\x72\x74\x5f\x72\x65\x73\x75\x6c\x74\x2e\x74\x74",{FROM_TIME=>($vo5PlLrm0j||$YWfHmL1xGy->[3]),TO_TIME=>($WcjkPEuKXT||$YWfHmL1xGy->[4]),SMART_TIME=>$e6QCR59Tv8,REPORT_RAW_DATA=>$YWfHmL1xGy->[5],REPORT_RESULT=>$MIM9B8XxC5,REPORT_HDR=>$xxtGcbK9e8,REPORT_DATA=>$YWfHmL1xGy->[2],EXTRA_PARAMS=>\@CsftOyKniC});}sub cdypICnJVW{my $yInoMmEp9f=shift;my $GLpcmRsF3M=$yInoMmEp9f->ygswNUMao5("\x66\x72\x6f\x6d")||0;my($Ty9vMaDq6Z,$NXVzafMUwW)=$yInoMmEp9f->WYkgeRAv03($GLpcmRsF3M);my $Zzi8O24BP5;foreach my $dwjqCU1zyv(@{$Ty9vMaDq6Z}){$dwjqCU1zyv->{"\x47\x52\x4f\x55\x50\x5f\x49\x44\x5f\x42\x49\x4e"}=[split(/,/,$dwjqCU1zyv->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})];}unless(ref $Ty9vMaDq6Z eq "\x41\x52\x52\x41\x59"){$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}else{$Zzi8O24BP5=$yInoMmEp9f->TEu3aZwFJI();unless(ref $Zzi8O24BP5 eq "\x41\x52\x52\x41\x59"){$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}}my $CAIVhGHlJo=1;foreach my $dwjqCU1zyv(@{$Ty9vMaDq6Z}){$dwjqCU1zyv->{"\x49\x44\x58"}=$GLpcmRsF3M+$CAIVhGHlJo;$CAIVhGHlJo++;}QnGabKiy9C($yInoMmEp9f,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x69\x73\x74\x2e\x74\x74",{PARTNERS=>$Ty9vMaDq6Z,PARTNERS_CNT=>$NXVzafMUwW,GROUPS=>$Zzi8O24BP5,$yInoMmEp9f->YBhgq75yGD(1,$Ty9vMaDq6Z,$GLpcmRsF3M)});}sub vHUR1GXu0x{my $yInoMmEp9f=shift;my($GLpcmRsF3M,$bug8mabXnG,$wkQxfcJ1yn,$TH5CmJDQ7W,$IGpN1O4KIw,$hwfUXHVoaE,$fF1bt3dmAr)=$yInoMmEp9f->ygswNUMao5([[(from=>0)],"\x70\x68\x6f\x6e\x65","\x61\x75\x74\x68\x6e\x61\x6d\x65","\x69\x70","\x61\x63","\x75\x61","\x72\x73\x74"]);my $xQ7mrHhuBJ;if($IGpN1O4KIw=~ /,/){$xQ7mrHhuBJ=[split(/\s*,\s*/,$IGpN1O4KIw)];}else{$xQ7mrHhuBJ=$IGpN1O4KIw;}my($swUdxaKTRY,$NVQy87GX2C)=$yInoMmEp9f->M3VHMG8InC($GLpcmRsF3M,0,$bug8mabXnG,$wkQxfcJ1yn,undef,$TH5CmJDQ7W,$xQ7mrHhuBJ,$hwfUXHVoaE,undef,undef,$fF1bt3dmAr);unless(ref $swUdxaKTRY eq "\x41\x52\x52\x41\x59"){$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $yc76pimSoa=time;my $CAIVhGHlJo=1;foreach my $zaJBAbvW89(@$swUdxaKTRY){if($yc76pimSoa<$zaJBAbvW89->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}){$zaJBAbvW89->{"\x52\x45\x47\x5f\x53\x54\x41\x54\x55\x53"}="\x52\x65\x67\x69\x73\x74\x65\x72\x65\x64";}else{$zaJBAbvW89->{"\x52\x45\x47\x5f\x53\x54\x41\x54\x55\x53"}="\x55\x6e\x72\x65\x67\x69\x73\x74\x65\x72\x65\x64";}$zaJBAbvW89->{"\x52\x45\x47\x5f\x45\x58\x50\x49\x52\x45\x44"}=$zaJBAbvW89->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}? $yInoMmEp9f->aD5a7Zuy2E($zaJBAbvW89->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}):"\x2d";$zaJBAbvW89->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}=$zaJBAbvW89->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}? $yInoMmEp9f->aD5a7Zuy2E($zaJBAbvW89->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}):"\x2d";$zaJBAbvW89->{"\x49\x44\x58"}=$GLpcmRsF3M+$CAIVhGHlJo;$CAIVhGHlJo++;}QnGabKiy9C($yInoMmEp9f,"\x70\x68\x6f\x6e\x65\x5f\x6c\x69\x73\x74\x2e\x74\x74",{SIPDEV=>$swUdxaKTRY,SIPDEV_CNT=>$NVQy87GX2C,AUTHNAME=>$wkQxfcJ1yn,PHONE=>$bug8mabXnG,IP=>$TH5CmJDQ7W,AC=>$IGpN1O4KIw,UA=>$hwfUXHVoaE,RST=>$fF1bt3dmAr,FROM=>$GLpcmRsF3M,ALLOW_RESET=>($yInoMmEp9f->JisSHQVMcn("\x53\x49\x50\x5f\x4e\x41\x4d\x45\x5f\x54\x59\x50\x45")eq "\x73\x69\x6d\x70\x6c\x65" ? 0:1),ALLOW_AUTH_EDIT=>$yInoMmEp9f->JisSHQVMcn("\x53\x49\x50\x5f\x41\x49\x5f\x41\x55\x54\x48\x5f\x45\x44\x49\x54"),$yInoMmEp9f->YBhgq75yGD(1,$swUdxaKTRY,$GLpcmRsF3M)});}sub DxFRBKie3E{my $yInoMmEp9f=shift;my($GLpcmRsF3M,$GQoMfts9n2,$rpKT2zrogm,$IGpN1O4KIw,$Z7eQCH3tRx,$h0qr9nBxDh,$IeOvtisjRq,$ydKAIopkU1,$aL25VDBc0v)=$yInoMmEp9f->ygswNUMao5([[(from=>0)],qw(caller_id called_id ac call_type refresh c2c duration group)]);my $xQ7mrHhuBJ;if($IGpN1O4KIw=~ /,/){$xQ7mrHhuBJ=[split(/\s*,\s*/,$IGpN1O4KIw)];}else{$xQ7mrHhuBJ=$IGpN1O4KIw;}my $MHlROLdQ9Y=$yInoMmEp9f->zQYJVCI3U2($GQoMfts9n2,$rpKT2zrogm,$xQ7mrHhuBJ,$Z7eQCH3tRx,$ydKAIopkU1,$aL25VDBc0v,undef,undef,$GLpcmRsF3M);unless(ref $MHlROLdQ9Y eq "\x41\x52\x52\x41\x59"){$MHlROLdQ9Y=[];}if($MHlROLdQ9Y){foreach my $uRcmOjl8iT(@{$MHlROLdQ9Y}){$uRcmOjl8iT->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$yInoMmEp9f->aD5a7Zuy2E($uRcmOjl8iT->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});$uRcmOjl8iT->{"\x43\x44\x52\x5f\x44\x55\x52\x41\x54\x49\x4f\x4e"}=time-$uRcmOjl8iT->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"};}}my $Zzi8O24BP5=$yInoMmEp9f->TEu3aZwFJI();unless(ref $Zzi8O24BP5 eq "\x41\x52\x52\x41\x59"){$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}$IeOvtisjRq||=$yInoMmEp9f->JisSHQVMcn("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x44\x45\x46\x5f\x43\x32\x43");if($IeOvtisjRq){$IeOvtisjRq=~ s#ph=[^&;]+##;$IeOvtisjRq=~ s#user_vars=([^&;]+)##;if($1){$IeOvtisjRq=",$1&$IeOvtisjRq";}elsif($IeOvtisjRq=~ /&/ and $IeOvtisjRq !~ /^[,&]/){$IeOvtisjRq="&$IeOvtisjRq";}}return QnGabKiy9C($yInoMmEp9f,"\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74",{CALLS_COUNT=>scalar(@$MHlROLdQ9Y),CALLS_LIST=>$MHlROLdQ9Y,CDR_CALLER_ID=>$GQoMfts9n2,CDR_CALLED_ID=>$rpKT2zrogm,CDR_AC=>$IGpN1O4KIw,CDR_CALL_TYPE=>$Z7eQCH3tRx,CDR_REFRESH_TIME=>$h0qr9nBxDh,CDR_C2C=>$IeOvtisjRq,CDR_DURATION=>$ydKAIopkU1,CDR_GROUP=>$aL25VDBc0v,GROUPS=>$Zzi8O24BP5,$yInoMmEp9f->YBhgq75yGD(1,$MHlROLdQ9Y,$GLpcmRsF3M)});}sub T1Ur2cwqkp{my $yInoMmEp9f=shift;my($GLpcmRsF3M,$wkQxfcJ1yn,$Dnhrg4yjXa,$IGpN1O4KIw,$jNm1IVxJwK,$nuFJ5L9rd1)=$yInoMmEp9f->ygswNUMao5([[(from=>0)],"\x61\x75\x74\x68\x6e\x61\x6d\x65","\x68\x6f\x73\x74","\x61\x63","\x6e\x65\x65\x64\x5f\x72\x65\x67","\x70\x62\x78\x6d\x6f\x64\x65"]);my $xQ7mrHhuBJ;if($IGpN1O4KIw=~ /,/){$xQ7mrHhuBJ=[split(/\s*,\s*/,$IGpN1O4KIw)];}else{$xQ7mrHhuBJ=$IGpN1O4KIw;}my($HXpCDP0qoT,$xGTn3uNvzI)=$yInoMmEp9f->M3VHMG8InC($GLpcmRsF3M,1,undef,$wkQxfcJ1yn,$Dnhrg4yjXa,undef,$xQ7mrHhuBJ,undef,$jNm1IVxJwK,$nuFJ5L9rd1);unless(ref $HXpCDP0qoT eq "\x41\x52\x52\x41\x59"){$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $CAIVhGHlJo=1;foreach my $dwjqCU1zyv(@{$HXpCDP0qoT}){if($dwjqCU1zyv->{"\x4e\x45\x45\x44\x5f\x52\x45\x47"}and length($dwjqCU1zyv->{"\x75\x73\x65\x72\x6e\x61\x6d\x65"})){if($dwjqCU1zyv->{"\x68\x6f\x73\x74"}eq "\x64\x79\x6e\x61\x6d\x69\x63"){my $yc76pimSoa=time;if($yc76pimSoa<$dwjqCU1zyv->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}){$dwjqCU1zyv->{"\x52\x45\x47\x5f\x44\x41\x54\x41"}={state=>"\x52\x65\x67\x69\x73\x74\x65\x72\x65\x64"};}else{$dwjqCU1zyv->{"\x52\x45\x47\x5f\x44\x41\x54\x41"}={state=>"\x55\x6e\x72\x65\x67\x69\x73\x74\x65\x72\x65\x64"};}}elsif($dwjqCU1zyv->{"\x70\x6f\x72\x74"}eq "\x35\x30\x36\x30"){$dwjqCU1zyv->{"\x52\x45\x47\x5f\x44\x41\x54\x41"}=$yInoMmEp9f->jZ8JcyD0v3("\x73\x68\x2d\x73\x69\x70\x2d\x72\x65\x67\x73\x2d".$dwjqCU1zyv->{"\x6e\x61\x6d\x65"});}else{$dwjqCU1zyv->{"\x52\x45\x47\x5f\x44\x41\x54\x41"}=$yInoMmEp9f->jZ8JcyD0v3("\x73\x68\x2d\x73\x69\x70\x2d\x72\x65\x67\x73\x2d".$dwjqCU1zyv->{"\x68\x6f\x73\x74"}."\x3a".$dwjqCU1zyv->{"\x70\x6f\x72\x74"}."\x3a".$dwjqCU1zyv->{"\x75\x73\x65\x72\x6e\x61\x6d\x65"});}}$dwjqCU1zyv->{"\x49\x44\x58"}=$GLpcmRsF3M+$CAIVhGHlJo;$CAIVhGHlJo++;}QnGabKiy9C($yInoMmEp9f,"\x70\x65\x65\x72\x5f\x6c\x69\x73\x74\x2e\x74\x74",{SIPDEV=>$HXpCDP0qoT,SIPDEV_CNT=>$xGTn3uNvzI,AUTHNAME=>$wkQxfcJ1yn,HOST=>$Dnhrg4yjXa,NEED_REG=>$jNm1IVxJwK,PBXMODE=>$nuFJ5L9rd1,AC=>$IGpN1O4KIw,FROM=>$GLpcmRsF3M,$yInoMmEp9f->YBhgq75yGD(1,$HXpCDP0qoT,$GLpcmRsF3M)});}sub iscjT7ZKdU{my($yInoMmEp9f)=@_;my($TdUNLKBHnz,$d14LDTCW6E,$e6QCR59Tv8,$GQoMfts9n2,$Z7eQCH3tRx,$rpKT2zrogm,$ydKAIopkU1,$D1clRC3hED,$MyKSndHZQV)=$yInoMmEp9f->ygswNUMao5([qw(from_time to_time smart_time caller_id call_type called_id duration data raw_chart_data)]);unless(length("$TdUNLKBHnz$d14LDTCW6E$GQoMfts9n2$Z7eQCH3tRx$rpKT2zrogm$ydKAIopkU1$D1clRC3hED")){my $yFYDg5AS1w=$yInoMmEp9f->JisSHQVMcn("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x41\x49");$TdUNLKBHnz=$yInoMmEp9f->aD5a7Zuy2E(time-86400*$yFYDg5AS1w,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$d14LDTCW6E=$yInoMmEp9f->aD5a7Zuy2E(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my $T9Unp8mQvo=$yInoMmEp9f->NQq6RjZcd9($GQoMfts9n2,$yInoMmEp9f->P9gARsKNnI(($TdUNLKBHnz||"\x30\x30\x3a\x30\x30")),$yInoMmEp9f->P9gARsKNnI($d14LDTCW6E),($yInoMmEp9f->ygswNUMao5("\x63\x68\x61\x72\x74\x5f\x67\x72\x6f\x75\x70\x5f\x70\x65\x72\x69\x6f\x64")||"\x64"),$Z7eQCH3tRx,$rpKT2zrogm,$ydKAIopkU1,$D1clRC3hED,$MyKSndHZQV,undef,"\x69\x73\x5f\x61\x69");if($MyKSndHZQV){unless($T9Unp8mQvo){$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}else{if($T9Unp8mQvo=~ /xlsx$/){return $yInoMmEp9f->oG85HDb3U0($T9Unp8mQvo,"\x61\x70\x70\x6c\x69\x63\x61\x74\x69\x6f\x6e\x2f\x78\x6c\x73\x78");}else{return $yInoMmEp9f->oG85HDb3U0($T9Unp8mQvo,"\x74\x65\x78\x74\x2f\x63\x73\x76");}}}my $sunNmB0Av9;unless(ref $T9Unp8mQvo eq "\x41\x52\x52\x41\x59"){$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}else{$sunNmB0Av9=$yInoMmEp9f->aD5a7Zuy2E($T9Unp8mQvo->[2])."\x20\x2d\x20".$yInoMmEp9f->aD5a7Zuy2E($T9Unp8mQvo->[3]||time);}return QnGabKiy9C($yInoMmEp9f,"\x63\x64\x72\x73\x5f\x63\x68\x61\x72\x74\x2e\x74\x74",{CDR_LIST=>$T9Unp8mQvo->[0],CDR_HEADER=>$sunNmB0Av9,CDR_PERIOD=>$T9Unp8mQvo->[1],CDR_CALLER_ID=>$GQoMfts9n2,CDR_CALLED_ID=>$rpKT2zrogm,CDR_CALL_TYPE=>$Z7eQCH3tRx,CDR_DURATION=>$ydKAIopkU1,CDR_DATA=>$D1clRC3hED,CDR_WITH_ASR=>$yInoMmEp9f->JisSHQVMcn("\x43\x47\x49\x5f\x53\x54\x41\x54\x5f\x57\x49\x54\x48\x5f\x41\x53\x52"),EXCEL_MODE=>$yInoMmEp9f->JisSHQVMcn("\x43\x47\x49\x5f\x45\x58\x43\x45\x4c\x5f\x4d\x4f\x44\x45"),SMART_TIME=>$e6QCR59Tv8,FROM_TIME=>$TdUNLKBHnz,TO_TIME=>$d14LDTCW6E});}sub tYZofRd8xb{my($yInoMmEp9f,$yX9PWE1mi8,$z1dJrQHyqu)=@_;my($GLpcmRsF3M,$TdUNLKBHnz,$d14LDTCW6E,$e6QCR59Tv8,$GQoMfts9n2,$rpKT2zrogm,$ydKAIopkU1,$Ds9oDHY47g,$IGpN1O4KIw)=$yInoMmEp9f->ygswNUMao5([[(from=>0)],qw(from_time to_time smart_time caller_id called_id duration any_did ac)]);$yInoMmEp9f->{"\x5f\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}->{MSG_IN_PAGE}=$yInoMmEp9f->JisSHQVMcn("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x4d\x53\x47\x5f\x49\x4e\x5f\x50\x41\x47\x45");unless(length("$TdUNLKBHnz$d14LDTCW6E$GQoMfts9n2$rpKT2zrogm$ydKAIopkU1$Ds9oDHY47g$IGpN1O4KIw")){my $yFYDg5AS1w=$yInoMmEp9f->JisSHQVMcn("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x41\x49");$TdUNLKBHnz=$yInoMmEp9f->aD5a7Zuy2E(time-86400*$yFYDg5AS1w,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$d14LDTCW6E=$yInoMmEp9f->aD5a7Zuy2E(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my $xQ7mrHhuBJ;if($IGpN1O4KIw=~ /,/){$xQ7mrHhuBJ=[split(/\s*,\s*/,$IGpN1O4KIw)];}else{$xQ7mrHhuBJ=$IGpN1O4KIw;}my $Y8GXd0OlH6=$yInoMmEp9f->ZTiflEbAkX(0,$GLpcmRsF3M,undef,$yX9PWE1mi8,$yInoMmEp9f->P9gARsKNnI($TdUNLKBHnz),$yInoMmEp9f->P9gARsKNnI($d14LDTCW6E),$GQoMfts9n2,$rpKT2zrogm,$z1dJrQHyqu,$ydKAIopkU1,$Ds9oDHY47g,"\x69\x73\x5f\x61\x69",$xQ7mrHhuBJ);unless(ref $Y8GXd0OlH6 eq "\x41\x52\x52\x41\x59"){$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}elsif($Y8GXd0OlH6){my $wS7dg80G3V=$GLpcmRsF3M+1;foreach my $yHxQOr7SPm(@{$Y8GXd0OlH6}){$yHxQOr7SPm->{"\x4d\x53\x47\x5f\x4e\x55\x4d"}=$wS7dg80G3V++;$yHxQOr7SPm->{"\x4d\x53\x47\x5f\x44\x41\x54\x45"}=$yInoMmEp9f->aD5a7Zuy2E($yHxQOr7SPm->{"\x43\x52\x45\x41\x54\x45\x5f\x54\x49\x4d\x45"});}}return QnGabKiy9C($yInoMmEp9f,"\x6d\x65\x73\x73\x61\x67\x65\x73\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c\x2e\x74\x74",{CGI_URL=>$yInoMmEp9f->JisSHQVMcn("\x43\x47\x49\x5f\x55\x52\x4c"),MSG_LIST=>$Y8GXd0OlH6,FROM_TIME=>$TdUNLKBHnz,TO_TIME=>$d14LDTCW6E,SMART_TIME=>$e6QCR59Tv8,CALLER_ID=>$GQoMfts9n2,CALLED_ID=>$rpKT2zrogm,ANY_DID=>$Ds9oDHY47g,DURATION=>$ydKAIopkU1,ACCESS_CODE=>$IGpN1O4KIw,MSG_TYPE=>(ref $yX9PWE1mi8 ? join("\x3a",@$yX9PWE1mi8):'').(defined $z1dJrQHyqu ? ",$z1dJrQHyqu":''),$yInoMmEp9f->YBhgq75yGD(0,$Y8GXd0OlH6,$GLpcmRsF3M)});}sub QnGabKiy9C{my($yInoMmEp9f,$Z7CVdisEDt,$T9Unp8mQvo)=@_;my $YuQK8jELmP=Template::EasyTT->new({});my $ZqZm0rRS12=$yInoMmEp9f->JisSHQVMcn("\x50\x41\x54\x48\x5f\x54\x45\x4d\x50\x4c\x41\x54\x45\x5f\x44\x49\x52")."\x2f\x61\x64\x6d\x69\x6e\x2f";my $TOyZoTYzWp='';$T9Unp8mQvo->{"\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}=$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"};$T9Unp8mQvo->{"\x55\x53\x45\x5f\x42\x49\x4c\x4c\x49\x4e\x47"}=$yInoMmEp9f->JisSHQVMcn("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x55\x53\x45\x5f\x42\x49\x4c\x4c\x49\x4e\x47");$T9Unp8mQvo->{"\x44\x59\x4e\x41\x4d\x49\x43\x5f\x44\x49\x41\x4c\x4f\x55\x54"}=$yInoMmEp9f->JisSHQVMcn("\x53\x49\x50\x5f\x44\x59\x4e\x41\x4d\x49\x43\x5f\x44\x49\x41\x4c\x4f\x55\x54");$T9Unp8mQvo->{"\x55\x4e\x49\x58\x54\x49\x4d\x45"}=time;my @mg92iyE1WP;if(length $ENV{"\x50\x41\x54\x48\x5f\x49\x4e\x46\x4f"}){@mg92iyE1WP=split(/\//,substr($ENV{"\x50\x41\x54\x48\x5f\x49\x4e\x46\x4f"},1));}my $yb40z1qgcd=$yInoMmEp9f->JisSHQVMcn("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x44\x45\x46\x41\x55\x4c\x54\x5f\x4c\x41\x4e\x47\x5f\x41\x49")||"\x64\x65\x66\x61\x75\x6c\x74";my $XVD0JMWdkb=$yInoMmEp9f->JisSHQVMcn("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x44\x45\x46\x41\x55\x4c\x54\x5f\x4c\x4f\x43\x41\x4c\x45")||"\x65\x6e\x5f\x55\x53\x2e\x55\x54\x46\x2d\x38";if(length $mg92iyE1WP[0]){my($zBTRNML09X,$F8S60XypFM)=split(/:/,$mg92iyE1WP[0]);$yb40z1qgcd=$zBTRNML09X if length $zBTRNML09X;$XVD0JMWdkb=$F8S60XypFM if length $F8S60XypFM;}my $aq70zAvgBC=$yInoMmEp9f->ygswNUMao5("\x64\x66");if($aq70zAvgBC){my $HHq7FQwdN5=0;if(length($yInoMmEp9f->JisSHQVMcn("\x43\x47\x49\x5f\x54\x52\x55\x53\x54\x45\x44\x5f\x34\x5f\x41\x49\x5f\x44\x46"))){my $CN9UY8132Z=($ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"}||"\x30\x2e\x30\x2e\x30\x2e\x30");if(index("\x2c".$yInoMmEp9f->JisSHQVMcn("\x43\x47\x49\x5f\x54\x52\x55\x53\x54\x45\x44\x5f\x34\x5f\x41\x49\x5f\x44\x46")."\x2c",",$CN9UY8132Z,")>-1 or $yInoMmEp9f->JisSHQVMcn("\x43\x47\x49\x5f\x54\x52\x55\x53\x54\x45\x44\x5f\x34\x5f\x41\x49\x5f\x44\x46")eq "\x2a"){$HHq7FQwdN5=1;}}$aq70zAvgBC='' unless $HHq7FQwdN5;}unless($aq70zAvgBC){$YuQK8jELmP->operators_add("\x64\x69\x76\x32",sub{return $_[0]% 2});$YuQK8jELmP->filters_add("\x67\x6d\x74\x69\x6d\x65",sub{return scalar(gmtime($_[1]))});$YuQK8jELmP->filters_add("\x62\x69\x6c\x6c\x5f\x66\x6c\x6f\x61\x74",sub{return sprintf("\x25\x2e".($yInoMmEp9f->JisSHQVMcn("\x42\x49\x4c\x4c\x49\x4e\x47\x5f\x52\x4f\x55\x4e\x44\x49\x4e\x47\x5f\x34\x47\x55\x49")||2)."\x66",$_[1])});$YuQK8jELmP->filters_add("\x6c\x6f\x63\x61\x6c\x65\x5f\x6d\x73\x67",sub{my $M27nYR8Q6z=$yInoMmEp9f->oYKeyHOhko($_[1],$XVD0JMWdkb);$M27nYR8Q6z=~ s#&#&amp;#gs;$M27nYR8Q6z=~ s#\x22#&quot;#gs;$M27nYR8Q6z=~ s#<#&lt;#gs;$M27nYR8Q6z=~ s#>#&gt;#gs;$M27nYR8Q6z=~ s#\x27#&apos;#gs;return $M27nYR8Q6z;});if(-e "$ZqZm0rRS12/$yb40z1qgcd/$Z7CVdisEDt"){$YuQK8jELmP->process("$ZqZm0rRS12/$yb40z1qgcd/$Z7CVdisEDt",$T9Unp8mQvo,\$TOyZoTYzWp);}else{$YuQK8jELmP->process("$ZqZm0rRS12/$Z7CVdisEDt",$T9Unp8mQvo,\$TOyZoTYzWp);}}unless($aq70zAvgBC){$yInoMmEp9f->eNIeah5Mdf(200,"\x4f\x6b",undef,$TOyZoTYzWp.$yInoMmEp9f->oYKeyHOhko("\x67\x36\x31\x33","\x43"));}elsif($aq70zAvgBC eq "\x78\x6d\x6c"){require XML::Simple;$TOyZoTYzWp=XML::Simple::XMLout($T9Unp8mQvo);$yInoMmEp9f->IZ9j5TiesI(200,"\x4f\x6b",undef,$TOyZoTYzWp);}elsif($aq70zAvgBC eq "\x6a\x73\x6f\x6e"){require JSON::XS;my $UxMrmt9Bnb=JSON::XS->new();$yInoMmEp9f->eNIeah5Mdf(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",$UxMrmt9Bnb->encode($T9Unp8mQvo));}}sub mrgcy7GaQJ{my $yInoMmEp9f=shift;my($Em3x8CHIcg,$qVRpuUG5ES,$TKtVBCg98A)=$yInoMmEp9f->ygswNUMao5([qw(caller_id called_id vars)]);my($BUrqHGlp2z,%AVy9AhxGgd,$nxEMfFGC5n,$zmxgOQA69t,@nyIxg1pXWq);$qVRpuUG5ES="\x30\x30\x30" unless length $qVRpuUG5ES;$Em3x8CHIcg="\x30\x30\x30" unless length $Em3x8CHIcg;foreach my $MrIFSOUPNR(split(/\s*,\s*/,$TKtVBCg98A)){my($oQ6qdS8ruR,$u0QdRWSCi8)=split(/\s*=\s*/,$MrIFSOUPNR);$zmxgOQA69t->{$oQ6qdS8ruR}=$u0QdRWSCi8;}my $fwUF8fSoTn=$yInoMmEp9f->DoEGrhIqZN($qVRpuUG5ES,$Em3x8CHIcg,$zmxgOQA69t);my $djui9Sr54F='';if($qVRpuUG5ES){$djui9Sr54F=$yInoMmEp9f->r7KMN8wXxz($qVRpuUG5ES);if($djui9Sr54F){$nxEMfFGC5n="$qVRpuUG5ES [ $djui9Sr54F ]";}}if(ref $fwUF8fSoTn eq "\x41\x52\x52\x41\x59"){foreach my $h9AmNRHQij(@{$fwUF8fSoTn}){if(exists $h9AmNRHQij->{"\x44\x41\x54\x41\x5f\x49\x44"}){$AVy9AhxGgd{$h9AmNRHQij->{"\x44\x41\x54\x41\x5f\x49\x44"}}=($h9AmNRHQij->{"\x50\x48\x4f\x4e\x45"}||$qVRpuUG5ES);}}}unless($yInoMmEp9f->y7FE8GPAza()->{"\x44\x46"}){@nyIxg1pXWq=(ROUTE_CALLER_ID=>$Em3x8CHIcg,ROUTE_CALLED_ID=>$qVRpuUG5ES,ROUTE_VARS=>$TKtVBCg98A);}my $NmkcAwenq4=[];if(keys %AVy9AhxGgd){my $fsJ8zk04t9=$yInoMmEp9f->mImoMxZjnp("\x69\x73\x5f\x61\x69");foreach my $h9AmNRHQij(@$fsJ8zk04t9){if(exists $AVy9AhxGgd{$h9AmNRHQij->{"\x44\x41\x54\x41\x5f\x49\x44"}}){if($qVRpuUG5ES ne $AVy9AhxGgd{$h9AmNRHQij->{"\x44\x41\x54\x41\x5f\x49\x44"}}){$h9AmNRHQij->{"\x53\x55\x42\x53\x54\x52\x5f\x52\x45\x53\x55\x4c\x54"}=$AVy9AhxGgd{$h9AmNRHQij->{"\x44\x41\x54\x41\x5f\x49\x44"}};}push @$NmkcAwenq4,$h9AmNRHQij;}}}QnGabKiy9C($yInoMmEp9f,"\x72\x6f\x75\x74\x65\x5f\x6c\x69\x73\x74\x2e\x74\x74",{ROUTES=>$NmkcAwenq4,MATCH_RESULTS=>$nxEMfFGC5n,@nyIxg1pXWq});}sub ytSJP6F7Za{my $yInoMmEp9f=shift;my($KUC3qWH60F,$TH5CmJDQ7W,$ktfQeINLyE)=$yInoMmEp9f->ygswNUMao5([qw(node ip mode)]);if($ktfQeINLyE eq "\x77\x6c\x61\x64\x64"){$yInoMmEp9f->sMeCAFY8P4($KUC3qWH60F,$ktfQeINLyE,$TH5CmJDQ7W);}elsif($ktfQeINLyE eq "\x77\x6c\x64\x65\x6c"){$yInoMmEp9f->sMeCAFY8P4($KUC3qWH60F,$ktfQeINLyE,$TH5CmJDQ7W);}elsif($TH5CmJDQ7W){$yInoMmEp9f->SxWutByNVm($KUC3qWH60F,$TH5CmJDQ7W);}}sub m5xK1V9ScR{my $yInoMmEp9f=shift;my($xxA9dfhR2b,$rpq8NVflR9)=$yInoMmEp9f->ygswNUMao5([qw(type id)]);my($PNXAU08QVt,$SWdCR9SBn6);my $NfzGpy9AlY=1;if($xxA9dfhR2b eq "\x73\x79\x73"){$SWdCR9SBn6=$yInoMmEp9f->JisSHQVMcn("\x50\x41\x54\x48\x5f\x53\x59\x53\x5f\x42\x41\x43\x4b\x55\x50\x5f\x44\x49\x52");$PNXAU08QVt="\x74\x67\x7a";}elsif($xxA9dfhR2b eq "\x64\x62"){$SWdCR9SBn6=$yInoMmEp9f->JisSHQVMcn("\x50\x41\x54\x48\x5f\x44\x42\x5f\x42\x41\x43\x4b\x55\x50\x5f\x44\x49\x52");$PNXAU08QVt="\x67\x7a";}else{$NfzGpy9AlY=0;}$rpq8NVflR9=~ s/\D//gs;$NfzGpy9AlY=0 unless int($rpq8NVflR9);if($NfzGpy9AlY and-e "$SWdCR9SBn6/$rpq8NVflR9.$PNXAU08QVt"){return $yInoMmEp9f->oG85HDb3U0("$SWdCR9SBn6/$rpq8NVflR9.$PNXAU08QVt");}else{$yInoMmEp9f->eNIeah5Mdf(404,"\x4e\x6f\x74\x20\x66\x6f\x75\x6e\x64","\x43\x6f\x6e\x74\x65\x6e\x74\x2d\x74\x79\x70\x65\x3a\x20\x74\x65\x78\x74\x2f\x70\x6c\x61\x69\x6e","\x6e\x6f\x74\x20\x66\x6f\x75\x6e\x64");}}sub otmSZhbzaX{my $yInoMmEp9f=shift;my $lnaB0Wp3zI=$yInoMmEp9f->nzxiDrslNB("\x73\x75\x64\x6f\x20\x2f\x6f\x70\x74\x2f\x56\x69\x72\x74\x75\x61\x6c\x50\x42\x58\x2f\x63\x6f\x6e\x74\x72\x69\x62\x2f\x75\x74\x69\x6c\x73\x2f\x73\x79\x73\x73\x74\x61\x74\x75\x73\x2e\x70\x6c");my $LsNrV8afcA;if($lnaB0Wp3zI=~ s/^\x24VAR1/\$LsNrV8afcA/){eval "$lnaB0Wp3zI";}unless(ref $LsNrV8afcA eq "\x48\x41\x53\x48"){$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $KUC3qWH60F=$yInoMmEp9f->ygswNUMao5("\x6e\x6f\x64\x65");my $g4Ftj8c9qS=$yInoMmEp9f->SxWutByNVm($KUC3qWH60F);unless(ref $g4Ftj8c9qS eq "\x41\x52\x52\x41\x59"){$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $Kpmnzbcfvk=$yInoMmEp9f->sMeCAFY8P4();unless(ref $Kpmnzbcfvk eq "\x41\x52\x52\x41\x59"){$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}$yInoMmEp9f->{"\x5f\x43\x4f\x4e\x46\x5f\x4f\x52\x49\x47"}={};$yInoMmEp9f->YEnmDKuRXT("\x2f\x6f\x70\x74\x2f\x56\x69\x72\x74\x75\x61\x6c\x50\x42\x58\x2f\x63\x6f\x6e\x74\x72\x69\x62\x2f\x2e\x78\x76\x62\x2d\x64\x65\x66\x61\x75\x6c\x74\x73","\x5f\x43\x4f\x4e\x46\x5f\x4f\x52\x49\x47");my $T59RmoPpq4=[];my $NfR9SFitYE={};foreach my $oQ6qdS8ruR(keys %{$yInoMmEp9f->{"\x5f\x43\x4f\x4e\x46\x5f\x4f\x52\x49\x47"}}){$NfR9SFitYE->{$oQ6qdS8ruR}=1;}foreach my $oQ6qdS8ruR(sort keys %{$NfR9SFitYE}){if($yInoMmEp9f->{"\x5f\x43\x4f\x4e\x46\x5f\x4f\x52\x49\x47"}->{$oQ6qdS8ruR}ne $yInoMmEp9f->{"\x5f\x43\x4f\x4e\x46"}->{$oQ6qdS8ruR}){next if $oQ6qdS8ruR=~ /(asterisk_ami_secret|radius_acct_secret|db_password|db_master_password|email_password|cgi_admin_key|asr_yandex_key|asr_google_key|tts_voicefabric_key|tts_mstranslator_bingid)/;my $nn8Ife10hF=$yInoMmEp9f->{"\x5f\x43\x4f\x4e\x46\x5f\x4f\x52\x49\x47"}->{$oQ6qdS8ruR};my $bJfXEZ5byC=$yInoMmEp9f->{"\x5f\x43\x4f\x4e\x46"}->{$oQ6qdS8ruR};$nn8Ife10hF=~ s#([,;])#$1 #g;$bJfXEZ5byC=~ s#([,;])#$1 #g;push @$T59RmoPpq4,[uc($oQ6qdS8ruR),$nn8Ife10hF,$bJfXEZ5byC];}}QnGabKiy9C($yInoMmEp9f,"\x73\x79\x73\x73\x74\x61\x74\x75\x73\x2e\x74\x74",{F2B_WL=>$Kpmnzbcfvk,F2B_CNT_WL=>scalar(@$Kpmnzbcfvk),F2B=>$g4Ftj8c9qS,F2B_CNT=>scalar(@$g4Ftj8c9qS),RAW=>$LsNrV8afcA->{"\x52\x41\x57"},CPU=>$LsNrV8afcA->{"\x43\x50\x55"},MEM=>$LsNrV8afcA->{"\x4d\x45\x4d"},SWAP=>$LsNrV8afcA->{"\x53\x57\x41\x50"},DISK=>$LsNrV8afcA->{"\x44\x49\x53\x4b"},SYS=>$LsNrV8afcA->{"\x53\x59\x53\x54\x45\x4d"},AST=>$LsNrV8afcA->{"\x41\x53\x54\x45\x52\x49\x53\x4b"},NODE=>$yInoMmEp9f->JisSHQVMcn("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x53\x45\x52\x56\x45\x52\x5f\x49\x44"),CDIFF=>$T59RmoPpq4})}sub Y3jtvFWCax{my $yInoMmEp9f=shift;my($BD9BFa8fXx,$SYx2du7OHh,$SiOajPymBo,$e0bGuIFvHx)=$yInoMmEp9f->ygswNUMao5([qw(call_id start_time stop_time xvb_call_id)]);my $zLOM6nKVSQ='';my $NTy48WQciX='';my $Zj0ARMWCcD=$yInoMmEp9f->JisSHQVMcn("\x50\x41\x54\x48\x5f\x54\x4d\x50\x5f\x44\x49\x52")."\x2f\x70\x63\x61\x70\x73";$BD9BFa8fXx=~ s/[`\x22\x27\r\n]//gs;if(length($BD9BFa8fXx)and-d $Zj0ARMWCcD and opendir(PCAPDIR,$Zj0ARMWCcD)){my @OtN091h3VI=sort{(stat("$Zj0ARMWCcD/$a"))[9]<=>(stat("$Zj0ARMWCcD/$b"))[9]}grep(/pcap\d+$/,readdir(PCAPDIR));my $If0xGh1XS3=0;my $TxmHh0B8jF=$yInoMmEp9f->JisSHQVMcn("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x4e\x47\x52\x45\x50\x5f\x4f\x50\x54")||"\x2d\x64\x20\x61\x6e\x79\x20\x2d\x70\x20\x2d\x57\x20\x62\x79\x6c\x69\x6e\x65\x20\x2d\x74\x20\x2d\x71";$BD9BFa8fXx=": $BD9BFa8fXx";my %TH8EThVQdI;my $r309D1g8ST=1;my @pcoLl6OEWY;foreach my $tbnm9tDyTv(@OtN091h3VI){my $ZOdMnRIJhz=(stat("$Zj0ARMWCcD/$tbnm9tDyTv"))[9];if(($If0xGh1XS3<=$SYx2du7OHh and $ZOdMnRIJhz>=$SYx2du7OHh)or($If0xGh1XS3<=$SiOajPymBo and $ZOdMnRIJhz>=$SiOajPymBo)or($If0xGh1XS3>=$SYx2du7OHh and $ZOdMnRIJhz<$SiOajPymBo)){my($z9SaZPJVk4,$gkpwhMQYgF,@YLfienj0Fh);for(my $YpUflqQz5R=0;$YpUflqQz5R<=2;$YpUflqQz5R++){$gkpwhMQYgF="/usr/sbin/ngrep \x27$BD9BFa8fXx\x27 $TxmHh0B8jF -I $Zj0ARMWCcD/$tbnm9tDyTv 2>&1";my @R0r49UqEd5=`$gkpwhMQYgF`;my $wr8kfMiRoY=0;$z9SaZPJVk4='';@YLfienj0Fh=();foreach my $RpFH3oEt86(@R0r49UqEd5){chomp($RpFH3oEt86);$RpFH3oEt86=~ s/\.$//;if($RpFH3oEt86=~ /^U\s+\d+\/\d+\/\d+\s\d+:\d+:\d+\.\d+\s+([^\s]+)\s+->\s+([^\s]+)/){if($z9SaZPJVk4){push @YLfienj0Fh,$z9SaZPJVk4;}$z9SaZPJVk4="\n";$RpFH3oEt86.="\n";}elsif($RpFH3oEt86=~ /^(Call-ID|I|XVB-Call-ID)(:\s*[^\x22\x27\r\n]+)/gi){if(index($BD9BFa8fXx,$2)==-1){$BD9BFa8fXx.="|$2";$wr8kfMiRoY=1;}if(lc($1)eq "\x69" or lc($1)eq "\x63\x61\x6c\x6c\x2d\x69\x64"){unless(exists $TH8EThVQdI{$2}){$TH8EThVQdI{$2}=$r309D1g8ST++;if($r309D1g8ST>11){$r309D1g8ST=2;}}}}if($z9SaZPJVk4){$z9SaZPJVk4.="$RpFH3oEt86\n";}}unless($wr8kfMiRoY){push @YLfienj0Fh,$z9SaZPJVk4;last;}}$NTy48WQciX.="#<br>\n# ".$yInoMmEp9f->RR0lx8U14D($gkpwhMQYgF)." <br>\n#<br>\n";push(@pcoLl6OEWY,@YLfienj0Fh);}$If0xGh1XS3=$ZOdMnRIJhz;}my @narwt7slI6=`/sbin/ifconfig|grep "inet "`;my $CEr5baD91U="\x2c";foreach my $T2OaW8NXrg(@narwt7slI6){chomp;$T2OaW8NXrg=~ s#.*inet\s+(addr:)?(\S+).*#$2#s;if(length($T2OaW8NXrg)){$CEr5baD91U.="$T2OaW8NXrg,";}}foreach my $ZtRZVdPeBO(@pcoLl6OEWY){my $r309D1g8ST=0;my($XmEnqdixuO,$Yusvpl2bEx);foreach my $RpFH3oEt86(split(/\n/,$ZtRZVdPeBO)){if($RpFH3oEt86=~ /^U\s+\d+\/\d+\/\d+\s\d+:\d+:\d+\.\d+\s+([^\s]+):\d+\s+->\s+([^\s]+):\d+/){($XmEnqdixuO,$Yusvpl2bEx)=($1,$2);}else{if($RpFH3oEt86=~ /^(Call-ID|I)(:\s*[^\x22\x27\r\n]+)/gi){$r309D1g8ST=$TH8EThVQdI{$2};}}}my $ImPsKOFB8E="\x20";if($r309D1g8ST==1 and index($CEr5baD91U,",$XmEnqdixuO,")>-1){$ImPsKOFB8E="\t\t"}elsif($r309D1g8ST>1 and index($CEr5baD91U,",$XmEnqdixuO,")>-1){$ImPsKOFB8E="\t\t";}elsif($r309D1g8ST>1 and index($CEr5baD91U,",$Yusvpl2bEx,")>-1){$ImPsKOFB8E="\t\t\t\t";}$zLOM6nKVSQ.="<p class=\x27pcap$r309D1g8ST\x27>";foreach my $RpFH3oEt86(split(/\n/,$ZtRZVdPeBO)){$zLOM6nKVSQ.=$ImPsKOFB8E.$yInoMmEp9f->RR0lx8U14D($RpFH3oEt86)."\n";}$zLOM6nKVSQ.="</p>";}}QnGabKiy9C($yInoMmEp9f,"\x73\x69\x70\x5f\x70\x63\x61\x70\x2e\x74\x74",{CMD=>$NTy48WQciX,DATA=>$zLOM6nKVSQ,XVB_CALL_ID=>$e0bGuIFvHx});}