#!/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;duMeG5gnQc();sub new{my($FIwL9fKS4q,$MPzWuR2YIk)=@_;my $FvaYR8d3Tu=bless{_CGI=>CGI->new(),_CONF=>{},_CDR=>{CALLED_ID=>"\x77\x65\x62",},_USER_CREDS=>{},_USER_VBOXES=>{},_SESSION=>{},},$FIwL9fKS4q;$FvaYR8d3Tu->d5y9ZKn0Ci($MPzWuR2YIk);$FvaYR8d3Tu->cEO9kI51SM();if($FvaYR8d3Tu->VzAEujaiBr("\x44\x45\x42\x55\x47\x5f\x48\x54\x54\x50\x5f\x41\x55\x44\x49\x54\x5f\x46\x49\x4c\x45")){$FvaYR8d3Tu->cEO9kI51SM("\x46\x49\x4c\x45","\x44\x45\x42\x55\x47\x5f\x48\x54\x54\x50\x5f\x41\x55\x44\x49\x54\x5f\x46\x49\x4c\x45");}$FvaYR8d3Tu->{"\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 $zGLjlZXm9s;$FvaYR8d3Tu->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}={};foreach my $cn8jBa2wYy(split(/\s*;\s*/,$FvaYR8d3Tu->VzAEujaiBr("\x43\x47\x49\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"))){my($n4cw3Mqt0S,@sLnPKd8Bo6)=split(/\s*:\s*/,$cn8jBa2wYy);foreach my $ZzpLO8K9Yj(@sLnPKd8Bo6){$FvaYR8d3Tu->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$ZzpLO8K9Yj}=$n4cw3Mqt0S;}}my $ZzpLO8K9Yj=$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"};unless(exists $FvaYR8d3Tu->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$ZzpLO8K9Yj}){$ZzpLO8K9Yj=~ s#\.\d+$##;}unless(exists $FvaYR8d3Tu->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$ZzpLO8K9Yj}){if($FvaYR8d3Tu->VzAEujaiBr("\x43\x47\x49\x5f\x41\x4c\x49\x41\x53\x45\x53\x5f\x57\x4f\x5f\x49\x50")){$zGLjlZXm9s="\x61\x64\x6d\x69\x6e";}else{$zGLjlZXm9s="\x61\x64\x6d\x69\x6e\x20\x28\x20".$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"}."\x20\x29";}}else{if($FvaYR8d3Tu->VzAEujaiBr("\x43\x47\x49\x5f\x41\x4c\x49\x41\x53\x45\x53\x5f\x57\x4f\x5f\x49\x50")){$zGLjlZXm9s=$FvaYR8d3Tu->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$ZzpLO8K9Yj};}else{$zGLjlZXm9s=$FvaYR8d3Tu->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$ZzpLO8K9Yj}."\x20\x28\x20".$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"}."\x20\x29";}}$FvaYR8d3Tu->{"\x5f\x43\x44\x52"}->{"\x43\x41\x4c\x4c\x45\x52\x5f\x49\x44"}=$zGLjlZXm9s;;$FvaYR8d3Tu->{"\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($FvaYR8d3Tu->VzAEujaiBr("\x50\x41\x54\x48\x5f\x57\x4f\x52\x4b\x5f\x44\x49\x52"));$FvaYR8d3Tu->{"\x5f\x43\x4f\x4e\x46"}->{"\x74\x61\x62\x6c\x65\x73\x5f\x63\x64\x72\x73"}=$FvaYR8d3Tu->{"\x5f\x43\x4f\x4e\x46"}->{"\x74\x61\x62\x6c\x65\x73\x5f\x63\x64\x72\x73\x5f\x61\x6c\x6c"};$FvaYR8d3Tu->{"\x5f\x43\x4f\x4e\x46"}->{"\x74\x61\x62\x6c\x65\x73\x5f\x63\x64\x72\x73\x5f\x61"}=$FvaYR8d3Tu->{"\x5f\x43\x4f\x4e\x46"}->{"\x74\x61\x62\x6c\x65\x73\x5f\x63\x64\x72\x73\x5f\x61\x5f\x61\x6c\x6c"};$FvaYR8d3Tu->VKdDgN7uUv();return $FvaYR8d3Tu;}sub duMeG5gnQc{my $FvaYR8d3Tu=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($EyF6kxm2Qu,$uCDhFT8nJc,$UzmXABbRkH,$F6SY5uFowT,$t8jgzGPWo0);$FvaYR8d3Tu->jdtpksbcew(1);my($TDCT05sRen,$xJElBtxmzL)=$FvaYR8d3Tu->FVFE1uXA0t([qw(action from)]);if($TDCT05sRen eq "\x62\x61\x6c\x61\x6e\x63\x65\x5f\x75\x70\x64\x61\x74\x65"){my($Pbpsydcx3g,$rP8MTwraxb,$ndYnk6mJlx)=$FvaYR8d3Tu->FVFE1uXA0t([qw(balance user_id cur_id)]);my $t2rAYB9PnZ=$FvaYR8d3Tu->OcTz91nQqu($rP8MTwraxb);unless(ref $t2rAYB9PnZ eq "\x48\x41\x53\x48"){$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);return;}else{my $z7P41F8rC0=$FvaYR8d3Tu->M9Ztzifv2j();%{$z7P41F8rC0}=%{$t2rAYB9PnZ};}if($FvaYR8d3Tu->agspmuWRE2($Pbpsydcx3g,$ndYnk6mJlx)){$FvaYR8d3Tu->ZgWmSZeVRF("\x75\x73\x65\x72\x2d".$FvaYR8d3Tu->M9Ztzifv2j()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"},undef);$FvaYR8d3Tu->rOY8JLMXZI();}else{$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x63\x64\x72\x5f\x6c\x69\x73\x74"){if($FvaYR8d3Tu->FVFE1uXA0t("\x6e\x65\x65\x64\x5f\x63\x68\x61\x72\x74")){d90p8XIrMC($FvaYR8d3Tu);}else{dP1No8qWTd($FvaYR8d3Tu);}}elsif($TDCT05sRen eq "\x61\x63\x74\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c"){dP1No8qWTd($FvaYR8d3Tu,"\x61\x63\x74\x61\x6c\x6c");}elsif($TDCT05sRen eq "\x6a\x5f\x6c\x69\x73\x74"){Tcuk5KzTJH($FvaYR8d3Tu);}elsif($TDCT05sRen eq "\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x6c\x69\x73\x74"){GuR1PYW4UG($FvaYR8d3Tu);}elsif($TDCT05sRen eq "\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x64\x65\x6c"){if($FvaYR8d3Tu->Vbv4rV2d5U($FvaYR8d3Tu->FVFE1uXA0t("\x64\x69\x64"))){$FvaYR8d3Tu->rOY8JLMXZI("\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".$FvaYR8d3Tu->FVFE1uXA0t("\x64\x66"));$FvaYR8d3Tu->idxircbtCk("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x64\x72\x6f\x70",$FvaYR8d3Tu->FVFE1uXA0t("\x64\x69\x64"));}else{$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x61\x64\x64"){my @KdnQkwHGlm=$FvaYR8d3Tu->FVFE1uXA0t();my %wHAcp2R7iP;foreach my $ZqYaiBmNpz(@KdnQkwHGlm){if($ZqYaiBmNpz=~ /^T_(.*)/){my $D8xwz25Kh3=$1;$D8xwz25Kh3=~ s#[^\d\w._-]##g;$wHAcp2R7iP{$D8xwz25Kh3}=$FvaYR8d3Tu->FVFE1uXA0t($ZqYaiBmNpz);}}if($FvaYR8d3Tu->Av0wm3HLAN(\%wHAcp2R7iP)){$FvaYR8d3Tu->idxircbtCk("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x61\x64\x64",$wHAcp2R7iP{"\x44\x49\x44"});$FvaYR8d3Tu->rOY8JLMXZI();}else{$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x75\x70\x64\x61\x74\x65"){my $tqCVyKOzFL=$FvaYR8d3Tu->FVFE1uXA0t("\x64\x61\x74\x61\x5f\x69\x64");my @KdnQkwHGlm=$FvaYR8d3Tu->FVFE1uXA0t();my %wHAcp2R7iP;foreach my $ZqYaiBmNpz(@KdnQkwHGlm){if($ZqYaiBmNpz=~ /^T_(.*)/){my $D8xwz25Kh3=$1;$D8xwz25Kh3=~ s#[^\d\w._-]##g;next if $D8xwz25Kh3 eq "\x49\x44";$wHAcp2R7iP{$D8xwz25Kh3}=$FvaYR8d3Tu->FVFE1uXA0t($ZqYaiBmNpz);}}if($FvaYR8d3Tu->QPmuSK9iLd($tqCVyKOzFL,\%wHAcp2R7iP)){$FvaYR8d3Tu->rOY8JLMXZI();}else{$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x74\x61\x72\x69\x66\x66\x5f\x6c\x69\x73\x74"){CRvZuUm7Ga($FvaYR8d3Tu);}elsif($TDCT05sRen eq "\x74\x61\x72\x69\x66\x66\x5f\x69\x6e\x66\x6f"){B47Csdy6F8($FvaYR8d3Tu,$FvaYR8d3Tu->FVFE1uXA0t("\x74\x61\x72\x69\x66\x66\x5f\x69\x64"));}elsif($TDCT05sRen eq "\x74\x61\x72\x69\x66\x66\x5f\x64\x65\x6c"){if($FvaYR8d3Tu->bNhveImyi9($FvaYR8d3Tu->FVFE1uXA0t("\x74\x61\x72\x69\x66\x66\x5f\x69\x64"))){$FvaYR8d3Tu->rOY8JLMXZI("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x74\x61\x72\x69\x66\x66\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$FvaYR8d3Tu->FVFE1uXA0t("\x64\x66"));}else{$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x74\x61\x72\x69\x66\x66\x5f\x61\x64\x64"){my @KdnQkwHGlm=$FvaYR8d3Tu->FVFE1uXA0t();my %wHAcp2R7iP;foreach my $ZqYaiBmNpz(@KdnQkwHGlm){if($ZqYaiBmNpz=~ /^T_(.*)/){my $D8xwz25Kh3=$1;$D8xwz25Kh3=~ s#[^\d\w._-]##g;$wHAcp2R7iP{$D8xwz25Kh3}=$FvaYR8d3Tu->FVFE1uXA0t($ZqYaiBmNpz);}}if($FvaYR8d3Tu->zSoAGteLzW(\%wHAcp2R7iP)){$FvaYR8d3Tu->rOY8JLMXZI();}else{$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x74\x61\x72\x69\x66\x66\x5f\x75\x70\x64\x61\x74\x65"){my $NY9JlLZ8Sh=$FvaYR8d3Tu->FVFE1uXA0t("\x74\x61\x72\x69\x66\x66\x5f\x69\x64");my @KdnQkwHGlm=$FvaYR8d3Tu->FVFE1uXA0t();my %wHAcp2R7iP;foreach my $ZqYaiBmNpz(@KdnQkwHGlm){if($ZqYaiBmNpz=~ /^T_(.*)/){my $D8xwz25Kh3=$1;$D8xwz25Kh3=~ s#[^\d\w._-]##g;next if $D8xwz25Kh3 eq "\x49\x44";$wHAcp2R7iP{$D8xwz25Kh3}=$FvaYR8d3Tu->FVFE1uXA0t($ZqYaiBmNpz);}}if($FvaYR8d3Tu->UcHO276qFr($NY9JlLZ8Sh,\%wHAcp2R7iP)){$FvaYR8d3Tu->rOY8JLMXZI();}else{$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x72\x65\x70\x6f\x72\x74\x5f\x6c\x69\x73\x74"){M5hLo9uHKf($FvaYR8d3Tu);}elsif($TDCT05sRen eq "\x72\x65\x70\x6f\x72\x74\x5f\x64\x65\x6c"){my $oTg8MXtsq7=$FvaYR8d3Tu->FVFE1uXA0t("\x72\x65\x70\x6f\x72\x74\x5f\x69\x64");unless($oTg8MXtsq7){$FvaYR8d3Tu->rOY8JLMXZI(undef,"\x4e\x6f\x20\x73\x65\x61\x72\x63\x68\x20\x72\x65\x70\x6f\x72\x74");}elsif(! $FvaYR8d3Tu->NQJON5mDca($oTg8MXtsq7)){$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}else{if($ENV{"\x48\x54\x54\x50\x5f\x52\x45\x46\x45\x52\x45\x52"}=~ /report_list/){$FvaYR8d3Tu->rOY8JLMXZI();}else{$FvaYR8d3Tu->rOY8JLMXZI("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x72\x65\x70\x6f\x72\x74\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$FvaYR8d3Tu->FVFE1uXA0t("\x64\x66"));}}}elsif($TDCT05sRen eq "\x72\x65\x70\x6f\x72\x74\x5f\x61\x64\x64"){if(my $q37kWq6Khl=$FvaYR8d3Tu->jQGI8ZK0xN($FvaYR8d3Tu->FVFE1uXA0t("\x52\x5f\x4e\x41\x4d\x45"),1)){$FvaYR8d3Tu->rOY8JLMXZI("?action=report_info&report_id=$q37kWq6Khl&df=".$FvaYR8d3Tu->FVFE1uXA0t("\x64\x66"));}else{$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x72\x65\x70\x6f\x72\x74\x5f\x69\x6e\x66\x6f"){my $oTg8MXtsq7=$FvaYR8d3Tu->FVFE1uXA0t("\x72\x65\x70\x6f\x72\x74\x5f\x69\x64")||1;my $VW9R8hOZlp=$FvaYR8d3Tu->zlr59yqEu0($oTg8MXtsq7)||[];my(%ZVM89EpeP7,@QIocDLeAaV);if(ref $VW9R8hOZlp eq "\x41\x52\x52\x41\x59" and $VW9R8hOZlp->[0]->{"\x45\x58\x54\x52\x41\x5f\x50\x41\x52\x41\x4d\x53"}){foreach my $e4Vj6T7ZFQ(split(/\s*\|\s*/,$VW9R8hOZlp->[0]->{"\x45\x58\x54\x52\x41\x5f\x50\x41\x52\x41\x4d\x53"})){my($DCIt1HZYuO,$rTMDfsJIC0,$z5EF3fNDCa)=split(/\s*:\s*/,$e4Vj6T7ZFQ,3);$ZVM89EpeP7{$DCIt1HZYuO}=$FvaYR8d3Tu->FVFE1uXA0t($DCIt1HZYuO);push @QIocDLeAaV,{name=>$DCIt1HZYuO,label=>$rTMDfsJIC0,value=>$ZVM89EpeP7{$DCIt1HZYuO}};}}dKUouA9SJq($FvaYR8d3Tu,"\x72\x65\x70\x6f\x72\x74\x5f\x69\x6e\x66\x6f\x2e\x74\x74",{REPORT_DATA=>$VW9R8hOZlp->[0],EXTRA_PARAMS=>\@QIocDLeAaV});}elsif($TDCT05sRen eq "\x72\x65\x70\x6f\x72\x74\x5f\x75\x70\x64\x61\x74\x65"){my($niaU4ZvS9t,$yq3CHK7ONo,$yLCDPxAnfE,$Ir8SFjHe6z,$oTg8MXtsq7)=$FvaYR8d3Tu->FVFE1uXA0t([qw(R_FILE R_QUERY R_FILTER_FILE R_POST_FILTER report_id)]);unless($oTg8MXtsq7){return $FvaYR8d3Tu->rOY8JLMXZI(undef,"\x4e\x6f\x20\x73\x65\x61\x72\x63\x68\x20\x72\x65\x70\x6f\x72\x74");}if($niaU4ZvS9t){$yq3CHK7ONo='';while(<$niaU4ZvS9t>){$yq3CHK7ONo.=$_;}}if($yLCDPxAnfE){$Ir8SFjHe6z='';while(<$yLCDPxAnfE>){$Ir8SFjHe6z.=$_;}}if($FvaYR8d3Tu->YEQJI8AGUP($oTg8MXtsq7,$FvaYR8d3Tu->FVFE1uXA0t([qw(R_NAME R_TYPE R_TTL R_DATE_START R_DATE_STOP R_ACCESS_GROUPS R_ACCESS_ACCOUNTS R_EXTRA_PARAMS)]),$yq3CHK7ONo,$Ir8SFjHe6z)){$FvaYR8d3Tu->rOY8JLMXZI();}else{$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x72\x65\x70\x6f\x72\x74\x5f\x72\x75\x6e"){xCTkYXIoAL($FvaYR8d3Tu);}elsif($TDCT05sRen eq "\x6e\x6f\x64\x65\x5f\x6c\x69\x73\x74"){HQSNp0MAcT($FvaYR8d3Tu);}elsif($TDCT05sRen eq "\x6e\x6f\x64\x65\x5f\x64\x65\x6c"){if($FvaYR8d3Tu->kZOWl1PAvB($FvaYR8d3Tu->FVFE1uXA0t("\x6e\x6f\x64\x65\x5f\x69\x64"))){$FvaYR8d3Tu->rOY8JLMXZI("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x6e\x6f\x64\x65\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$FvaYR8d3Tu->FVFE1uXA0t("\x64\x66"));}else{$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x6e\x6f\x64\x65\x5f\x61\x64\x64"){if($FvaYR8d3Tu->GZ45AOmzR6($FvaYR8d3Tu->FVFE1uXA0t([qw(N_NODE_ID N_NODE_IP N_DOWNLOAD_IP N_AMI_CREDS N_NODE_DESC N_NODE_LIMITS N_NODE_STAT_URL)]))){$FvaYR8d3Tu->rOY8JLMXZI();}else{$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x6e\x6f\x64\x65\x5f\x75\x70\x64\x61\x74\x65"){my $Za7bq4pt8j=$FvaYR8d3Tu->FVFE1uXA0t("\x6e\x6f\x64\x65\x5f\x69\x64");my @KdnQkwHGlm=$FvaYR8d3Tu->FVFE1uXA0t();my %wHAcp2R7iP;foreach my $ZqYaiBmNpz(@KdnQkwHGlm){if($ZqYaiBmNpz=~ /^N_(.*)/){my $D8xwz25Kh3=$1;$D8xwz25Kh3=~ s#[^\d\w._-]##g;next if $D8xwz25Kh3 eq "\x49\x44";$wHAcp2R7iP{$D8xwz25Kh3}=$FvaYR8d3Tu->FVFE1uXA0t($ZqYaiBmNpz);}}if($FvaYR8d3Tu->PHChb8yk96($Za7bq4pt8j,\%wHAcp2R7iP)){$FvaYR8d3Tu->idxircbtCk("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65");$FvaYR8d3Tu->rOY8JLMXZI();}else{$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x67\x72\x6f\x75\x70\x5f\x6c\x69\x73\x74"){MgVLpUrSJ1($FvaYR8d3Tu);}elsif($TDCT05sRen eq "\x67\x72\x6f\x75\x70\x5f\x64\x65\x6c"){if($FvaYR8d3Tu->dYx9wuF8yG($FvaYR8d3Tu->FVFE1uXA0t("\x67\x72\x6f\x75\x70\x5f\x69\x64"))){$FvaYR8d3Tu->rOY8JLMXZI("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x67\x72\x6f\x75\x70\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$FvaYR8d3Tu->FVFE1uXA0t("\x64\x66"));}else{$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x67\x72\x6f\x75\x70\x5f\x61\x64\x64"){my($JvNMS7F8br,$i3ctCz5Sfo)=$FvaYR8d3Tu->FVFE1uXA0t([qw(group_name node_name)]);if($FvaYR8d3Tu->iLVseYqHz1($JvNMS7F8br,$i3ctCz5Sfo)){my $zj9dw3Eomp=$FvaYR8d3Tu->OSiHDMhqxG(undef,$JvNMS7F8br);$FvaYR8d3Tu->rOY8JLMXZI("\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".$zj9dw3Eomp->[0]->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"},"\x64\x66\x3d".$FvaYR8d3Tu->FVFE1uXA0t("\x64\x66")));}else{$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x67\x72\x6f\x75\x70\x5f\x69\x6e\x66\x6f"){D5oyIkEf1e($FvaYR8d3Tu,$FvaYR8d3Tu->FVFE1uXA0t("\x67\x72\x6f\x75\x70\x5f\x69\x64"));}elsif($TDCT05sRen eq "\x67\x72\x6f\x75\x70\x5f\x75\x70\x64\x61\x74\x65"){my $YpvMdAU3ct=$FvaYR8d3Tu->FVFE1uXA0t("\x67\x72\x6f\x75\x70\x5f\x69\x64");my @KdnQkwHGlm=$FvaYR8d3Tu->FVFE1uXA0t();my %wHAcp2R7iP;foreach my $ZqYaiBmNpz(@KdnQkwHGlm){if($ZqYaiBmNpz=~ /^GR_(.*)/){my $D8xwz25Kh3=$1;$D8xwz25Kh3=~ s#[^\d\w._-]##g;next if $D8xwz25Kh3 eq "\x49\x44";$wHAcp2R7iP{$D8xwz25Kh3}=$FvaYR8d3Tu->FVFE1uXA0t($ZqYaiBmNpz);}}if($FvaYR8d3Tu->QJXDQ4dHY1($YpvMdAU3ct,\%wHAcp2R7iP)){$FvaYR8d3Tu->idxircbtCk("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65");$FvaYR8d3Tu->rOY8JLMXZI();}else{$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x64\x69\x64\x5f\x61\x64\x64"){my($tqCVyKOzFL,$rkRd8fYjOQ,$EyF6kxm2Qu,$yi9hgGmbxf,$DxepGSaU9c)=$FvaYR8d3Tu->FVFE1uXA0t([qw(did pn ac channels cnam)]);my @QFeu8v5WIQ=split(/\s*,\s*/,$tqCVyKOzFL);my $xlVD94Ss81=0;foreach my $gSW3oiRnY6(@QFeu8v5WIQ){if($FvaYR8d3Tu->zpI3HmTOn9($gSW3oiRnY6,$rkRd8fYjOQ,$EyF6kxm2Qu,$yi9hgGmbxf,$DxepGSaU9c)){$FvaYR8d3Tu->idxircbtCk("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x61\x64\x64",$gSW3oiRnY6);}else{$xlVD94Ss81++;}}if($xlVD94Ss81){$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : [ $xlVD94Ss81 / ".(scalar(@QFeu8v5WIQ))."\x20\x5d\x20".__LINE__);}else{$FvaYR8d3Tu->rOY8JLMXZI();}}elsif($TDCT05sRen eq "\x64\x69\x64\x5f\x64\x65\x6c"){my($t7xa6LmnYO,$rP8MTwraxb,$tqCVyKOzFL)=$FvaYR8d3Tu->FVFE1uXA0t([qw(did_id user_id did)]);if($FvaYR8d3Tu->rmOP8hzjYZ($t7xa6LmnYO,$rP8MTwraxb,$tqCVyKOzFL)){$FvaYR8d3Tu->idxircbtCk("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x64\x72\x6f\x70",$tqCVyKOzFL);$FvaYR8d3Tu->rOY8JLMXZI();}else{$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x64\x69\x64\x5f\x6c\x69\x73\x74"){Z2M73yZI6a($FvaYR8d3Tu);}elsif($TDCT05sRen eq "\x64\x69\x64\x5f\x61\x64\x64\x5f\x73\x69\x70\x64\x6f\x6d\x61\x69\x6e"){my($sayl5SX18P,$rkRd8fYjOQ,$EyF6kxm2Qu)=$FvaYR8d3Tu->FVFE1uXA0t([qw(domain pn ac)]);if($FvaYR8d3Tu->n4X8C9Vi5e(lc($sayl5SX18P),$rkRd8fYjOQ,$EyF6kxm2Qu)){$FvaYR8d3Tu->idxircbtCk("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x61\x64\x64","\x40".lc($sayl5SX18P));$FvaYR8d3Tu->rOY8JLMXZI();}else{$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x64\x69\x64\x5f\x64\x65\x6c\x5f\x73\x69\x70\x64\x6f\x6d\x61\x69\x6e"){my($A86c9glxd7,$rP8MTwraxb,$sayl5SX18P)=$FvaYR8d3Tu->FVFE1uXA0t([qw(domain_id user_id domain)]);if($FvaYR8d3Tu->qgemn9hxY1($A86c9glxd7,$rP8MTwraxb,lc($sayl5SX18P))){$FvaYR8d3Tu->idxircbtCk("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x64\x72\x6f\x70","\x40".lc($sayl5SX18P));$FvaYR8d3Tu->rOY8JLMXZI();}else{$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x64\x69\x64\x5f\x6c\x69\x73\x74\x5f\x73\x69\x70\x64\x6f\x6d\x61\x69\x6e"){yhmBV2HY3j($FvaYR8d3Tu);}elsif($TDCT05sRen eq "\x72\x6f\x75\x74\x65\x5f\x6c\x69\x73\x74"){if($FvaYR8d3Tu->FVFE1uXA0t("\x6e\x65\x65\x64\x5f\x6c\x6f\x6f\x6b\x75\x70")and $FvaYR8d3Tu->FVFE1uXA0t("\x63\x61\x6c\x6c\x65\x64\x5f\x69\x64")){return CeLO3NERUW($FvaYR8d3Tu);}dKUouA9SJq($FvaYR8d3Tu,"\x72\x6f\x75\x74\x65\x5f\x6c\x69\x73\x74\x2e\x74\x74",{ROUTES=>$FvaYR8d3Tu->sQ3ZDfluPF("\x69\x73\x5f\x61\x69")});}elsif($TDCT05sRen eq "\x72\x6f\x75\x74\x65\x5f\x61\x64\x64"){my @PKpjzC74Xl;if(my $PnZ6EI4hSG=$FvaYR8d3Tu->FVFE1uXA0t("\x63\x6c\x6f\x6e\x65\x5f\x69\x64")){my $txvcS8bi6W=$FvaYR8d3Tu->sQ3ZDfluPF("\x69\x73\x5f\x61\x69");if(ref($txvcS8bi6W)eq "\x41\x52\x52\x41\x59"){foreach my $mUb1MNaBTA(@{$txvcS8bi6W}){if($mUb1MNaBTA->{"\x44\x41\x54\x41\x5f\x49\x44"}eq $PnZ6EI4hSG){foreach my $rbUVf8jYyp(qw(PATTERN PEER PRIORITY SUBSTR EXT_NUMBER DESCRIPTION DEFCID LAST_ROUTE)){push @PKpjzC74Xl,$mUb1MNaBTA->{$rbUVf8jYyp};}last;}}}}else{@PKpjzC74Xl=$FvaYR8d3Tu->FVFE1uXA0t([qw(r_PATTERN r_PEER r_PRIORITY r_SUBSTR r_EXT_NUMBER r_DESCRIPTION r_DEFCID r_LAST_ROUTE)]);}if(scalar(@PKpjzC74Xl)and defined($FvaYR8d3Tu->wmMtejcDJy(@PKpjzC74Xl))){return $FvaYR8d3Tu->rOY8JLMXZI();}else{return $FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x72\x6f\x75\x74\x65\x5f\x75\x70\x64\x61\x74\x65"){if($FvaYR8d3Tu->c4Y9lJr60S($FvaYR8d3Tu->FVFE1uXA0t([qw(data_id r_PATTERN r_PEER r_PRIORITY r_SUBSTR r_EXT_NUMBER r_DESCRIPTION r_DEFCID r_LAST_ROUTE)]))){return $FvaYR8d3Tu->rOY8JLMXZI();}else{return $FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x72\x6f\x75\x74\x65\x5f\x64\x65\x6c"){my $fLqOl0uPkh;$fLqOl0uPkh="\x61\x6c\x6c" if $FvaYR8d3Tu->FVFE1uXA0t("\x64\x61\x74\x61\x5f\x69\x64")eq "\x61\x6c\x6c";if($FvaYR8d3Tu->bUqD9w0jvC($FvaYR8d3Tu->FVFE1uXA0t("\x64\x61\x74\x61\x5f\x69\x64"),$fLqOl0uPkh)){return $FvaYR8d3Tu->rOY8JLMXZI();}else{return $FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x75\x73\x65\x72\x5f\x75\x70\x64\x61\x74\x65"){my $rP8MTwraxb=$FvaYR8d3Tu->FVFE1uXA0t("\x75\x73\x65\x72\x5f\x69\x64");my @KdnQkwHGlm=$FvaYR8d3Tu->FVFE1uXA0t();my %wHAcp2R7iP;my $t2rAYB9PnZ=$FvaYR8d3Tu->OcTz91nQqu($rP8MTwraxb);unless(ref $t2rAYB9PnZ eq "\x48\x41\x53\x48"){$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);return;}my $z7P41F8rC0=$FvaYR8d3Tu->M9Ztzifv2j();%{$z7P41F8rC0}=%{$t2rAYB9PnZ};foreach my $ZqYaiBmNpz(@KdnQkwHGlm){if($ZqYaiBmNpz=~ /^US_(.*)/){my $D8xwz25Kh3=$1;$D8xwz25Kh3=~ s#[^\d\w._-]##g;next if $D8xwz25Kh3 eq "\x49\x44";if($FvaYR8d3Tu->FVFE1uXA0t($ZqYaiBmNpz)ne $t2rAYB9PnZ->{$D8xwz25Kh3}){$wHAcp2R7iP{$D8xwz25Kh3}=$FvaYR8d3Tu->FVFE1uXA0t($ZqYaiBmNpz);}}}if($FvaYR8d3Tu->wChrl768SW($rP8MTwraxb,\%wHAcp2R7iP)){$FvaYR8d3Tu->idxircbtCk("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65",undef,$rP8MTwraxb);$FvaYR8d3Tu->rOY8JLMXZI();}else{$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x75\x73\x65\x72\x5f\x75\x70\x64\x61\x74\x65\x5f\x70\x69\x6e"){my $rP8MTwraxb=$FvaYR8d3Tu->FVFE1uXA0t("\x75\x73\x65\x72\x5f\x69\x64");my $Z8IAtXlNoj=$FvaYR8d3Tu->FVFE1uXA0t("\x70\x69\x6e");if($FvaYR8d3Tu->WJjGd49Aas($rP8MTwraxb,$Z8IAtXlNoj)){$FvaYR8d3Tu->idxircbtCk("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65",undef,$rP8MTwraxb);$FvaYR8d3Tu->rOY8JLMXZI();}else{$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x75\x73\x65\x72\x5f\x61\x64\x64"){my($rkRd8fYjOQ,$YpvMdAU3ct,$zEQ8qhu1FA,$ZCMaZGtQqY,$EyF6kxm2Qu,$rP8MTwraxb)=$FvaYR8d3Tu->FVFE1uXA0t([qw(phone group_id conf_file uname user_ac user_id)]);my $z4nNkhPGUD={};foreach my $xzNIkUc2Wr(split(/\s*,\s*/,$FvaYR8d3Tu->VzAEujaiBr("\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($D8xwz25Kh3,$ah9T8fEJXb)=split(/:/,$xzNIkUc2Wr);$z4nNkhPGUD->{$ah9T8fEJXb||$D8xwz25Kh3}=$FvaYR8d3Tu->FVFE1uXA0t($D8xwz25Kh3);$z4nNkhPGUD->{$ah9T8fEJXb||$D8xwz25Kh3}='' unless defined $z4nNkhPGUD->{$ah9T8fEJXb||$D8xwz25Kh3};}if(my $EyF6kxm2Qu=$FvaYR8d3Tu->NVe9qGTgh7($rkRd8fYjOQ,$YpvMdAU3ct,$ZCMaZGtQqY,$EyF6kxm2Qu,$rP8MTwraxb,$z4nNkhPGUD)){$FvaYR8d3Tu->idxircbtCk("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x61\x64\x64",$EyF6kxm2Qu);if($zEQ8qhu1FA and-e $zEQ8qhu1FA){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"."$rkRd8fYjOQ $EyF6kxm2Qu $zEQ8qhu1FA &>/dev/null";}$FvaYR8d3Tu->rOY8JLMXZI("?action=user_info&ac=$EyF6kxm2Qu&df=".$FvaYR8d3Tu->FVFE1uXA0t("\x64\x66"));}else{$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x75\x73\x65\x72\x5f\x64\x65\x6c"){my($rP8MTwraxb,$XpNn7x6M5i)=$FvaYR8d3Tu->FVFE1uXA0t([qw(user_id single_user)]);if($FvaYR8d3Tu->Z39b48qoxu($rP8MTwraxb)){my $t2rAYB9PnZ=$FvaYR8d3Tu->OcTz91nQqu($rP8MTwraxb);if(ref $t2rAYB9PnZ eq "\x48\x41\x53\x48"){$FvaYR8d3Tu->idxircbtCk("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x64\x72\x6f\x70",$t2rAYB9PnZ->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"});}if($XpNn7x6M5i){$FvaYR8d3Tu->rOY8JLMXZI("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x75\x73\x65\x72\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$FvaYR8d3Tu->FVFE1uXA0t("\x64\x66"));}else{$FvaYR8d3Tu->rOY8JLMXZI();}}else{$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x75\x73\x65\x72\x5f\x69\x6e\x66\x6f"){EF4LOBoeJk($FvaYR8d3Tu);}elsif($TDCT05sRen eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x69\x73\x74"){OQWgwm4KoY($FvaYR8d3Tu);}elsif($TDCT05sRen eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x64\x65\x6c"){if($FvaYR8d3Tu->aZBKy9h872($FvaYR8d3Tu->FVFE1uXA0t("\x70\x61\x72\x74\x6e\x65\x72\x5f\x69\x64"))){$FvaYR8d3Tu->rOY8JLMXZI("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$FvaYR8d3Tu->FVFE1uXA0t("\x64\x66"));}else{$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x61\x64\x64"){my @KdnQkwHGlm=$FvaYR8d3Tu->FVFE1uXA0t();my %wHAcp2R7iP;foreach my $ZqYaiBmNpz(@KdnQkwHGlm){if($ZqYaiBmNpz=~ /^P_(.*)/){my $D8xwz25Kh3=$1;$D8xwz25Kh3=~ s#[^\d\w._-]##g;$wHAcp2R7iP{$D8xwz25Kh3}=$FvaYR8d3Tu->FVFE1uXA0t($ZqYaiBmNpz);}}if($FvaYR8d3Tu->ymFe5oMqAZ(\%wHAcp2R7iP,$FvaYR8d3Tu->FVFE1uXA0t("\x47\x52\x4f\x55\x50\x5f\x49\x44"))){$FvaYR8d3Tu->rOY8JLMXZI();}else{$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x75\x70\x64\x61\x74\x65"){my $MjSrAkC9P3=$FvaYR8d3Tu->FVFE1uXA0t("\x70\x61\x72\x74\x6e\x65\x72\x5f\x69\x64");my @KdnQkwHGlm=$FvaYR8d3Tu->FVFE1uXA0t();my %wHAcp2R7iP;foreach my $ZqYaiBmNpz(@KdnQkwHGlm){if($ZqYaiBmNpz=~ /^P_(.*)/){my $D8xwz25Kh3=$1;$D8xwz25Kh3=~ s#[^\d\w._-]##g;next if $D8xwz25Kh3 eq "\x49\x44";$wHAcp2R7iP{$D8xwz25Kh3}=$FvaYR8d3Tu->FVFE1uXA0t($ZqYaiBmNpz);if($D8xwz25Kh3 eq "\x54\x41\x47" and length($wHAcp2R7iP{$D8xwz25Kh3})==0){$wHAcp2R7iP{$D8xwz25Kh3}=undef;}}}if($FvaYR8d3Tu->IjvMi90dmq($MjSrAkC9P3,\%wHAcp2R7iP)){$FvaYR8d3Tu->rOY8JLMXZI();}else{$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x67\x72\x6f\x75\x70\x5f\x64\x65\x6c"){if($FvaYR8d3Tu->toYrZAqy8t($FvaYR8d3Tu->FVFE1uXA0t("\x70\x61\x72\x74\x6e\x65\x72\x5f\x69\x64"),$FvaYR8d3Tu->FVFE1uXA0t("\x67\x72\x6f\x75\x70\x5f\x69\x64"))){$FvaYR8d3Tu->rOY8JLMXZI("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$FvaYR8d3Tu->FVFE1uXA0t("\x64\x66"));}else{$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x67\x72\x6f\x75\x70\x5f\x61\x64\x64"){if($FvaYR8d3Tu->bqU4DCf9Ih($FvaYR8d3Tu->FVFE1uXA0t("\x70\x61\x72\x74\x6e\x65\x72\x5f\x69\x64"),$FvaYR8d3Tu->FVFE1uXA0t("\x67\x72\x6f\x75\x70\x5f\x69\x64"))){$FvaYR8d3Tu->rOY8JLMXZI("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$FvaYR8d3Tu->FVFE1uXA0t("\x64\x66"));}else{$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x70\x68\x6f\x6e\x65\x5f\x6c\x69\x73\x74"){NuyDWNilYB($FvaYR8d3Tu);}elsif($TDCT05sRen eq "\x70\x65\x65\x72\x5f\x6c\x69\x73\x74"){NAtGW6dHX1($FvaYR8d3Tu);}elsif($TDCT05sRen eq "\x61\x75\x74\x68\x5f\x6e\x61\x6d\x65\x5f\x72\x65\x73\x65\x74"){if(my $nU28xPHZTS=$FvaYR8d3Tu->jpiz8u6sEV($FvaYR8d3Tu->FVFE1uXA0t("\x69\x64"),$FvaYR8d3Tu->FVFE1uXA0t("\x70\x61\x63"),$FvaYR8d3Tu->FVFE1uXA0t("\x6e\x65\x77\x69\x64"),$FvaYR8d3Tu->FVFE1uXA0t("\x6e\x65\x77\x70\x77"))){my $TiDdM9B73N=$FvaYR8d3Tu->FVFE1uXA0t("\x6d\x6f\x64\x65");if($TiDdM9B73N eq "\x72\x65\x64\x69\x72"){return $FvaYR8d3Tu->rOY8JLMXZI();}else{my $OIB5AEzclp=$FvaYR8d3Tu->FVFE1uXA0t("\x64\x74\x79\x70\x65");if($OIB5AEzclp eq "\x70\x68\x6f\x6e\x65"){NuyDWNilYB($FvaYR8d3Tu);}else{NAtGW6dHX1($FvaYR8d3Tu);}}}else{$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x73\x69\x70\x5f\x63\x61\x6c\x6c\x5f\x6c\x69\x6d\x69\x74"){if($FvaYR8d3Tu->S59OuTxS0H($FvaYR8d3Tu->FVFE1uXA0t([qw(data_id user_id phone limit)]))){return $FvaYR8d3Tu->rOY8JLMXZI();}else{$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x70\x62\x78\x5f\x6d\x6f\x64\x65\x5f\x75\x70\x64\x61\x74\x65"){if($FvaYR8d3Tu->AJ2z0a8xMH($FvaYR8d3Tu->FVFE1uXA0t([qw(data_id need_reg user_id host PBXMODE)]))){return $FvaYR8d3Tu->rOY8JLMXZI();}else{return $FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x63\x6c\x6f\x6e\x65"){my($sqo8Y6nwXW,$q37kWq6Khl,$AlG38mf6oI,$XInv19hUeg,$TDCT05sRen,$utPMzA1ORK)=$FvaYR8d3Tu->FVFE1uXA0t([qw(tname id fname fid newaction noauto)]);my $nU28xPHZTS=$FvaYR8d3Tu->JWBcDGOLy7($sqo8Y6nwXW,$q37kWq6Khl,$AlG38mf6oI,$XInv19hUeg,$utPMzA1ORK);if(defined $nU28xPHZTS){$FvaYR8d3Tu->rOY8JLMXZI("\x3f\x61\x63\x74\x69\x6f\x6e\x3d".$TDCT05sRen."\x3d".$nU28xPHZTS);}else{$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x63\x6f\x75\x6e\x74\x65\x72\x73\x5f\x63\x6c\x65\x61\x6e"){my $dFBnP8TuWZ=$FvaYR8d3Tu->FVFE1uXA0t("\x61\x63");if($dFBnP8TuWZ){my $xFNxpUXmvC="\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".$dFBnP8TuWZ."\x20\x63\x6c\x65\x61\x6e";my $Wk9lKOSJ28=`$xFNxpUXmvC`;}$FvaYR8d3Tu->rOY8JLMXZI();}elsif($TDCT05sRen eq "\x73\x79\x73\x73\x74\x61\x74\x75\x73"){oYfuX3iBkp($FvaYR8d3Tu);}elsif($TDCT05sRen eq "\x72\x65\x70\x6f\x72\x74"){$FvaYR8d3Tu->j30azARfnj(200,"\x4f\x6b","\x43\x6f\x6e\x74\x65\x6e\x74\x2d\x74\x79\x70\x65\x3a\x20\x74\x65\x78\x74\x2f\x70\x6c\x61\x69\x6e",'');my $Ccdj8i19Tl=$FvaYR8d3Tu->FVFE1uXA0t("\x74\x79\x70\x65");if($Ccdj8i19Tl eq "\x73\x79\x73\x73\x74\x61\x74\x65"){my $jgcXEzpdNw=$FvaYR8d3Tu->nmKwRA3O2L("\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 $jgcXEzpdNw;}elsif($Ccdj8i19Tl 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($Ccdj8i19Tl 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($Ccdj8i19Tl 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($Ccdj8i19Tl 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($Ccdj8i19Tl 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($TDCT05sRen eq "\x63\x61\x6c\x6c\x5f\x6c\x6f\x67"){my $LMztHksdNL=$FvaYR8d3Tu->FVFE1uXA0t("\x63\x61\x6c\x6c\x5f\x69\x64");my $xFNxpUXmvC="find /var/log/VirtualPBX/backup/ -name 'XVB.log*.gz'";my @qcDo6pZgXr=`$xFNxpUXmvC`;push @qcDo6pZgXr,"\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 @qcDo6pZgXr;@qcDo6pZgXr=sort{(stat($b))[9]<=>(stat($a))[9]}@qcDo6pZgXr;my $ou8XxLjWTy='';local $|=1;$FvaYR8d3Tu->j30azARfnj(200,"\x4f\x6b","\x43\x6f\x6e\x74\x65\x6e\x74\x2d\x74\x79\x70\x65\x3a\x20\x74\x65\x78\x74\x2f\x70\x6c\x61\x69\x6e","#=== Call-ID $LMztHksdNL ");my $jHwXT9QBAZ=time;my $oGXRykHLN9=$FvaYR8d3Tu->FVFE1uXA0t("\x6d\x6c")||$FvaYR8d3Tu->VzAEujaiBr("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x4d\x41\x58\x5f\x4c\x4f\x47\x53")||3;my $mBgLM4NnYH=$FvaYR8d3Tu->FVFE1uXA0t("\x6d\x6c\x74")||$FvaYR8d3Tu->VzAEujaiBr("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x4d\x41\x58\x5f\x4c\x4f\x47\x53\x5f\x54\x4f")||20;$#qcDo6pZgXr=$oGXRykHLN9-1 if $#qcDo6pZgXr>$oGXRykHLN9-1;foreach my $OB48xFhRgn(@qcDo6pZgXr){my $NcgBWfCpdj='';$xFNxpUXmvC="grep '$LMztHksdNL' $OB48xFhRgn | tac";if($OB48xFhRgn=~ /gz$/){$xFNxpUXmvC="z$xFNxpUXmvC";}$NcgBWfCpdj=`$xFNxpUXmvC`;$ou8XxLjWTy.=$NcgBWfCpdj;print "=";if(time>$jHwXT9QBAZ+$mBgLM4NnYH){last;}}unless(length($ou8XxLjWTy)){print "\n\nCannot found data, the call is too old or log-files is too huge, try to grep in console\n";}else{my @CUbHzmW83l=split(/[\r\n]+/,$ou8XxLjWTy);print "\n\n".join("\n",reverse(@CUbHzmW83l));}}elsif($TDCT05sRen eq "\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74"){Tr4AhKbBaF($FvaYR8d3Tu);}elsif($TDCT05sRen eq "\x6d\x73\x67\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c"){my($mMLnGts3Jo,$dToOztDNZy)=split("\x2c",$FvaYR8d3Tu->FVFE1uXA0t("\x6d\x73\x67\x5f\x74\x79\x70\x65"),2);my @Xrb9fM32wa=map{int($_)}split("\x3a",$mMLnGts3Jo,10);if(scalar(@Xrb9fM32wa)){UH7oVSQFhG($FvaYR8d3Tu,\@Xrb9fM32wa,$dToOztDNZy);}else{UH7oVSQFhG($FvaYR8d3Tu,undef,$dToOztDNZy);}}elsif($TDCT05sRen eq "\x63\x61\x6c\x6c\x73\x5f\x68\x61\x6e\x67\x75\x70"){my($rP8MTwraxb,$LMztHksdNL)=$FvaYR8d3Tu->FVFE1uXA0t([qw(user_id call_id)]);if(length($LMztHksdNL)and length($rP8MTwraxb)){$FvaYR8d3Tu->pp9hbngcH8($LMztHksdNL,$rP8MTwraxb);}$FvaYR8d3Tu->rOY8JLMXZI();}elsif($TDCT05sRen eq "\x73\x69\x70\x5f\x6c\x6f\x67"){mlIQEJiW9Z($FvaYR8d3Tu);}elsif($TDCT05sRen eq "\x66\x32\x62"){my $ySjLWAmw8E=wN9ZJqCa1H($FvaYR8d3Tu);oYfuX3iBkp($FvaYR8d3Tu);}elsif($TDCT05sRen eq "\x75\x73\x65\x72\x5f\x6c\x69\x73\x74"){G7hfPS3ntm($FvaYR8d3Tu);}elsif($TDCT05sRen eq "\x62\x61\x63\x6b\x75\x70"){HPxNwBmAj5($FvaYR8d3Tu);}else{$FvaYR8d3Tu->rOY8JLMXZI("\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 EF4LOBoeJk{my $FvaYR8d3Tu=shift;my($EyF6kxm2Qu)=$FvaYR8d3Tu->FVFE1uXA0t("\x61\x63");my $zNpGzF2EkT=$FvaYR8d3Tu->IcADRQKgmj(0,$EyF6kxm2Qu,undef,undef);unless(ref $zNpGzF2EkT eq "\x41\x52\x52\x41\x59"){$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $k7TR3FMCaS=$FvaYR8d3Tu->OSiHDMhqxG();unless(ref $k7TR3FMCaS eq "\x41\x52\x52\x41\x59"){$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $z7P41F8rC0=$FvaYR8d3Tu->M9Ztzifv2j();%{$z7P41F8rC0}=(ID=>$zNpGzF2EkT->[0]->{"\x49\x44"},TARIFF_ID=>$zNpGzF2EkT->[0]->{"\x54\x41\x52\x49\x46\x46\x5f\x49\x44"});$zNpGzF2EkT->[0]->{"\x43\x55\x52\x5f\x43\x41\x4c\x4c\x53"}=$FvaYR8d3Tu->PanqhE4j3m("\x73\x68\x2d\x61\x63\x2d\x69\x6e\x2d".$zNpGzF2EkT->[0]->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"})||0;my @yY2L9HsJIB;foreach my $xzNIkUc2Wr(split(/\s*,\s*/,$FvaYR8d3Tu->VzAEujaiBr("\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($D8xwz25Kh3,$ah9T8fEJXb,$VjKutrOgZA)=split(/:/,$xzNIkUc2Wr);next unless $VjKutrOgZA;push @yY2L9HsJIB,{NAME=>$VjKutrOgZA,VAL=>$zNpGzF2EkT->[0]->{$D8xwz25Kh3},KEY=>$D8xwz25Kh3};}my $xFNxpUXmvC="\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".($zNpGzF2EkT->[0]->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"}||0);my $Wk9lKOSJ28=`$xFNxpUXmvC`;dKUouA9SJq($FvaYR8d3Tu,"\x75\x73\x65\x72\x5f\x69\x6e\x66\x6f\x2e\x74\x74",{USER=>$zNpGzF2EkT->[0],USER_COUNTERS=>$Wk9lKOSJ28,DIDS=>$FvaYR8d3Tu->vUJuq6QpMt(),DOMAINS=>$FvaYR8d3Tu->xS2i0zpw8x(),TARIFF=>$FvaYR8d3Tu->d9NPaHrLgY(),ADMIN_KEY=>$FvaYR8d3Tu->VzAEujaiBr("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x4b\x45\x59"),CUSTOM_FIELDS=>\@yY2L9HsJIB,GROUPS=>$k7TR3FMCaS,LIMITS=>$FvaYR8d3Tu->M19sbNHol4($zNpGzF2EkT->[0]->{"\x49\x44"})});}sub G7hfPS3ntm{my $FvaYR8d3Tu=shift;my($xJElBtxmzL,$zSUPx4rs9t,$Nga89zBZPy,$SQXkVJaE2j,$sxyIqhz3V0,$y7hRijxW0X,$NJQwtkqaOL,$sYZmKr5Sis,$RltKTSdBAQ)=$FvaYR8d3Tu->FVFE1uXA0t([[(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($zNpGzF2EkT,$k8stAUErJk)=$FvaYR8d3Tu->IcADRQKgmj($xJElBtxmzL,$zSUPx4rs9t,$Nga89zBZPy,$SQXkVJaE2j,$sxyIqhz3V0,$y7hRijxW0X,$NJQwtkqaOL,$sYZmKr5Sis,undef,$RltKTSdBAQ);unless(ref $zNpGzF2EkT eq "\x41\x52\x52\x41\x59"){$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $k7TR3FMCaS=$FvaYR8d3Tu->OSiHDMhqxG();unless(ref $k7TR3FMCaS eq "\x41\x52\x52\x41\x59"){$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $Lz9LK638JH=[];foreach my $BOHlwEk2ZR(split(/\s*;\s*/,$FvaYR8d3Tu->VzAEujaiBr("\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($OB48xFhRgn,$EUpKoC9h8m)=split(/:/,$BOHlwEk2ZR,2);unless($EUpKoC9h8m){$EUpKoC9h8m=$OB48xFhRgn;$EUpKoC9h8m=~ s{.*/([^/]+)$}{$1};}push @$Lz9LK638JH,{FILE=>$OB48xFhRgn,DESC=>$EUpKoC9h8m};}my $LFE7P9qNzO=1;foreach my $z7P41F8rC0(@{$zNpGzF2EkT}){$z7P41F8rC0->{"\x49\x44\x58"}=$xJElBtxmzL+$LFE7P9qNzO;$LFE7P9qNzO++;}dKUouA9SJq($FvaYR8d3Tu,"\x75\x73\x65\x72\x5f\x6c\x69\x73\x74\x2e\x74\x74",{USERS=>$zNpGzF2EkT,USERS_CNT=>$k8stAUErJk,GROUPS=>$k7TR3FMCaS,TEMPLATES=>$Lz9LK638JH,F_AC=>$zSUPx4rs9t,F_VN=>$Nga89zBZPy,F_GROUP=>$SQXkVJaE2j,F_UNAME=>$sxyIqhz3V0,F_STATUS=>$y7hRijxW0X,F_TARIFF=>$NJQwtkqaOL,F_DESC=>$sYZmKr5Sis,F_ID=>$RltKTSdBAQ,TARIFFS=>$FvaYR8d3Tu->DQxHM4dIYu("\x54\x41\x52\x49\x46\x46"),DEF_SH_DID=>$FvaYR8d3Tu->VzAEujaiBr("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x44\x45\x46\x5f\x53\x48\x5f\x44\x49\x44"),$FvaYR8d3Tu->cqGL29RrWo(1,$zNpGzF2EkT,$xJElBtxmzL)});}sub Z2M73yZI6a{my $FvaYR8d3Tu=shift;my($xJElBtxmzL,$zSUPx4rs9t,$Nga89zBZPy)=$FvaYR8d3Tu->FVFE1uXA0t([[(from=>0)],"\x66\x5f\x61\x63","\x66\x5f\x76\x6e"]);my $M751ByPG20=$FvaYR8d3Tu->w35D1xqpLm($xJElBtxmzL,$zSUPx4rs9t,$Nga89zBZPy);unless(ref $M751ByPG20 eq "\x41\x52\x52\x41\x59"){$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}dKUouA9SJq($FvaYR8d3Tu,"\x64\x69\x64\x5f\x6c\x69\x73\x74\x2e\x74\x74",{DIDS=>$M751ByPG20,F_AC=>$zSUPx4rs9t,F_VN=>$Nga89zBZPy,$FvaYR8d3Tu->cqGL29RrWo(1,$M751ByPG20,$xJElBtxmzL)});}sub yhmBV2HY3j{my $FvaYR8d3Tu=shift;my($xJElBtxmzL,$zSUPx4rs9t,$Nga89zBZPy)=$FvaYR8d3Tu->FVFE1uXA0t([[(from=>0)],"\x66\x5f\x61\x63","\x66\x5f\x76\x6e"]);my $qzU1ROwehI=$FvaYR8d3Tu->AZ3S6LM9K1($xJElBtxmzL,$zSUPx4rs9t,$Nga89zBZPy);unless(ref $qzU1ROwehI eq "\x41\x52\x52\x41\x59"){$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}dKUouA9SJq($FvaYR8d3Tu,"\x73\x69\x70\x64\x6f\x6d\x61\x69\x6e\x5f\x6c\x69\x73\x74\x2e\x74\x74",{DOMAINS=>$qzU1ROwehI,F_AC=>$zSUPx4rs9t,F_VN=>$Nga89zBZPy,$FvaYR8d3Tu->cqGL29RrWo(1,$qzU1ROwehI,$xJElBtxmzL)});}sub MgVLpUrSJ1{my $FvaYR8d3Tu=shift;my($xJElBtxmzL,$SQXkVJaE2j)=$FvaYR8d3Tu->FVFE1uXA0t([[(from=>0)],"\x66\x5f\x67\x72\x6f\x75\x70"]);my $k7TR3FMCaS=$FvaYR8d3Tu->OSiHDMhqxG(undef,$SQXkVJaE2j,$xJElBtxmzL);unless(ref $k7TR3FMCaS eq "\x41\x52\x52\x41\x59"){$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}dKUouA9SJq($FvaYR8d3Tu,"\x67\x72\x6f\x75\x70\x5f\x6c\x69\x73\x74\x2e\x74\x74",{GROUPS=>$k7TR3FMCaS,NODES=>$FvaYR8d3Tu->GcPukE76ga(),F_GROUP=>$SQXkVJaE2j,$FvaYR8d3Tu->cqGL29RrWo(1,$k7TR3FMCaS,$xJElBtxmzL)});}sub D5oyIkEf1e{my($FvaYR8d3Tu,$YpvMdAU3ct,$JvNMS7F8br)=@_;my $zj9dw3Eomp=$FvaYR8d3Tu->OSiHDMhqxG($YpvMdAU3ct,$JvNMS7F8br);unless(ref $zj9dw3Eomp eq "\x41\x52\x52\x41\x59"){$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;MgVLpUrSJ1($FvaYR8d3Tu);}else{my $fVNU0uRKiq=$FvaYR8d3Tu->DQxHM4dIYu("\x56\x42\x54\x59\x50\x45\x53");foreach my $q7tsiJTwuX(@$fVNU0uRKiq){$q7tsiJTwuX->{"\x4c\x49\x4d\x49\x54\x5f\x56\x41\x4c\x55\x45"}=$zj9dw3Eomp->[0]->{"\x56\x42\x4c\x5f".$q7tsiJTwuX->{"\x49\x44"}};}dKUouA9SJq($FvaYR8d3Tu,"\x67\x72\x6f\x75\x70\x5f\x69\x6e\x66\x6f\x2e\x74\x74",{GROUP=>$zj9dw3Eomp->[0],NODES=>$FvaYR8d3Tu->DQxHM4dIYu("\x4e\x4f\x44\x45","\x4e\x4f\x44\x45\x5f\x49\x44"),TARIFFS=>$FvaYR8d3Tu->DQxHM4dIYu("\x54\x41\x52\x49\x46\x46"),LANG=>$FvaYR8d3Tu->DQxHM4dIYu("\x4c\x41\x4e\x47",undef,{STATUS=>1}),VB_TYPES=>$fVNU0uRKiq});}}sub B47Csdy6F8{my($FvaYR8d3Tu,$q37kWq6Khl)=@_;my $SGVc7JMRWl=$FvaYR8d3Tu->GvgFo8E6NJ(undef,$q37kWq6Khl);if(ref $SGVc7JMRWl ne "\x41\x52\x52\x41\x59" or ref $SGVc7JMRWl->[0]ne "\x48\x41\x53\x48"){$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}dKUouA9SJq($FvaYR8d3Tu,"\x74\x61\x72\x69\x66\x66\x5f\x69\x6e\x66\x6f\x2e\x74\x74",{%{$SGVc7JMRWl->[0]},CURRENCY=>$FvaYR8d3Tu->DQxHM4dIYu("\x43\x55\x52\x52\x45\x4e\x43\x59","\x43\x55\x52\x5f\x49\x44"),});}sub dP1No8qWTd{my($FvaYR8d3Tu,$ztEqpUewJo)=@_;my($xJElBtxmzL,$n28gwTVaft,$O0b21OUPC6,$G3j2qgSd8z,$LMztHksdNL,$ySbyniXW7o,$FGow7Px5BJ,$EyF6kxm2Qu,$Bn7cL6yx58,$LRGsSmvDlC,$tNq8D0gAHL,$SNi8O9Qhso,$JJXfg5ALa9,$dEtYXI52zb)=$FvaYR8d3Tu->FVFE1uXA0t([[(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("$LMztHksdNL$ySbyniXW7o$FGow7Px5BJ$n28gwTVaft$O0b21OUPC6$Bn7cL6yx58$EyF6kxm2Qu$LRGsSmvDlC$JJXfg5ALa9")){my $X3bwT8FyOi=$FvaYR8d3Tu->VzAEujaiBr("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x41\x49");$n28gwTVaft=$FvaYR8d3Tu->MKVjIJR5aZ(time-86400*$X3bwT8FyOi,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$O0b21OUPC6=$FvaYR8d3Tu->MKVjIJR5aZ(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my $YOHBtymMRq;if($EyF6kxm2Qu=~ /,/){$YOHBtymMRq=[split(/\s*,\s*/,$EyF6kxm2Qu)];}else{$YOHBtymMRq=$EyF6kxm2Qu;}my $JgkeKfMZLN=$FvaYR8d3Tu->gzZPHj2Y9T($LMztHksdNL,$ySbyniXW7o,$FGow7Px5BJ,$xJElBtxmzL,$FvaYR8d3Tu->E2zGx7vyZq($n28gwTVaft),$FvaYR8d3Tu->E2zGx7vyZq($O0b21OUPC6),$Bn7cL6yx58,$YOHBtymMRq,$LRGsSmvDlC,$JJXfg5ALa9,$ztEqpUewJo,$SNi8O9Qhso,$tNq8D0gAHL,$dEtYXI52zb);unless(ref $JgkeKfMZLN eq "\x41\x52\x52\x41\x59"){$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my(@KdnQkwHGlm,$Y9S02NOVWE,$gJrbWmxoXc);my $k7TR3FMCaS=$FvaYR8d3Tu->OSiHDMhqxG();if($JgkeKfMZLN){my $djKwxbGC2I=$xJElBtxmzL+1;unless($LMztHksdNL){foreach my $q7tsiJTwuX(@{$JgkeKfMZLN}){$q7tsiJTwuX->{"\x43\x44\x52\x5f\x4e\x55\x4d"}=$djKwxbGC2I++;$q7tsiJTwuX->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$FvaYR8d3Tu->MKVjIJR5aZ($q7tsiJTwuX->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});}}else{foreach my $q7tsiJTwuX(@{$JgkeKfMZLN}){$q7tsiJTwuX->{"\x43\x44\x52\x5f\x4e\x55\x4d"}=$djKwxbGC2I++;$q7tsiJTwuX->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$FvaYR8d3Tu->MKVjIJR5aZ($q7tsiJTwuX->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});if($q7tsiJTwuX->{"\x54\x59\x50\x45"}eq "\x43\x61\x6c\x6c"){$Y9S02NOVWE=$q7tsiJTwuX->{"\x45\x58\x54\x5f\x4e\x55\x4d\x42\x45\x52"};$gJrbWmxoXc=$q7tsiJTwuX->{"\x44\x4f\x57\x4e\x4c\x4f\x41\x44\x5f\x49\x50"};}}$Y9S02NOVWE=$LMztHksdNL unless length($Y9S02NOVWE);if(ref $JgkeKfMZLN and ref $JgkeKfMZLN->[0]){my $Vl9xCqcJAR=$FvaYR8d3Tu->MKVjIJR5aZ($JgkeKfMZLN->[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 @KdnQkwHGlm,(JS_DATE_STR=>$Vl9xCqcJAR);push @KdnQkwHGlm,(SIP_CALL_ID=>$Y9S02NOVWE,SIP_CALL_START=>$JgkeKfMZLN->[0]->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"},SIP_CALL_STOP=>$JgkeKfMZLN->[$#{$JgkeKfMZLN}]->{"\x53\x54\x4f\x50\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"},SIP_NODE_IP=>$gJrbWmxoXc);}}}my $iyRtKF5Jzr;if($LMztHksdNL){$iyRtKF5Jzr="\x63\x64\x72\x73\x5f\x61\x63\x74\x5f\x6c\x69\x73\x74\x2e\x74\x74";}elsif($ztEqpUewJo){$iyRtKF5Jzr="\x61\x63\x74\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c\x2e\x74\x74";push @KdnQkwHGlm,(CDR_ACT_TYPE=>$tNq8D0gAHL,CDR_ACT_EXT=>$SNi8O9Qhso);unless($FvaYR8d3Tu->yuGSzPDNTV()->{"\x44\x46"}){push @KdnQkwHGlm,(ACT_TYPES=>$FvaYR8d3Tu->{"\x5f\x4c\x49\x53\x54\x53"}->{"\x41\x43\x54\x49\x56\x49\x54\x49\x45\x53"});}}else{$iyRtKF5Jzr="\x63\x64\x72\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74";push @KdnQkwHGlm,(CDR_CALL_TYPE=>$Bn7cL6yx58);}return dKUouA9SJq($FvaYR8d3Tu,$iyRtKF5Jzr,{CDR_LIST=>$JgkeKfMZLN,CDR_CALL_ID=>$LMztHksdNL,CDR_CALLER_ID=>$ySbyniXW7o,CDR_CALLED_ID=>$FGow7Px5BJ,CDR_AC=>$EyF6kxm2Qu,CDR_DURATION=>$LRGsSmvDlC,CDR_DATA=>$JJXfg5ALa9,CDR_GROUP=>$dEtYXI52zb,GROUPS=>$k7TR3FMCaS,FROM_TIME=>$n28gwTVaft,TO_TIME=>$O0b21OUPC6,SMART_TIME=>$G3j2qgSd8z,@KdnQkwHGlm,$FvaYR8d3Tu->cqGL29RrWo(1,$JgkeKfMZLN,$xJElBtxmzL)});}sub Tcuk5KzTJH{my $FvaYR8d3Tu=shift;my($xJElBtxmzL,$EyF6kxm2Qu,$n28gwTVaft,$O0b21OUPC6,$G3j2qgSd8z,$RLemc47fEg,$VRnLCIuAQD,$JJXfg5ALa9,$o78ogT65i4)=$FvaYR8d3Tu->FVFE1uXA0t([[(from=>0)],qw(ac from_time to_time smart_time ext_num action_type data cid)]);unless(length("$EyF6kxm2Qu$n28gwTVaft$O0b21OUPC6$RLemc47fEg$VRnLCIuAQD$JJXfg5ALa9$o78ogT65i4")){my $X3bwT8FyOi=$FvaYR8d3Tu->VzAEujaiBr("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x41\x49");$n28gwTVaft=$FvaYR8d3Tu->MKVjIJR5aZ(time-86400*$X3bwT8FyOi,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$O0b21OUPC6=$FvaYR8d3Tu->MKVjIJR5aZ(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my $YOHBtymMRq;if($EyF6kxm2Qu=~ /,/){$YOHBtymMRq=[split(/\s*,\s*/,$EyF6kxm2Qu)];}else{$YOHBtymMRq=$EyF6kxm2Qu;}my $xRhLCKIZsw=$FvaYR8d3Tu->RUqIkahfVS($YOHBtymMRq,$RLemc47fEg,$JJXfg5ALa9,$xJElBtxmzL,$VRnLCIuAQD,$FvaYR8d3Tu->E2zGx7vyZq($n28gwTVaft),$FvaYR8d3Tu->E2zGx7vyZq($O0b21OUPC6),$o78ogT65i4);if(ref $xRhLCKIZsw ne "\x41\x52\x52\x41\x59"){$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}elsif($xRhLCKIZsw){my $djKwxbGC2I=$xJElBtxmzL+1;foreach my $q7tsiJTwuX(@{$xRhLCKIZsw}){$q7tsiJTwuX->{"\x4a\x5f\x4e\x55\x4d"}=$djKwxbGC2I++;$q7tsiJTwuX->{"\x4a\x5f\x44\x41\x54\x45"}=$FvaYR8d3Tu->MKVjIJR5aZ($q7tsiJTwuX->{"\x43\x52\x45\x41\x54\x45\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});}}return dKUouA9SJq($FvaYR8d3Tu,"\x6a\x6f\x75\x72\x6e\x61\x6c\x5f\x6c\x69\x73\x74\x2e\x74\x74",{J_LIST=>$xRhLCKIZsw,J_DATA=>$JJXfg5ALa9,J_EXT_NUM=>$RLemc47fEg,J_ACTION=>$VRnLCIuAQD,J_AC=>$EyF6kxm2Qu,J_CID=>$o78ogT65i4,ACTIONS=>$FvaYR8d3Tu->MfV7FHDvp9(),FROM_TIME=>$n28gwTVaft,TO_TIME=>$O0b21OUPC6,SMART_TIME=>$G3j2qgSd8z,$FvaYR8d3Tu->cqGL29RrWo(1,$xRhLCKIZsw,$xJElBtxmzL)});}sub GuR1PYW4UG{my $FvaYR8d3Tu=shift;my($xJElBtxmzL,$Nga89zBZPy)=$FvaYR8d3Tu->FVFE1uXA0t([[(from=>0)],"\x66\x5f\x76\x6e"]);my $rweq1cS0WY=$FvaYR8d3Tu->AMky7au56e($xJElBtxmzL,$Nga89zBZPy);unless(ref $rweq1cS0WY eq "\x41\x52\x52\x41\x59"){$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}dKUouA9SJq($FvaYR8d3Tu,"\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x6c\x69\x73\x74\x2e\x74\x74",{DIDS=>$rweq1cS0WY,LANG=>$FvaYR8d3Tu->DQxHM4dIYu("\x4c\x41\x4e\x47",undef,{STATUS=>1}),F_VN=>$Nga89zBZPy,$FvaYR8d3Tu->cqGL29RrWo(1,$rweq1cS0WY,$xJElBtxmzL)});}sub CRvZuUm7Ga{my $FvaYR8d3Tu=shift;my $xJElBtxmzL=$FvaYR8d3Tu->FVFE1uXA0t("\x66\x72\x6f\x6d")||0;my $SGVc7JMRWl=$FvaYR8d3Tu->GvgFo8E6NJ($xJElBtxmzL);unless(ref $SGVc7JMRWl eq "\x41\x52\x52\x41\x59"){$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}dKUouA9SJq($FvaYR8d3Tu,"\x74\x61\x72\x69\x66\x66\x5f\x6c\x69\x73\x74\x2e\x74\x74",{TARIFFS=>$SGVc7JMRWl,CURRENCY=>$FvaYR8d3Tu->DQxHM4dIYu("\x43\x55\x52\x52\x45\x4e\x43\x59","\x43\x55\x52\x5f\x49\x44"),$FvaYR8d3Tu->cqGL29RrWo(1,$SGVc7JMRWl,$xJElBtxmzL)});}sub HQSNp0MAcT{my $FvaYR8d3Tu=shift;my $xJElBtxmzL=$FvaYR8d3Tu->FVFE1uXA0t("\x66\x72\x6f\x6d")||0;my $WRLxTqK2WQ=$FvaYR8d3Tu->GcPukE76ga($xJElBtxmzL);unless(ref $WRLxTqK2WQ eq "\x41\x52\x52\x41\x59"){$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}else{foreach my $C9u4Nv5s86(@{$WRLxTqK2WQ}){$C9u4Nv5s86->{"\x73\x74\x61\x74"}=$FvaYR8d3Tu->PanqhE4j3m("\x73\x68\x2d\x73\x74\x61\x74\x2d".$C9u4Nv5s86->{"\x4e\x4f\x44\x45\x5f\x49\x44"})||{};$C9u4Nv5s86->{"\x73\x74\x61\x74"}->{"\x63\x61\x6c\x6c\x73"}=$FvaYR8d3Tu->PanqhE4j3m("\x73\x68\x2d\x63\x61\x6c\x6c\x73\x2d".$C9u4Nv5s86->{"\x4e\x4f\x44\x45\x5f\x49\x44"})||0;}}dKUouA9SJq($FvaYR8d3Tu,"\x6e\x6f\x64\x65\x5f\x6c\x69\x73\x74\x2e\x74\x74",{NODES=>$WRLxTqK2WQ,$FvaYR8d3Tu->cqGL29RrWo(1,$WRLxTqK2WQ,$xJElBtxmzL)});}sub M5hLo9uHKf{my $FvaYR8d3Tu=shift;my($xJElBtxmzL,$GgdJCDkFy1,$OIB5AEzclp)=$FvaYR8d3Tu->FVFE1uXA0t([[(from=>0)],"\x6e\x61\x6d\x65","\x74\x79\x70\x65"]);my $c5s4FYJh8l=$FvaYR8d3Tu->zlr59yqEu0(undef,$OIB5AEzclp,$GgdJCDkFy1,$xJElBtxmzL);unless(ref $c5s4FYJh8l eq "\x41\x52\x52\x41\x59"){$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;return 0;}dKUouA9SJq($FvaYR8d3Tu,"\x72\x65\x70\x6f\x72\x74\x5f\x6c\x69\x73\x74\x2e\x74\x74",{REPORTS=>$c5s4FYJh8l,SEARCH_NAME=>$GgdJCDkFy1,SEARCH_TYPE=>$OIB5AEzclp,$FvaYR8d3Tu->cqGL29RrWo(1,$c5s4FYJh8l,$xJElBtxmzL)});}sub xCTkYXIoAL{my $FvaYR8d3Tu=shift;my($oTg8MXtsq7,$eJ4e7kYMrt,$EtxsYru4jz,$ohVX7fFjN4,$G3j2qgSd8z,$OIB5AEzclp)=$FvaYR8d3Tu->FVFE1uXA0t([qw(report_id need_excel from_time to_time smart_time type)]);my $XunfSjBH7l=$FvaYR8d3Tu->E2zGx7vyZq($EtxsYru4jz);my $sdsuC5cbVX=$FvaYR8d3Tu->E2zGx7vyZq($ohVX7fFjN4);my(%ZVM89EpeP7,@QIocDLeAaV);my $VW9R8hOZlp=$FvaYR8d3Tu->zlr59yqEu0($oTg8MXtsq7);if(ref $VW9R8hOZlp eq "\x41\x52\x52\x41\x59" and $VW9R8hOZlp->[0]->{"\x45\x58\x54\x52\x41\x5f\x50\x41\x52\x41\x4d\x53"}){foreach my $e4Vj6T7ZFQ(split(/\s*\|\s*/,$VW9R8hOZlp->[0]->{"\x45\x58\x54\x52\x41\x5f\x50\x41\x52\x41\x4d\x53"})){my($DCIt1HZYuO,$rTMDfsJIC0,$z5EF3fNDCa)=split(/\s*:\s*/,$e4Vj6T7ZFQ,3);$ZVM89EpeP7{$DCIt1HZYuO}=$FvaYR8d3Tu->FVFE1uXA0t($DCIt1HZYuO);push @QIocDLeAaV,{name=>$DCIt1HZYuO,label=>$rTMDfsJIC0,value=>$ZVM89EpeP7{$DCIt1HZYuO}};}}my $mUb1MNaBTA=$FvaYR8d3Tu->PUokyATWLf($oTg8MXtsq7,$OIB5AEzclp,$eJ4e7kYMrt,$XunfSjBH7l,$sdsuC5cbVX,\%ZVM89EpeP7);if($eJ4e7kYMrt){if($mUb1MNaBTA){if($mUb1MNaBTA=~ /xlsx$/){return $FvaYR8d3Tu->r14BEJaLr6($mUb1MNaBTA,"\x61\x70\x70\x6c\x69\x63\x61\x74\x69\x6f\x6e\x2f\x78\x6c\x73\x78");}else{return $FvaYR8d3Tu->r14BEJaLr6($mUb1MNaBTA,"\x74\x65\x78\x74\x2f\x63\x73\x76");}}}unless(ref $mUb1MNaBTA eq "\x41\x52\x52\x41\x59"){$FvaYR8d3Tu->{"\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";$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);return 0;}my $RyF5hUmBsk=[];my $Uht0UvP2Xk=[];foreach my $vrzUVj7GNX(@{$mUb1MNaBTA->[1]}){my $ZqYaiBmNpz=$vrzUVj7GNX;if($ZqYaiBmNpz=~ s/^=//){push @{$Uht0UvP2Xk},{name=>$ZqYaiBmNpz,align=>"\x6c\x65\x66\x74"};}elsif($ZqYaiBmNpz=~ s/=$//){push @{$Uht0UvP2Xk},{name=>$ZqYaiBmNpz,align=>"\x72\x69\x67\x68\x74"};}else{push @{$Uht0UvP2Xk},{name=>$ZqYaiBmNpz,align=>"\x63\x65\x6e\x74\x65\x72"};}}for(0..$#{$mUb1MNaBTA->[0]}){$RyF5hUmBsk->[$_]=[];foreach my $ZqYaiBmNpz(@{$mUb1MNaBTA->[1]}){my $oOH1VfmWe5=$mUb1MNaBTA->[0]->[$_]->{$ZqYaiBmNpz};my $yM8SUWO0z1=0;if($ZqYaiBmNpz=~ /^=?ACCESS_CODE=?$/){$oOH1VfmWe5="<a href='/ai?ac=$oOH1VfmWe5&action=user_info'>$oOH1VfmWe5</a>";$yM8SUWO0z1=1;}if($ZqYaiBmNpz=~ /^=/){push @{$RyF5hUmBsk->[$_]},{value=>$oOH1VfmWe5,align=>"\x6c\x65\x66\x74",is_raw=>$yM8SUWO0z1};}elsif($ZqYaiBmNpz=~ /=$/){push @{$RyF5hUmBsk->[$_]},{value=>$oOH1VfmWe5,align=>"\x72\x69\x67\x68\x74",is_raw=>$yM8SUWO0z1};}else{push @{$RyF5hUmBsk->[$_]},{value=>$oOH1VfmWe5,align=>"\x63\x65\x6e\x74\x65\x72",is_raw=>$yM8SUWO0z1};}}}dKUouA9SJq($FvaYR8d3Tu,"\x72\x65\x70\x6f\x72\x74\x5f\x72\x65\x73\x75\x6c\x74\x2e\x74\x74",{FROM_TIME=>($EtxsYru4jz||$mUb1MNaBTA->[3]),TO_TIME=>($ohVX7fFjN4||$mUb1MNaBTA->[4]),SMART_TIME=>$G3j2qgSd8z,REPORT_RAW_DATA=>$mUb1MNaBTA->[5],REPORT_RESULT=>$RyF5hUmBsk,REPORT_HDR=>$Uht0UvP2Xk,REPORT_DATA=>$mUb1MNaBTA->[2],EXTRA_PARAMS=>\@QIocDLeAaV});}sub OQWgwm4KoY{my $FvaYR8d3Tu=shift;my $xJElBtxmzL=$FvaYR8d3Tu->FVFE1uXA0t("\x66\x72\x6f\x6d")||0;my($dIJVuBSFl6,$yWGNKcHIL5)=$FvaYR8d3Tu->HjDIHTik6p($xJElBtxmzL);my $k7TR3FMCaS;foreach my $zZYJ13RsEB(@{$dIJVuBSFl6}){$zZYJ13RsEB->{"\x47\x52\x4f\x55\x50\x5f\x49\x44\x5f\x42\x49\x4e"}=[split(/,/,$zZYJ13RsEB->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})];}unless(ref $dIJVuBSFl6 eq "\x41\x52\x52\x41\x59"){$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}else{$k7TR3FMCaS=$FvaYR8d3Tu->OSiHDMhqxG();unless(ref $k7TR3FMCaS eq "\x41\x52\x52\x41\x59"){$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}}my $LFE7P9qNzO=1;foreach my $zZYJ13RsEB(@{$dIJVuBSFl6}){$zZYJ13RsEB->{"\x49\x44\x58"}=$xJElBtxmzL+$LFE7P9qNzO;$LFE7P9qNzO++;}dKUouA9SJq($FvaYR8d3Tu,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x69\x73\x74\x2e\x74\x74",{PARTNERS=>$dIJVuBSFl6,PARTNERS_CNT=>$yWGNKcHIL5,GROUPS=>$k7TR3FMCaS,$FvaYR8d3Tu->cqGL29RrWo(1,$dIJVuBSFl6,$xJElBtxmzL)});}sub NuyDWNilYB{my $FvaYR8d3Tu=shift;my($xJElBtxmzL,$UzmXABbRkH,$eF96oXlbz7,$ySjLWAmw8E,$EyF6kxm2Qu,$O6BYh9ZWJk,$Va1qEfV0De)=$FvaYR8d3Tu->FVFE1uXA0t([[(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 $YOHBtymMRq;if($EyF6kxm2Qu=~ /,/){$YOHBtymMRq=[split(/\s*,\s*/,$EyF6kxm2Qu)];}else{$YOHBtymMRq=$EyF6kxm2Qu;}my($CekWlIqbAO,$gIiNtg5dKr)=$FvaYR8d3Tu->Xo9xrgdw6c($xJElBtxmzL,0,$UzmXABbRkH,$eF96oXlbz7,undef,$ySjLWAmw8E,$YOHBtymMRq,$O6BYh9ZWJk,undef,undef,$Va1qEfV0De);unless(ref $CekWlIqbAO eq "\x41\x52\x52\x41\x59"){$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $T1I8MWFwNV=time;my $LFE7P9qNzO=1;foreach my $rkRd8fYjOQ(@$CekWlIqbAO){if($T1I8MWFwNV<$rkRd8fYjOQ->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}){$rkRd8fYjOQ->{"\x52\x45\x47\x5f\x53\x54\x41\x54\x55\x53"}="\x52\x65\x67\x69\x73\x74\x65\x72\x65\x64";}else{$rkRd8fYjOQ->{"\x52\x45\x47\x5f\x53\x54\x41\x54\x55\x53"}="\x55\x6e\x72\x65\x67\x69\x73\x74\x65\x72\x65\x64";}$rkRd8fYjOQ->{"\x52\x45\x47\x5f\x45\x58\x50\x49\x52\x45\x44"}=$rkRd8fYjOQ->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}? $FvaYR8d3Tu->MKVjIJR5aZ($rkRd8fYjOQ->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}):"\x2d";$rkRd8fYjOQ->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}=$rkRd8fYjOQ->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}? $FvaYR8d3Tu->MKVjIJR5aZ($rkRd8fYjOQ->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}):"\x2d";$rkRd8fYjOQ->{"\x49\x44\x58"}=$xJElBtxmzL+$LFE7P9qNzO;$LFE7P9qNzO++;}dKUouA9SJq($FvaYR8d3Tu,"\x70\x68\x6f\x6e\x65\x5f\x6c\x69\x73\x74\x2e\x74\x74",{SIPDEV=>$CekWlIqbAO,SIPDEV_CNT=>$gIiNtg5dKr,AUTHNAME=>$eF96oXlbz7,PHONE=>$UzmXABbRkH,IP=>$ySjLWAmw8E,AC=>$EyF6kxm2Qu,UA=>$O6BYh9ZWJk,RST=>$Va1qEfV0De,FROM=>$xJElBtxmzL,ALLOW_RESET=>($FvaYR8d3Tu->VzAEujaiBr("\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=>$FvaYR8d3Tu->VzAEujaiBr("\x53\x49\x50\x5f\x41\x49\x5f\x41\x55\x54\x48\x5f\x45\x44\x49\x54"),$FvaYR8d3Tu->cqGL29RrWo(1,$CekWlIqbAO,$xJElBtxmzL)});}sub Tr4AhKbBaF{my $FvaYR8d3Tu=shift;my($xJElBtxmzL,$ySbyniXW7o,$FGow7Px5BJ,$EyF6kxm2Qu,$Bn7cL6yx58,$PLGQdBRSel,$eC8mIBukG1,$LRGsSmvDlC,$dEtYXI52zb)=$FvaYR8d3Tu->FVFE1uXA0t([[(from=>0)],qw(caller_id called_id ac call_type refresh c2c duration group)]);my $YOHBtymMRq;if($EyF6kxm2Qu=~ /,/){$YOHBtymMRq=[split(/\s*,\s*/,$EyF6kxm2Qu)];}else{$YOHBtymMRq=$EyF6kxm2Qu;}my $YwUdmHkVcI=$FvaYR8d3Tu->XUVqrGnMmP($ySbyniXW7o,$FGow7Px5BJ,$YOHBtymMRq,$Bn7cL6yx58,$LRGsSmvDlC,$dEtYXI52zb,undef,undef,$xJElBtxmzL);unless(ref $YwUdmHkVcI eq "\x41\x52\x52\x41\x59"){$YwUdmHkVcI=[];}if($YwUdmHkVcI){foreach my $q7tsiJTwuX(@{$YwUdmHkVcI}){$q7tsiJTwuX->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$FvaYR8d3Tu->MKVjIJR5aZ($q7tsiJTwuX->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});$q7tsiJTwuX->{"\x43\x44\x52\x5f\x44\x55\x52\x41\x54\x49\x4f\x4e"}=time-$q7tsiJTwuX->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"};}}my $k7TR3FMCaS=$FvaYR8d3Tu->OSiHDMhqxG();unless(ref $k7TR3FMCaS eq "\x41\x52\x52\x41\x59"){$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}$eC8mIBukG1||=$FvaYR8d3Tu->VzAEujaiBr("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x44\x45\x46\x5f\x43\x32\x43");if($eC8mIBukG1){$eC8mIBukG1=~ s#ph=[^&;]+##;$eC8mIBukG1=~ s#user_vars=([^&;]+)##;if($1){$eC8mIBukG1=",$1&$eC8mIBukG1";}elsif($eC8mIBukG1=~ /&/ and $eC8mIBukG1 !~ /^[,&]/){$eC8mIBukG1="&$eC8mIBukG1";}}return dKUouA9SJq($FvaYR8d3Tu,"\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74",{CALLS_COUNT=>scalar(@$YwUdmHkVcI),CALLS_LIST=>$YwUdmHkVcI,CDR_CALLER_ID=>$ySbyniXW7o,CDR_CALLED_ID=>$FGow7Px5BJ,CDR_AC=>$EyF6kxm2Qu,CDR_CALL_TYPE=>$Bn7cL6yx58,CDR_REFRESH_TIME=>$PLGQdBRSel,CDR_C2C=>$eC8mIBukG1,CDR_DURATION=>$LRGsSmvDlC,CDR_GROUP=>$dEtYXI52zb,GROUPS=>$k7TR3FMCaS,$FvaYR8d3Tu->cqGL29RrWo(1,$YwUdmHkVcI,$xJElBtxmzL)});}sub NAtGW6dHX1{my $FvaYR8d3Tu=shift;my($xJElBtxmzL,$eF96oXlbz7,$Q4Ir3lDB16,$EyF6kxm2Qu,$PuF27HBsp8,$NVXvikdc90)=$FvaYR8d3Tu->FVFE1uXA0t([[(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 $YOHBtymMRq;if($EyF6kxm2Qu=~ /,/){$YOHBtymMRq=[split(/\s*,\s*/,$EyF6kxm2Qu)];}else{$YOHBtymMRq=$EyF6kxm2Qu;}my($w390befqwL,$rm3OPJnZgp)=$FvaYR8d3Tu->Xo9xrgdw6c($xJElBtxmzL,1,undef,$eF96oXlbz7,$Q4Ir3lDB16,undef,$YOHBtymMRq,undef,$PuF27HBsp8,$NVXvikdc90);unless(ref $w390befqwL eq "\x41\x52\x52\x41\x59"){$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $LFE7P9qNzO=1;foreach my $zZYJ13RsEB(@{$w390befqwL}){if($zZYJ13RsEB->{"\x4e\x45\x45\x44\x5f\x52\x45\x47"}and length($zZYJ13RsEB->{"\x75\x73\x65\x72\x6e\x61\x6d\x65"})){if($zZYJ13RsEB->{"\x68\x6f\x73\x74"}eq "\x64\x79\x6e\x61\x6d\x69\x63"){my $T1I8MWFwNV=time;if($T1I8MWFwNV<$zZYJ13RsEB->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}){$zZYJ13RsEB->{"\x52\x45\x47\x5f\x44\x41\x54\x41"}={state=>"\x52\x65\x67\x69\x73\x74\x65\x72\x65\x64"};}else{$zZYJ13RsEB->{"\x52\x45\x47\x5f\x44\x41\x54\x41"}={state=>"\x55\x6e\x72\x65\x67\x69\x73\x74\x65\x72\x65\x64"};}}elsif($zZYJ13RsEB->{"\x70\x6f\x72\x74"}eq "\x35\x30\x36\x30"){$zZYJ13RsEB->{"\x52\x45\x47\x5f\x44\x41\x54\x41"}=$FvaYR8d3Tu->PanqhE4j3m("\x73\x68\x2d\x73\x69\x70\x2d\x72\x65\x67\x73\x2d".$zZYJ13RsEB->{"\x6e\x61\x6d\x65"});}else{$zZYJ13RsEB->{"\x52\x45\x47\x5f\x44\x41\x54\x41"}=$FvaYR8d3Tu->PanqhE4j3m("\x73\x68\x2d\x73\x69\x70\x2d\x72\x65\x67\x73\x2d".$zZYJ13RsEB->{"\x68\x6f\x73\x74"}."\x3a".$zZYJ13RsEB->{"\x70\x6f\x72\x74"}."\x3a".$zZYJ13RsEB->{"\x75\x73\x65\x72\x6e\x61\x6d\x65"});}}$zZYJ13RsEB->{"\x49\x44\x58"}=$xJElBtxmzL+$LFE7P9qNzO;$LFE7P9qNzO++;}dKUouA9SJq($FvaYR8d3Tu,"\x70\x65\x65\x72\x5f\x6c\x69\x73\x74\x2e\x74\x74",{SIPDEV=>$w390befqwL,SIPDEV_CNT=>$rm3OPJnZgp,AUTHNAME=>$eF96oXlbz7,HOST=>$Q4Ir3lDB16,NEED_REG=>$PuF27HBsp8,PBXMODE=>$NVXvikdc90,AC=>$EyF6kxm2Qu,FROM=>$xJElBtxmzL,$FvaYR8d3Tu->cqGL29RrWo(1,$w390befqwL,$xJElBtxmzL)});}sub d90p8XIrMC{my($FvaYR8d3Tu)=@_;my($n28gwTVaft,$O0b21OUPC6,$G3j2qgSd8z,$ySbyniXW7o,$Bn7cL6yx58,$FGow7Px5BJ,$LRGsSmvDlC,$AYAtpKLX8H,$CTU9dtZoQK)=$FvaYR8d3Tu->FVFE1uXA0t([qw(from_time to_time smart_time caller_id call_type called_id duration data raw_chart_data)]);unless(length("$n28gwTVaft$O0b21OUPC6$ySbyniXW7o$Bn7cL6yx58$FGow7Px5BJ$LRGsSmvDlC$AYAtpKLX8H")){my $X3bwT8FyOi=$FvaYR8d3Tu->VzAEujaiBr("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x41\x49");$n28gwTVaft=$FvaYR8d3Tu->MKVjIJR5aZ(time-86400*$X3bwT8FyOi,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$O0b21OUPC6=$FvaYR8d3Tu->MKVjIJR5aZ(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my $JJXfg5ALa9=$FvaYR8d3Tu->dMxS3gPs0h($ySbyniXW7o,$FvaYR8d3Tu->E2zGx7vyZq(($n28gwTVaft||"\x30\x30\x3a\x30\x30")),$FvaYR8d3Tu->E2zGx7vyZq($O0b21OUPC6),($FvaYR8d3Tu->FVFE1uXA0t("\x63\x68\x61\x72\x74\x5f\x67\x72\x6f\x75\x70\x5f\x70\x65\x72\x69\x6f\x64")||"\x64"),$Bn7cL6yx58,$FGow7Px5BJ,$LRGsSmvDlC,$AYAtpKLX8H,$CTU9dtZoQK,undef,"\x69\x73\x5f\x61\x69");if($CTU9dtZoQK){unless($JJXfg5ALa9){$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}else{if($JJXfg5ALa9=~ /xlsx$/){return $FvaYR8d3Tu->r14BEJaLr6($JJXfg5ALa9,"\x61\x70\x70\x6c\x69\x63\x61\x74\x69\x6f\x6e\x2f\x78\x6c\x73\x78");}else{return $FvaYR8d3Tu->r14BEJaLr6($JJXfg5ALa9,"\x74\x65\x78\x74\x2f\x63\x73\x76");}}}my $JeYqjHJmMi;unless(ref $JJXfg5ALa9 eq "\x41\x52\x52\x41\x59"){$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}else{$JeYqjHJmMi=$FvaYR8d3Tu->MKVjIJR5aZ($JJXfg5ALa9->[2])."\x20\x2d\x20".$FvaYR8d3Tu->MKVjIJR5aZ($JJXfg5ALa9->[3]||time);}return dKUouA9SJq($FvaYR8d3Tu,"\x63\x64\x72\x73\x5f\x63\x68\x61\x72\x74\x2e\x74\x74",{CDR_LIST=>$JJXfg5ALa9->[0],CDR_HEADER=>$JeYqjHJmMi,CDR_PERIOD=>$JJXfg5ALa9->[1],CDR_CALLER_ID=>$ySbyniXW7o,CDR_CALLED_ID=>$FGow7Px5BJ,CDR_CALL_TYPE=>$Bn7cL6yx58,CDR_DURATION=>$LRGsSmvDlC,CDR_DATA=>$AYAtpKLX8H,CDR_WITH_ASR=>$FvaYR8d3Tu->VzAEujaiBr("\x43\x47\x49\x5f\x53\x54\x41\x54\x5f\x57\x49\x54\x48\x5f\x41\x53\x52"),EXCEL_MODE=>$FvaYR8d3Tu->VzAEujaiBr("\x43\x47\x49\x5f\x45\x58\x43\x45\x4c\x5f\x4d\x4f\x44\x45"),SMART_TIME=>$G3j2qgSd8z,FROM_TIME=>$n28gwTVaft,TO_TIME=>$O0b21OUPC6});}sub UH7oVSQFhG{my($FvaYR8d3Tu,$brPSVz48O9,$dToOztDNZy)=@_;my($xJElBtxmzL,$n28gwTVaft,$O0b21OUPC6,$G3j2qgSd8z,$ySbyniXW7o,$FGow7Px5BJ,$LRGsSmvDlC,$N6ZQITGvlc,$EyF6kxm2Qu)=$FvaYR8d3Tu->FVFE1uXA0t([[(from=>0)],qw(from_time to_time smart_time caller_id called_id duration any_did ac)]);$FvaYR8d3Tu->{"\x5f\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}->{MSG_IN_PAGE}=$FvaYR8d3Tu->VzAEujaiBr("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x4d\x53\x47\x5f\x49\x4e\x5f\x50\x41\x47\x45");unless(length("$n28gwTVaft$O0b21OUPC6$ySbyniXW7o$FGow7Px5BJ$LRGsSmvDlC$N6ZQITGvlc$EyF6kxm2Qu")){my $X3bwT8FyOi=$FvaYR8d3Tu->VzAEujaiBr("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x41\x49");$n28gwTVaft=$FvaYR8d3Tu->MKVjIJR5aZ(time-86400*$X3bwT8FyOi,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$O0b21OUPC6=$FvaYR8d3Tu->MKVjIJR5aZ(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my $YOHBtymMRq;if($EyF6kxm2Qu=~ /,/){$YOHBtymMRq=[split(/\s*,\s*/,$EyF6kxm2Qu)];}else{$YOHBtymMRq=$EyF6kxm2Qu;}my $EnS9jbzacW=$FvaYR8d3Tu->V5tqwYZhPg(0,$xJElBtxmzL,undef,$brPSVz48O9,$FvaYR8d3Tu->E2zGx7vyZq($n28gwTVaft),$FvaYR8d3Tu->E2zGx7vyZq($O0b21OUPC6),$ySbyniXW7o,$FGow7Px5BJ,$dToOztDNZy,$LRGsSmvDlC,$N6ZQITGvlc,"\x69\x73\x5f\x61\x69",$YOHBtymMRq);unless(ref $EnS9jbzacW eq "\x41\x52\x52\x41\x59"){$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}elsif($EnS9jbzacW){my $djKwxbGC2I=$xJElBtxmzL+1;foreach my $RJXbTAPoR8(@{$EnS9jbzacW}){$RJXbTAPoR8->{"\x4d\x53\x47\x5f\x4e\x55\x4d"}=$djKwxbGC2I++;$RJXbTAPoR8->{"\x4d\x53\x47\x5f\x44\x41\x54\x45"}=$FvaYR8d3Tu->MKVjIJR5aZ($RJXbTAPoR8->{"\x43\x52\x45\x41\x54\x45\x5f\x54\x49\x4d\x45"});}}return dKUouA9SJq($FvaYR8d3Tu,"\x6d\x65\x73\x73\x61\x67\x65\x73\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c\x2e\x74\x74",{CGI_URL=>$FvaYR8d3Tu->VzAEujaiBr("\x43\x47\x49\x5f\x55\x52\x4c"),MSG_LIST=>$EnS9jbzacW,FROM_TIME=>$n28gwTVaft,TO_TIME=>$O0b21OUPC6,SMART_TIME=>$G3j2qgSd8z,CALLER_ID=>$ySbyniXW7o,CALLED_ID=>$FGow7Px5BJ,ANY_DID=>$N6ZQITGvlc,DURATION=>$LRGsSmvDlC,ACCESS_CODE=>$EyF6kxm2Qu,MSG_TYPE=>(ref $brPSVz48O9 ? join("\x3a",@$brPSVz48O9):'').(defined $dToOztDNZy ? ",$dToOztDNZy":''),$FvaYR8d3Tu->cqGL29RrWo(0,$EnS9jbzacW,$xJElBtxmzL)});}sub dKUouA9SJq{my($FvaYR8d3Tu,$xW6bwfEDd2,$JJXfg5ALa9)=@_;my $BOHlwEk2ZR=Template::EasyTT->new({});my $txIkobn5w6=$FvaYR8d3Tu->VzAEujaiBr("\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 $Z8RNYCtDbE='';$JJXfg5ALa9->{"\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}=$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"};$JJXfg5ALa9->{"\x55\x53\x45\x5f\x42\x49\x4c\x4c\x49\x4e\x47"}=$FvaYR8d3Tu->VzAEujaiBr("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x55\x53\x45\x5f\x42\x49\x4c\x4c\x49\x4e\x47");$JJXfg5ALa9->{"\x44\x59\x4e\x41\x4d\x49\x43\x5f\x44\x49\x41\x4c\x4f\x55\x54"}=$FvaYR8d3Tu->VzAEujaiBr("\x53\x49\x50\x5f\x44\x59\x4e\x41\x4d\x49\x43\x5f\x44\x49\x41\x4c\x4f\x55\x54");$JJXfg5ALa9->{"\x55\x4e\x49\x58\x54\x49\x4d\x45"}=time;my @h85ZYxA329;if(length $ENV{"\x50\x41\x54\x48\x5f\x49\x4e\x46\x4f"}){@h85ZYxA329=split(/\//,substr($ENV{"\x50\x41\x54\x48\x5f\x49\x4e\x46\x4f"},1));}my $TpOZqw4P8J=$FvaYR8d3Tu->VzAEujaiBr("\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 $WoxZPRTi9p=$FvaYR8d3Tu->VzAEujaiBr("\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 $h85ZYxA329[0]){my($CaO7PXe0ZS,$z9hW06O8JI)=split(/:/,$h85ZYxA329[0]);$TpOZqw4P8J=$CaO7PXe0ZS if length $CaO7PXe0ZS;$WoxZPRTi9p=$z9hW06O8JI if length $z9hW06O8JI;}my $rMiUXf0kW8=$FvaYR8d3Tu->FVFE1uXA0t("\x64\x66");if($rMiUXf0kW8){my $L0Wt1o3JCP=0;if(length($FvaYR8d3Tu->VzAEujaiBr("\x43\x47\x49\x5f\x54\x52\x55\x53\x54\x45\x44\x5f\x34\x5f\x41\x49\x5f\x44\x46"))){my $HXpir8qjgf=($ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"}||"\x30\x2e\x30\x2e\x30\x2e\x30");if(index("\x2c".$FvaYR8d3Tu->VzAEujaiBr("\x43\x47\x49\x5f\x54\x52\x55\x53\x54\x45\x44\x5f\x34\x5f\x41\x49\x5f\x44\x46")."\x2c",",$HXpir8qjgf,")>-1 or $FvaYR8d3Tu->VzAEujaiBr("\x43\x47\x49\x5f\x54\x52\x55\x53\x54\x45\x44\x5f\x34\x5f\x41\x49\x5f\x44\x46")eq "\x2a"){$L0Wt1o3JCP=1;}}$rMiUXf0kW8='' unless $L0Wt1o3JCP;}unless($rMiUXf0kW8){$BOHlwEk2ZR->operators_add("\x64\x69\x76\x32",sub{return $_[0]% 2});$BOHlwEk2ZR->filters_add("\x67\x6d\x74\x69\x6d\x65",sub{return scalar(gmtime($_[1]))});$BOHlwEk2ZR->filters_add("\x62\x69\x6c\x6c\x5f\x66\x6c\x6f\x61\x74",sub{return sprintf("\x25\x2e".($FvaYR8d3Tu->VzAEujaiBr("\x42\x49\x4c\x4c\x49\x4e\x47\x5f\x52\x4f\x55\x4e\x44\x49\x4e\x47\x5f\x34\x47\x55\x49")||2)."\x66",$_[1])});$BOHlwEk2ZR->filters_add("\x6c\x6f\x63\x61\x6c\x65\x5f\x6d\x73\x67",sub{my $Q17jX0WpYc=$FvaYR8d3Tu->jstdEDPBr5($_[1],$WoxZPRTi9p);$Q17jX0WpYc=~ s#&#&amp;#gs;$Q17jX0WpYc=~ s#\x22#&quot;#gs;$Q17jX0WpYc=~ s#<#&lt;#gs;$Q17jX0WpYc=~ s#>#&gt;#gs;$Q17jX0WpYc=~ s#\x27#&apos;#gs;return $Q17jX0WpYc;});if(-e "$txIkobn5w6/$TpOZqw4P8J/$xW6bwfEDd2"){$BOHlwEk2ZR->process("$txIkobn5w6/$TpOZqw4P8J/$xW6bwfEDd2",$JJXfg5ALa9,\$Z8RNYCtDbE);}else{$BOHlwEk2ZR->process("$txIkobn5w6/$xW6bwfEDd2",$JJXfg5ALa9,\$Z8RNYCtDbE);}}unless($rMiUXf0kW8){$FvaYR8d3Tu->j30azARfnj(200,"\x4f\x6b",undef,$Z8RNYCtDbE.$FvaYR8d3Tu->jstdEDPBr5("\x67\x36\x31\x33","\x43"));}elsif($rMiUXf0kW8 eq "\x78\x6d\x6c"){require XML::Simple;$Z8RNYCtDbE=XML::Simple::XMLout($JJXfg5ALa9);$FvaYR8d3Tu->XeSMKRzEf1(200,"\x4f\x6b",undef,$Z8RNYCtDbE);}elsif($rMiUXf0kW8 eq "\x6a\x73\x6f\x6e"){require JSON::XS;my $y2DfJG9NYE=JSON::XS->new();$FvaYR8d3Tu->j30azARfnj(200,"\x4f\x6b","\x43\x6f\x6e\x74\x65\x6e\x74\x2d\x74\x79\x70\x65\x3a\x20\x61\x70\x70\x6c\x69\x63\x61\x74\x69\x6f\x6e\x2f\x6a\x73\x6f\x6e",$y2DfJG9NYE->encode($JJXfg5ALa9));}}sub CeLO3NERUW{my $FvaYR8d3Tu=shift;my($HMuUxnCab0,$Q63RjFwq7l,$F5cK6ZmVyz)=$FvaYR8d3Tu->FVFE1uXA0t([qw(caller_id called_id vars)]);my($UbBVEaCZcd,%W8vKqGuw1h,$btw8Agb32G,$Nra9Zb8ltY,@aVsG7FXEP8);$Q63RjFwq7l="\x30\x30\x30" unless length $Q63RjFwq7l;$HMuUxnCab0="\x30\x30\x30" unless length $HMuUxnCab0;foreach my $B9iMTGaVKt(split(/\s*,\s*/,$F5cK6ZmVyz)){my($D8xwz25Kh3,$XiYm9Oe085)=split(/\s*=\s*/,$B9iMTGaVKt);$Nra9Zb8ltY->{$D8xwz25Kh3}=$XiYm9Oe085;}my $TF045I8q17=$FvaYR8d3Tu->eGUdcz0T8C($Q63RjFwq7l,$HMuUxnCab0,$Nra9Zb8ltY);my $dg8GtUZszE='';if($Q63RjFwq7l){$dg8GtUZszE=$FvaYR8d3Tu->TcU23BP0Sa($Q63RjFwq7l);if($dg8GtUZszE){$btw8Agb32G="$Q63RjFwq7l [ $dg8GtUZszE ]";}}if(ref $TF045I8q17 eq "\x41\x52\x52\x41\x59"){foreach my $t2rAYB9PnZ(@{$TF045I8q17}){if(exists $t2rAYB9PnZ->{"\x44\x41\x54\x41\x5f\x49\x44"}){$W8vKqGuw1h{$t2rAYB9PnZ->{"\x44\x41\x54\x41\x5f\x49\x44"}}=($t2rAYB9PnZ->{"\x50\x48\x4f\x4e\x45"}||$Q63RjFwq7l);}}}unless($FvaYR8d3Tu->yuGSzPDNTV()->{"\x44\x46"}){@aVsG7FXEP8=(ROUTE_CALLER_ID=>$HMuUxnCab0,ROUTE_CALLED_ID=>$Q63RjFwq7l,ROUTE_VARS=>$F5cK6ZmVyz);}my $txvcS8bi6W=[];if(keys %W8vKqGuw1h){my $NlXMvRzDxZ=$FvaYR8d3Tu->sQ3ZDfluPF("\x69\x73\x5f\x61\x69");foreach my $t2rAYB9PnZ(@$NlXMvRzDxZ){if(exists $W8vKqGuw1h{$t2rAYB9PnZ->{"\x44\x41\x54\x41\x5f\x49\x44"}}){if($Q63RjFwq7l ne $W8vKqGuw1h{$t2rAYB9PnZ->{"\x44\x41\x54\x41\x5f\x49\x44"}}){$t2rAYB9PnZ->{"\x53\x55\x42\x53\x54\x52\x5f\x52\x45\x53\x55\x4c\x54"}=$W8vKqGuw1h{$t2rAYB9PnZ->{"\x44\x41\x54\x41\x5f\x49\x44"}};}push @$txvcS8bi6W,$t2rAYB9PnZ;}}}dKUouA9SJq($FvaYR8d3Tu,"\x72\x6f\x75\x74\x65\x5f\x6c\x69\x73\x74\x2e\x74\x74",{ROUTES=>$txvcS8bi6W,MATCH_RESULTS=>$btw8Agb32G,@aVsG7FXEP8});}sub wN9ZJqCa1H{my $FvaYR8d3Tu=shift;my($DqNtEgbxeF,$ySjLWAmw8E,$TiDdM9B73N)=$FvaYR8d3Tu->FVFE1uXA0t([qw(node ip mode)]);if($TiDdM9B73N eq "\x77\x6c\x61\x64\x64"){$FvaYR8d3Tu->Wb3CHR9x5W($DqNtEgbxeF,$TiDdM9B73N,$ySjLWAmw8E);}elsif($TiDdM9B73N eq "\x77\x6c\x64\x65\x6c"){$FvaYR8d3Tu->Wb3CHR9x5W($DqNtEgbxeF,$TiDdM9B73N,$ySjLWAmw8E);}elsif($ySjLWAmw8E){$FvaYR8d3Tu->nsYZdAFnuC($DqNtEgbxeF,$ySjLWAmw8E);}}sub HPxNwBmAj5{my $FvaYR8d3Tu=shift;my($OIB5AEzclp,$q37kWq6Khl)=$FvaYR8d3Tu->FVFE1uXA0t([qw(type id)]);my($F1TXZQspIg,$m19ST3JUVR);my $kZPDcCVXOb=1;if($OIB5AEzclp eq "\x73\x79\x73"){$m19ST3JUVR=$FvaYR8d3Tu->VzAEujaiBr("\x50\x41\x54\x48\x5f\x53\x59\x53\x5f\x42\x41\x43\x4b\x55\x50\x5f\x44\x49\x52");$F1TXZQspIg="\x74\x67\x7a";}elsif($OIB5AEzclp eq "\x64\x62"){$m19ST3JUVR=$FvaYR8d3Tu->VzAEujaiBr("\x50\x41\x54\x48\x5f\x44\x42\x5f\x42\x41\x43\x4b\x55\x50\x5f\x44\x49\x52");$F1TXZQspIg="\x67\x7a";}else{$kZPDcCVXOb=0;}$q37kWq6Khl=~ s/\D//gs;$kZPDcCVXOb=0 unless int($q37kWq6Khl);if($kZPDcCVXOb and-e "$m19ST3JUVR/$q37kWq6Khl.$F1TXZQspIg"){return $FvaYR8d3Tu->r14BEJaLr6("$m19ST3JUVR/$q37kWq6Khl.$F1TXZQspIg");}else{$FvaYR8d3Tu->j30azARfnj(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 oYfuX3iBkp{my $FvaYR8d3Tu=shift;my $jgcXEzpdNw=$FvaYR8d3Tu->nmKwRA3O2L("\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 $R3Ho92C8j4;if($jgcXEzpdNw=~ s/^\x24VAR1/\$R3Ho92C8j4/){eval "$jgcXEzpdNw";}unless(ref $R3Ho92C8j4 eq "\x48\x41\x53\x48"){$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $DqNtEgbxeF=$FvaYR8d3Tu->FVFE1uXA0t("\x6e\x6f\x64\x65");my $sbiKw37e6I=$FvaYR8d3Tu->nsYZdAFnuC($DqNtEgbxeF);unless(ref $sbiKw37e6I eq "\x41\x52\x52\x41\x59"){$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $Sk0TbYXfiW=$FvaYR8d3Tu->Wb3CHR9x5W();unless(ref $Sk0TbYXfiW eq "\x41\x52\x52\x41\x59"){$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}$FvaYR8d3Tu->{"\x5f\x43\x4f\x4e\x46\x5f\x4f\x52\x49\x47"}={};$FvaYR8d3Tu->d5y9ZKn0Ci("\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 $Yf5JI1NBil=[];my $PeDPCxUSXb={};foreach my $D8xwz25Kh3(keys %{$FvaYR8d3Tu->{"\x5f\x43\x4f\x4e\x46\x5f\x4f\x52\x49\x47"}}){$PeDPCxUSXb->{$D8xwz25Kh3}=1;}foreach my $D8xwz25Kh3(sort keys %{$PeDPCxUSXb}){if($FvaYR8d3Tu->{"\x5f\x43\x4f\x4e\x46\x5f\x4f\x52\x49\x47"}->{$D8xwz25Kh3}ne $FvaYR8d3Tu->{"\x5f\x43\x4f\x4e\x46"}->{$D8xwz25Kh3}){next if $D8xwz25Kh3=~ /(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 $w2IqrcpQeC=$FvaYR8d3Tu->{"\x5f\x43\x4f\x4e\x46\x5f\x4f\x52\x49\x47"}->{$D8xwz25Kh3};my $dqVy8MUjgS=$FvaYR8d3Tu->{"\x5f\x43\x4f\x4e\x46"}->{$D8xwz25Kh3};$w2IqrcpQeC=~ s#([,;])#$1 #g;$dqVy8MUjgS=~ s#([,;])#$1 #g;push @$Yf5JI1NBil,[uc($D8xwz25Kh3),$w2IqrcpQeC,$dqVy8MUjgS];}}dKUouA9SJq($FvaYR8d3Tu,"\x73\x79\x73\x73\x74\x61\x74\x75\x73\x2e\x74\x74",{F2B_WL=>$Sk0TbYXfiW,F2B_CNT_WL=>scalar(@$Sk0TbYXfiW),F2B=>$sbiKw37e6I,F2B_CNT=>scalar(@$sbiKw37e6I),RAW=>$R3Ho92C8j4->{"\x52\x41\x57"},CPU=>$R3Ho92C8j4->{"\x43\x50\x55"},MEM=>$R3Ho92C8j4->{"\x4d\x45\x4d"},SWAP=>$R3Ho92C8j4->{"\x53\x57\x41\x50"},DISK=>$R3Ho92C8j4->{"\x44\x49\x53\x4b"},SYS=>$R3Ho92C8j4->{"\x53\x59\x53\x54\x45\x4d"},AST=>$R3Ho92C8j4->{"\x41\x53\x54\x45\x52\x49\x53\x4b"},NODE=>$FvaYR8d3Tu->VzAEujaiBr("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x53\x45\x52\x56\x45\x52\x5f\x49\x44"),CDIFF=>$Yf5JI1NBil})}sub mlIQEJiW9Z{my $FvaYR8d3Tu=shift;my($LMztHksdNL,$y4Sdgkjybi,$OTLVExhmag,$YsewyX7Vfj)=$FvaYR8d3Tu->FVFE1uXA0t([qw(call_id start_time stop_time xvb_call_id)]);my $Zkulejs3pi='';my $xmXfKtT3bU='';my $xcu5kTdL34=$FvaYR8d3Tu->VzAEujaiBr("\x50\x41\x54\x48\x5f\x54\x4d\x50\x5f\x44\x49\x52")."\x2f\x70\x63\x61\x70\x73";$LMztHksdNL=~ s/[`\x22\x27\r\n]//gs;if(length($LMztHksdNL)and-d $xcu5kTdL34 and opendir(PCAPDIR,$xcu5kTdL34)){my @qcDo6pZgXr=sort{(stat("$xcu5kTdL34/$a"))[9]<=>(stat("$xcu5kTdL34/$b"))[9]}grep(/pcap\d+$/,readdir(PCAPDIR));my $N8EgkDTmV3=0;my $jLnYDK8GPh=$FvaYR8d3Tu->VzAEujaiBr("\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";$LMztHksdNL=": $LMztHksdNL";my %sVmOnUIfPS;my $Ze2EMZ7rS3=1;my @EJrpgj46Wy;foreach my $pusOBhqPDJ(@qcDo6pZgXr){my $fhTUdX8O4Q=(stat("$xcu5kTdL34/$pusOBhqPDJ"))[9];if(($N8EgkDTmV3<=$y4Sdgkjybi and $fhTUdX8O4Q>=$y4Sdgkjybi)or($N8EgkDTmV3<=$OTLVExhmag and $fhTUdX8O4Q>=$OTLVExhmag)or($N8EgkDTmV3>=$y4Sdgkjybi and $fhTUdX8O4Q<$OTLVExhmag)){my($HHYiy20IDK,$xFNxpUXmvC,@NP6wlTFkxa);for(my $ozAQLoucW9=0;$ozAQLoucW9<=2;$ozAQLoucW9++){$xFNxpUXmvC="/usr/sbin/ngrep \x27$LMztHksdNL\x27 $jLnYDK8GPh -I $xcu5kTdL34/$pusOBhqPDJ 2>&1";my @rIGJqO9uNd=`$xFNxpUXmvC`;my $gD9dFIO7Xv=0;$HHYiy20IDK='';@NP6wlTFkxa=();foreach my $ydk5rJGN6O(@rIGJqO9uNd){chomp($ydk5rJGN6O);$ydk5rJGN6O=~ s/\.$//;if($ydk5rJGN6O=~ /^U\s+\d+\/\d+\/\d+\s\d+:\d+:\d+\.\d+\s+([^\s]+)\s+->\s+([^\s]+)/){if($HHYiy20IDK){push @NP6wlTFkxa,$HHYiy20IDK;}$HHYiy20IDK="\n";$ydk5rJGN6O.="\n";}elsif($ydk5rJGN6O=~ /^(Call-ID|I|XVB-Call-ID)(:\s*[^\x22\x27\r\n]+)/gi){if(index($LMztHksdNL,$2)==-1){$LMztHksdNL.="|$2";$gD9dFIO7Xv=1;}if(lc($1)eq "\x69" or lc($1)eq "\x63\x61\x6c\x6c\x2d\x69\x64"){unless(exists $sVmOnUIfPS{$2}){$sVmOnUIfPS{$2}=$Ze2EMZ7rS3++;if($Ze2EMZ7rS3>11){$Ze2EMZ7rS3=2;}}}}if($HHYiy20IDK){$HHYiy20IDK.="$ydk5rJGN6O\n";}}unless($gD9dFIO7Xv){push @NP6wlTFkxa,$HHYiy20IDK;last;}}$xmXfKtT3bU.="#<br>\n# ".$FvaYR8d3Tu->XR0q3FMoJf($xFNxpUXmvC)." <br>\n#<br>\n";push(@EJrpgj46Wy,@NP6wlTFkxa);}$N8EgkDTmV3=$fhTUdX8O4Q;}my @v7o1BEeAD0=`/sbin/ifconfig|grep "inet "`;my $S4WykFnemN="\x2c";foreach my $z8FEymYQqi(@v7o1BEeAD0){chomp;$z8FEymYQqi=~ s#.*inet\s+(addr:)?(\S+).*#$2#s;if(length($z8FEymYQqi)){$S4WykFnemN.="$z8FEymYQqi,";}}foreach my $bsFHA8RSK0(@EJrpgj46Wy){my $Ze2EMZ7rS3=0;my($STyKlzRXLd,$WJKmPnbtkl);foreach my $ydk5rJGN6O(split(/\n/,$bsFHA8RSK0)){if($ydk5rJGN6O=~ /^U\s+\d+\/\d+\/\d+\s\d+:\d+:\d+\.\d+\s+([^\s]+):\d+\s+->\s+([^\s]+):\d+/){($STyKlzRXLd,$WJKmPnbtkl)=($1,$2);}else{if($ydk5rJGN6O=~ /^(Call-ID|I)(:\s*[^\x22\x27\r\n]+)/gi){$Ze2EMZ7rS3=$sVmOnUIfPS{$2};}}}my $OIPNt8OYKL="\x20";if($Ze2EMZ7rS3==1 and index($S4WykFnemN,",$STyKlzRXLd,")>-1){$OIPNt8OYKL="\t\t"}elsif($Ze2EMZ7rS3>1 and index($S4WykFnemN,",$STyKlzRXLd,")>-1){$OIPNt8OYKL="\t\t";}elsif($Ze2EMZ7rS3>1 and index($S4WykFnemN,",$WJKmPnbtkl,")>-1){$OIPNt8OYKL="\t\t\t\t";}$Zkulejs3pi.="<p class=\x27pcap$Ze2EMZ7rS3\x27>";foreach my $ydk5rJGN6O(split(/\n/,$bsFHA8RSK0)){$Zkulejs3pi.=$OIPNt8OYKL.$FvaYR8d3Tu->XR0q3FMoJf($ydk5rJGN6O)."\n";}$Zkulejs3pi.="</p>";}}dKUouA9SJq($FvaYR8d3Tu,"\x73\x69\x70\x5f\x70\x63\x61\x70\x2e\x74\x74",{CMD=>$xmXfKtT3bU,DATA=>$Zkulejs3pi,XVB_CALL_ID=>$YsewyX7Vfj});}