#!/usr/bin/perl
########################################################################
#
# $Id: VirtualPBX-AI.cgi,v 1.217 2025/08/15 15:01:14 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;DwEe7lgfHd();sub new{my($Na4KXDY05O,$m4vDJP6hMk)=@_;my $YxJPfXkGup=bless{_CGI=>CGI->new(),_CONF=>{},_CDR=>{CALLED_ID=>"\x77\x65\x62",},_USER_CREDS=>{},_USER_VBOXES=>{},_SESSION=>{},},$Na4KXDY05O;$YxJPfXkGup->uan385Lv9B($m4vDJP6hMk);$YxJPfXkGup->kh6jHCDIMv();$YxJPfXkGup->{"\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 $jEkg1sMn3W;$YxJPfXkGup->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}={};foreach my $f98NanfbT4(split(/\s*;\s*/,$YxJPfXkGup->LkXDqNIi1U("\x43\x47\x49\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"))){my($tOf8xknI9j,@T2YsO9u1yH)=split(/\s*:\s*/,$f98NanfbT4);foreach my $ICtuK5FPL2(@T2YsO9u1yH){$YxJPfXkGup->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$ICtuK5FPL2}=$tOf8xknI9j;}}my $ICtuK5FPL2=$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"};unless(exists $YxJPfXkGup->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$ICtuK5FPL2}){$ICtuK5FPL2=~ s#\.\d+$##;}unless(exists $YxJPfXkGup->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$ICtuK5FPL2}){if($YxJPfXkGup->LkXDqNIi1U("\x43\x47\x49\x5f\x41\x4c\x49\x41\x53\x45\x53\x5f\x57\x4f\x5f\x49\x50")){$jEkg1sMn3W="\x61\x64\x6d\x69\x6e";}else{$jEkg1sMn3W="\x61\x64\x6d\x69\x6e\x20\x28\x20".$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"}."\x20\x29";}}else{if($YxJPfXkGup->LkXDqNIi1U("\x43\x47\x49\x5f\x41\x4c\x49\x41\x53\x45\x53\x5f\x57\x4f\x5f\x49\x50")){$jEkg1sMn3W=$YxJPfXkGup->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$ICtuK5FPL2};}else{$jEkg1sMn3W=$YxJPfXkGup->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$ICtuK5FPL2}."\x20\x28\x20".$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"}."\x20\x29";}}$YxJPfXkGup->{"\x5f\x43\x44\x52"}->{"\x43\x41\x4c\x4c\x45\x52\x5f\x49\x44"}=$jEkg1sMn3W;;$YxJPfXkGup->{"\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($YxJPfXkGup->LkXDqNIi1U("\x50\x41\x54\x48\x5f\x57\x4f\x52\x4b\x5f\x44\x49\x52"));$YxJPfXkGup->{"\x5f\x43\x4f\x4e\x46"}->{"\x74\x61\x62\x6c\x65\x73\x5f\x63\x64\x72\x73"}=$YxJPfXkGup->{"\x5f\x43\x4f\x4e\x46"}->{"\x74\x61\x62\x6c\x65\x73\x5f\x63\x64\x72\x73\x5f\x61\x6c\x6c"};$YxJPfXkGup->{"\x5f\x43\x4f\x4e\x46"}->{"\x74\x61\x62\x6c\x65\x73\x5f\x63\x64\x72\x73\x5f\x61"}=$YxJPfXkGup->{"\x5f\x43\x4f\x4e\x46"}->{"\x74\x61\x62\x6c\x65\x73\x5f\x63\x64\x72\x73\x5f\x61\x5f\x61\x6c\x6c"};$YxJPfXkGup->tCcgFj0RMW();return $YxJPfXkGup;}sub DwEe7lgfHd{my $YxJPfXkGup=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($ZDPvIsBfeO,$nLUS4X013P,$TfQJnK1Vzg,$rmfKFS2LUJ,$r91LkC2DGp);$YxJPfXkGup->LwBxcahkvj(1);my($Jr74KMNfHh,$hDQHtr2pNC)=$YxJPfXkGup->a4eP9YOWX5([qw(action from)]);if($Jr74KMNfHh eq "\x62\x61\x6c\x61\x6e\x63\x65\x5f\x75\x70\x64\x61\x74\x65"){my($JZDSITjVYH,$Qa7E62UPJ3,$nBR3OLU9Em)=$YxJPfXkGup->a4eP9YOWX5([qw(balance user_id cur_id)]);my $nM4PN9r5uo=$YxJPfXkGup->Tu382e9j0Q($Qa7E62UPJ3);unless(ref $nM4PN9r5uo eq "\x48\x41\x53\x48"){$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);return;}else{my $HZOnp5hENz=$YxJPfXkGup->Pa4lJy7CWz();%{$HZOnp5hENz}=%{$nM4PN9r5uo};}if($YxJPfXkGup->YHkmt8j5nb($JZDSITjVYH,$nBR3OLU9Em)){$YxJPfXkGup->P09dGmBWfj("\x75\x73\x65\x72\x2d".$YxJPfXkGup->Pa4lJy7CWz()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"},undef);$YxJPfXkGup->GRXMuq4YHg();}else{$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x63\x64\x72\x5f\x6c\x69\x73\x74"){if($YxJPfXkGup->a4eP9YOWX5("\x6e\x65\x65\x64\x5f\x63\x68\x61\x72\x74")){hUf2QA8nOB($YxJPfXkGup);}else{j7cDBfe9mv($YxJPfXkGup);}}elsif($Jr74KMNfHh eq "\x61\x63\x74\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c"){j7cDBfe9mv($YxJPfXkGup,"\x61\x63\x74\x61\x6c\x6c");}elsif($Jr74KMNfHh eq "\x6a\x5f\x6c\x69\x73\x74"){yuIfZQXBJY($YxJPfXkGup);}elsif($Jr74KMNfHh eq "\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x6c\x69\x73\x74"){VIpM1qg0Th($YxJPfXkGup);}elsif($Jr74KMNfHh eq "\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x64\x65\x6c"){if($YxJPfXkGup->JXtLMpcoVm($YxJPfXkGup->a4eP9YOWX5("\x64\x69\x64"))){$YxJPfXkGup->GRXMuq4YHg("\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".$YxJPfXkGup->a4eP9YOWX5("\x64\x66"));$YxJPfXkGup->UIefDZLOgE("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x64\x72\x6f\x70",$YxJPfXkGup->a4eP9YOWX5("\x64\x69\x64"));}else{$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x61\x64\x64"){my @GuGqr23Zlc=$YxJPfXkGup->a4eP9YOWX5();my %UKA2TeLIk0;foreach my $eX97Pj0uw8(@GuGqr23Zlc){if($eX97Pj0uw8=~ /^T_(.*)/){my $vmbVHdn78G=$1;$vmbVHdn78G=~ s#[^\d\w._-]##g;$UKA2TeLIk0{$vmbVHdn78G}=$YxJPfXkGup->a4eP9YOWX5($eX97Pj0uw8);}}if($YxJPfXkGup->ZkmnXQoSg7(\%UKA2TeLIk0)){$YxJPfXkGup->UIefDZLOgE("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x61\x64\x64",$UKA2TeLIk0{"\x44\x49\x44"});$YxJPfXkGup->GRXMuq4YHg();}else{$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x75\x70\x64\x61\x74\x65"){my $bJ9IregFmZ=$YxJPfXkGup->a4eP9YOWX5("\x64\x61\x74\x61\x5f\x69\x64");my @GuGqr23Zlc=$YxJPfXkGup->a4eP9YOWX5();my %UKA2TeLIk0;foreach my $eX97Pj0uw8(@GuGqr23Zlc){if($eX97Pj0uw8=~ /^T_(.*)/){my $vmbVHdn78G=$1;$vmbVHdn78G=~ s#[^\d\w._-]##g;next if $vmbVHdn78G eq "\x49\x44";$UKA2TeLIk0{$vmbVHdn78G}=$YxJPfXkGup->a4eP9YOWX5($eX97Pj0uw8);}}if($YxJPfXkGup->mOReVgSch2($bJ9IregFmZ,\%UKA2TeLIk0)){$YxJPfXkGup->GRXMuq4YHg();}else{$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x74\x61\x72\x69\x66\x66\x5f\x6c\x69\x73\x74"){R5CN89oZUv($YxJPfXkGup);}elsif($Jr74KMNfHh eq "\x74\x61\x72\x69\x66\x66\x5f\x69\x6e\x66\x6f"){Diq8xUOs3P($YxJPfXkGup,$YxJPfXkGup->a4eP9YOWX5("\x74\x61\x72\x69\x66\x66\x5f\x69\x64"));}elsif($Jr74KMNfHh eq "\x74\x61\x72\x69\x66\x66\x5f\x64\x65\x6c"){if($YxJPfXkGup->soV5NIh7J9($YxJPfXkGup->a4eP9YOWX5("\x74\x61\x72\x69\x66\x66\x5f\x69\x64"))){$YxJPfXkGup->GRXMuq4YHg("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x74\x61\x72\x69\x66\x66\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$YxJPfXkGup->a4eP9YOWX5("\x64\x66"));}else{$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x74\x61\x72\x69\x66\x66\x5f\x61\x64\x64"){my @GuGqr23Zlc=$YxJPfXkGup->a4eP9YOWX5();my %UKA2TeLIk0;foreach my $eX97Pj0uw8(@GuGqr23Zlc){if($eX97Pj0uw8=~ /^T_(.*)/){my $vmbVHdn78G=$1;$vmbVHdn78G=~ s#[^\d\w._-]##g;$UKA2TeLIk0{$vmbVHdn78G}=$YxJPfXkGup->a4eP9YOWX5($eX97Pj0uw8);}}if($YxJPfXkGup->M3OQTuSqMJ(\%UKA2TeLIk0)){$YxJPfXkGup->GRXMuq4YHg();}else{$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x74\x61\x72\x69\x66\x66\x5f\x75\x70\x64\x61\x74\x65"){my $WRM0Zp6jOo=$YxJPfXkGup->a4eP9YOWX5("\x74\x61\x72\x69\x66\x66\x5f\x69\x64");my @GuGqr23Zlc=$YxJPfXkGup->a4eP9YOWX5();my %UKA2TeLIk0;foreach my $eX97Pj0uw8(@GuGqr23Zlc){if($eX97Pj0uw8=~ /^T_(.*)/){my $vmbVHdn78G=$1;$vmbVHdn78G=~ s#[^\d\w._-]##g;next if $vmbVHdn78G eq "\x49\x44";$UKA2TeLIk0{$vmbVHdn78G}=$YxJPfXkGup->a4eP9YOWX5($eX97Pj0uw8);}}if($YxJPfXkGup->Q7W3F9NGXZ($WRM0Zp6jOo,\%UKA2TeLIk0)){$YxJPfXkGup->GRXMuq4YHg();}else{$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x72\x65\x70\x6f\x72\x74\x5f\x6c\x69\x73\x74"){EpnA9isI0m($YxJPfXkGup);}elsif($Jr74KMNfHh eq "\x72\x65\x70\x6f\x72\x74\x5f\x64\x65\x6c"){my $p9qmNTprE1=$YxJPfXkGup->a4eP9YOWX5("\x72\x65\x70\x6f\x72\x74\x5f\x69\x64");unless($p9qmNTprE1){$YxJPfXkGup->GRXMuq4YHg(undef,"\x4e\x6f\x20\x73\x65\x61\x72\x63\x68\x20\x72\x65\x70\x6f\x72\x74");}elsif(! $YxJPfXkGup->Zi2QREN9cM($p9qmNTprE1)){$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}else{if($ENV{"\x48\x54\x54\x50\x5f\x52\x45\x46\x45\x52\x45\x52"}=~ /report_list/){$YxJPfXkGup->GRXMuq4YHg();}else{$YxJPfXkGup->GRXMuq4YHg("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x72\x65\x70\x6f\x72\x74\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$YxJPfXkGup->a4eP9YOWX5("\x64\x66"));}}}elsif($Jr74KMNfHh eq "\x72\x65\x70\x6f\x72\x74\x5f\x61\x64\x64"){if(my $u6wgVYz3Bs=$YxJPfXkGup->nIjBZyq01V($YxJPfXkGup->a4eP9YOWX5("\x52\x5f\x4e\x41\x4d\x45"),1)){$YxJPfXkGup->GRXMuq4YHg("?action=report_info&report_id=$u6wgVYz3Bs&df=".$YxJPfXkGup->a4eP9YOWX5("\x64\x66"));}else{$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x72\x65\x70\x6f\x72\x74\x5f\x69\x6e\x66\x6f"){my $p9qmNTprE1=$YxJPfXkGup->a4eP9YOWX5("\x72\x65\x70\x6f\x72\x74\x5f\x69\x64")||1;my $mhwxdpYoTa=$YxJPfXkGup->Odv3GpFWhg($p9qmNTprE1)||[];my(%Akfzb3dX84,@Cmy6lkunLo);if(ref $mhwxdpYoTa eq "\x41\x52\x52\x41\x59" and $mhwxdpYoTa->[0]->{"\x45\x58\x54\x52\x41\x5f\x50\x41\x52\x41\x4d\x53"}){foreach my $V7BelqR2a9(split(/\s*\|\s*/,$mhwxdpYoTa->[0]->{"\x45\x58\x54\x52\x41\x5f\x50\x41\x52\x41\x4d\x53"})){my($a2pEzfIi9n,$tliPSGvhQj,$you2zBmtyQ)=split(/\s*:\s*/,$V7BelqR2a9,3);$Akfzb3dX84{$a2pEzfIi9n}=$YxJPfXkGup->a4eP9YOWX5($a2pEzfIi9n);push @Cmy6lkunLo,{name=>$a2pEzfIi9n,label=>$tliPSGvhQj,value=>$Akfzb3dX84{$a2pEzfIi9n}};}}IkgY8wZQ7z($YxJPfXkGup,"\x72\x65\x70\x6f\x72\x74\x5f\x69\x6e\x66\x6f\x2e\x74\x74",{REPORT_DATA=>$mhwxdpYoTa->[0],EXTRA_PARAMS=>\@Cmy6lkunLo});}elsif($Jr74KMNfHh eq "\x72\x65\x70\x6f\x72\x74\x5f\x75\x70\x64\x61\x74\x65"){my($cMa39FhWd8,$bJ2fbchLo7,$nFnMNQJBjz,$XonGre64Jx,$p9qmNTprE1)=$YxJPfXkGup->a4eP9YOWX5([qw(R_FILE R_QUERY R_FILTER_FILE R_POST_FILTER report_id)]);unless($p9qmNTprE1){return $YxJPfXkGup->GRXMuq4YHg(undef,"\x4e\x6f\x20\x73\x65\x61\x72\x63\x68\x20\x72\x65\x70\x6f\x72\x74");}if($cMa39FhWd8){$bJ2fbchLo7='';while(<$cMa39FhWd8>){$bJ2fbchLo7.=$_;}}if($nFnMNQJBjz){$XonGre64Jx='';while(<$nFnMNQJBjz>){$XonGre64Jx.=$_;}}if($YxJPfXkGup->Z78SXscFLw($p9qmNTprE1,$YxJPfXkGup->a4eP9YOWX5([qw(R_NAME R_TYPE R_TTL R_DATE_START R_DATE_STOP R_ACCESS_GROUPS R_ACCESS_ACCOUNTS R_EXTRA_PARAMS)]),$bJ2fbchLo7,$XonGre64Jx)){$YxJPfXkGup->GRXMuq4YHg();}else{$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x72\x65\x70\x6f\x72\x74\x5f\x72\x75\x6e"){sfgVnezi98($YxJPfXkGup);}elsif($Jr74KMNfHh eq "\x6e\x6f\x64\x65\x5f\x6c\x69\x73\x74"){YBFErkGwQ6($YxJPfXkGup);}elsif($Jr74KMNfHh eq "\x6e\x6f\x64\x65\x5f\x64\x65\x6c"){if($YxJPfXkGup->ow9doLplGU($YxJPfXkGup->a4eP9YOWX5("\x6e\x6f\x64\x65\x5f\x69\x64"))){$YxJPfXkGup->GRXMuq4YHg("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x6e\x6f\x64\x65\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$YxJPfXkGup->a4eP9YOWX5("\x64\x66"));}else{$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x6e\x6f\x64\x65\x5f\x61\x64\x64"){if($YxJPfXkGup->L4cOZ8G6th($YxJPfXkGup->a4eP9YOWX5([qw(N_NODE_ID N_NODE_IP N_DOWNLOAD_IP N_AMI_CREDS N_NODE_DESC N_NODE_LIMITS N_NODE_STAT_URL)]))){$YxJPfXkGup->GRXMuq4YHg();}else{$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x6e\x6f\x64\x65\x5f\x75\x70\x64\x61\x74\x65"){my $OZMkKDaL0l=$YxJPfXkGup->a4eP9YOWX5("\x6e\x6f\x64\x65\x5f\x69\x64");my @GuGqr23Zlc=$YxJPfXkGup->a4eP9YOWX5();my %UKA2TeLIk0;foreach my $eX97Pj0uw8(@GuGqr23Zlc){if($eX97Pj0uw8=~ /^N_(.*)/){my $vmbVHdn78G=$1;$vmbVHdn78G=~ s#[^\d\w._-]##g;next if $vmbVHdn78G eq "\x49\x44";$UKA2TeLIk0{$vmbVHdn78G}=$YxJPfXkGup->a4eP9YOWX5($eX97Pj0uw8);}}if($YxJPfXkGup->z9lrvXquxg($OZMkKDaL0l,\%UKA2TeLIk0)){$YxJPfXkGup->UIefDZLOgE("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65");$YxJPfXkGup->GRXMuq4YHg();}else{$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x67\x72\x6f\x75\x70\x5f\x6c\x69\x73\x74"){jANxYLPhor($YxJPfXkGup);}elsif($Jr74KMNfHh eq "\x67\x72\x6f\x75\x70\x5f\x64\x65\x6c"){if($YxJPfXkGup->Vo9TrnDy5j($YxJPfXkGup->a4eP9YOWX5("\x67\x72\x6f\x75\x70\x5f\x69\x64"))){$YxJPfXkGup->GRXMuq4YHg("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x67\x72\x6f\x75\x70\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$YxJPfXkGup->a4eP9YOWX5("\x64\x66"));}else{$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x67\x72\x6f\x75\x70\x5f\x61\x64\x64"){my($nAB9exm5dO,$vUwuvxhaN7)=$YxJPfXkGup->a4eP9YOWX5([qw(group_name node_name)]);if($YxJPfXkGup->QrkflWgHud($nAB9exm5dO,$vUwuvxhaN7)){my $VDk6H8oQyW=$YxJPfXkGup->GnJ2MtYTSs(undef,$nAB9exm5dO);$YxJPfXkGup->GRXMuq4YHg("\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".$VDk6H8oQyW->[0]->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"},"\x64\x66\x3d".$YxJPfXkGup->a4eP9YOWX5("\x64\x66")));}else{$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x67\x72\x6f\x75\x70\x5f\x69\x6e\x66\x6f"){UbSr3ZVyqI($YxJPfXkGup,$YxJPfXkGup->a4eP9YOWX5("\x67\x72\x6f\x75\x70\x5f\x69\x64"));}elsif($Jr74KMNfHh eq "\x67\x72\x6f\x75\x70\x5f\x75\x70\x64\x61\x74\x65"){my $oiAJx9cHC5=$YxJPfXkGup->a4eP9YOWX5("\x67\x72\x6f\x75\x70\x5f\x69\x64");my @GuGqr23Zlc=$YxJPfXkGup->a4eP9YOWX5();my %UKA2TeLIk0;foreach my $eX97Pj0uw8(@GuGqr23Zlc){if($eX97Pj0uw8=~ /^GR_(.*)/){my $vmbVHdn78G=$1;$vmbVHdn78G=~ s#[^\d\w._-]##g;next if $vmbVHdn78G eq "\x49\x44";$UKA2TeLIk0{$vmbVHdn78G}=$YxJPfXkGup->a4eP9YOWX5($eX97Pj0uw8);}}if($YxJPfXkGup->K1Hj4usNmE($oiAJx9cHC5,\%UKA2TeLIk0)){$YxJPfXkGup->UIefDZLOgE("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65");$YxJPfXkGup->GRXMuq4YHg();}else{$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x64\x69\x64\x5f\x61\x64\x64"){my($bJ9IregFmZ,$kYhPQmJIA1,$ZDPvIsBfeO,$gZkhVLQE9p,$sLweSJlcx4)=$YxJPfXkGup->a4eP9YOWX5([qw(did pn ac channels cnam)]);my @oJ014dhecG=split(/\s*,\s*/,$bJ9IregFmZ);my $ZAJLBfrQpq=0;foreach my $GIkJ7SezGC(@oJ014dhecG){if($YxJPfXkGup->Z0PlrM81hL($GIkJ7SezGC,$kYhPQmJIA1,$ZDPvIsBfeO,$gZkhVLQE9p,$sLweSJlcx4)){$YxJPfXkGup->UIefDZLOgE("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x61\x64\x64",$GIkJ7SezGC);}else{$ZAJLBfrQpq++;}}if($ZAJLBfrQpq){$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : [ $ZAJLBfrQpq / ".(scalar(@oJ014dhecG))."\x20\x5d\x20".__LINE__);}else{$YxJPfXkGup->GRXMuq4YHg();}}elsif($Jr74KMNfHh eq "\x64\x69\x64\x5f\x64\x65\x6c"){my($UoYOfJ8dki,$Qa7E62UPJ3,$bJ9IregFmZ)=$YxJPfXkGup->a4eP9YOWX5([qw(did_id user_id did)]);if($YxJPfXkGup->BPnYHlF1xt($UoYOfJ8dki,$Qa7E62UPJ3,$bJ9IregFmZ)){$YxJPfXkGup->UIefDZLOgE("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x64\x72\x6f\x70",$bJ9IregFmZ);$YxJPfXkGup->GRXMuq4YHg();}else{$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x64\x69\x64\x5f\x6c\x69\x73\x74"){Jij45Fl6kG($YxJPfXkGup);}elsif($Jr74KMNfHh eq "\x64\x69\x64\x5f\x61\x64\x64\x5f\x73\x69\x70\x64\x6f\x6d\x61\x69\x6e"){my($md9Fn8O71N,$kYhPQmJIA1,$ZDPvIsBfeO)=$YxJPfXkGup->a4eP9YOWX5([qw(domain pn ac)]);if($YxJPfXkGup->OUEPYg1G9u(lc($md9Fn8O71N),$kYhPQmJIA1,$ZDPvIsBfeO)){$YxJPfXkGup->UIefDZLOgE("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x61\x64\x64","\x40".lc($md9Fn8O71N));$YxJPfXkGup->GRXMuq4YHg();}else{$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x64\x69\x64\x5f\x64\x65\x6c\x5f\x73\x69\x70\x64\x6f\x6d\x61\x69\x6e"){my($Zgxrb7BXR0,$Qa7E62UPJ3,$md9Fn8O71N)=$YxJPfXkGup->a4eP9YOWX5([qw(domain_id user_id domain)]);if($YxJPfXkGup->wJ15Ayzwfe($Zgxrb7BXR0,$Qa7E62UPJ3,lc($md9Fn8O71N))){$YxJPfXkGup->UIefDZLOgE("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x64\x72\x6f\x70","\x40".lc($md9Fn8O71N));$YxJPfXkGup->GRXMuq4YHg();}else{$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x64\x69\x64\x5f\x6c\x69\x73\x74\x5f\x73\x69\x70\x64\x6f\x6d\x61\x69\x6e"){o7Mdg8A9cL($YxJPfXkGup);}elsif($Jr74KMNfHh eq "\x72\x6f\x75\x74\x65\x5f\x6c\x69\x73\x74"){if($YxJPfXkGup->a4eP9YOWX5("\x6e\x65\x65\x64\x5f\x6c\x6f\x6f\x6b\x75\x70")and $YxJPfXkGup->a4eP9YOWX5("\x63\x61\x6c\x6c\x65\x64\x5f\x69\x64")){return PqJIC3nmYS($YxJPfXkGup);}IkgY8wZQ7z($YxJPfXkGup,"\x72\x6f\x75\x74\x65\x5f\x6c\x69\x73\x74\x2e\x74\x74",{ROUTES=>$YxJPfXkGup->sKgpx8VR3T("\x69\x73\x5f\x61\x69")});}elsif($Jr74KMNfHh eq "\x72\x6f\x75\x74\x65\x5f\x61\x64\x64"){my @tN6sUV41YZ;if(my $Y2N4JXmIn3=$YxJPfXkGup->a4eP9YOWX5("\x63\x6c\x6f\x6e\x65\x5f\x69\x64")){my $cdWPwS89aK=$YxJPfXkGup->sKgpx8VR3T("\x69\x73\x5f\x61\x69");if(ref($cdWPwS89aK)eq "\x41\x52\x52\x41\x59"){foreach my $llL4dKI5MN(@{$cdWPwS89aK}){if($llL4dKI5MN->{"\x44\x41\x54\x41\x5f\x49\x44"}eq $Y2N4JXmIn3){foreach my $wQn47NVLxs(qw(PATTERN PEER PRIORITY SUBSTR EXT_NUMBER DESCRIPTION DEFCID LAST_ROUTE)){push @tN6sUV41YZ,$llL4dKI5MN->{$wQn47NVLxs};}last;}}}}else{@tN6sUV41YZ=$YxJPfXkGup->a4eP9YOWX5([qw(r_PATTERN r_PEER r_PRIORITY r_SUBSTR r_EXT_NUMBER r_DESCRIPTION r_DEFCID r_LAST_ROUTE)]);}if(scalar(@tN6sUV41YZ)and defined($YxJPfXkGup->Ghkup5lSMo(@tN6sUV41YZ))){return $YxJPfXkGup->GRXMuq4YHg();}else{return $YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x72\x6f\x75\x74\x65\x5f\x75\x70\x64\x61\x74\x65"){if($YxJPfXkGup->yiVH02vJrm($YxJPfXkGup->a4eP9YOWX5([qw(data_id r_PATTERN r_PEER r_PRIORITY r_SUBSTR r_EXT_NUMBER r_DESCRIPTION r_DEFCID r_LAST_ROUTE)]))){return $YxJPfXkGup->GRXMuq4YHg();}else{return $YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x72\x6f\x75\x74\x65\x5f\x64\x65\x6c"){my $ptUZxY6TXO;$ptUZxY6TXO="\x61\x6c\x6c" if $YxJPfXkGup->a4eP9YOWX5("\x64\x61\x74\x61\x5f\x69\x64")eq "\x61\x6c\x6c";if($YxJPfXkGup->TLH2Gof1e5($YxJPfXkGup->a4eP9YOWX5("\x64\x61\x74\x61\x5f\x69\x64"),$ptUZxY6TXO)){return $YxJPfXkGup->GRXMuq4YHg();}else{return $YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x75\x73\x65\x72\x5f\x75\x70\x64\x61\x74\x65"){my $Qa7E62UPJ3=$YxJPfXkGup->a4eP9YOWX5("\x75\x73\x65\x72\x5f\x69\x64");my @GuGqr23Zlc=$YxJPfXkGup->a4eP9YOWX5();my %UKA2TeLIk0;my $nM4PN9r5uo=$YxJPfXkGup->Tu382e9j0Q($Qa7E62UPJ3);unless(ref $nM4PN9r5uo eq "\x48\x41\x53\x48"){$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);return;}my $HZOnp5hENz=$YxJPfXkGup->Pa4lJy7CWz();%{$HZOnp5hENz}=%{$nM4PN9r5uo};foreach my $eX97Pj0uw8(@GuGqr23Zlc){if($eX97Pj0uw8=~ /^US_(.*)/){my $vmbVHdn78G=$1;$vmbVHdn78G=~ s#[^\d\w._-]##g;next if $vmbVHdn78G eq "\x49\x44";if($YxJPfXkGup->a4eP9YOWX5($eX97Pj0uw8)ne $nM4PN9r5uo->{$vmbVHdn78G}){$UKA2TeLIk0{$vmbVHdn78G}=$YxJPfXkGup->a4eP9YOWX5($eX97Pj0uw8);}}}if($YxJPfXkGup->kKu1k49GAW($Qa7E62UPJ3,\%UKA2TeLIk0)){$YxJPfXkGup->UIefDZLOgE("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65",undef,$Qa7E62UPJ3);$YxJPfXkGup->GRXMuq4YHg();}else{$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x75\x73\x65\x72\x5f\x75\x70\x64\x61\x74\x65\x5f\x70\x69\x6e"){my $Qa7E62UPJ3=$YxJPfXkGup->a4eP9YOWX5("\x75\x73\x65\x72\x5f\x69\x64");my $CSg3YdN8aJ=$YxJPfXkGup->a4eP9YOWX5("\x70\x69\x6e");if($YxJPfXkGup->vnSADT7dGj($Qa7E62UPJ3,$CSg3YdN8aJ)){$YxJPfXkGup->UIefDZLOgE("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65",undef,$Qa7E62UPJ3);$YxJPfXkGup->GRXMuq4YHg();}else{$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x75\x73\x65\x72\x5f\x61\x64\x64"){my($kYhPQmJIA1,$oiAJx9cHC5,$hElqo985Tp,$VlK0nMkAjW,$ZDPvIsBfeO,$Qa7E62UPJ3)=$YxJPfXkGup->a4eP9YOWX5([qw(phone group_id conf_file uname user_ac user_id)]);my $ImWYqQ7VTR={};foreach my $yGVA0p3iPD(split(/\s*,\s*/,$YxJPfXkGup->LkXDqNIi1U("\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($vmbVHdn78G,$Yu4t7L98g5)=split(/:/,$yGVA0p3iPD);$ImWYqQ7VTR->{$Yu4t7L98g5||$vmbVHdn78G}=$YxJPfXkGup->a4eP9YOWX5($vmbVHdn78G);$ImWYqQ7VTR->{$Yu4t7L98g5||$vmbVHdn78G}='' unless defined $ImWYqQ7VTR->{$Yu4t7L98g5||$vmbVHdn78G};}if(my $ZDPvIsBfeO=$YxJPfXkGup->zyzNoYWcEZ($kYhPQmJIA1,$oiAJx9cHC5,$VlK0nMkAjW,$ZDPvIsBfeO,$Qa7E62UPJ3,$ImWYqQ7VTR)){$YxJPfXkGup->UIefDZLOgE("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x61\x64\x64",$ZDPvIsBfeO);if($hElqo985Tp and-e $hElqo985Tp){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"."$kYhPQmJIA1 $ZDPvIsBfeO $hElqo985Tp &>/dev/null";}$YxJPfXkGup->GRXMuq4YHg("?action=user_info&ac=$ZDPvIsBfeO&df=".$YxJPfXkGup->a4eP9YOWX5("\x64\x66"));}else{$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x75\x73\x65\x72\x5f\x64\x65\x6c"){my($Qa7E62UPJ3,$vobmVpCgtR)=$YxJPfXkGup->a4eP9YOWX5([qw(user_id single_user)]);if($YxJPfXkGup->MOmuJ19d8B($Qa7E62UPJ3)){my $nM4PN9r5uo=$YxJPfXkGup->Tu382e9j0Q($Qa7E62UPJ3);if(ref $nM4PN9r5uo eq "\x48\x41\x53\x48"){$YxJPfXkGup->UIefDZLOgE("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x64\x72\x6f\x70",$nM4PN9r5uo->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"});}if($vobmVpCgtR){$YxJPfXkGup->GRXMuq4YHg("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x75\x73\x65\x72\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$YxJPfXkGup->a4eP9YOWX5("\x64\x66"));}else{$YxJPfXkGup->GRXMuq4YHg();}}else{$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x75\x73\x65\x72\x5f\x69\x6e\x66\x6f"){fpDJ5bXfMY($YxJPfXkGup);}elsif($Jr74KMNfHh eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x69\x73\x74"){pQHh8md6U1($YxJPfXkGup);}elsif($Jr74KMNfHh eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x64\x65\x6c"){if($YxJPfXkGup->tHWfaQicLm($YxJPfXkGup->a4eP9YOWX5("\x70\x61\x72\x74\x6e\x65\x72\x5f\x69\x64"))){$YxJPfXkGup->GRXMuq4YHg("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$YxJPfXkGup->a4eP9YOWX5("\x64\x66"));}else{$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x61\x64\x64"){my @GuGqr23Zlc=$YxJPfXkGup->a4eP9YOWX5();my %UKA2TeLIk0;foreach my $eX97Pj0uw8(@GuGqr23Zlc){if($eX97Pj0uw8=~ /^P_(.*)/){my $vmbVHdn78G=$1;$vmbVHdn78G=~ s#[^\d\w._-]##g;$UKA2TeLIk0{$vmbVHdn78G}=$YxJPfXkGup->a4eP9YOWX5($eX97Pj0uw8);}}if($YxJPfXkGup->yJtjKxGTOH(\%UKA2TeLIk0,$YxJPfXkGup->a4eP9YOWX5("\x47\x52\x4f\x55\x50\x5f\x49\x44"))){$YxJPfXkGup->GRXMuq4YHg();}else{$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x75\x70\x64\x61\x74\x65"){my $gFa46etqdx=$YxJPfXkGup->a4eP9YOWX5("\x70\x61\x72\x74\x6e\x65\x72\x5f\x69\x64");my @GuGqr23Zlc=$YxJPfXkGup->a4eP9YOWX5();my %UKA2TeLIk0;foreach my $eX97Pj0uw8(@GuGqr23Zlc){if($eX97Pj0uw8=~ /^P_(.*)/){my $vmbVHdn78G=$1;$vmbVHdn78G=~ s#[^\d\w._-]##g;next if $vmbVHdn78G eq "\x49\x44";$UKA2TeLIk0{$vmbVHdn78G}=$YxJPfXkGup->a4eP9YOWX5($eX97Pj0uw8);if($vmbVHdn78G eq "\x54\x41\x47" and length($UKA2TeLIk0{$vmbVHdn78G})==0){$UKA2TeLIk0{$vmbVHdn78G}=undef;}}}if($YxJPfXkGup->YyhYI8OluE($gFa46etqdx,\%UKA2TeLIk0)){$YxJPfXkGup->GRXMuq4YHg();}else{$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x67\x72\x6f\x75\x70\x5f\x64\x65\x6c"){if($YxJPfXkGup->Xx7VhIUG8s($YxJPfXkGup->a4eP9YOWX5("\x70\x61\x72\x74\x6e\x65\x72\x5f\x69\x64"),$YxJPfXkGup->a4eP9YOWX5("\x67\x72\x6f\x75\x70\x5f\x69\x64"))){$YxJPfXkGup->GRXMuq4YHg("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$YxJPfXkGup->a4eP9YOWX5("\x64\x66"));}else{$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x67\x72\x6f\x75\x70\x5f\x61\x64\x64"){if($YxJPfXkGup->a1hTB9S7bl($YxJPfXkGup->a4eP9YOWX5("\x70\x61\x72\x74\x6e\x65\x72\x5f\x69\x64"),$YxJPfXkGup->a4eP9YOWX5("\x67\x72\x6f\x75\x70\x5f\x69\x64"))){$YxJPfXkGup->GRXMuq4YHg("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$YxJPfXkGup->a4eP9YOWX5("\x64\x66"));}else{$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x70\x68\x6f\x6e\x65\x5f\x6c\x69\x73\x74"){c80nEOu9QZ($YxJPfXkGup);}elsif($Jr74KMNfHh eq "\x70\x65\x65\x72\x5f\x6c\x69\x73\x74"){HDJM0sQl1C($YxJPfXkGup);}elsif($Jr74KMNfHh eq "\x61\x75\x74\x68\x5f\x6e\x61\x6d\x65\x5f\x72\x65\x73\x65\x74"){if(my $MN6wy9uV54=$YxJPfXkGup->yqpolahFmt($YxJPfXkGup->a4eP9YOWX5("\x69\x64"),$YxJPfXkGup->a4eP9YOWX5("\x70\x61\x63"),$YxJPfXkGup->a4eP9YOWX5("\x6e\x65\x77\x69\x64"),$YxJPfXkGup->a4eP9YOWX5("\x6e\x65\x77\x70\x77"))){my $e3ptOc2Skb=$YxJPfXkGup->a4eP9YOWX5("\x6d\x6f\x64\x65");if($e3ptOc2Skb eq "\x72\x65\x64\x69\x72"){return $YxJPfXkGup->GRXMuq4YHg();}else{my $D4k13HC8Is=$YxJPfXkGup->a4eP9YOWX5("\x64\x74\x79\x70\x65");if($D4k13HC8Is eq "\x70\x68\x6f\x6e\x65"){c80nEOu9QZ($YxJPfXkGup);}else{HDJM0sQl1C($YxJPfXkGup);}}}else{$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x73\x69\x70\x5f\x63\x61\x6c\x6c\x5f\x6c\x69\x6d\x69\x74"){if($YxJPfXkGup->F9zn8iWmfB($YxJPfXkGup->a4eP9YOWX5([qw(data_id user_id phone limit)]))){return $YxJPfXkGup->GRXMuq4YHg();}else{$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x70\x62\x78\x5f\x6d\x6f\x64\x65\x5f\x75\x70\x64\x61\x74\x65"){if($YxJPfXkGup->Sjw8e94XEg($YxJPfXkGup->a4eP9YOWX5([qw(data_id need_reg user_id host PBXMODE)]))){return $YxJPfXkGup->GRXMuq4YHg();}else{return $YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x63\x6c\x6f\x6e\x65"){my($a6s79OLE8n,$u6wgVYz3Bs,$XL8p5Zgfv3,$fs081M5Ex2,$Jr74KMNfHh,$mLKtUsFN2Z)=$YxJPfXkGup->a4eP9YOWX5([qw(tname id fname fid newaction noauto)]);my $MN6wy9uV54=$YxJPfXkGup->HgBE5GpHvW($a6s79OLE8n,$u6wgVYz3Bs,$XL8p5Zgfv3,$fs081M5Ex2,$mLKtUsFN2Z);if(defined $MN6wy9uV54){$YxJPfXkGup->GRXMuq4YHg("\x3f\x61\x63\x74\x69\x6f\x6e\x3d".$Jr74KMNfHh."\x3d".$MN6wy9uV54);}else{$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x63\x6f\x75\x6e\x74\x65\x72\x73\x5f\x63\x6c\x65\x61\x6e"){my $nuxyvLsnGB=$YxJPfXkGup->a4eP9YOWX5("\x61\x63");if($nuxyvLsnGB){my $CgIRGBDQKP="\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".$nuxyvLsnGB."\x20\x63\x6c\x65\x61\x6e";my $zH7zox3mqv=`$CgIRGBDQKP`;}$YxJPfXkGup->GRXMuq4YHg();}elsif($Jr74KMNfHh eq "\x73\x79\x73\x73\x74\x61\x74\x75\x73"){utvGd54QU7($YxJPfXkGup);}elsif($Jr74KMNfHh eq "\x72\x65\x70\x6f\x72\x74"){$YxJPfXkGup->s5BrWRZyYk(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 $qsmaEHvc12=$YxJPfXkGup->a4eP9YOWX5("\x74\x79\x70\x65");if($qsmaEHvc12 eq "\x73\x79\x73\x73\x74\x61\x74\x65"){my $W8kVz7TuCU=$YxJPfXkGup->TBA1FkghJY("\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 $W8kVz7TuCU;}elsif($qsmaEHvc12 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($qsmaEHvc12 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($qsmaEHvc12 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($qsmaEHvc12 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($Jr74KMNfHh eq "\x63\x61\x6c\x6c\x5f\x6c\x6f\x67"){my $tC5q2BANVu=$YxJPfXkGup->a4eP9YOWX5("\x63\x61\x6c\x6c\x5f\x69\x64");my $CgIRGBDQKP="find /var/log/VirtualPBX/backup/ -name 'XVB.log*.gz'";my @KAtds0NXfp=`$CgIRGBDQKP`;push @KAtds0NXfp,"\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 @KAtds0NXfp;@KAtds0NXfp=sort{(stat($b))[9]<=>(stat($a))[9]}@KAtds0NXfp;my $WC8IA562V9='';local $|=1;$YxJPfXkGup->s5BrWRZyYk(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 $tC5q2BANVu ");my $Quh3ogkltz=time;my $cSXWMgVaQf=$YxJPfXkGup->a4eP9YOWX5("\x6d\x6c")||$YxJPfXkGup->LkXDqNIi1U("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x4d\x41\x58\x5f\x4c\x4f\x47\x53")||3;my $n7rBWbzKy9=$YxJPfXkGup->a4eP9YOWX5("\x6d\x6c\x74")||$YxJPfXkGup->LkXDqNIi1U("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x4d\x41\x58\x5f\x4c\x4f\x47\x53\x5f\x54\x4f")||20;$#KAtds0NXfp=$cSXWMgVaQf-1 if $#KAtds0NXfp>$cSXWMgVaQf-1;foreach my $kJ9AdheIcl(@KAtds0NXfp){my $Al83O9PYcQ='';$CgIRGBDQKP="grep '$tC5q2BANVu' $kJ9AdheIcl | tac";if($kJ9AdheIcl=~ /gz$/){$CgIRGBDQKP="z$CgIRGBDQKP";}$Al83O9PYcQ=`$CgIRGBDQKP`;$WC8IA562V9.=$Al83O9PYcQ;print "=";if(time>$Quh3ogkltz+$n7rBWbzKy9){last;}}unless(length($WC8IA562V9)){print "\n\nCannot found data, the call is too old or log-files is too huge, try to grep in console\n";}else{my @XPeRqCU0xF=split(/[\r\n]+/,$WC8IA562V9);print "\n\n".join("\n",reverse(@XPeRqCU0xF));}}elsif($Jr74KMNfHh eq "\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74"){sOX4RJ6qc9($YxJPfXkGup);}elsif($Jr74KMNfHh eq "\x6d\x73\x67\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c"){my($wy1LzeXHb0,$Zk7wyOn5Jz)=split("\x2c",$YxJPfXkGup->a4eP9YOWX5("\x6d\x73\x67\x5f\x74\x79\x70\x65"),2);my @f9DW8jcX76=map{int($_)}split("\x3a",$wy1LzeXHb0,10);if(scalar(@f9DW8jcX76)){Z2NjiegfRP($YxJPfXkGup,\@f9DW8jcX76,$Zk7wyOn5Jz);}else{Z2NjiegfRP($YxJPfXkGup,undef,$Zk7wyOn5Jz);}}elsif($Jr74KMNfHh eq "\x63\x61\x6c\x6c\x73\x5f\x68\x61\x6e\x67\x75\x70"){my($Qa7E62UPJ3,$tC5q2BANVu)=$YxJPfXkGup->a4eP9YOWX5([qw(user_id call_id)]);if(length($tC5q2BANVu)and length($Qa7E62UPJ3)){$YxJPfXkGup->FU2tOA1au8($tC5q2BANVu,$Qa7E62UPJ3);}$YxJPfXkGup->GRXMuq4YHg();}elsif($Jr74KMNfHh eq "\x73\x69\x70\x5f\x6c\x6f\x67"){SjDkWTCUMV($YxJPfXkGup);}elsif($Jr74KMNfHh eq "\x66\x32\x62"){my $B7m6KHjLf8=jIlJ9zoGHL($YxJPfXkGup);utvGd54QU7($YxJPfXkGup);}elsif($Jr74KMNfHh eq "\x75\x73\x65\x72\x5f\x6c\x69\x73\x74"){NhiSVOUdRA($YxJPfXkGup);}elsif($Jr74KMNfHh eq "\x62\x61\x63\x6b\x75\x70"){UsatF5P4Ef($YxJPfXkGup);}else{$YxJPfXkGup->GRXMuq4YHg("\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 fpDJ5bXfMY{my $YxJPfXkGup=shift;my($ZDPvIsBfeO)=$YxJPfXkGup->a4eP9YOWX5("\x61\x63");my $TYwSZ4sXPx=$YxJPfXkGup->mU2rZv8u5Y(0,$ZDPvIsBfeO,undef,undef);unless(ref $TYwSZ4sXPx eq "\x41\x52\x52\x41\x59"){$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $ZLuqGkxrQy=$YxJPfXkGup->GnJ2MtYTSs();unless(ref $ZLuqGkxrQy eq "\x41\x52\x52\x41\x59"){$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $HZOnp5hENz=$YxJPfXkGup->Pa4lJy7CWz();%{$HZOnp5hENz}=(ID=>$TYwSZ4sXPx->[0]->{"\x49\x44"},TARIFF_ID=>$TYwSZ4sXPx->[0]->{"\x54\x41\x52\x49\x46\x46\x5f\x49\x44"});$TYwSZ4sXPx->[0]->{"\x43\x55\x52\x5f\x43\x41\x4c\x4c\x53"}=$YxJPfXkGup->TXkoyCYDH0("\x73\x68\x2d\x61\x63\x2d\x69\x6e\x2d".$TYwSZ4sXPx->[0]->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"})||0;my @cwfgLomcT3;foreach my $yGVA0p3iPD(split(/\s*,\s*/,$YxJPfXkGup->LkXDqNIi1U("\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($vmbVHdn78G,$Yu4t7L98g5,$UFlY0IpbiZ)=split(/:/,$yGVA0p3iPD);next unless $UFlY0IpbiZ;push @cwfgLomcT3,{NAME=>$UFlY0IpbiZ,VAL=>$TYwSZ4sXPx->[0]->{$vmbVHdn78G},KEY=>$vmbVHdn78G};}my $CgIRGBDQKP="\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".($TYwSZ4sXPx->[0]->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"}||0);my $zH7zox3mqv=`$CgIRGBDQKP`;IkgY8wZQ7z($YxJPfXkGup,"\x75\x73\x65\x72\x5f\x69\x6e\x66\x6f\x2e\x74\x74",{USER=>$TYwSZ4sXPx->[0],USER_COUNTERS=>$zH7zox3mqv,DIDS=>$YxJPfXkGup->EQlLMfOb5E(),DOMAINS=>$YxJPfXkGup->rt9HOgjMLC(),TARIFF=>$YxJPfXkGup->MpjiYtDJnT(),ADMIN_KEY=>$YxJPfXkGup->LkXDqNIi1U("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x4b\x45\x59"),CUSTOM_FIELDS=>\@cwfgLomcT3,GROUPS=>$ZLuqGkxrQy,LIMITS=>$YxJPfXkGup->e6WeYsZEw9($TYwSZ4sXPx->[0]->{"\x49\x44"})});}sub NhiSVOUdRA{my $YxJPfXkGup=shift;my($hDQHtr2pNC,$Zi7IvB5ogY,$CVUjP2fTW3,$v1TD0t2AJb,$RHZzGKVOLC,$dysKRl2IdO,$nGo56OVzhL,$oB9x1dQofW,$sgpnBxQi7J)=$YxJPfXkGup->a4eP9YOWX5([[(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($TYwSZ4sXPx,$sFQ0EcsW1d)=$YxJPfXkGup->mU2rZv8u5Y($hDQHtr2pNC,$Zi7IvB5ogY,$CVUjP2fTW3,$v1TD0t2AJb,$RHZzGKVOLC,$dysKRl2IdO,$nGo56OVzhL,$oB9x1dQofW,undef,$sgpnBxQi7J);unless(ref $TYwSZ4sXPx eq "\x41\x52\x52\x41\x59"){$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $ZLuqGkxrQy=$YxJPfXkGup->GnJ2MtYTSs();unless(ref $ZLuqGkxrQy eq "\x41\x52\x52\x41\x59"){$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $bRPypYSZtO=[];foreach my $uSltXZAToO(split(/\s*;\s*/,$YxJPfXkGup->LkXDqNIi1U("\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($kJ9AdheIcl,$NbMp1X5PD0)=split(/:/,$uSltXZAToO,2);unless($NbMp1X5PD0){$NbMp1X5PD0=$kJ9AdheIcl;$NbMp1X5PD0=~ s{.*/([^/]+)$}{$1};}push @$bRPypYSZtO,{FILE=>$kJ9AdheIcl,DESC=>$NbMp1X5PD0};}my $h01hKpNkgl=1;foreach my $HZOnp5hENz(@{$TYwSZ4sXPx}){$HZOnp5hENz->{"\x49\x44\x58"}=$hDQHtr2pNC+$h01hKpNkgl;$h01hKpNkgl++;}IkgY8wZQ7z($YxJPfXkGup,"\x75\x73\x65\x72\x5f\x6c\x69\x73\x74\x2e\x74\x74",{USERS=>$TYwSZ4sXPx,USERS_CNT=>$sFQ0EcsW1d,GROUPS=>$ZLuqGkxrQy,TEMPLATES=>$bRPypYSZtO,F_AC=>$Zi7IvB5ogY,F_VN=>$CVUjP2fTW3,F_GROUP=>$v1TD0t2AJb,F_UNAME=>$RHZzGKVOLC,F_STATUS=>$dysKRl2IdO,F_TARIFF=>$nGo56OVzhL,F_DESC=>$oB9x1dQofW,F_ID=>$sgpnBxQi7J,TARIFFS=>$YxJPfXkGup->AGC8EX7TZ9("\x54\x41\x52\x49\x46\x46"),DEF_SH_DID=>$YxJPfXkGup->LkXDqNIi1U("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x44\x45\x46\x5f\x53\x48\x5f\x44\x49\x44"),$YxJPfXkGup->cwI6zgro3i(1,$TYwSZ4sXPx,$hDQHtr2pNC)});}sub Jij45Fl6kG{my $YxJPfXkGup=shift;my($hDQHtr2pNC,$Zi7IvB5ogY,$CVUjP2fTW3)=$YxJPfXkGup->a4eP9YOWX5([[(from=>0)],"\x66\x5f\x61\x63","\x66\x5f\x76\x6e"]);my $WlnHN4tbia=$YxJPfXkGup->SbYT3QuV7E($hDQHtr2pNC,$Zi7IvB5ogY,$CVUjP2fTW3);unless(ref $WlnHN4tbia eq "\x41\x52\x52\x41\x59"){$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}IkgY8wZQ7z($YxJPfXkGup,"\x64\x69\x64\x5f\x6c\x69\x73\x74\x2e\x74\x74",{DIDS=>$WlnHN4tbia,F_AC=>$Zi7IvB5ogY,F_VN=>$CVUjP2fTW3,$YxJPfXkGup->cwI6zgro3i(1,$WlnHN4tbia,$hDQHtr2pNC)});}sub o7Mdg8A9cL{my $YxJPfXkGup=shift;my($hDQHtr2pNC,$Zi7IvB5ogY,$CVUjP2fTW3)=$YxJPfXkGup->a4eP9YOWX5([[(from=>0)],"\x66\x5f\x61\x63","\x66\x5f\x76\x6e"]);my $mntyKJVaFz=$YxJPfXkGup->X3yFI7mNVr($hDQHtr2pNC,$Zi7IvB5ogY,$CVUjP2fTW3);unless(ref $mntyKJVaFz eq "\x41\x52\x52\x41\x59"){$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}IkgY8wZQ7z($YxJPfXkGup,"\x73\x69\x70\x64\x6f\x6d\x61\x69\x6e\x5f\x6c\x69\x73\x74\x2e\x74\x74",{DOMAINS=>$mntyKJVaFz,F_AC=>$Zi7IvB5ogY,F_VN=>$CVUjP2fTW3,$YxJPfXkGup->cwI6zgro3i(1,$mntyKJVaFz,$hDQHtr2pNC)});}sub jANxYLPhor{my $YxJPfXkGup=shift;my($hDQHtr2pNC,$v1TD0t2AJb)=$YxJPfXkGup->a4eP9YOWX5([[(from=>0)],"\x66\x5f\x67\x72\x6f\x75\x70"]);my $ZLuqGkxrQy=$YxJPfXkGup->GnJ2MtYTSs(undef,$v1TD0t2AJb,$hDQHtr2pNC);unless(ref $ZLuqGkxrQy eq "\x41\x52\x52\x41\x59"){$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}IkgY8wZQ7z($YxJPfXkGup,"\x67\x72\x6f\x75\x70\x5f\x6c\x69\x73\x74\x2e\x74\x74",{GROUPS=>$ZLuqGkxrQy,NODES=>$YxJPfXkGup->nctzvKy4RY(),F_GROUP=>$v1TD0t2AJb,$YxJPfXkGup->cwI6zgro3i(1,$ZLuqGkxrQy,$hDQHtr2pNC)});}sub UbSr3ZVyqI{my($YxJPfXkGup,$oiAJx9cHC5,$nAB9exm5dO)=@_;my $VDk6H8oQyW=$YxJPfXkGup->GnJ2MtYTSs($oiAJx9cHC5,$nAB9exm5dO);unless(ref $VDk6H8oQyW eq "\x41\x52\x52\x41\x59"){$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;jANxYLPhor($YxJPfXkGup);}else{my $KAdkm3gNKY=$YxJPfXkGup->AGC8EX7TZ9("\x56\x42\x54\x59\x50\x45\x53");foreach my $XxHtcQjGAY(@$KAdkm3gNKY){$XxHtcQjGAY->{"\x4c\x49\x4d\x49\x54\x5f\x56\x41\x4c\x55\x45"}=$VDk6H8oQyW->[0]->{"\x56\x42\x4c\x5f".$XxHtcQjGAY->{"\x49\x44"}};}IkgY8wZQ7z($YxJPfXkGup,"\x67\x72\x6f\x75\x70\x5f\x69\x6e\x66\x6f\x2e\x74\x74",{GROUP=>$VDk6H8oQyW->[0],NODES=>$YxJPfXkGup->AGC8EX7TZ9("\x4e\x4f\x44\x45","\x4e\x4f\x44\x45\x5f\x49\x44"),TARIFFS=>$YxJPfXkGup->AGC8EX7TZ9("\x54\x41\x52\x49\x46\x46"),LANG=>$YxJPfXkGup->AGC8EX7TZ9("\x4c\x41\x4e\x47",undef,{STATUS=>1}),VB_TYPES=>$KAdkm3gNKY});}}sub Diq8xUOs3P{my($YxJPfXkGup,$u6wgVYz3Bs)=@_;my $JMCyF4j1s5=$YxJPfXkGup->WZHCuscQPU(undef,$u6wgVYz3Bs);if(ref $JMCyF4j1s5 ne "\x41\x52\x52\x41\x59" or ref $JMCyF4j1s5->[0]ne "\x48\x41\x53\x48"){$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}IkgY8wZQ7z($YxJPfXkGup,"\x74\x61\x72\x69\x66\x66\x5f\x69\x6e\x66\x6f\x2e\x74\x74",{%{$JMCyF4j1s5->[0]},CURRENCY=>$YxJPfXkGup->AGC8EX7TZ9("\x43\x55\x52\x52\x45\x4e\x43\x59","\x43\x55\x52\x5f\x49\x44"),});}sub j7cDBfe9mv{my($YxJPfXkGup,$JHcm9XINka)=@_;my($hDQHtr2pNC,$Kpnf1495Po,$u0fxC9ygKc,$JMVyejJzLK,$tC5q2BANVu,$IqeVuCtloF,$sTVZac4LKN,$ZDPvIsBfeO,$YG8IoKPv9F,$ncae5KU46E,$xwMnvbBWd3,$BBA0RvGiqO,$XVQdoRstcl,$U0fQRSUqen)=$YxJPfXkGup->a4eP9YOWX5([[(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("$tC5q2BANVu$IqeVuCtloF$sTVZac4LKN$Kpnf1495Po$u0fxC9ygKc$YG8IoKPv9F$ZDPvIsBfeO$ncae5KU46E$XVQdoRstcl")){my $OLAwUn5gvr=$YxJPfXkGup->LkXDqNIi1U("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x41\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 $OB9CHdlKxw;if($ZDPvIsBfeO=~ /,/){$OB9CHdlKxw=[split(/\s*,\s*/,$ZDPvIsBfeO)];}else{$OB9CHdlKxw=$ZDPvIsBfeO;}my $cU5AYtskQi=$YxJPfXkGup->ugIlVX02kK($tC5q2BANVu,$IqeVuCtloF,$sTVZac4LKN,$hDQHtr2pNC,$YxJPfXkGup->SQcuPHeSxy($Kpnf1495Po),$YxJPfXkGup->SQcuPHeSxy($u0fxC9ygKc),$YG8IoKPv9F,$OB9CHdlKxw,$ncae5KU46E,$XVQdoRstcl,$JHcm9XINka,$BBA0RvGiqO,$xwMnvbBWd3,$U0fQRSUqen);unless(ref $cU5AYtskQi eq "\x41\x52\x52\x41\x59"){$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my(@GuGqr23Zlc,$NuCeAFmtBs,$I8SvhzLMQZ);my $ZLuqGkxrQy=$YxJPfXkGup->GnJ2MtYTSs();if($cU5AYtskQi){my $WSzHK5PiTx=$hDQHtr2pNC+1;unless($tC5q2BANVu){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"});}}else{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($XxHtcQjGAY->{"\x54\x59\x50\x45"}eq "\x43\x61\x6c\x6c"){$NuCeAFmtBs=$XxHtcQjGAY->{"\x45\x58\x54\x5f\x4e\x55\x4d\x42\x45\x52"};$I8SvhzLMQZ=$XxHtcQjGAY->{"\x44\x4f\x57\x4e\x4c\x4f\x41\x44\x5f\x49\x50"};}}$NuCeAFmtBs=$tC5q2BANVu unless length($NuCeAFmtBs);if(ref $cU5AYtskQi and ref $cU5AYtskQi->[0]){my $zt8Bq9XuTz=$YxJPfXkGup->H3SdXqsMcr($cU5AYtskQi->[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 @GuGqr23Zlc,(JS_DATE_STR=>$zt8Bq9XuTz);push @GuGqr23Zlc,(SIP_CALL_ID=>$NuCeAFmtBs,SIP_CALL_START=>$cU5AYtskQi->[0]->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"},SIP_CALL_STOP=>$cU5AYtskQi->[$#{$cU5AYtskQi}]->{"\x53\x54\x4f\x50\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"},SIP_NODE_IP=>$I8SvhzLMQZ);}}}my $ytjD0uSTef;if($tC5q2BANVu){$ytjD0uSTef="\x63\x64\x72\x73\x5f\x61\x63\x74\x5f\x6c\x69\x73\x74\x2e\x74\x74";}elsif($JHcm9XINka){$ytjD0uSTef="\x61\x63\x74\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c\x2e\x74\x74";push @GuGqr23Zlc,(CDR_ACT_TYPE=>$xwMnvbBWd3,CDR_ACT_EXT=>$BBA0RvGiqO);unless($YxJPfXkGup->uH1CWBgJbt()->{"\x44\x46"}){push @GuGqr23Zlc,(ACT_TYPES=>$YxJPfXkGup->{"\x5f\x4c\x49\x53\x54\x53"}->{"\x41\x43\x54\x49\x56\x49\x54\x49\x45\x53"});}}else{$ytjD0uSTef="\x63\x64\x72\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74";push @GuGqr23Zlc,(CDR_CALL_TYPE=>$YG8IoKPv9F);}return IkgY8wZQ7z($YxJPfXkGup,$ytjD0uSTef,{CDR_LIST=>$cU5AYtskQi,CDR_CALL_ID=>$tC5q2BANVu,CDR_CALLER_ID=>$IqeVuCtloF,CDR_CALLED_ID=>$sTVZac4LKN,CDR_AC=>$ZDPvIsBfeO,CDR_DURATION=>$ncae5KU46E,CDR_DATA=>$XVQdoRstcl,CDR_GROUP=>$U0fQRSUqen,GROUPS=>$ZLuqGkxrQy,FROM_TIME=>$Kpnf1495Po,TO_TIME=>$u0fxC9ygKc,SMART_TIME=>$JMVyejJzLK,@GuGqr23Zlc,$YxJPfXkGup->cwI6zgro3i(1,$cU5AYtskQi,$hDQHtr2pNC)});}sub yuIfZQXBJY{my $YxJPfXkGup=shift;my($hDQHtr2pNC,$ZDPvIsBfeO,$Kpnf1495Po,$u0fxC9ygKc,$JMVyejJzLK,$ELunimpz7U,$GaN12YZUnF,$XVQdoRstcl,$SiWNs3QJeV)=$YxJPfXkGup->a4eP9YOWX5([[(from=>0)],qw(ac from_time to_time smart_time ext_num action_type data cid)]);unless(length("$ZDPvIsBfeO$Kpnf1495Po$u0fxC9ygKc$ELunimpz7U$GaN12YZUnF$XVQdoRstcl$SiWNs3QJeV")){my $OLAwUn5gvr=$YxJPfXkGup->LkXDqNIi1U("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x41\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 $OB9CHdlKxw;if($ZDPvIsBfeO=~ /,/){$OB9CHdlKxw=[split(/\s*,\s*/,$ZDPvIsBfeO)];}else{$OB9CHdlKxw=$ZDPvIsBfeO;}my $IIYQnl6O9i=$YxJPfXkGup->u2Pr5Mit3C($OB9CHdlKxw,$ELunimpz7U,$XVQdoRstcl,$hDQHtr2pNC,$GaN12YZUnF,$YxJPfXkGup->SQcuPHeSxy($Kpnf1495Po),$YxJPfXkGup->SQcuPHeSxy($u0fxC9ygKc),$SiWNs3QJeV);if(ref $IIYQnl6O9i ne "\x41\x52\x52\x41\x59"){$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}elsif($IIYQnl6O9i){my $WSzHK5PiTx=$hDQHtr2pNC+1;foreach my $XxHtcQjGAY(@{$IIYQnl6O9i}){$XxHtcQjGAY->{"\x4a\x5f\x4e\x55\x4d"}=$WSzHK5PiTx++;$XxHtcQjGAY->{"\x4a\x5f\x44\x41\x54\x45"}=$YxJPfXkGup->H3SdXqsMcr($XxHtcQjGAY->{"\x43\x52\x45\x41\x54\x45\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});}}return IkgY8wZQ7z($YxJPfXkGup,"\x6a\x6f\x75\x72\x6e\x61\x6c\x5f\x6c\x69\x73\x74\x2e\x74\x74",{J_LIST=>$IIYQnl6O9i,J_DATA=>$XVQdoRstcl,J_EXT_NUM=>$ELunimpz7U,J_ACTION=>$GaN12YZUnF,J_AC=>$ZDPvIsBfeO,J_CID=>$SiWNs3QJeV,ACTIONS=>$YxJPfXkGup->xKApryasHR(),FROM_TIME=>$Kpnf1495Po,TO_TIME=>$u0fxC9ygKc,SMART_TIME=>$JMVyejJzLK,$YxJPfXkGup->cwI6zgro3i(1,$IIYQnl6O9i,$hDQHtr2pNC)});}sub VIpM1qg0Th{my $YxJPfXkGup=shift;my($hDQHtr2pNC,$CVUjP2fTW3)=$YxJPfXkGup->a4eP9YOWX5([[(from=>0)],"\x66\x5f\x76\x6e"]);my $tc9RCbai5Y=$YxJPfXkGup->PWheURrsfZ($hDQHtr2pNC,$CVUjP2fTW3);unless(ref $tc9RCbai5Y eq "\x41\x52\x52\x41\x59"){$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}IkgY8wZQ7z($YxJPfXkGup,"\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x6c\x69\x73\x74\x2e\x74\x74",{DIDS=>$tc9RCbai5Y,LANG=>$YxJPfXkGup->AGC8EX7TZ9("\x4c\x41\x4e\x47",undef,{STATUS=>1}),F_VN=>$CVUjP2fTW3,$YxJPfXkGup->cwI6zgro3i(1,$tc9RCbai5Y,$hDQHtr2pNC)});}sub R5CN89oZUv{my $YxJPfXkGup=shift;my $hDQHtr2pNC=$YxJPfXkGup->a4eP9YOWX5("\x66\x72\x6f\x6d")||0;my $JMCyF4j1s5=$YxJPfXkGup->WZHCuscQPU($hDQHtr2pNC);unless(ref $JMCyF4j1s5 eq "\x41\x52\x52\x41\x59"){$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}IkgY8wZQ7z($YxJPfXkGup,"\x74\x61\x72\x69\x66\x66\x5f\x6c\x69\x73\x74\x2e\x74\x74",{TARIFFS=>$JMCyF4j1s5,CURRENCY=>$YxJPfXkGup->AGC8EX7TZ9("\x43\x55\x52\x52\x45\x4e\x43\x59","\x43\x55\x52\x5f\x49\x44"),$YxJPfXkGup->cwI6zgro3i(1,$JMCyF4j1s5,$hDQHtr2pNC)});}sub YBFErkGwQ6{my $YxJPfXkGup=shift;my $hDQHtr2pNC=$YxJPfXkGup->a4eP9YOWX5("\x66\x72\x6f\x6d")||0;my $k70YXWFzOR=$YxJPfXkGup->nctzvKy4RY($hDQHtr2pNC);unless(ref $k70YXWFzOR eq "\x41\x52\x52\x41\x59"){$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}else{foreach my $y08PCIrxMU(@{$k70YXWFzOR}){$y08PCIrxMU->{"\x73\x74\x61\x74"}=$YxJPfXkGup->TXkoyCYDH0("\x73\x68\x2d\x73\x74\x61\x74\x2d".$y08PCIrxMU->{"\x4e\x4f\x44\x45\x5f\x49\x44"})||{};$y08PCIrxMU->{"\x73\x74\x61\x74"}->{"\x63\x61\x6c\x6c\x73"}=$YxJPfXkGup->TXkoyCYDH0("\x73\x68\x2d\x63\x61\x6c\x6c\x73\x2d".$y08PCIrxMU->{"\x4e\x4f\x44\x45\x5f\x49\x44"})||0;}}IkgY8wZQ7z($YxJPfXkGup,"\x6e\x6f\x64\x65\x5f\x6c\x69\x73\x74\x2e\x74\x74",{NODES=>$k70YXWFzOR,$YxJPfXkGup->cwI6zgro3i(1,$k70YXWFzOR,$hDQHtr2pNC)});}sub EpnA9isI0m{my $YxJPfXkGup=shift;my($hDQHtr2pNC,$MQVUI7ge0o,$D4k13HC8Is)=$YxJPfXkGup->a4eP9YOWX5([[(from=>0)],"\x6e\x61\x6d\x65","\x74\x79\x70\x65"]);my $skNiesWM0z=$YxJPfXkGup->Odv3GpFWhg(undef,$D4k13HC8Is,$MQVUI7ge0o,$hDQHtr2pNC);unless(ref $skNiesWM0z eq "\x41\x52\x52\x41\x59"){$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;return 0;}IkgY8wZQ7z($YxJPfXkGup,"\x72\x65\x70\x6f\x72\x74\x5f\x6c\x69\x73\x74\x2e\x74\x74",{REPORTS=>$skNiesWM0z,SEARCH_NAME=>$MQVUI7ge0o,SEARCH_TYPE=>$D4k13HC8Is,$YxJPfXkGup->cwI6zgro3i(1,$skNiesWM0z,$hDQHtr2pNC)});}sub sfgVnezi98{my $YxJPfXkGup=shift;my($p9qmNTprE1,$ZRv3pLDdw1,$k8Y1N9MriE,$tYq8xVtLoH,$JMVyejJzLK,$D4k13HC8Is)=$YxJPfXkGup->a4eP9YOWX5([qw(report_id need_excel from_time to_time smart_time type)]);my $tBqI1a0reo=$YxJPfXkGup->SQcuPHeSxy($k8Y1N9MriE);my $GUz7ofVl3g=$YxJPfXkGup->SQcuPHeSxy($tYq8xVtLoH);my(%Akfzb3dX84,@Cmy6lkunLo);my $mhwxdpYoTa=$YxJPfXkGup->Odv3GpFWhg($p9qmNTprE1);if(ref $mhwxdpYoTa eq "\x41\x52\x52\x41\x59" and $mhwxdpYoTa->[0]->{"\x45\x58\x54\x52\x41\x5f\x50\x41\x52\x41\x4d\x53"}){foreach my $V7BelqR2a9(split(/\s*\|\s*/,$mhwxdpYoTa->[0]->{"\x45\x58\x54\x52\x41\x5f\x50\x41\x52\x41\x4d\x53"})){my($a2pEzfIi9n,$tliPSGvhQj,$you2zBmtyQ)=split(/\s*:\s*/,$V7BelqR2a9,3);$Akfzb3dX84{$a2pEzfIi9n}=$YxJPfXkGup->a4eP9YOWX5($a2pEzfIi9n);push @Cmy6lkunLo,{name=>$a2pEzfIi9n,label=>$tliPSGvhQj,value=>$Akfzb3dX84{$a2pEzfIi9n}};}}my $llL4dKI5MN=$YxJPfXkGup->WVFLMCOUXN($p9qmNTprE1,$D4k13HC8Is,$ZRv3pLDdw1,$tBqI1a0reo,$GUz7ofVl3g,\%Akfzb3dX84);if($ZRv3pLDdw1){if($llL4dKI5MN){if($llL4dKI5MN=~ /xlsx$/){return $YxJPfXkGup->bM98umJaNS($llL4dKI5MN,"\x61\x70\x70\x6c\x69\x63\x61\x74\x69\x6f\x6e\x2f\x78\x6c\x73\x78");}else{return $YxJPfXkGup->bM98umJaNS($llL4dKI5MN,"\x74\x65\x78\x74\x2f\x63\x73\x76");}}}unless(ref $llL4dKI5MN eq "\x41\x52\x52\x41\x59"){$YxJPfXkGup->{"\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";$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);return 0;}my $ZVj8yl7NzD=[];my $pxPwOWuFvU=[];foreach my $nlwO8kJS9A(@{$llL4dKI5MN->[1]}){my $eX97Pj0uw8=$nlwO8kJS9A;if($eX97Pj0uw8=~ s/^=//){push @{$pxPwOWuFvU},{name=>$eX97Pj0uw8,align=>"\x6c\x65\x66\x74"};}elsif($eX97Pj0uw8=~ s/=$//){push @{$pxPwOWuFvU},{name=>$eX97Pj0uw8,align=>"\x72\x69\x67\x68\x74"};}else{push @{$pxPwOWuFvU},{name=>$eX97Pj0uw8,align=>"\x63\x65\x6e\x74\x65\x72"};}}for(0..$#{$llL4dKI5MN->[0]}){$ZVj8yl7NzD->[$_]=[];foreach my $eX97Pj0uw8(@{$llL4dKI5MN->[1]}){my $fvsYtpGyHU=$llL4dKI5MN->[0]->[$_]->{$eX97Pj0uw8};my $bj9bKWvA8Y=0;if($eX97Pj0uw8=~ /^=?ACCESS_CODE=?$/){$fvsYtpGyHU="<a href='/ai?ac=$fvsYtpGyHU&action=user_info'>$fvsYtpGyHU</a>";$bj9bKWvA8Y=1;}if($eX97Pj0uw8=~ /^=/){push @{$ZVj8yl7NzD->[$_]},{value=>$fvsYtpGyHU,align=>"\x6c\x65\x66\x74",is_raw=>$bj9bKWvA8Y};}elsif($eX97Pj0uw8=~ /=$/){push @{$ZVj8yl7NzD->[$_]},{value=>$fvsYtpGyHU,align=>"\x72\x69\x67\x68\x74",is_raw=>$bj9bKWvA8Y};}else{push @{$ZVj8yl7NzD->[$_]},{value=>$fvsYtpGyHU,align=>"\x63\x65\x6e\x74\x65\x72",is_raw=>$bj9bKWvA8Y};}}}IkgY8wZQ7z($YxJPfXkGup,"\x72\x65\x70\x6f\x72\x74\x5f\x72\x65\x73\x75\x6c\x74\x2e\x74\x74",{FROM_TIME=>($k8Y1N9MriE||$llL4dKI5MN->[3]),TO_TIME=>($tYq8xVtLoH||$llL4dKI5MN->[4]),SMART_TIME=>$JMVyejJzLK,REPORT_RAW_DATA=>$llL4dKI5MN->[5],REPORT_RESULT=>$ZVj8yl7NzD,REPORT_HDR=>$pxPwOWuFvU,REPORT_DATA=>$llL4dKI5MN->[2],EXTRA_PARAMS=>\@Cmy6lkunLo});}sub pQHh8md6U1{my $YxJPfXkGup=shift;my $hDQHtr2pNC=$YxJPfXkGup->a4eP9YOWX5("\x66\x72\x6f\x6d")||0;my($SnrUg69kht,$vXeIBRzLqN)=$YxJPfXkGup->ZqYA2hBLZF($hDQHtr2pNC);my $ZLuqGkxrQy;foreach my $qdi0ABz61C(@{$SnrUg69kht}){$qdi0ABz61C->{"\x47\x52\x4f\x55\x50\x5f\x49\x44\x5f\x42\x49\x4e"}=[split(/,/,$qdi0ABz61C->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})];}unless(ref $SnrUg69kht eq "\x41\x52\x52\x41\x59"){$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}else{$ZLuqGkxrQy=$YxJPfXkGup->GnJ2MtYTSs();unless(ref $ZLuqGkxrQy eq "\x41\x52\x52\x41\x59"){$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}}my $h01hKpNkgl=1;foreach my $qdi0ABz61C(@{$SnrUg69kht}){$qdi0ABz61C->{"\x49\x44\x58"}=$hDQHtr2pNC+$h01hKpNkgl;$h01hKpNkgl++;}IkgY8wZQ7z($YxJPfXkGup,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x69\x73\x74\x2e\x74\x74",{PARTNERS=>$SnrUg69kht,PARTNERS_CNT=>$vXeIBRzLqN,GROUPS=>$ZLuqGkxrQy,$YxJPfXkGup->cwI6zgro3i(1,$SnrUg69kht,$hDQHtr2pNC)});}sub c80nEOu9QZ{my $YxJPfXkGup=shift;my($hDQHtr2pNC,$TfQJnK1Vzg,$qHMPhywvqT,$B7m6KHjLf8,$ZDPvIsBfeO,$ZufN0COcDp,$zaZurCgNSU)=$YxJPfXkGup->a4eP9YOWX5([[(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 $OB9CHdlKxw;if($ZDPvIsBfeO=~ /,/){$OB9CHdlKxw=[split(/\s*,\s*/,$ZDPvIsBfeO)];}else{$OB9CHdlKxw=$ZDPvIsBfeO;}my($krSN8jVakE,$vzvw8axTWV)=$YxJPfXkGup->R5q7rMaLOp($hDQHtr2pNC,0,$TfQJnK1Vzg,$qHMPhywvqT,undef,$B7m6KHjLf8,$OB9CHdlKxw,$ZufN0COcDp,undef,undef,$zaZurCgNSU);unless(ref $krSN8jVakE eq "\x41\x52\x52\x41\x59"){$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $Yu6SXN4zTM=time;my $h01hKpNkgl=1;foreach my $kYhPQmJIA1(@$krSN8jVakE){if($Yu6SXN4zTM<$kYhPQmJIA1->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}){$kYhPQmJIA1->{"\x52\x45\x47\x5f\x53\x54\x41\x54\x55\x53"}="\x52\x65\x67\x69\x73\x74\x65\x72\x65\x64";}else{$kYhPQmJIA1->{"\x52\x45\x47\x5f\x53\x54\x41\x54\x55\x53"}="\x55\x6e\x72\x65\x67\x69\x73\x74\x65\x72\x65\x64";}$kYhPQmJIA1->{"\x52\x45\x47\x5f\x45\x58\x50\x49\x52\x45\x44"}=$kYhPQmJIA1->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}? $YxJPfXkGup->H3SdXqsMcr($kYhPQmJIA1->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}):"\x2d";$kYhPQmJIA1->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}=$kYhPQmJIA1->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}? $YxJPfXkGup->H3SdXqsMcr($kYhPQmJIA1->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}):"\x2d";$kYhPQmJIA1->{"\x49\x44\x58"}=$hDQHtr2pNC+$h01hKpNkgl;$h01hKpNkgl++;}IkgY8wZQ7z($YxJPfXkGup,"\x70\x68\x6f\x6e\x65\x5f\x6c\x69\x73\x74\x2e\x74\x74",{SIPDEV=>$krSN8jVakE,SIPDEV_CNT=>$vzvw8axTWV,AUTHNAME=>$qHMPhywvqT,PHONE=>$TfQJnK1Vzg,IP=>$B7m6KHjLf8,AC=>$ZDPvIsBfeO,UA=>$ZufN0COcDp,RST=>$zaZurCgNSU,FROM=>$hDQHtr2pNC,ALLOW_RESET=>($YxJPfXkGup->LkXDqNIi1U("\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=>$YxJPfXkGup->LkXDqNIi1U("\x53\x49\x50\x5f\x41\x49\x5f\x41\x55\x54\x48\x5f\x45\x44\x49\x54"),$YxJPfXkGup->cwI6zgro3i(1,$krSN8jVakE,$hDQHtr2pNC)});}sub sOX4RJ6qc9{my $YxJPfXkGup=shift;my($hDQHtr2pNC,$IqeVuCtloF,$sTVZac4LKN,$ZDPvIsBfeO,$YG8IoKPv9F,$IuhV8w9PJn,$DKbHVmBDkC,$ncae5KU46E,$U0fQRSUqen)=$YxJPfXkGup->a4eP9YOWX5([[(from=>0)],qw(caller_id called_id ac call_type refresh c2c duration group)]);my $OB9CHdlKxw;if($ZDPvIsBfeO=~ /,/){$OB9CHdlKxw=[split(/\s*,\s*/,$ZDPvIsBfeO)];}else{$OB9CHdlKxw=$ZDPvIsBfeO;}my $Ef7au4oVw0=$YxJPfXkGup->jsBcfAQ8av($IqeVuCtloF,$sTVZac4LKN,$OB9CHdlKxw,$YG8IoKPv9F,$ncae5KU46E,$U0fQRSUqen,undef,undef,$hDQHtr2pNC);unless(ref $Ef7au4oVw0 eq "\x41\x52\x52\x41\x59"){$Ef7au4oVw0=[];}if($Ef7au4oVw0){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"};}}my $ZLuqGkxrQy=$YxJPfXkGup->GnJ2MtYTSs();unless(ref $ZLuqGkxrQy eq "\x41\x52\x52\x41\x59"){$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}$DKbHVmBDkC||=$YxJPfXkGup->LkXDqNIi1U("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x44\x45\x46\x5f\x43\x32\x43");if($DKbHVmBDkC){$DKbHVmBDkC=~ s#ph=[^&;]+##;$DKbHVmBDkC=~ s#user_vars=([^&;]+)##;if($1){$DKbHVmBDkC=",$1&$DKbHVmBDkC";}elsif($DKbHVmBDkC=~ /&/ and $DKbHVmBDkC !~ /^[,&]/){$DKbHVmBDkC="&$DKbHVmBDkC";}}return IkgY8wZQ7z($YxJPfXkGup,"\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74",{CALLS_COUNT=>scalar(@$Ef7au4oVw0),CALLS_LIST=>$Ef7au4oVw0,CDR_CALLER_ID=>$IqeVuCtloF,CDR_CALLED_ID=>$sTVZac4LKN,CDR_AC=>$ZDPvIsBfeO,CDR_CALL_TYPE=>$YG8IoKPv9F,CDR_REFRESH_TIME=>$IuhV8w9PJn,CDR_C2C=>$DKbHVmBDkC,CDR_DURATION=>$ncae5KU46E,CDR_GROUP=>$U0fQRSUqen,GROUPS=>$ZLuqGkxrQy,$YxJPfXkGup->cwI6zgro3i(1,$Ef7au4oVw0,$hDQHtr2pNC)});}sub HDJM0sQl1C{my $YxJPfXkGup=shift;my($hDQHtr2pNC,$qHMPhywvqT,$gL2S9gKJjn,$ZDPvIsBfeO,$YSOoHAVpwE,$thsjA8W9MT)=$YxJPfXkGup->a4eP9YOWX5([[(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 $OB9CHdlKxw;if($ZDPvIsBfeO=~ /,/){$OB9CHdlKxw=[split(/\s*,\s*/,$ZDPvIsBfeO)];}else{$OB9CHdlKxw=$ZDPvIsBfeO;}my($m8opdq23J7,$soLXMwcmnN)=$YxJPfXkGup->R5q7rMaLOp($hDQHtr2pNC,1,undef,$qHMPhywvqT,$gL2S9gKJjn,undef,$OB9CHdlKxw,undef,$YSOoHAVpwE,$thsjA8W9MT);unless(ref $m8opdq23J7 eq "\x41\x52\x52\x41\x59"){$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $h01hKpNkgl=1;foreach my $qdi0ABz61C(@{$m8opdq23J7}){if($qdi0ABz61C->{"\x4e\x45\x45\x44\x5f\x52\x45\x47"}and length($qdi0ABz61C->{"\x75\x73\x65\x72\x6e\x61\x6d\x65"})){if($qdi0ABz61C->{"\x68\x6f\x73\x74"}eq "\x64\x79\x6e\x61\x6d\x69\x63"){my $Yu6SXN4zTM=time;if($Yu6SXN4zTM<$qdi0ABz61C->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}){$qdi0ABz61C->{"\x52\x45\x47\x5f\x44\x41\x54\x41"}={state=>"\x52\x65\x67\x69\x73\x74\x65\x72\x65\x64"};}else{$qdi0ABz61C->{"\x52\x45\x47\x5f\x44\x41\x54\x41"}={state=>"\x55\x6e\x72\x65\x67\x69\x73\x74\x65\x72\x65\x64"};}}elsif($qdi0ABz61C->{"\x70\x6f\x72\x74"}eq "\x35\x30\x36\x30"){$qdi0ABz61C->{"\x52\x45\x47\x5f\x44\x41\x54\x41"}=$YxJPfXkGup->TXkoyCYDH0("\x73\x68\x2d\x73\x69\x70\x2d\x72\x65\x67\x73\x2d".$qdi0ABz61C->{"\x6e\x61\x6d\x65"});}else{$qdi0ABz61C->{"\x52\x45\x47\x5f\x44\x41\x54\x41"}=$YxJPfXkGup->TXkoyCYDH0("\x73\x68\x2d\x73\x69\x70\x2d\x72\x65\x67\x73\x2d".$qdi0ABz61C->{"\x68\x6f\x73\x74"}."\x3a".$qdi0ABz61C->{"\x70\x6f\x72\x74"}."\x3a".$qdi0ABz61C->{"\x75\x73\x65\x72\x6e\x61\x6d\x65"});}}$qdi0ABz61C->{"\x49\x44\x58"}=$hDQHtr2pNC+$h01hKpNkgl;$h01hKpNkgl++;}IkgY8wZQ7z($YxJPfXkGup,"\x70\x65\x65\x72\x5f\x6c\x69\x73\x74\x2e\x74\x74",{SIPDEV=>$m8opdq23J7,SIPDEV_CNT=>$soLXMwcmnN,AUTHNAME=>$qHMPhywvqT,HOST=>$gL2S9gKJjn,NEED_REG=>$YSOoHAVpwE,PBXMODE=>$thsjA8W9MT,AC=>$ZDPvIsBfeO,FROM=>$hDQHtr2pNC,$YxJPfXkGup->cwI6zgro3i(1,$m8opdq23J7,$hDQHtr2pNC)});}sub hUf2QA8nOB{my($YxJPfXkGup)=@_;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)]);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\x41\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 $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,undef,"\x69\x73\x5f\x61\x69");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");}}}my $iuBk9s1PNt;unless(ref $XVQdoRstcl eq "\x41\x52\x52\x41\x59"){$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}else{$iuBk9s1PNt=$YxJPfXkGup->H3SdXqsMcr($XVQdoRstcl->[2])."\x20\x2d\x20".$YxJPfXkGup->H3SdXqsMcr($XVQdoRstcl->[3]||time);}return IkgY8wZQ7z($YxJPfXkGup,"\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"),EXCEL_MODE=>$YxJPfXkGup->LkXDqNIi1U("\x43\x47\x49\x5f\x45\x58\x43\x45\x4c\x5f\x4d\x4f\x44\x45"),SMART_TIME=>$JMVyejJzLK,FROM_TIME=>$Kpnf1495Po,TO_TIME=>$u0fxC9ygKc});}sub Z2NjiegfRP{my($YxJPfXkGup,$yw8BSZ9P5I,$Zk7wyOn5Jz)=@_;my($hDQHtr2pNC,$Kpnf1495Po,$u0fxC9ygKc,$JMVyejJzLK,$IqeVuCtloF,$sTVZac4LKN,$ncae5KU46E,$wg05YXa91L,$ZDPvIsBfeO)=$YxJPfXkGup->a4eP9YOWX5([[(from=>0)],qw(from_time to_time smart_time caller_id called_id duration any_did ac)]);$YxJPfXkGup->{"\x5f\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}->{MSG_IN_PAGE}=$YxJPfXkGup->LkXDqNIi1U("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x4d\x53\x47\x5f\x49\x4e\x5f\x50\x41\x47\x45");unless(length("$Kpnf1495Po$u0fxC9ygKc$IqeVuCtloF$sTVZac4LKN$ncae5KU46E$wg05YXa91L$ZDPvIsBfeO")){my $OLAwUn5gvr=$YxJPfXkGup->LkXDqNIi1U("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x41\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 $OB9CHdlKxw;if($ZDPvIsBfeO=~ /,/){$OB9CHdlKxw=[split(/\s*,\s*/,$ZDPvIsBfeO)];}else{$OB9CHdlKxw=$ZDPvIsBfeO;}my $mg2dasvB6F=$YxJPfXkGup->OP48et3Lvz(0,$hDQHtr2pNC,undef,$yw8BSZ9P5I,$YxJPfXkGup->SQcuPHeSxy($Kpnf1495Po),$YxJPfXkGup->SQcuPHeSxy($u0fxC9ygKc),$IqeVuCtloF,$sTVZac4LKN,$Zk7wyOn5Jz,$ncae5KU46E,$wg05YXa91L,"\x69\x73\x5f\x61\x69",$OB9CHdlKxw);unless(ref $mg2dasvB6F eq "\x41\x52\x52\x41\x59"){$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}elsif($mg2dasvB6F){my $WSzHK5PiTx=$hDQHtr2pNC+1;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"});}}return IkgY8wZQ7z($YxJPfXkGup,"\x6d\x65\x73\x73\x61\x67\x65\x73\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c\x2e\x74\x74",{CGI_URL=>$YxJPfXkGup->LkXDqNIi1U("\x43\x47\x49\x5f\x55\x52\x4c"),MSG_LIST=>$mg2dasvB6F,FROM_TIME=>$Kpnf1495Po,TO_TIME=>$u0fxC9ygKc,SMART_TIME=>$JMVyejJzLK,CALLER_ID=>$IqeVuCtloF,CALLED_ID=>$sTVZac4LKN,ANY_DID=>$wg05YXa91L,DURATION=>$ncae5KU46E,ACCESS_CODE=>$ZDPvIsBfeO,MSG_TYPE=>(ref $yw8BSZ9P5I ? join("\x3a",@$yw8BSZ9P5I):'').(defined $Zk7wyOn5Jz ? ",$Zk7wyOn5Jz":''),$YxJPfXkGup->cwI6zgro3i(0,$mg2dasvB6F,$hDQHtr2pNC)});}sub IkgY8wZQ7z{my($YxJPfXkGup,$dTqaQZ1Sr9,$XVQdoRstcl)=@_;my $uSltXZAToO=Template::EasyTT->new({});my $O0mvihkcSa=$YxJPfXkGup->LkXDqNIi1U("\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 $e96mu25L8U='';$XVQdoRstcl->{"\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}=$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"};$XVQdoRstcl->{"\x55\x53\x45\x5f\x42\x49\x4c\x4c\x49\x4e\x47"}=$YxJPfXkGup->LkXDqNIi1U("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x55\x53\x45\x5f\x42\x49\x4c\x4c\x49\x4e\x47");$XVQdoRstcl->{"\x44\x59\x4e\x41\x4d\x49\x43\x5f\x44\x49\x41\x4c\x4f\x55\x54"}=$YxJPfXkGup->LkXDqNIi1U("\x53\x49\x50\x5f\x44\x59\x4e\x41\x4d\x49\x43\x5f\x44\x49\x41\x4c\x4f\x55\x54");$XVQdoRstcl->{"\x55\x4e\x49\x58\x54\x49\x4d\x45"}=time;my @sK8yWVuBkT;if(length $ENV{"\x50\x41\x54\x48\x5f\x49\x4e\x46\x4f"}){@sK8yWVuBkT=split(/\//,substr($ENV{"\x50\x41\x54\x48\x5f\x49\x4e\x46\x4f"},1));}my $skgAHNBDz8=$YxJPfXkGup->LkXDqNIi1U("\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 $t1LJpnNmox=$YxJPfXkGup->LkXDqNIi1U("\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 $sK8yWVuBkT[0]){my($dPeiX3Z8m5,$zCkh8GeqZd)=split(/:/,$sK8yWVuBkT[0]);$skgAHNBDz8=$dPeiX3Z8m5 if length $dPeiX3Z8m5;$t1LJpnNmox=$zCkh8GeqZd if length $zCkh8GeqZd;}my $UGwpBZ980A=$YxJPfXkGup->a4eP9YOWX5("\x64\x66");if($UGwpBZ980A){my $WIpKtJ6BAD=0;if(length($YxJPfXkGup->LkXDqNIi1U("\x43\x47\x49\x5f\x54\x52\x55\x53\x54\x45\x44\x5f\x34\x5f\x41\x49\x5f\x44\x46"))){my $k9QApswa2G=($ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"}||"\x30\x2e\x30\x2e\x30\x2e\x30");if(index("\x2c".$YxJPfXkGup->LkXDqNIi1U("\x43\x47\x49\x5f\x54\x52\x55\x53\x54\x45\x44\x5f\x34\x5f\x41\x49\x5f\x44\x46")."\x2c",",$k9QApswa2G,")>-1 or $YxJPfXkGup->LkXDqNIi1U("\x43\x47\x49\x5f\x54\x52\x55\x53\x54\x45\x44\x5f\x34\x5f\x41\x49\x5f\x44\x46")eq "\x2a"){$WIpKtJ6BAD=1;}}$UGwpBZ980A='' unless $WIpKtJ6BAD;}unless($UGwpBZ980A){$uSltXZAToO->operators_add("\x64\x69\x76\x32",sub{return $_[0]% 2});$uSltXZAToO->filters_add("\x67\x6d\x74\x69\x6d\x65",sub{return scalar(gmtime($_[1]))});$uSltXZAToO->filters_add("\x62\x69\x6c\x6c\x5f\x66\x6c\x6f\x61\x74",sub{return sprintf("\x25\x2e".($YxJPfXkGup->LkXDqNIi1U("\x42\x49\x4c\x4c\x49\x4e\x47\x5f\x52\x4f\x55\x4e\x44\x49\x4e\x47\x5f\x34\x47\x55\x49")||2)."\x66",$_[1])});$uSltXZAToO->filters_add("\x6c\x6f\x63\x61\x6c\x65\x5f\x6d\x73\x67",sub{my $tUVnXBzM9Z=$YxJPfXkGup->AOihZumA9j($_[1],$t1LJpnNmox);$tUVnXBzM9Z=~ s#&#&amp;#gs;$tUVnXBzM9Z=~ s#\x22#&quot;#gs;$tUVnXBzM9Z=~ s#<#&lt;#gs;$tUVnXBzM9Z=~ s#>#&gt;#gs;$tUVnXBzM9Z=~ s#\x27#&apos;#gs;return $tUVnXBzM9Z;});if(-e "$O0mvihkcSa/$skgAHNBDz8/$dTqaQZ1Sr9"){$uSltXZAToO->process("$O0mvihkcSa/$skgAHNBDz8/$dTqaQZ1Sr9",$XVQdoRstcl,\$e96mu25L8U);}else{$uSltXZAToO->process("$O0mvihkcSa/$dTqaQZ1Sr9",$XVQdoRstcl,\$e96mu25L8U);}}unless($UGwpBZ980A){$YxJPfXkGup->s5BrWRZyYk(200,"\x4f\x6b",undef,$e96mu25L8U.$YxJPfXkGup->AOihZumA9j("\x67\x36\x31\x33","\x43"));}elsif($UGwpBZ980A eq "\x78\x6d\x6c"){require XML::Simple;$e96mu25L8U=XML::Simple::XMLout($XVQdoRstcl);$YxJPfXkGup->N9u2xXnOzE(200,"\x4f\x6b",undef,$e96mu25L8U);}elsif($UGwpBZ980A eq "\x6a\x73\x6f\x6e"){require JSON::XS;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));}}sub PqJIC3nmYS{my $YxJPfXkGup=shift;my($CEHev7UXOK,$uwKrP30ZHV,$L5vyIOjw4u)=$YxJPfXkGup->a4eP9YOWX5([qw(caller_id called_id vars)]);my($YcwKb8qL2O,%bKACaDkW9v,$kQeurVd7pE,$tENkHavMLU,@ny9zUqwFIP);$uwKrP30ZHV="\x30\x30\x30" unless length $uwKrP30ZHV;$CEHev7UXOK="\x30\x30\x30" unless length $CEHev7UXOK;foreach my $Yf2GcZqy5S(split(/\s*,\s*/,$L5vyIOjw4u)){my($vmbVHdn78G,$KTMf5LVWGd)=split(/\s*=\s*/,$Yf2GcZqy5S);$tENkHavMLU->{$vmbVHdn78G}=$KTMf5LVWGd;}my $VYJpzdguFS=$YxJPfXkGup->rqcWRXaGvK($uwKrP30ZHV,$CEHev7UXOK,$tENkHavMLU);my $md5lTRNVWf='';if($uwKrP30ZHV){$md5lTRNVWf=$YxJPfXkGup->CgXfNOlthW($uwKrP30ZHV);if($md5lTRNVWf){$kQeurVd7pE="$uwKrP30ZHV [ $md5lTRNVWf ]";}}if(ref $VYJpzdguFS eq "\x41\x52\x52\x41\x59"){foreach my $nM4PN9r5uo(@{$VYJpzdguFS}){if(exists $nM4PN9r5uo->{"\x44\x41\x54\x41\x5f\x49\x44"}){$bKACaDkW9v{$nM4PN9r5uo->{"\x44\x41\x54\x41\x5f\x49\x44"}}=($nM4PN9r5uo->{"\x50\x48\x4f\x4e\x45"}||$uwKrP30ZHV);}}}unless($YxJPfXkGup->uH1CWBgJbt()->{"\x44\x46"}){@ny9zUqwFIP=(ROUTE_CALLER_ID=>$CEHev7UXOK,ROUTE_CALLED_ID=>$uwKrP30ZHV,ROUTE_VARS=>$L5vyIOjw4u);}my $cdWPwS89aK=[];if(keys %bKACaDkW9v){my $mAqvypKbCa=$YxJPfXkGup->sKgpx8VR3T("\x69\x73\x5f\x61\x69");foreach my $nM4PN9r5uo(@$mAqvypKbCa){if(exists $bKACaDkW9v{$nM4PN9r5uo->{"\x44\x41\x54\x41\x5f\x49\x44"}}){if($uwKrP30ZHV ne $bKACaDkW9v{$nM4PN9r5uo->{"\x44\x41\x54\x41\x5f\x49\x44"}}){$nM4PN9r5uo->{"\x53\x55\x42\x53\x54\x52\x5f\x52\x45\x53\x55\x4c\x54"}=$bKACaDkW9v{$nM4PN9r5uo->{"\x44\x41\x54\x41\x5f\x49\x44"}};}push @$cdWPwS89aK,$nM4PN9r5uo;}}}IkgY8wZQ7z($YxJPfXkGup,"\x72\x6f\x75\x74\x65\x5f\x6c\x69\x73\x74\x2e\x74\x74",{ROUTES=>$cdWPwS89aK,MATCH_RESULTS=>$kQeurVd7pE,@ny9zUqwFIP});}sub jIlJ9zoGHL{my $YxJPfXkGup=shift;my($I6cJ0AZiTP,$B7m6KHjLf8,$e3ptOc2Skb)=$YxJPfXkGup->a4eP9YOWX5([qw(node ip mode)]);if($e3ptOc2Skb eq "\x77\x6c\x61\x64\x64"){$YxJPfXkGup->GE0OAl8veY($I6cJ0AZiTP,$e3ptOc2Skb,$B7m6KHjLf8);}elsif($e3ptOc2Skb eq "\x77\x6c\x64\x65\x6c"){$YxJPfXkGup->GE0OAl8veY($I6cJ0AZiTP,$e3ptOc2Skb,$B7m6KHjLf8);}elsif($B7m6KHjLf8){$YxJPfXkGup->fom9GnSCH1($I6cJ0AZiTP,$B7m6KHjLf8);}}sub UsatF5P4Ef{my $YxJPfXkGup=shift;my($D4k13HC8Is,$u6wgVYz3Bs)=$YxJPfXkGup->a4eP9YOWX5([qw(type id)]);my($MPRljOMnKE,$UWCSf6B8Fp);my $XQzc7faDBW=1;if($D4k13HC8Is eq "\x73\x79\x73"){$UWCSf6B8Fp=$YxJPfXkGup->LkXDqNIi1U("\x50\x41\x54\x48\x5f\x53\x59\x53\x5f\x42\x41\x43\x4b\x55\x50\x5f\x44\x49\x52");$MPRljOMnKE="\x74\x67\x7a";}elsif($D4k13HC8Is eq "\x64\x62"){$UWCSf6B8Fp=$YxJPfXkGup->LkXDqNIi1U("\x50\x41\x54\x48\x5f\x44\x42\x5f\x42\x41\x43\x4b\x55\x50\x5f\x44\x49\x52");$MPRljOMnKE="\x67\x7a";}else{$XQzc7faDBW=0;}$u6wgVYz3Bs=~ s/\D//gs;$XQzc7faDBW=0 unless int($u6wgVYz3Bs);if($XQzc7faDBW and-e "$UWCSf6B8Fp/$u6wgVYz3Bs.$MPRljOMnKE"){return $YxJPfXkGup->bM98umJaNS("$UWCSf6B8Fp/$u6wgVYz3Bs.$MPRljOMnKE");}else{$YxJPfXkGup->s5BrWRZyYk(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 utvGd54QU7{my $YxJPfXkGup=shift;my $W8kVz7TuCU=$YxJPfXkGup->TBA1FkghJY("\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 $JGlVoOMNHy;if($W8kVz7TuCU=~ s/^\x24VAR1/\$JGlVoOMNHy/){eval "$W8kVz7TuCU";}unless(ref $JGlVoOMNHy eq "\x48\x41\x53\x48"){$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $I6cJ0AZiTP=$YxJPfXkGup->a4eP9YOWX5("\x6e\x6f\x64\x65");my $x0CpudRL3q=$YxJPfXkGup->fom9GnSCH1($I6cJ0AZiTP);unless(ref $x0CpudRL3q eq "\x41\x52\x52\x41\x59"){$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $YYFstw89po=$YxJPfXkGup->GE0OAl8veY();unless(ref $YYFstw89po eq "\x41\x52\x52\x41\x59"){$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}$YxJPfXkGup->{"\x5f\x43\x4f\x4e\x46\x5f\x4f\x52\x49\x47"}={};$YxJPfXkGup->uan385Lv9B("\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 $BFd9EDlCnJ=[];my $lm94xB8Pao={};foreach my $vmbVHdn78G(keys %{$YxJPfXkGup->{"\x5f\x43\x4f\x4e\x46\x5f\x4f\x52\x49\x47"}}){$lm94xB8Pao->{$vmbVHdn78G}=1;}foreach my $vmbVHdn78G(sort keys %{$lm94xB8Pao}){if($YxJPfXkGup->{"\x5f\x43\x4f\x4e\x46\x5f\x4f\x52\x49\x47"}->{$vmbVHdn78G}ne $YxJPfXkGup->{"\x5f\x43\x4f\x4e\x46"}->{$vmbVHdn78G}){next if $vmbVHdn78G=~ /(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 $fpD0MmnJ83=$YxJPfXkGup->{"\x5f\x43\x4f\x4e\x46\x5f\x4f\x52\x49\x47"}->{$vmbVHdn78G};my $VDQf5yqCEr=$YxJPfXkGup->{"\x5f\x43\x4f\x4e\x46"}->{$vmbVHdn78G};$fpD0MmnJ83=~ s#([,;])#$1 #g;$VDQf5yqCEr=~ s#([,;])#$1 #g;push @$BFd9EDlCnJ,[uc($vmbVHdn78G),$fpD0MmnJ83,$VDQf5yqCEr];}}IkgY8wZQ7z($YxJPfXkGup,"\x73\x79\x73\x73\x74\x61\x74\x75\x73\x2e\x74\x74",{F2B_WL=>$YYFstw89po,F2B_CNT_WL=>scalar(@$YYFstw89po),F2B=>$x0CpudRL3q,F2B_CNT=>scalar(@$x0CpudRL3q),RAW=>$JGlVoOMNHy->{"\x52\x41\x57"},CPU=>$JGlVoOMNHy->{"\x43\x50\x55"},MEM=>$JGlVoOMNHy->{"\x4d\x45\x4d"},SWAP=>$JGlVoOMNHy->{"\x53\x57\x41\x50"},DISK=>$JGlVoOMNHy->{"\x44\x49\x53\x4b"},SYS=>$JGlVoOMNHy->{"\x53\x59\x53\x54\x45\x4d"},AST=>$JGlVoOMNHy->{"\x41\x53\x54\x45\x52\x49\x53\x4b"},NODE=>$YxJPfXkGup->LkXDqNIi1U("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x53\x45\x52\x56\x45\x52\x5f\x49\x44"),CDIFF=>$BFd9EDlCnJ})}sub SjDkWTCUMV{my $YxJPfXkGup=shift;my($tC5q2BANVu,$BAC0hmN45Z,$MeTPsxftOm,$eU4zV7Klgx)=$YxJPfXkGup->a4eP9YOWX5([qw(call_id start_time stop_time xvb_call_id)]);my $RSqfrKIhtL='';my $A6f5juycMN='';my $y8eszBQTHL=$YxJPfXkGup->LkXDqNIi1U("\x50\x41\x54\x48\x5f\x54\x4d\x50\x5f\x44\x49\x52")."\x2f\x70\x63\x61\x70\x73";$tC5q2BANVu=~ s/[`\x22\x27\r\n]//gs;if(length($tC5q2BANVu)and-d $y8eszBQTHL and opendir(PCAPDIR,$y8eszBQTHL)){my @KAtds0NXfp=sort{(stat("$y8eszBQTHL/$a"))[9]<=>(stat("$y8eszBQTHL/$b"))[9]}grep(/pcap\d+$/,readdir(PCAPDIR));my $KHYmLnkc9X=0;my $qwKSykxztL=$YxJPfXkGup->LkXDqNIi1U("\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";$tC5q2BANVu=": $tC5q2BANVu";my %ObZrcd0e1I;my $Vgu1m4LaoR=1;my @eqQoDSx0pm;foreach my $ucbZDqOnXI(@KAtds0NXfp){my $s8e9muMs7r=(stat("$y8eszBQTHL/$ucbZDqOnXI"))[9];if(($KHYmLnkc9X<=$BAC0hmN45Z and $s8e9muMs7r>=$BAC0hmN45Z)or($KHYmLnkc9X<=$MeTPsxftOm and $s8e9muMs7r>=$MeTPsxftOm)or($KHYmLnkc9X>=$BAC0hmN45Z and $s8e9muMs7r<$MeTPsxftOm)){my($sPcpKzjXOV,$CgIRGBDQKP,@NJyH89oY5i);for(my $v3GSTm8QLw=0;$v3GSTm8QLw<=2;$v3GSTm8QLw++){$CgIRGBDQKP="/usr/sbin/ngrep \x27$tC5q2BANVu\x27 $qwKSykxztL -I $y8eszBQTHL/$ucbZDqOnXI 2>&1";my @Vv9jzlF4L8=`$CgIRGBDQKP`;my $TERYMdm7v8=0;$sPcpKzjXOV='';@NJyH89oY5i=();foreach my $EtayTLP08O(@Vv9jzlF4L8){chomp($EtayTLP08O);$EtayTLP08O=~ s/\.$//;if($EtayTLP08O=~ /^U\s+\d+\/\d+\/\d+\s\d+:\d+:\d+\.\d+\s+([^\s]+)\s+->\s+([^\s]+)/){if($sPcpKzjXOV){push @NJyH89oY5i,$sPcpKzjXOV;}$sPcpKzjXOV="\n";$EtayTLP08O.="\n";}elsif($EtayTLP08O=~ /^(Call-ID|I|XVB-Call-ID)(:\s*[^\x22\x27\r\n]+)/gi){if(index($tC5q2BANVu,$2)==-1){$tC5q2BANVu.="|$2";$TERYMdm7v8=1;}if(lc($1)eq "\x69" or lc($1)eq "\x63\x61\x6c\x6c\x2d\x69\x64"){unless(exists $ObZrcd0e1I{$2}){$ObZrcd0e1I{$2}=$Vgu1m4LaoR++;if($Vgu1m4LaoR>11){$Vgu1m4LaoR=2;}}}}if($sPcpKzjXOV){$sPcpKzjXOV.="$EtayTLP08O\n";}}unless($TERYMdm7v8){push @NJyH89oY5i,$sPcpKzjXOV;last;}}$A6f5juycMN.="#<br>\n# ".$YxJPfXkGup->ZDT89nrlc3($CgIRGBDQKP)." <br>\n#<br>\n";push(@eqQoDSx0pm,@NJyH89oY5i);}$KHYmLnkc9X=$s8e9muMs7r;}my @hY74qHLVCy=`/sbin/ifconfig|grep "inet "`;my $OHlpSuUABK="\x2c";foreach my $lHsMJzSGyF(@hY74qHLVCy){chomp;$lHsMJzSGyF=~ s#.*inet\s+(addr:)?(\S+).*#$2#s;if(length($lHsMJzSGyF)){$OHlpSuUABK.="$lHsMJzSGyF,";}}foreach my $zarK7GNlCM(@eqQoDSx0pm){my $Vgu1m4LaoR=0;my($YWOxuDyJQz,$RqC8tDuds9);foreach my $EtayTLP08O(split(/\n/,$zarK7GNlCM)){if($EtayTLP08O=~ /^U\s+\d+\/\d+\/\d+\s\d+:\d+:\d+\.\d+\s+([^\s]+):\d+\s+->\s+([^\s]+):\d+/){($YWOxuDyJQz,$RqC8tDuds9)=($1,$2);}else{if($EtayTLP08O=~ /^(Call-ID|I)(:\s*[^\x22\x27\r\n]+)/gi){$Vgu1m4LaoR=$ObZrcd0e1I{$2};}}}my $INg7b9Gp03="\x20";if($Vgu1m4LaoR==1 and index($OHlpSuUABK,",$YWOxuDyJQz,")>-1){$INg7b9Gp03="\t\t"}elsif($Vgu1m4LaoR>1 and index($OHlpSuUABK,",$YWOxuDyJQz,")>-1){$INg7b9Gp03="\t\t";}elsif($Vgu1m4LaoR>1 and index($OHlpSuUABK,",$RqC8tDuds9,")>-1){$INg7b9Gp03="\t\t\t\t";}$RSqfrKIhtL.="<p class=\x27pcap$Vgu1m4LaoR\x27>";foreach my $EtayTLP08O(split(/\n/,$zarK7GNlCM)){$RSqfrKIhtL.=$INg7b9Gp03.$YxJPfXkGup->ZDT89nrlc3($EtayTLP08O)."\n";}$RSqfrKIhtL.="</p>";}}IkgY8wZQ7z($YxJPfXkGup,"\x73\x69\x70\x5f\x70\x63\x61\x70\x2e\x74\x74",{CMD=>$A6f5juycMN,DATA=>$RSqfrKIhtL,XVB_CALL_ID=>$eU4zV7Klgx});}