#!/usr/bin/perl
########################################################################
#
# $Id: VirtualPBX-AI.cgi,v 1.227 2026/10/29 07:33:26 gosha Exp $
#
# Copyright (c) Igor Okunev <igor[at]prv.mts-nn.ru>  2008 - 2026
#
########################################################################
package VirtualPBXAI;package VirtualPBXAIsb;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;YKuVINAz9m();sub new{my($NOrC5HZaLc,$MnYgEKqIQx)=@_;my $scrqlZeB3C=bless{_CGI=>CGI->new(),_CONF=>{},_CDR=>{CALLED_ID=>"\x77\x65\x62",},_USER_CREDS=>{},_USER_VBOXES=>{},_SESSION=>{},},$NOrC5HZaLc;$scrqlZeB3C->ngcsI2dwf4($MnYgEKqIQx);$scrqlZeB3C->sqmH4s9ih2();if($scrqlZeB3C->XUp8KtvxSh("\x44\x45\x42\x55\x47\x5f\x48\x54\x54\x50\x5f\x41\x55\x44\x49\x54\x5f\x46\x49\x4c\x45")){$scrqlZeB3C->sqmH4s9ih2("\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");}$scrqlZeB3C->{"\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 GoogleCalendarExplorer)]};my $rdJu0jGQ2R;$scrqlZeB3C->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}={};foreach my $JHMJ45SCtG(split(/\s*;\s*/,$scrqlZeB3C->XUp8KtvxSh("\x43\x47\x49\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"))){my($nKx28PS6Io,@hO72kYRDvj)=split(/\s*:\s*/,$JHMJ45SCtG);foreach my $fDOezbZLUf(@hO72kYRDvj){$scrqlZeB3C->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$fDOezbZLUf}=$nKx28PS6Io;}}my $fDOezbZLUf=$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"};unless(exists $scrqlZeB3C->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$fDOezbZLUf}){$fDOezbZLUf=~ s#\.\d+$##;}unless(exists $scrqlZeB3C->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$fDOezbZLUf}){if($scrqlZeB3C->XUp8KtvxSh("\x43\x47\x49\x5f\x41\x4c\x49\x41\x53\x45\x53\x5f\x57\x4f\x5f\x49\x50")){$rdJu0jGQ2R="\x61\x64\x6d\x69\x6e";}else{$rdJu0jGQ2R="\x61\x64\x6d\x69\x6e\x20\x28\x20".$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"}."\x20\x29";}}else{if($scrqlZeB3C->XUp8KtvxSh("\x43\x47\x49\x5f\x41\x4c\x49\x41\x53\x45\x53\x5f\x57\x4f\x5f\x49\x50")){$rdJu0jGQ2R=$scrqlZeB3C->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$fDOezbZLUf};}else{$rdJu0jGQ2R=$scrqlZeB3C->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$fDOezbZLUf}."\x20\x28\x20".$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"}."\x20\x29";}}$scrqlZeB3C->{"\x5f\x43\x44\x52"}->{"\x43\x41\x4c\x4c\x45\x52\x5f\x49\x44"}=$rdJu0jGQ2R;;$scrqlZeB3C->{"\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($scrqlZeB3C->XUp8KtvxSh("\x50\x41\x54\x48\x5f\x57\x4f\x52\x4b\x5f\x44\x49\x52"));$scrqlZeB3C->{"\x5f\x43\x4f\x4e\x46"}->{"\x74\x61\x62\x6c\x65\x73\x5f\x63\x64\x72\x73"}=$scrqlZeB3C->{"\x5f\x43\x4f\x4e\x46"}->{"\x74\x61\x62\x6c\x65\x73\x5f\x63\x64\x72\x73\x5f\x61\x6c\x6c"};$scrqlZeB3C->{"\x5f\x43\x4f\x4e\x46"}->{"\x74\x61\x62\x6c\x65\x73\x5f\x63\x64\x72\x73\x5f\x61"}=$scrqlZeB3C->{"\x5f\x43\x4f\x4e\x46"}->{"\x74\x61\x62\x6c\x65\x73\x5f\x63\x64\x72\x73\x5f\x61\x5f\x61\x6c\x6c"};$scrqlZeB3C->{"\x5f\x43\x4f\x4e\x46"}->{"\x64\x62\x5f\x64\x73\x6e"}=$scrqlZeB3C->{"\x5f\x43\x4f\x4e\x46"}->{"\x64\x62\x5f\x64\x73\x6e\x5f\x73\x61\x6e\x64\x62\x6f\x78"};$scrqlZeB3C->{"\x5f\x43\x4f\x4e\x46"}->{"\x64\x62\x5f\x6d\x61\x73\x74\x65\x72\x5f\x64\x73\x6e"}=$scrqlZeB3C->{"\x5f\x43\x4f\x4e\x46"}->{"\x64\x62\x5f\x64\x73\x6e\x5f\x6d\x61\x73\x74\x65\x72\x5f\x73\x61\x6e\x64\x62\x6f\x78"};$scrqlZeB3C->SHm2fXKeVr();return $scrqlZeB3C;}sub YKuVINAz9m{my $scrqlZeB3C=VirtualPBXAIsb->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($C1KxN90s87,$KywDLaZWfM,$nLhoBPgdW8,$Kza0lnNokv,$rMIy1LVZPd);$scrqlZeB3C->telYofRnEJ(1);my($ttaEwbuMUZ,$jdW9ZHgIRA)=$scrqlZeB3C->TH8vcZTGhW([qw(action from)]);if($ttaEwbuMUZ eq "\x62\x61\x6c\x61\x6e\x63\x65\x5f\x75\x70\x64\x61\x74\x65"){my($ajnuxTSMtU,$s3254ZAy80,$sEA57eSU4V)=$scrqlZeB3C->TH8vcZTGhW([qw(balance user_id cur_id)]);my $TCJALuI8B5=$scrqlZeB3C->ys6lbfVRgd($s3254ZAy80);unless(ref $TCJALuI8B5 eq "\x48\x41\x53\x48"){$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);return;}else{my $NWjScVG2U1=$scrqlZeB3C->T0fMjaKi97();%{$NWjScVG2U1}=%{$TCJALuI8B5};}if($scrqlZeB3C->tAQVN8RFCO($ajnuxTSMtU,$sEA57eSU4V)){$scrqlZeB3C->fRsVtSrFYK("\x75\x73\x65\x72\x2d".$scrqlZeB3C->T0fMjaKi97()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"},undef);$scrqlZeB3C->CsbkvtiHqf();}else{$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x63\x64\x72\x5f\x6c\x69\x73\x74"){if($scrqlZeB3C->TH8vcZTGhW("\x6e\x65\x65\x64\x5f\x63\x68\x61\x72\x74")){RTC5USDhVx($scrqlZeB3C);}else{JqTtoNsx09($scrqlZeB3C);}}elsif($ttaEwbuMUZ eq "\x61\x63\x74\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c"){JqTtoNsx09($scrqlZeB3C,"\x61\x63\x74\x61\x6c\x6c");}elsif($ttaEwbuMUZ eq "\x6a\x5f\x6c\x69\x73\x74"){H3SPtj1ABZ($scrqlZeB3C);}elsif($ttaEwbuMUZ eq "\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x6c\x69\x73\x74"){Fdk1a0xcrJ($scrqlZeB3C);}elsif($ttaEwbuMUZ eq "\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x64\x65\x6c"){if($scrqlZeB3C->c2INzkmQ8j($scrqlZeB3C->TH8vcZTGhW("\x64\x69\x64"))){$scrqlZeB3C->CsbkvtiHqf("\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".$scrqlZeB3C->TH8vcZTGhW("\x64\x66"));$scrqlZeB3C->WGbu9T3SEw("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x64\x72\x6f\x70",$scrqlZeB3C->TH8vcZTGhW("\x64\x69\x64"));}else{$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x61\x64\x64"){my @Z39w8rqSPb=$scrqlZeB3C->TH8vcZTGhW();my %I9bu6toP7v;foreach my $is2oB3IjkL(@Z39w8rqSPb){if($is2oB3IjkL=~ /^T_(.*)/){my $M7iumb3g2t=$1;$M7iumb3g2t=~ s#[^\d\w._-]##g;$I9bu6toP7v{$M7iumb3g2t}=$scrqlZeB3C->TH8vcZTGhW($is2oB3IjkL);}}if($scrqlZeB3C->kMT2RYUNWZ(\%I9bu6toP7v)){$scrqlZeB3C->WGbu9T3SEw("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x61\x64\x64",$I9bu6toP7v{"\x44\x49\x44"});$scrqlZeB3C->CsbkvtiHqf();}else{$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x75\x70\x64\x61\x74\x65"){my $ZdpY7gFCoO=$scrqlZeB3C->TH8vcZTGhW("\x64\x61\x74\x61\x5f\x69\x64");my @Z39w8rqSPb=$scrqlZeB3C->TH8vcZTGhW();my %I9bu6toP7v;foreach my $is2oB3IjkL(@Z39w8rqSPb){if($is2oB3IjkL=~ /^T_(.*)/){my $M7iumb3g2t=$1;$M7iumb3g2t=~ s#[^\d\w._-]##g;next if $M7iumb3g2t eq "\x49\x44";$I9bu6toP7v{$M7iumb3g2t}=$scrqlZeB3C->TH8vcZTGhW($is2oB3IjkL);}}if($scrqlZeB3C->eBXlW7hbms($ZdpY7gFCoO,\%I9bu6toP7v)){$scrqlZeB3C->CsbkvtiHqf();}else{$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x74\x61\x72\x69\x66\x66\x5f\x6c\x69\x73\x74"){k8upMHOPB9($scrqlZeB3C);}elsif($ttaEwbuMUZ eq "\x74\x61\x72\x69\x66\x66\x5f\x69\x6e\x66\x6f"){cuKXLUp2jA($scrqlZeB3C,$scrqlZeB3C->TH8vcZTGhW("\x74\x61\x72\x69\x66\x66\x5f\x69\x64"));}elsif($ttaEwbuMUZ eq "\x74\x61\x72\x69\x66\x66\x5f\x64\x65\x6c"){if($scrqlZeB3C->m01EGtFJw3($scrqlZeB3C->TH8vcZTGhW("\x74\x61\x72\x69\x66\x66\x5f\x69\x64"))){$scrqlZeB3C->CsbkvtiHqf("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x74\x61\x72\x69\x66\x66\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$scrqlZeB3C->TH8vcZTGhW("\x64\x66"));}else{$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x74\x61\x72\x69\x66\x66\x5f\x61\x64\x64"){my @Z39w8rqSPb=$scrqlZeB3C->TH8vcZTGhW();my %I9bu6toP7v;foreach my $is2oB3IjkL(@Z39w8rqSPb){if($is2oB3IjkL=~ /^T_(.*)/){my $M7iumb3g2t=$1;$M7iumb3g2t=~ s#[^\d\w._-]##g;$I9bu6toP7v{$M7iumb3g2t}=$scrqlZeB3C->TH8vcZTGhW($is2oB3IjkL);}}if($scrqlZeB3C->hcU4ngXWFi(\%I9bu6toP7v)){$scrqlZeB3C->CsbkvtiHqf();}else{$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x74\x61\x72\x69\x66\x66\x5f\x75\x70\x64\x61\x74\x65"){my $TvU82y9asV=$scrqlZeB3C->TH8vcZTGhW("\x74\x61\x72\x69\x66\x66\x5f\x69\x64");my @Z39w8rqSPb=$scrqlZeB3C->TH8vcZTGhW();my %I9bu6toP7v;foreach my $is2oB3IjkL(@Z39w8rqSPb){if($is2oB3IjkL=~ /^T_(.*)/){my $M7iumb3g2t=$1;$M7iumb3g2t=~ s#[^\d\w._-]##g;next if $M7iumb3g2t eq "\x49\x44";$I9bu6toP7v{$M7iumb3g2t}=$scrqlZeB3C->TH8vcZTGhW($is2oB3IjkL);}}if($scrqlZeB3C->mMHa8mq9yb($TvU82y9asV,\%I9bu6toP7v)){$scrqlZeB3C->CsbkvtiHqf();}else{$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x72\x65\x70\x6f\x72\x74\x5f\x6c\x69\x73\x74"){qZAdzFsy9P($scrqlZeB3C);}elsif($ttaEwbuMUZ eq "\x72\x65\x70\x6f\x72\x74\x5f\x64\x65\x6c"){my $y9gqorTZKs=$scrqlZeB3C->TH8vcZTGhW("\x72\x65\x70\x6f\x72\x74\x5f\x69\x64");unless($y9gqorTZKs){$scrqlZeB3C->CsbkvtiHqf(undef,"\x4e\x6f\x20\x73\x65\x61\x72\x63\x68\x20\x72\x65\x70\x6f\x72\x74");}elsif(! $scrqlZeB3C->fVCaSm3bv8($y9gqorTZKs)){$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}else{if($ENV{"\x48\x54\x54\x50\x5f\x52\x45\x46\x45\x52\x45\x52"}=~ /report_list/){$scrqlZeB3C->CsbkvtiHqf();}else{$scrqlZeB3C->CsbkvtiHqf("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x72\x65\x70\x6f\x72\x74\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$scrqlZeB3C->TH8vcZTGhW("\x64\x66"));}}}elsif($ttaEwbuMUZ eq "\x72\x65\x70\x6f\x72\x74\x5f\x61\x64\x64"){if(my $DO9L8S7fJ1=$scrqlZeB3C->pAouiz50Fd($scrqlZeB3C->TH8vcZTGhW("\x52\x5f\x4e\x41\x4d\x45"),0)){$scrqlZeB3C->CsbkvtiHqf("?action=report_info&report_id=$DO9L8S7fJ1&df=".$scrqlZeB3C->TH8vcZTGhW("\x64\x66"));}else{$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x72\x65\x70\x6f\x72\x74\x5f\x69\x6e\x66\x6f"){my $y9gqorTZKs=$scrqlZeB3C->TH8vcZTGhW("\x72\x65\x70\x6f\x72\x74\x5f\x69\x64")||1;my $YAvVholYBS=$scrqlZeB3C->vSraIgJKbD($y9gqorTZKs)||[];my(%a7b86LPkK2,@d5JnxIeahb);if(ref $YAvVholYBS eq "\x41\x52\x52\x41\x59" and $YAvVholYBS->[0]->{"\x45\x58\x54\x52\x41\x5f\x50\x41\x52\x41\x4d\x53"}){foreach my $lG1VD3yCNu(split(/\s*\|\s*/,$YAvVholYBS->[0]->{"\x45\x58\x54\x52\x41\x5f\x50\x41\x52\x41\x4d\x53"})){my($NrBig7AEKo,$zojXkdlV9h,$ns145oQkKu)=split(/\s*:\s*/,$lG1VD3yCNu,3);$a7b86LPkK2{$NrBig7AEKo}=$scrqlZeB3C->TH8vcZTGhW($NrBig7AEKo);push @d5JnxIeahb,{name=>$NrBig7AEKo,label=>$zojXkdlV9h,value=>$a7b86LPkK2{$NrBig7AEKo}};}}kNcPgbROm2($scrqlZeB3C,"\x72\x65\x70\x6f\x72\x74\x5f\x69\x6e\x66\x6f\x2e\x74\x74",{REPORT_DATA=>$YAvVholYBS->[0],EXTRA_PARAMS=>\@d5JnxIeahb});}elsif($ttaEwbuMUZ eq "\x72\x65\x70\x6f\x72\x74\x5f\x75\x70\x64\x61\x74\x65"){my($DCIx2SYJTX,$j1O6z3wRxe,$ybGVKShe7O,$OHFJy8hTLU,$y9gqorTZKs)=$scrqlZeB3C->TH8vcZTGhW([qw(R_FILE R_QUERY R_FILTER_FILE R_POST_FILTER report_id)]);unless($y9gqorTZKs){return $scrqlZeB3C->CsbkvtiHqf(undef,"\x4e\x6f\x20\x73\x65\x61\x72\x63\x68\x20\x72\x65\x70\x6f\x72\x74");}if($DCIx2SYJTX){$j1O6z3wRxe='';while(<$DCIx2SYJTX>){$j1O6z3wRxe.=$_;}}if($ybGVKShe7O){$OHFJy8hTLU='';while(<$ybGVKShe7O>){$OHFJy8hTLU.=$_;}}if($scrqlZeB3C->RcFgzn4GjK($y9gqorTZKs,$scrqlZeB3C->TH8vcZTGhW([qw(R_NAME R_TYPE R_TTL R_DATE_START R_DATE_STOP R_ACCESS_GROUPS R_ACCESS_ACCOUNTS R_EXTRA_PARAMS)]),$j1O6z3wRxe,$OHFJy8hTLU)){$scrqlZeB3C->CsbkvtiHqf();}else{$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x72\x65\x70\x6f\x72\x74\x5f\x72\x75\x6e"){Tft2I53vX6($scrqlZeB3C);}elsif($ttaEwbuMUZ eq "\x6e\x6f\x64\x65\x5f\x6c\x69\x73\x74"){k86UyLbhIs($scrqlZeB3C);}elsif($ttaEwbuMUZ eq "\x6e\x6f\x64\x65\x5f\x64\x65\x6c"){if($scrqlZeB3C->bqy2E7a6t8($scrqlZeB3C->TH8vcZTGhW("\x6e\x6f\x64\x65\x5f\x69\x64"))){$scrqlZeB3C->CsbkvtiHqf("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x6e\x6f\x64\x65\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$scrqlZeB3C->TH8vcZTGhW("\x64\x66"));}else{$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x6e\x6f\x64\x65\x5f\x61\x64\x64"){if($scrqlZeB3C->nQyp9BCDVF($scrqlZeB3C->TH8vcZTGhW([qw(N_NODE_ID N_NODE_IP N_DOWNLOAD_IP N_AMI_CREDS N_NODE_DESC N_NODE_LIMITS N_NODE_STAT_URL)]))){$scrqlZeB3C->CsbkvtiHqf();}else{$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x6e\x6f\x64\x65\x5f\x75\x70\x64\x61\x74\x65"){my $rV9XFI6Rya=$scrqlZeB3C->TH8vcZTGhW("\x6e\x6f\x64\x65\x5f\x69\x64");my @Z39w8rqSPb=$scrqlZeB3C->TH8vcZTGhW();my %I9bu6toP7v;foreach my $is2oB3IjkL(@Z39w8rqSPb){if($is2oB3IjkL=~ /^N_(.*)/){my $M7iumb3g2t=$1;$M7iumb3g2t=~ s#[^\d\w._-]##g;next if $M7iumb3g2t eq "\x49\x44";$I9bu6toP7v{$M7iumb3g2t}=$scrqlZeB3C->TH8vcZTGhW($is2oB3IjkL);}}if($scrqlZeB3C->aJW2yOAVT4($rV9XFI6Rya,\%I9bu6toP7v)){$scrqlZeB3C->WGbu9T3SEw("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65");$scrqlZeB3C->CsbkvtiHqf();}else{$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x67\x72\x6f\x75\x70\x5f\x6c\x69\x73\x74"){wu9IMl4k2m($scrqlZeB3C);}elsif($ttaEwbuMUZ eq "\x67\x72\x6f\x75\x70\x5f\x64\x65\x6c"){if($scrqlZeB3C->UqawtAT9ud($scrqlZeB3C->TH8vcZTGhW("\x67\x72\x6f\x75\x70\x5f\x69\x64"))){$scrqlZeB3C->CsbkvtiHqf("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x67\x72\x6f\x75\x70\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$scrqlZeB3C->TH8vcZTGhW("\x64\x66"));}else{$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x67\x72\x6f\x75\x70\x5f\x61\x64\x64"){my($GvpwGIJWy9,$Hw3KN09PH1)=$scrqlZeB3C->TH8vcZTGhW([qw(group_name node_name)]);if($scrqlZeB3C->xj0cebg4FE($GvpwGIJWy9,$Hw3KN09PH1)){my $YhbPBa3RN4=$scrqlZeB3C->UNj5BIlcs8(undef,$GvpwGIJWy9);$scrqlZeB3C->CsbkvtiHqf("\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".$YhbPBa3RN4->[0]->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"},"\x64\x66\x3d".$scrqlZeB3C->TH8vcZTGhW("\x64\x66")));}else{$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x67\x72\x6f\x75\x70\x5f\x69\x6e\x66\x6f"){vO5LPqRc4t($scrqlZeB3C,$scrqlZeB3C->TH8vcZTGhW("\x67\x72\x6f\x75\x70\x5f\x69\x64"));}elsif($ttaEwbuMUZ eq "\x67\x72\x6f\x75\x70\x5f\x75\x70\x64\x61\x74\x65"){my $Zi3JHa7zur=$scrqlZeB3C->TH8vcZTGhW("\x67\x72\x6f\x75\x70\x5f\x69\x64");my @Z39w8rqSPb=$scrqlZeB3C->TH8vcZTGhW();my %I9bu6toP7v;foreach my $is2oB3IjkL(@Z39w8rqSPb){if($is2oB3IjkL=~ /^GR_(.*)/){my $M7iumb3g2t=$1;$M7iumb3g2t=~ s#[^\d\w._-]##g;next if $M7iumb3g2t eq "\x49\x44";$I9bu6toP7v{$M7iumb3g2t}=$scrqlZeB3C->TH8vcZTGhW($is2oB3IjkL);}}if($scrqlZeB3C->zqM9wP52ro($Zi3JHa7zur,\%I9bu6toP7v)){$scrqlZeB3C->WGbu9T3SEw("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65");$scrqlZeB3C->CsbkvtiHqf();}else{$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x64\x69\x64\x5f\x61\x64\x64"){my($ZdpY7gFCoO,$G5omxup9Uh,$C1KxN90s87,$UmRt5CFK02,$tvo971Rgmu)=$scrqlZeB3C->TH8vcZTGhW([qw(did pn ac channels cnam)]);my @YvpRW8mzZQ=split(/\s*,\s*/,$ZdpY7gFCoO);my $NGIDEWe0Hw=0;foreach my $ZMhN8US9YF(@YvpRW8mzZQ){if($scrqlZeB3C->DyvxtwuDsC($ZMhN8US9YF,$G5omxup9Uh,$C1KxN90s87,$UmRt5CFK02,$tvo971Rgmu)){$scrqlZeB3C->WGbu9T3SEw("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x61\x64\x64",$ZMhN8US9YF);}else{$NGIDEWe0Hw++;}}if($NGIDEWe0Hw){$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : [ $NGIDEWe0Hw / ".(scalar(@YvpRW8mzZQ))."\x20\x5d\x20".__LINE__);}else{$scrqlZeB3C->CsbkvtiHqf();}}elsif($ttaEwbuMUZ eq "\x64\x69\x64\x5f\x64\x65\x6c"){my($VDjVPUTC6l,$s3254ZAy80,$ZdpY7gFCoO)=$scrqlZeB3C->TH8vcZTGhW([qw(did_id user_id did)]);if($scrqlZeB3C->v0gB8FjShl($VDjVPUTC6l,$s3254ZAy80,$ZdpY7gFCoO)){$scrqlZeB3C->WGbu9T3SEw("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x64\x72\x6f\x70",$ZdpY7gFCoO);$scrqlZeB3C->CsbkvtiHqf();}else{$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x64\x69\x64\x5f\x6c\x69\x73\x74"){NhGqUpgCbx($scrqlZeB3C);}elsif($ttaEwbuMUZ eq "\x64\x69\x64\x5f\x61\x64\x64\x5f\x73\x69\x70\x64\x6f\x6d\x61\x69\x6e"){my($oCs6Y3dNnS,$G5omxup9Uh,$C1KxN90s87)=$scrqlZeB3C->TH8vcZTGhW([qw(domain pn ac)]);if($scrqlZeB3C->z9uyxST3v2(lc($oCs6Y3dNnS),$G5omxup9Uh,$C1KxN90s87)){$scrqlZeB3C->WGbu9T3SEw("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x61\x64\x64","\x40".lc($oCs6Y3dNnS));$scrqlZeB3C->CsbkvtiHqf();}else{$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x64\x69\x64\x5f\x64\x65\x6c\x5f\x73\x69\x70\x64\x6f\x6d\x61\x69\x6e"){my($xkpyKtAYvL,$s3254ZAy80,$oCs6Y3dNnS)=$scrqlZeB3C->TH8vcZTGhW([qw(domain_id user_id domain)]);if($scrqlZeB3C->mNd8AVJKBz($xkpyKtAYvL,$s3254ZAy80,lc($oCs6Y3dNnS))){$scrqlZeB3C->WGbu9T3SEw("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x64\x72\x6f\x70","\x40".lc($oCs6Y3dNnS));$scrqlZeB3C->CsbkvtiHqf();}else{$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x64\x69\x64\x5f\x6c\x69\x73\x74\x5f\x73\x69\x70\x64\x6f\x6d\x61\x69\x6e"){y7V8QhlKgj($scrqlZeB3C);}elsif($ttaEwbuMUZ eq "\x72\x6f\x75\x74\x65\x5f\x6c\x69\x73\x74"){if($scrqlZeB3C->TH8vcZTGhW("\x6e\x65\x65\x64\x5f\x6c\x6f\x6f\x6b\x75\x70")and $scrqlZeB3C->TH8vcZTGhW("\x63\x61\x6c\x6c\x65\x64\x5f\x69\x64")){return S6iINbsQ7L($scrqlZeB3C);}kNcPgbROm2($scrqlZeB3C,"\x72\x6f\x75\x74\x65\x5f\x6c\x69\x73\x74\x2e\x74\x74",{ROUTES=>$scrqlZeB3C->zH8bIFOwy9("\x69\x73\x5f\x61\x69")});}elsif($ttaEwbuMUZ eq "\x72\x6f\x75\x74\x65\x5f\x61\x64\x64"){my @HYsxSTyanQ;if(my $nAbNQcUfpn=$scrqlZeB3C->TH8vcZTGhW("\x63\x6c\x6f\x6e\x65\x5f\x69\x64")){my $ovziXpW8tP=$scrqlZeB3C->zH8bIFOwy9("\x69\x73\x5f\x61\x69");if(ref($ovziXpW8tP)eq "\x41\x52\x52\x41\x59"){foreach my $EHqn9m5Q48(@{$ovziXpW8tP}){if($EHqn9m5Q48->{"\x44\x41\x54\x41\x5f\x49\x44"}eq $nAbNQcUfpn){foreach my $R4bdqc6VXJ(qw(PATTERN PEER PRIORITY SUBSTR EXT_NUMBER DESCRIPTION DEFCID LAST_ROUTE)){push @HYsxSTyanQ,$EHqn9m5Q48->{$R4bdqc6VXJ};}last;}}}}else{@HYsxSTyanQ=$scrqlZeB3C->TH8vcZTGhW([qw(r_PATTERN r_PEER r_PRIORITY r_SUBSTR r_EXT_NUMBER r_DESCRIPTION r_DEFCID r_LAST_ROUTE)]);}if(scalar(@HYsxSTyanQ)and defined($scrqlZeB3C->T6OfjT47k5(@HYsxSTyanQ))){return $scrqlZeB3C->CsbkvtiHqf();}else{return $scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x72\x6f\x75\x74\x65\x5f\x75\x70\x64\x61\x74\x65"){if($scrqlZeB3C->NklnfAhqva($scrqlZeB3C->TH8vcZTGhW([qw(data_id r_PATTERN r_PEER r_PRIORITY r_SUBSTR r_EXT_NUMBER r_DESCRIPTION r_DEFCID r_LAST_ROUTE)]))){return $scrqlZeB3C->CsbkvtiHqf();}else{return $scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x72\x6f\x75\x74\x65\x5f\x64\x65\x6c"){my $ptsbKEy285;$ptsbKEy285="\x61\x6c\x6c" if $scrqlZeB3C->TH8vcZTGhW("\x64\x61\x74\x61\x5f\x69\x64")eq "\x61\x6c\x6c";if($scrqlZeB3C->ymRv2Oj9Fz($scrqlZeB3C->TH8vcZTGhW("\x64\x61\x74\x61\x5f\x69\x64"),$ptsbKEy285)){return $scrqlZeB3C->CsbkvtiHqf();}else{return $scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x75\x73\x65\x72\x5f\x75\x70\x64\x61\x74\x65"){my $s3254ZAy80=$scrqlZeB3C->TH8vcZTGhW("\x75\x73\x65\x72\x5f\x69\x64");my @Z39w8rqSPb=$scrqlZeB3C->TH8vcZTGhW();my %I9bu6toP7v;my $TCJALuI8B5=$scrqlZeB3C->ys6lbfVRgd($s3254ZAy80);unless(ref $TCJALuI8B5 eq "\x48\x41\x53\x48"){$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);return;}my $NWjScVG2U1=$scrqlZeB3C->T0fMjaKi97();%{$NWjScVG2U1}=%{$TCJALuI8B5};foreach my $is2oB3IjkL(@Z39w8rqSPb){if($is2oB3IjkL=~ /^US_(.*)/){my $M7iumb3g2t=$1;$M7iumb3g2t=~ s#[^\d\w._-]##g;next if $M7iumb3g2t eq "\x49\x44";if($scrqlZeB3C->TH8vcZTGhW($is2oB3IjkL)ne $TCJALuI8B5->{$M7iumb3g2t}){$I9bu6toP7v{$M7iumb3g2t}=$scrqlZeB3C->TH8vcZTGhW($is2oB3IjkL);}}}if($scrqlZeB3C->VdhHwrq0M5($s3254ZAy80,\%I9bu6toP7v)){$scrqlZeB3C->WGbu9T3SEw("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65",undef,$s3254ZAy80);$scrqlZeB3C->CsbkvtiHqf();}else{$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x75\x73\x65\x72\x5f\x75\x70\x64\x61\x74\x65\x5f\x70\x69\x6e"){my $s3254ZAy80=$scrqlZeB3C->TH8vcZTGhW("\x75\x73\x65\x72\x5f\x69\x64");my $v1DG8t9slw=$scrqlZeB3C->TH8vcZTGhW("\x70\x69\x6e");if($scrqlZeB3C->xBlZipc6mf($s3254ZAy80,$v1DG8t9slw)){$scrqlZeB3C->WGbu9T3SEw("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65",undef,$s3254ZAy80);$scrqlZeB3C->CsbkvtiHqf();}else{$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x75\x73\x65\x72\x5f\x61\x64\x64"){my($G5omxup9Uh,$Zi3JHa7zur,$xhF5fEGS60,$ABO3wSy5ZF,$C1KxN90s87,$s3254ZAy80)=$scrqlZeB3C->TH8vcZTGhW([qw(phone group_id conf_file uname user_ac user_id)]);my $a9HUw4PSE8={};foreach my $U7l0FUQ69Z(split(/\s*,\s*/,$scrqlZeB3C->XUp8KtvxSh("\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($M7iumb3g2t,$m49qMucEAh)=split(/:/,$U7l0FUQ69Z);$a9HUw4PSE8->{$m49qMucEAh||$M7iumb3g2t}=$scrqlZeB3C->TH8vcZTGhW($M7iumb3g2t);$a9HUw4PSE8->{$m49qMucEAh||$M7iumb3g2t}='' unless defined $a9HUw4PSE8->{$m49qMucEAh||$M7iumb3g2t};}if(my $C1KxN90s87=$scrqlZeB3C->fGSNrDchQ7($G5omxup9Uh,$Zi3JHa7zur,$ABO3wSy5ZF,$C1KxN90s87,$s3254ZAy80,$a9HUw4PSE8)){$scrqlZeB3C->WGbu9T3SEw("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x61\x64\x64",$C1KxN90s87);if($xhF5fEGS60 and-e $xhF5fEGS60){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"."$G5omxup9Uh $C1KxN90s87 $xhF5fEGS60 &>/dev/null";}$scrqlZeB3C->CsbkvtiHqf("?action=user_info&ac=$C1KxN90s87&df=".$scrqlZeB3C->TH8vcZTGhW("\x64\x66"));}else{$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x75\x73\x65\x72\x5f\x64\x65\x6c"){my($s3254ZAy80,$HWyKhLA9qH)=$scrqlZeB3C->TH8vcZTGhW([qw(user_id single_user)]);if($scrqlZeB3C->vqUbNC18DF($s3254ZAy80)){my $TCJALuI8B5=$scrqlZeB3C->ys6lbfVRgd($s3254ZAy80);if(ref $TCJALuI8B5 eq "\x48\x41\x53\x48"){$scrqlZeB3C->WGbu9T3SEw("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x64\x72\x6f\x70",$TCJALuI8B5->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"});}if($HWyKhLA9qH){$scrqlZeB3C->CsbkvtiHqf("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x75\x73\x65\x72\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$scrqlZeB3C->TH8vcZTGhW("\x64\x66"));}else{$scrqlZeB3C->CsbkvtiHqf();}}else{$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x75\x73\x65\x72\x5f\x69\x6e\x66\x6f"){sc7UmL8X2k($scrqlZeB3C);}elsif($ttaEwbuMUZ eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x69\x73\x74"){t1IfGZehnY($scrqlZeB3C);}elsif($ttaEwbuMUZ eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x64\x65\x6c"){if($scrqlZeB3C->M74evG03jx($scrqlZeB3C->TH8vcZTGhW("\x70\x61\x72\x74\x6e\x65\x72\x5f\x69\x64"))){$scrqlZeB3C->CsbkvtiHqf("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$scrqlZeB3C->TH8vcZTGhW("\x64\x66"));}else{$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x61\x64\x64"){my @Z39w8rqSPb=$scrqlZeB3C->TH8vcZTGhW();my %I9bu6toP7v;foreach my $is2oB3IjkL(@Z39w8rqSPb){if($is2oB3IjkL=~ /^P_(.*)/){my $M7iumb3g2t=$1;$M7iumb3g2t=~ s#[^\d\w._-]##g;$I9bu6toP7v{$M7iumb3g2t}=$scrqlZeB3C->TH8vcZTGhW($is2oB3IjkL);}}if($scrqlZeB3C->LbU6iSkrAa(\%I9bu6toP7v,$scrqlZeB3C->TH8vcZTGhW("\x47\x52\x4f\x55\x50\x5f\x49\x44"))){$scrqlZeB3C->CsbkvtiHqf();}else{$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x75\x70\x64\x61\x74\x65"){my $tJHbAnVlme=$scrqlZeB3C->TH8vcZTGhW("\x70\x61\x72\x74\x6e\x65\x72\x5f\x69\x64");my @Z39w8rqSPb=$scrqlZeB3C->TH8vcZTGhW();my %I9bu6toP7v;foreach my $is2oB3IjkL(@Z39w8rqSPb){if($is2oB3IjkL=~ /^P_(.*)/){my $M7iumb3g2t=$1;$M7iumb3g2t=~ s#[^\d\w._-]##g;next if $M7iumb3g2t eq "\x49\x44";$I9bu6toP7v{$M7iumb3g2t}=$scrqlZeB3C->TH8vcZTGhW($is2oB3IjkL);if($M7iumb3g2t eq "\x54\x41\x47" and length($I9bu6toP7v{$M7iumb3g2t})==0){$I9bu6toP7v{$M7iumb3g2t}=undef;}}}if($scrqlZeB3C->r2f35vX8DL($tJHbAnVlme,\%I9bu6toP7v)){$scrqlZeB3C->CsbkvtiHqf();}else{$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x67\x72\x6f\x75\x70\x5f\x64\x65\x6c"){if($scrqlZeB3C->RDrftWmgiy($scrqlZeB3C->TH8vcZTGhW("\x70\x61\x72\x74\x6e\x65\x72\x5f\x69\x64"),$scrqlZeB3C->TH8vcZTGhW("\x67\x72\x6f\x75\x70\x5f\x69\x64"))){$scrqlZeB3C->CsbkvtiHqf("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$scrqlZeB3C->TH8vcZTGhW("\x64\x66"));}else{$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x67\x72\x6f\x75\x70\x5f\x61\x64\x64"){if($scrqlZeB3C->CYZ8pnHPhg($scrqlZeB3C->TH8vcZTGhW("\x70\x61\x72\x74\x6e\x65\x72\x5f\x69\x64"),$scrqlZeB3C->TH8vcZTGhW("\x67\x72\x6f\x75\x70\x5f\x69\x64"))){$scrqlZeB3C->CsbkvtiHqf("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$scrqlZeB3C->TH8vcZTGhW("\x64\x66"));}else{$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x70\x68\x6f\x6e\x65\x5f\x6c\x69\x73\x74"){NlqZ72Vuvd($scrqlZeB3C);}elsif($ttaEwbuMUZ eq "\x70\x65\x65\x72\x5f\x6c\x69\x73\x74"){EpkAiZRF8L($scrqlZeB3C);}elsif($ttaEwbuMUZ eq "\x61\x75\x74\x68\x5f\x6e\x61\x6d\x65\x5f\x72\x65\x73\x65\x74"){if(my $JqdJet8SuV=$scrqlZeB3C->LvxehL4DZW($scrqlZeB3C->TH8vcZTGhW("\x69\x64"),$scrqlZeB3C->TH8vcZTGhW("\x70\x61\x63"),$scrqlZeB3C->TH8vcZTGhW("\x6e\x65\x77\x69\x64"),$scrqlZeB3C->TH8vcZTGhW("\x6e\x65\x77\x70\x77"))){my $qWIOyvzH9X=$scrqlZeB3C->TH8vcZTGhW("\x6d\x6f\x64\x65");if($qWIOyvzH9X eq "\x72\x65\x64\x69\x72"){return $scrqlZeB3C->CsbkvtiHqf();}else{my $MuSjAYOWJZ=$scrqlZeB3C->TH8vcZTGhW("\x64\x74\x79\x70\x65");if($MuSjAYOWJZ eq "\x70\x68\x6f\x6e\x65"){NlqZ72Vuvd($scrqlZeB3C);}else{EpkAiZRF8L($scrqlZeB3C);}}}else{$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x73\x69\x70\x5f\x63\x61\x6c\x6c\x5f\x6c\x69\x6d\x69\x74"){if($scrqlZeB3C->guD86vKtLw($scrqlZeB3C->TH8vcZTGhW([qw(data_id user_id phone limit)]))){return $scrqlZeB3C->CsbkvtiHqf();}else{$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x70\x62\x78\x5f\x6d\x6f\x64\x65\x5f\x75\x70\x64\x61\x74\x65"){if($scrqlZeB3C->MWAdeJcoyz($scrqlZeB3C->TH8vcZTGhW([qw(data_id need_reg user_id host PBXMODE)]))){return $scrqlZeB3C->CsbkvtiHqf();}else{return $scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x63\x6c\x6f\x6e\x65"){my($TNlBTYat6g,$DO9L8S7fJ1,$GRyaoplxI2,$yytgEcx9Z5,$ttaEwbuMUZ,$AG6CpbX4Id)=$scrqlZeB3C->TH8vcZTGhW([qw(tname id fname fid newaction noauto)]);my $JqdJet8SuV=$scrqlZeB3C->LSRkjvo74z($TNlBTYat6g,$DO9L8S7fJ1,$GRyaoplxI2,$yytgEcx9Z5,$AG6CpbX4Id);if(defined $JqdJet8SuV){$scrqlZeB3C->CsbkvtiHqf("\x3f\x61\x63\x74\x69\x6f\x6e\x3d".$ttaEwbuMUZ."\x3d".$JqdJet8SuV);}else{$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x63\x6f\x75\x6e\x74\x65\x72\x73\x5f\x63\x6c\x65\x61\x6e"){my $b59HGZgV6h=$scrqlZeB3C->TH8vcZTGhW("\x61\x63");if($b59HGZgV6h){my $gZtYce7AEa="\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".$b59HGZgV6h."\x20\x63\x6c\x65\x61\x6e";my $GM9f8tVQnO=`$gZtYce7AEa`;}$scrqlZeB3C->CsbkvtiHqf();}elsif($ttaEwbuMUZ eq "\x73\x79\x73\x73\x74\x61\x74\x75\x73"){cd1B0wCEZW($scrqlZeB3C);}elsif($ttaEwbuMUZ eq "\x72\x65\x70\x6f\x72\x74"){$scrqlZeB3C->Ng5UVDpLIM(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 $Gn59T4Kkhy=$scrqlZeB3C->TH8vcZTGhW("\x74\x79\x70\x65");if($Gn59T4Kkhy eq "\x73\x79\x73\x73\x74\x61\x74\x65"){my $Jmd1Z3SW82=$scrqlZeB3C->Al9D6aCx42("\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 $Jmd1Z3SW82;}elsif($Gn59T4Kkhy 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($Gn59T4Kkhy 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($Gn59T4Kkhy 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($Gn59T4Kkhy 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($Gn59T4Kkhy 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($ttaEwbuMUZ eq "\x63\x61\x6c\x6c\x5f\x6c\x6f\x67"){my $a480YLZwE2=$scrqlZeB3C->TH8vcZTGhW("\x63\x61\x6c\x6c\x5f\x69\x64");my $gZtYce7AEa="find /var/log/VirtualPBX/backup/ -name 'XVB.log*.gz'";my @w9oydc2Xah=`$gZtYce7AEa`;push @w9oydc2Xah,"\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 @w9oydc2Xah;@w9oydc2Xah=sort{(stat($b))[9]<=>(stat($a))[9]}@w9oydc2Xah;my $Ty94Vdc0Bh='';local $|=1;$scrqlZeB3C->Ng5UVDpLIM(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 $a480YLZwE2 ");my $y03HJ8ZM96=time;my $NyzmL6cIYu=$scrqlZeB3C->TH8vcZTGhW("\x6d\x6c")||$scrqlZeB3C->XUp8KtvxSh("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x4d\x41\x58\x5f\x4c\x4f\x47\x53")||3;my $NyDs2XIfM1=$scrqlZeB3C->TH8vcZTGhW("\x6d\x6c\x74")||$scrqlZeB3C->XUp8KtvxSh("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x4d\x41\x58\x5f\x4c\x4f\x47\x53\x5f\x54\x4f")||20;$#w9oydc2Xah=$NyzmL6cIYu-1 if $#w9oydc2Xah>$NyzmL6cIYu-1;foreach my $ZWbtupBIwx(@w9oydc2Xah){my $c0b8JnvyLm='';$gZtYce7AEa="grep '$a480YLZwE2' $ZWbtupBIwx | tac";if($ZWbtupBIwx=~ /gz$/){$gZtYce7AEa="z$gZtYce7AEa";}$c0b8JnvyLm=`$gZtYce7AEa`;$Ty94Vdc0Bh.=$c0b8JnvyLm;print "=";if(time>$y03HJ8ZM96+$NyDs2XIfM1){last;}}unless(length($Ty94Vdc0Bh)){print "\n\nCannot found data, the call is too old or log-files is too huge, try to grep in console\n";}else{my @a5aUgbq8rs=split(/[\r\n]+/,$Ty94Vdc0Bh);print "\n\n".join("\n",reverse(@a5aUgbq8rs));}}elsif($ttaEwbuMUZ eq "\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74"){LgwQ31ankl($scrqlZeB3C);}elsif($ttaEwbuMUZ eq "\x6d\x73\x67\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c"){my($Ppe98HdQ5G,$S8S6x9wE0D)=split("\x2c",$scrqlZeB3C->TH8vcZTGhW("\x6d\x73\x67\x5f\x74\x79\x70\x65"),2);my @cZPursilxn=map{int($_)}split("\x3a",$Ppe98HdQ5G,10);if(scalar(@cZPursilxn)){vV1UJIexOQ($scrqlZeB3C,\@cZPursilxn,$S8S6x9wE0D);}else{vV1UJIexOQ($scrqlZeB3C,undef,$S8S6x9wE0D);}}elsif($ttaEwbuMUZ eq "\x63\x61\x6c\x6c\x73\x5f\x68\x61\x6e\x67\x75\x70"){my($s3254ZAy80,$a480YLZwE2)=$scrqlZeB3C->TH8vcZTGhW([qw(user_id call_id)]);if(length($a480YLZwE2)and length($s3254ZAy80)){$scrqlZeB3C->dR3CD7KoML($a480YLZwE2,$s3254ZAy80);}$scrqlZeB3C->CsbkvtiHqf();}elsif($ttaEwbuMUZ eq "\x73\x69\x70\x5f\x6c\x6f\x67"){SkXojtK5ub($scrqlZeB3C);}elsif($ttaEwbuMUZ eq "\x66\x32\x62"){my $MokUnKCvSV=BJXIkVGevw($scrqlZeB3C);cd1B0wCEZW($scrqlZeB3C);}elsif($ttaEwbuMUZ eq "\x75\x73\x65\x72\x5f\x6c\x69\x73\x74"){M9gqtRkKXN($scrqlZeB3C);}elsif($ttaEwbuMUZ eq "\x62\x61\x63\x6b\x75\x70"){D6UGRdPHVY($scrqlZeB3C);}elsif($ttaEwbuMUZ eq "\x78\x76\x62\x73\x61\x6e\x64\x62\x6f\x78"){HDMJk1O7dQ($scrqlZeB3C);$scrqlZeB3C->CsbkvtiHqf("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x73\x79\x73\x73\x74\x61\x74\x75\x73");exit;}else{$scrqlZeB3C->CsbkvtiHqf("\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 sc7UmL8X2k{my $scrqlZeB3C=shift;my($C1KxN90s87)=$scrqlZeB3C->TH8vcZTGhW("\x61\x63");my $SsiJCbOtag=$scrqlZeB3C->A8Z3kibrsa(0,$C1KxN90s87,undef,undef);unless(ref $SsiJCbOtag eq "\x41\x52\x52\x41\x59"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $X24Vk0aXqM=$scrqlZeB3C->UNj5BIlcs8();unless(ref $X24Vk0aXqM eq "\x41\x52\x52\x41\x59"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $NWjScVG2U1=$scrqlZeB3C->T0fMjaKi97();%{$NWjScVG2U1}=(ID=>$SsiJCbOtag->[0]->{"\x49\x44"},TARIFF_ID=>$SsiJCbOtag->[0]->{"\x54\x41\x52\x49\x46\x46\x5f\x49\x44"});$SsiJCbOtag->[0]->{"\x43\x55\x52\x5f\x43\x41\x4c\x4c\x53"}=$scrqlZeB3C->zO9VlUrSf1("\x73\x68\x2d\x61\x63\x2d\x69\x6e\x2d".$SsiJCbOtag->[0]->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"})||0;my @Q0e8gRZTfh;foreach my $U7l0FUQ69Z(split(/\s*,\s*/,$scrqlZeB3C->XUp8KtvxSh("\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($M7iumb3g2t,$m49qMucEAh,$NzTkcZSFlA)=split(/:/,$U7l0FUQ69Z);next unless $NzTkcZSFlA;push @Q0e8gRZTfh,{NAME=>$NzTkcZSFlA,VAL=>$SsiJCbOtag->[0]->{$M7iumb3g2t},KEY=>$M7iumb3g2t};}my $gZtYce7AEa="\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".($SsiJCbOtag->[0]->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"}||0);my $GM9f8tVQnO=`$gZtYce7AEa`;my $EeqVT8M5nH;$EeqVT8M5nH="\x2d\x73\x62";kNcPgbROm2($scrqlZeB3C,"\x75\x73\x65\x72\x5f\x69\x6e\x66\x6f\x2e\x74\x74",{USER=>$SsiJCbOtag->[0],USER_COUNTERS=>$GM9f8tVQnO,DIDS=>$scrqlZeB3C->rPzKJZrW3L(),DOMAINS=>$scrqlZeB3C->lk3MBjDRNd(),TARIFF=>$scrqlZeB3C->ae29XlMUTK(),ADMIN_KEY=>$scrqlZeB3C->XUp8KtvxSh("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x4b\x45\x59"),CUSTOM_FIELDS=>\@Q0e8gRZTfh,GROUPS=>$X24Vk0aXqM,IS_SB=>$EeqVT8M5nH,LIMITS=>$scrqlZeB3C->mI9OSJg4ub($SsiJCbOtag->[0]->{"\x49\x44"})});}sub M9gqtRkKXN{my $scrqlZeB3C=shift;my($jdW9ZHgIRA,$Rx8UoaIGOM,$SWl9y8HT5K,$leIH6N1qPE,$alRbde6nQz,$T0gqJkEnrM,$BZAQNR15O7,$xL3AsIc9YN,$s0K98zqeIU)=$scrqlZeB3C->TH8vcZTGhW([[(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($SsiJCbOtag,$bt0U4m6p9S)=$scrqlZeB3C->A8Z3kibrsa($jdW9ZHgIRA,$Rx8UoaIGOM,$SWl9y8HT5K,$leIH6N1qPE,$alRbde6nQz,$T0gqJkEnrM,$BZAQNR15O7,$xL3AsIc9YN,undef,$s0K98zqeIU);unless(ref $SsiJCbOtag eq "\x41\x52\x52\x41\x59"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $X24Vk0aXqM=$scrqlZeB3C->UNj5BIlcs8();unless(ref $X24Vk0aXqM eq "\x41\x52\x52\x41\x59"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $laLc9Q76rl=[];foreach my $Cj4oZQklhY(split(/\s*;\s*/,$scrqlZeB3C->XUp8KtvxSh("\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($ZWbtupBIwx,$sRqrmy6JVp)=split(/:/,$Cj4oZQklhY,2);unless($sRqrmy6JVp){$sRqrmy6JVp=$ZWbtupBIwx;$sRqrmy6JVp=~ s{.*/([^/]+)$}{$1};}push @$laLc9Q76rl,{FILE=>$ZWbtupBIwx,DESC=>$sRqrmy6JVp};}my $Cg0opnAHDm=1;foreach my $NWjScVG2U1(@{$SsiJCbOtag}){$NWjScVG2U1->{"\x49\x44\x58"}=$jdW9ZHgIRA+$Cg0opnAHDm;$Cg0opnAHDm++;}kNcPgbROm2($scrqlZeB3C,"\x75\x73\x65\x72\x5f\x6c\x69\x73\x74\x2e\x74\x74",{USERS=>$SsiJCbOtag,USERS_CNT=>$bt0U4m6p9S,GROUPS=>$X24Vk0aXqM,TEMPLATES=>$laLc9Q76rl,F_AC=>$Rx8UoaIGOM,F_VN=>$SWl9y8HT5K,F_GROUP=>$leIH6N1qPE,F_UNAME=>$alRbde6nQz,F_STATUS=>$T0gqJkEnrM,F_TARIFF=>$BZAQNR15O7,F_DESC=>$xL3AsIc9YN,F_ID=>$s0K98zqeIU,TARIFFS=>$scrqlZeB3C->I9FA8Y5Ep6("\x54\x41\x52\x49\x46\x46"),DEF_SH_DID=>$scrqlZeB3C->XUp8KtvxSh("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x44\x45\x46\x5f\x53\x48\x5f\x44\x49\x44"),$scrqlZeB3C->NHvhUgMaw6(1,$SsiJCbOtag,$jdW9ZHgIRA)});}sub NhGqUpgCbx{my $scrqlZeB3C=shift;my($jdW9ZHgIRA,$Rx8UoaIGOM,$SWl9y8HT5K)=$scrqlZeB3C->TH8vcZTGhW([[(from=>0)],"\x66\x5f\x61\x63","\x66\x5f\x76\x6e"]);my $ysx7tykd01=$scrqlZeB3C->ynKq9i8bYv($jdW9ZHgIRA,$Rx8UoaIGOM,$SWl9y8HT5K);unless(ref $ysx7tykd01 eq "\x41\x52\x52\x41\x59"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}kNcPgbROm2($scrqlZeB3C,"\x64\x69\x64\x5f\x6c\x69\x73\x74\x2e\x74\x74",{DIDS=>$ysx7tykd01,F_AC=>$Rx8UoaIGOM,F_VN=>$SWl9y8HT5K,$scrqlZeB3C->NHvhUgMaw6(1,$ysx7tykd01,$jdW9ZHgIRA)});}sub y7V8QhlKgj{my $scrqlZeB3C=shift;my($jdW9ZHgIRA,$Rx8UoaIGOM,$SWl9y8HT5K)=$scrqlZeB3C->TH8vcZTGhW([[(from=>0)],"\x66\x5f\x61\x63","\x66\x5f\x76\x6e"]);my $lmDzqrbM7t=$scrqlZeB3C->s96EGNV74m($jdW9ZHgIRA,$Rx8UoaIGOM,$SWl9y8HT5K);unless(ref $lmDzqrbM7t eq "\x41\x52\x52\x41\x59"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}kNcPgbROm2($scrqlZeB3C,"\x73\x69\x70\x64\x6f\x6d\x61\x69\x6e\x5f\x6c\x69\x73\x74\x2e\x74\x74",{DOMAINS=>$lmDzqrbM7t,F_AC=>$Rx8UoaIGOM,F_VN=>$SWl9y8HT5K,$scrqlZeB3C->NHvhUgMaw6(1,$lmDzqrbM7t,$jdW9ZHgIRA)});}sub wu9IMl4k2m{my $scrqlZeB3C=shift;my($jdW9ZHgIRA,$leIH6N1qPE)=$scrqlZeB3C->TH8vcZTGhW([[(from=>0)],"\x66\x5f\x67\x72\x6f\x75\x70"]);my $X24Vk0aXqM=$scrqlZeB3C->UNj5BIlcs8(undef,$leIH6N1qPE,$jdW9ZHgIRA);unless(ref $X24Vk0aXqM eq "\x41\x52\x52\x41\x59"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}kNcPgbROm2($scrqlZeB3C,"\x67\x72\x6f\x75\x70\x5f\x6c\x69\x73\x74\x2e\x74\x74",{GROUPS=>$X24Vk0aXqM,NODES=>$scrqlZeB3C->UoE0NZvbx9(),F_GROUP=>$leIH6N1qPE,$scrqlZeB3C->NHvhUgMaw6(1,$X24Vk0aXqM,$jdW9ZHgIRA)});}sub vO5LPqRc4t{my($scrqlZeB3C,$Zi3JHa7zur,$GvpwGIJWy9)=@_;my $YhbPBa3RN4=$scrqlZeB3C->UNj5BIlcs8($Zi3JHa7zur,$GvpwGIJWy9);unless(ref $YhbPBa3RN4 eq "\x41\x52\x52\x41\x59"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;wu9IMl4k2m($scrqlZeB3C);}else{my $JyIAz9TeqF=$scrqlZeB3C->I9FA8Y5Ep6("\x56\x42\x54\x59\x50\x45\x53");foreach my $VJl1O7oyw5(@$JyIAz9TeqF){$VJl1O7oyw5->{"\x4c\x49\x4d\x49\x54\x5f\x56\x41\x4c\x55\x45"}=$YhbPBa3RN4->[0]->{"\x56\x42\x4c\x5f".$VJl1O7oyw5->{"\x49\x44"}};}kNcPgbROm2($scrqlZeB3C,"\x67\x72\x6f\x75\x70\x5f\x69\x6e\x66\x6f\x2e\x74\x74",{GROUP=>$YhbPBa3RN4->[0],NODES=>$scrqlZeB3C->I9FA8Y5Ep6("\x4e\x4f\x44\x45","\x4e\x4f\x44\x45\x5f\x49\x44"),TARIFFS=>$scrqlZeB3C->I9FA8Y5Ep6("\x54\x41\x52\x49\x46\x46"),LANG=>$scrqlZeB3C->I9FA8Y5Ep6("\x4c\x41\x4e\x47",undef,{STATUS=>1}),VB_TYPES=>$JyIAz9TeqF});}}sub cuKXLUp2jA{my($scrqlZeB3C,$DO9L8S7fJ1)=@_;my $TLfp1hq0sn=$scrqlZeB3C->LPmRGKHyh1(undef,$DO9L8S7fJ1);if(ref $TLfp1hq0sn ne "\x41\x52\x52\x41\x59" or ref $TLfp1hq0sn->[0]ne "\x48\x41\x53\x48"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}kNcPgbROm2($scrqlZeB3C,"\x74\x61\x72\x69\x66\x66\x5f\x69\x6e\x66\x6f\x2e\x74\x74",{%{$TLfp1hq0sn->[0]},CURRENCY=>$scrqlZeB3C->I9FA8Y5Ep6("\x43\x55\x52\x52\x45\x4e\x43\x59","\x43\x55\x52\x5f\x49\x44"),});}sub JqTtoNsx09{my($scrqlZeB3C,$zJafvruX8H)=@_;my($jdW9ZHgIRA,$tBOxm9Vf5H,$irhALTt8Hq,$RODWMGdR0B,$a480YLZwE2,$ZJFKQc3NIv,$DXDc6xzHrB,$C1KxN90s87,$ud1BRQ0X9l,$qGX158jrDJ,$ZB0MGXt9LI,$qsCje9mpcg,$dPuU3a7WG8,$ElNMDs6GxZ)=$scrqlZeB3C->TH8vcZTGhW([[(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("$a480YLZwE2$ZJFKQc3NIv$DXDc6xzHrB$tBOxm9Vf5H$irhALTt8Hq$ud1BRQ0X9l$C1KxN90s87$qGX158jrDJ$dPuU3a7WG8")){my $mpJES5Rlk0=$scrqlZeB3C->XUp8KtvxSh("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x41\x49");$tBOxm9Vf5H=$scrqlZeB3C->YPbw2qFVnY(time-86400*$mpJES5Rlk0,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$irhALTt8Hq=$scrqlZeB3C->YPbw2qFVnY(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my $vM9kju8JR1;if($C1KxN90s87=~ /,/){$vM9kju8JR1=[split(/\s*,\s*/,$C1KxN90s87)];}else{$vM9kju8JR1=$C1KxN90s87;}my $Ik9YoaH2DU=$scrqlZeB3C->sTAcyVvaKb($a480YLZwE2,$ZJFKQc3NIv,$DXDc6xzHrB,$jdW9ZHgIRA,$scrqlZeB3C->q4wf1vd9KY($tBOxm9Vf5H),$scrqlZeB3C->q4wf1vd9KY($irhALTt8Hq),$ud1BRQ0X9l,$vM9kju8JR1,$qGX158jrDJ,$dPuU3a7WG8,$zJafvruX8H,$qsCje9mpcg,$ZB0MGXt9LI,$ElNMDs6GxZ);unless(ref $Ik9YoaH2DU eq "\x41\x52\x52\x41\x59"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my(@Z39w8rqSPb,$se89mjtgv0,$g1I97YcbTv);my $X24Vk0aXqM=$scrqlZeB3C->UNj5BIlcs8();if($Ik9YoaH2DU){my $WyKdnao6be=$jdW9ZHgIRA+1;unless($a480YLZwE2){foreach my $VJl1O7oyw5(@{$Ik9YoaH2DU}){$VJl1O7oyw5->{"\x43\x44\x52\x5f\x4e\x55\x4d"}=$WyKdnao6be++;$VJl1O7oyw5->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$scrqlZeB3C->YPbw2qFVnY($VJl1O7oyw5->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});}}else{foreach my $VJl1O7oyw5(@{$Ik9YoaH2DU}){$VJl1O7oyw5->{"\x43\x44\x52\x5f\x4e\x55\x4d"}=$WyKdnao6be++;$VJl1O7oyw5->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$scrqlZeB3C->YPbw2qFVnY($VJl1O7oyw5->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});if($VJl1O7oyw5->{"\x54\x59\x50\x45"}eq "\x43\x61\x6c\x6c"){$se89mjtgv0=$VJl1O7oyw5->{"\x45\x58\x54\x5f\x4e\x55\x4d\x42\x45\x52"};$g1I97YcbTv=$VJl1O7oyw5->{"\x44\x4f\x57\x4e\x4c\x4f\x41\x44\x5f\x49\x50"};}}$se89mjtgv0=$a480YLZwE2 unless length($se89mjtgv0);if(ref $Ik9YoaH2DU and ref $Ik9YoaH2DU->[0]){my $oBtgsTQi9y=$scrqlZeB3C->YPbw2qFVnY($Ik9YoaH2DU->[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 @Z39w8rqSPb,(JS_DATE_STR=>$oBtgsTQi9y);push @Z39w8rqSPb,(SIP_CALL_ID=>$se89mjtgv0,SIP_CALL_START=>$Ik9YoaH2DU->[0]->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"},SIP_CALL_STOP=>$Ik9YoaH2DU->[$#{$Ik9YoaH2DU}]->{"\x53\x54\x4f\x50\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"},SIP_NODE_IP=>$g1I97YcbTv);}}}my $ybM9rCwqIe;if($a480YLZwE2){$ybM9rCwqIe="\x63\x64\x72\x73\x5f\x61\x63\x74\x5f\x6c\x69\x73\x74\x2e\x74\x74";}elsif($zJafvruX8H){$ybM9rCwqIe="\x61\x63\x74\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c\x2e\x74\x74";push @Z39w8rqSPb,(CDR_ACT_TYPE=>$ZB0MGXt9LI,CDR_ACT_EXT=>$qsCje9mpcg);unless($scrqlZeB3C->JFEGSlp8HB()->{"\x44\x46"}){push @Z39w8rqSPb,(ACT_TYPES=>$scrqlZeB3C->{"\x5f\x4c\x49\x53\x54\x53"}->{"\x41\x43\x54\x49\x56\x49\x54\x49\x45\x53"});}}else{$ybM9rCwqIe="\x63\x64\x72\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74";push @Z39w8rqSPb,(CDR_CALL_TYPE=>$ud1BRQ0X9l);}return kNcPgbROm2($scrqlZeB3C,$ybM9rCwqIe,{CDR_LIST=>$Ik9YoaH2DU,CDR_CALL_ID=>$a480YLZwE2,CDR_CALLER_ID=>$ZJFKQc3NIv,CDR_CALLED_ID=>$DXDc6xzHrB,CDR_AC=>$C1KxN90s87,CDR_DURATION=>$qGX158jrDJ,CDR_DATA=>$dPuU3a7WG8,CDR_GROUP=>$ElNMDs6GxZ,GROUPS=>$X24Vk0aXqM,FROM_TIME=>$tBOxm9Vf5H,TO_TIME=>$irhALTt8Hq,SMART_TIME=>$RODWMGdR0B,@Z39w8rqSPb,$scrqlZeB3C->NHvhUgMaw6(1,$Ik9YoaH2DU,$jdW9ZHgIRA)});}sub H3SPtj1ABZ{my $scrqlZeB3C=shift;my($jdW9ZHgIRA,$C1KxN90s87,$tBOxm9Vf5H,$irhALTt8Hq,$RODWMGdR0B,$mHWk83b1hz,$Z26JCh9AD3,$dPuU3a7WG8,$UynqiRSmTu)=$scrqlZeB3C->TH8vcZTGhW([[(from=>0)],qw(ac from_time to_time smart_time ext_num action_type data cid)]);unless(length("$C1KxN90s87$tBOxm9Vf5H$irhALTt8Hq$mHWk83b1hz$Z26JCh9AD3$dPuU3a7WG8$UynqiRSmTu")){my $mpJES5Rlk0=$scrqlZeB3C->XUp8KtvxSh("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x41\x49");$tBOxm9Vf5H=$scrqlZeB3C->YPbw2qFVnY(time-86400*$mpJES5Rlk0,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$irhALTt8Hq=$scrqlZeB3C->YPbw2qFVnY(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my $vM9kju8JR1;if($C1KxN90s87=~ /,/){$vM9kju8JR1=[split(/\s*,\s*/,$C1KxN90s87)];}else{$vM9kju8JR1=$C1KxN90s87;}my $mmEWzvfHh5=$scrqlZeB3C->n6uGmhJRDT($vM9kju8JR1,$mHWk83b1hz,$dPuU3a7WG8,$jdW9ZHgIRA,$Z26JCh9AD3,$scrqlZeB3C->q4wf1vd9KY($tBOxm9Vf5H),$scrqlZeB3C->q4wf1vd9KY($irhALTt8Hq),$UynqiRSmTu);if(ref $mmEWzvfHh5 ne "\x41\x52\x52\x41\x59"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}elsif($mmEWzvfHh5){my $WyKdnao6be=$jdW9ZHgIRA+1;foreach my $VJl1O7oyw5(@{$mmEWzvfHh5}){$VJl1O7oyw5->{"\x4a\x5f\x4e\x55\x4d"}=$WyKdnao6be++;$VJl1O7oyw5->{"\x4a\x5f\x44\x41\x54\x45"}=$scrqlZeB3C->YPbw2qFVnY($VJl1O7oyw5->{"\x43\x52\x45\x41\x54\x45\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});}}return kNcPgbROm2($scrqlZeB3C,"\x6a\x6f\x75\x72\x6e\x61\x6c\x5f\x6c\x69\x73\x74\x2e\x74\x74",{J_LIST=>$mmEWzvfHh5,J_DATA=>$dPuU3a7WG8,J_EXT_NUM=>$mHWk83b1hz,J_ACTION=>$Z26JCh9AD3,J_AC=>$C1KxN90s87,J_CID=>$UynqiRSmTu,ACTIONS=>$scrqlZeB3C->zRT9ez54PJ(),FROM_TIME=>$tBOxm9Vf5H,TO_TIME=>$irhALTt8Hq,SMART_TIME=>$RODWMGdR0B,$scrqlZeB3C->NHvhUgMaw6(1,$mmEWzvfHh5,$jdW9ZHgIRA)});}sub Fdk1a0xcrJ{my $scrqlZeB3C=shift;my($jdW9ZHgIRA,$SWl9y8HT5K)=$scrqlZeB3C->TH8vcZTGhW([[(from=>0)],"\x66\x5f\x76\x6e"]);my $eejHNrq8kb=$scrqlZeB3C->NiC6TUbVl9($jdW9ZHgIRA,$SWl9y8HT5K);unless(ref $eejHNrq8kb eq "\x41\x52\x52\x41\x59"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}kNcPgbROm2($scrqlZeB3C,"\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x6c\x69\x73\x74\x2e\x74\x74",{DIDS=>$eejHNrq8kb,LANG=>$scrqlZeB3C->I9FA8Y5Ep6("\x4c\x41\x4e\x47",undef,{STATUS=>1}),F_VN=>$SWl9y8HT5K,$scrqlZeB3C->NHvhUgMaw6(1,$eejHNrq8kb,$jdW9ZHgIRA)});}sub k8upMHOPB9{my $scrqlZeB3C=shift;my $jdW9ZHgIRA=$scrqlZeB3C->TH8vcZTGhW("\x66\x72\x6f\x6d")||0;my $TLfp1hq0sn=$scrqlZeB3C->LPmRGKHyh1($jdW9ZHgIRA);unless(ref $TLfp1hq0sn eq "\x41\x52\x52\x41\x59"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}kNcPgbROm2($scrqlZeB3C,"\x74\x61\x72\x69\x66\x66\x5f\x6c\x69\x73\x74\x2e\x74\x74",{TARIFFS=>$TLfp1hq0sn,CURRENCY=>$scrqlZeB3C->I9FA8Y5Ep6("\x43\x55\x52\x52\x45\x4e\x43\x59","\x43\x55\x52\x5f\x49\x44"),$scrqlZeB3C->NHvhUgMaw6(1,$TLfp1hq0sn,$jdW9ZHgIRA)});}sub k86UyLbhIs{my $scrqlZeB3C=shift;my $jdW9ZHgIRA=$scrqlZeB3C->TH8vcZTGhW("\x66\x72\x6f\x6d")||0;my $Br15KUhFpj=$scrqlZeB3C->UoE0NZvbx9($jdW9ZHgIRA);unless(ref $Br15KUhFpj eq "\x41\x52\x52\x41\x59"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}else{foreach my $nUCLkNKXRo(@{$Br15KUhFpj}){$nUCLkNKXRo->{"\x73\x74\x61\x74"}=$scrqlZeB3C->zO9VlUrSf1("\x73\x68\x2d\x73\x74\x61\x74\x2d".$nUCLkNKXRo->{"\x4e\x4f\x44\x45\x5f\x49\x44"})||{};$nUCLkNKXRo->{"\x73\x74\x61\x74"}->{"\x63\x61\x6c\x6c\x73"}=$scrqlZeB3C->zO9VlUrSf1("\x73\x68\x2d\x63\x61\x6c\x6c\x73\x2d".$nUCLkNKXRo->{"\x4e\x4f\x44\x45\x5f\x49\x44"})||0;}}kNcPgbROm2($scrqlZeB3C,"\x6e\x6f\x64\x65\x5f\x6c\x69\x73\x74\x2e\x74\x74",{NODES=>$Br15KUhFpj,$scrqlZeB3C->NHvhUgMaw6(1,$Br15KUhFpj,$jdW9ZHgIRA)});}sub qZAdzFsy9P{my $scrqlZeB3C=shift;my($jdW9ZHgIRA,$PRmHGQ0Ya8,$MuSjAYOWJZ)=$scrqlZeB3C->TH8vcZTGhW([[(from=>0)],"\x6e\x61\x6d\x65","\x74\x79\x70\x65"]);my $AKRM0lAN9q=$scrqlZeB3C->vSraIgJKbD(undef,$MuSjAYOWJZ,$PRmHGQ0Ya8,$jdW9ZHgIRA);unless(ref $AKRM0lAN9q eq "\x41\x52\x52\x41\x59"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;return 0;}kNcPgbROm2($scrqlZeB3C,"\x72\x65\x70\x6f\x72\x74\x5f\x6c\x69\x73\x74\x2e\x74\x74",{REPORTS=>$AKRM0lAN9q,SEARCH_NAME=>$PRmHGQ0Ya8,SEARCH_TYPE=>$MuSjAYOWJZ,$scrqlZeB3C->NHvhUgMaw6(1,$AKRM0lAN9q,$jdW9ZHgIRA)});}sub Tft2I53vX6{my $scrqlZeB3C=shift;my($y9gqorTZKs,$MF8C6QxLUk,$sWXlkdZYNz,$JS9km8vfY5,$RODWMGdR0B,$MuSjAYOWJZ)=$scrqlZeB3C->TH8vcZTGhW([qw(report_id need_excel from_time to_time smart_time type)]);my $t3HnCN9MKv=$scrqlZeB3C->q4wf1vd9KY($sWXlkdZYNz);my $msLd7uBvp1=$scrqlZeB3C->q4wf1vd9KY($JS9km8vfY5);my(%a7b86LPkK2,@d5JnxIeahb);my $YAvVholYBS=$scrqlZeB3C->vSraIgJKbD($y9gqorTZKs);if(ref $YAvVholYBS eq "\x41\x52\x52\x41\x59" and $YAvVholYBS->[0]->{"\x45\x58\x54\x52\x41\x5f\x50\x41\x52\x41\x4d\x53"}){foreach my $lG1VD3yCNu(split(/\s*\|\s*/,$YAvVholYBS->[0]->{"\x45\x58\x54\x52\x41\x5f\x50\x41\x52\x41\x4d\x53"})){my($NrBig7AEKo,$zojXkdlV9h,$ns145oQkKu)=split(/\s*:\s*/,$lG1VD3yCNu,3);$a7b86LPkK2{$NrBig7AEKo}=$scrqlZeB3C->TH8vcZTGhW($NrBig7AEKo);push @d5JnxIeahb,{name=>$NrBig7AEKo,label=>$zojXkdlV9h,value=>$a7b86LPkK2{$NrBig7AEKo}};}}my $EHqn9m5Q48=$scrqlZeB3C->vP4lyvEzsu($y9gqorTZKs,$MuSjAYOWJZ,$MF8C6QxLUk,$t3HnCN9MKv,$msLd7uBvp1,\%a7b86LPkK2);if($MF8C6QxLUk){if($EHqn9m5Q48){if($EHqn9m5Q48=~ /xlsx$/){return $scrqlZeB3C->oypGmxJ10z($EHqn9m5Q48,"\x61\x70\x70\x6c\x69\x63\x61\x74\x69\x6f\x6e\x2f\x78\x6c\x73\x78");}else{return $scrqlZeB3C->oypGmxJ10z($EHqn9m5Q48,"\x74\x65\x78\x74\x2f\x63\x73\x76");}}}unless(ref $EHqn9m5Q48 eq "\x41\x52\x52\x41\x59"){$scrqlZeB3C->{"\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";$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);return 0;}my $aN30h9dstL=[];my $c6HNEWIvY7=[];foreach my $ih3G0nS7uC(@{$EHqn9m5Q48->[1]}){my $is2oB3IjkL=$ih3G0nS7uC;if($is2oB3IjkL=~ s/^=//){push @{$c6HNEWIvY7},{name=>$is2oB3IjkL,align=>"\x6c\x65\x66\x74"};}elsif($is2oB3IjkL=~ s/=$//){push @{$c6HNEWIvY7},{name=>$is2oB3IjkL,align=>"\x72\x69\x67\x68\x74"};}else{push @{$c6HNEWIvY7},{name=>$is2oB3IjkL,align=>"\x63\x65\x6e\x74\x65\x72"};}}for(0..$#{$EHqn9m5Q48->[0]}){$aN30h9dstL->[$_]=[];foreach my $ih3G0nS7uC(@{$EHqn9m5Q48->[1]}){my $is2oB3IjkL=$ih3G0nS7uC;my $n9Z6pCyUs7=$EHqn9m5Q48->[0]->[$_]->{$is2oB3IjkL};my $xrdOJqzntl=0;if($is2oB3IjkL=~ /^=?ACCESS_CODE=?$/){$n9Z6pCyUs7="<a href='/ai?ac=$n9Z6pCyUs7&action=user_info'>$n9Z6pCyUs7</a>";$xrdOJqzntl=1;}if($is2oB3IjkL=~ s/^=//){push @{$aN30h9dstL->[$_]},{value=>$n9Z6pCyUs7,align=>"\x6c\x65\x66\x74",is_raw=>$xrdOJqzntl,label=>$is2oB3IjkL};}elsif($is2oB3IjkL=~ s/=$//){push @{$aN30h9dstL->[$_]},{value=>$n9Z6pCyUs7,align=>"\x72\x69\x67\x68\x74",is_raw=>$xrdOJqzntl,label=>$is2oB3IjkL};}else{push @{$aN30h9dstL->[$_]},{value=>$n9Z6pCyUs7,align=>"\x63\x65\x6e\x74\x65\x72",is_raw=>$xrdOJqzntl,label=>$is2oB3IjkL};}}}kNcPgbROm2($scrqlZeB3C,"\x72\x65\x70\x6f\x72\x74\x5f\x72\x65\x73\x75\x6c\x74\x2e\x74\x74",{FROM_TIME=>($sWXlkdZYNz||$EHqn9m5Q48->[3]),TO_TIME=>($JS9km8vfY5||$EHqn9m5Q48->[4]),SMART_TIME=>$RODWMGdR0B,REPORT_RAW_DATA=>$EHqn9m5Q48->[5],REPORT_RESULT=>$aN30h9dstL,REPORT_HDR=>$c6HNEWIvY7,REPORT_DATA=>$EHqn9m5Q48->[2],EXTRA_PARAMS=>\@d5JnxIeahb});}sub t1IfGZehnY{my $scrqlZeB3C=shift;my $jdW9ZHgIRA=$scrqlZeB3C->TH8vcZTGhW("\x66\x72\x6f\x6d")||0;my($IUKHmLW9D0,$e9GkEpQDKL)=$scrqlZeB3C->kyLi9F7tzB($jdW9ZHgIRA);my $X24Vk0aXqM;foreach my $vtAKBFyzqQ(@{$IUKHmLW9D0}){$vtAKBFyzqQ->{"\x47\x52\x4f\x55\x50\x5f\x49\x44\x5f\x42\x49\x4e"}=[split(/,/,$vtAKBFyzqQ->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})];}unless(ref $IUKHmLW9D0 eq "\x41\x52\x52\x41\x59"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}else{$X24Vk0aXqM=$scrqlZeB3C->UNj5BIlcs8();unless(ref $X24Vk0aXqM eq "\x41\x52\x52\x41\x59"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}}my $Cg0opnAHDm=1;foreach my $vtAKBFyzqQ(@{$IUKHmLW9D0}){$vtAKBFyzqQ->{"\x49\x44\x58"}=$jdW9ZHgIRA+$Cg0opnAHDm;$Cg0opnAHDm++;}kNcPgbROm2($scrqlZeB3C,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x69\x73\x74\x2e\x74\x74",{PARTNERS=>$IUKHmLW9D0,PARTNERS_CNT=>$e9GkEpQDKL,GROUPS=>$X24Vk0aXqM,$scrqlZeB3C->NHvhUgMaw6(1,$IUKHmLW9D0,$jdW9ZHgIRA)});}sub NlqZ72Vuvd{my $scrqlZeB3C=shift;my($jdW9ZHgIRA,$nLhoBPgdW8,$hPt16ed0WJ,$MokUnKCvSV,$C1KxN90s87,$M9v5stXCIi,$zV3zD1UjsL)=$scrqlZeB3C->TH8vcZTGhW([[(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 $vM9kju8JR1;if($C1KxN90s87=~ /,/){$vM9kju8JR1=[split(/\s*,\s*/,$C1KxN90s87)];}else{$vM9kju8JR1=$C1KxN90s87;}my($eQouG92ptw,$eZTC3xpX9o)=$scrqlZeB3C->QlacuYWyLj($jdW9ZHgIRA,0,$nLhoBPgdW8,$hPt16ed0WJ,undef,$MokUnKCvSV,$vM9kju8JR1,$M9v5stXCIi,undef,undef,$zV3zD1UjsL);unless(ref $eQouG92ptw eq "\x41\x52\x52\x41\x59"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $meNtm9Syc5=time;my $Cg0opnAHDm=1;foreach my $G5omxup9Uh(@$eQouG92ptw){if($meNtm9Syc5<$G5omxup9Uh->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}){$G5omxup9Uh->{"\x52\x45\x47\x5f\x53\x54\x41\x54\x55\x53"}="\x52\x65\x67\x69\x73\x74\x65\x72\x65\x64";}else{$G5omxup9Uh->{"\x52\x45\x47\x5f\x53\x54\x41\x54\x55\x53"}="\x55\x6e\x72\x65\x67\x69\x73\x74\x65\x72\x65\x64";}$G5omxup9Uh->{"\x52\x45\x47\x5f\x45\x58\x50\x49\x52\x45\x44"}=$G5omxup9Uh->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}? $scrqlZeB3C->YPbw2qFVnY($G5omxup9Uh->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}):"\x2d";$G5omxup9Uh->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}=$G5omxup9Uh->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}? $scrqlZeB3C->YPbw2qFVnY($G5omxup9Uh->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}):"\x2d";$G5omxup9Uh->{"\x49\x44\x58"}=$jdW9ZHgIRA+$Cg0opnAHDm;$Cg0opnAHDm++;}kNcPgbROm2($scrqlZeB3C,"\x70\x68\x6f\x6e\x65\x5f\x6c\x69\x73\x74\x2e\x74\x74",{SIPDEV=>$eQouG92ptw,SIPDEV_CNT=>$eZTC3xpX9o,AUTHNAME=>$hPt16ed0WJ,PHONE=>$nLhoBPgdW8,IP=>$MokUnKCvSV,AC=>$C1KxN90s87,UA=>$M9v5stXCIi,RST=>$zV3zD1UjsL,FROM=>$jdW9ZHgIRA,ALLOW_RESET=>($scrqlZeB3C->XUp8KtvxSh("\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=>$scrqlZeB3C->XUp8KtvxSh("\x53\x49\x50\x5f\x41\x49\x5f\x41\x55\x54\x48\x5f\x45\x44\x49\x54"),$scrqlZeB3C->NHvhUgMaw6(1,$eQouG92ptw,$jdW9ZHgIRA)});}sub LgwQ31ankl{my $scrqlZeB3C=shift;my($jdW9ZHgIRA,$ZJFKQc3NIv,$DXDc6xzHrB,$C1KxN90s87,$ud1BRQ0X9l,$i7P6o0E8ac,$plUVODXPzB,$qGX158jrDJ,$ElNMDs6GxZ)=$scrqlZeB3C->TH8vcZTGhW([[(from=>0)],qw(caller_id called_id ac call_type refresh c2c duration group)]);my $vM9kju8JR1;if($C1KxN90s87=~ /,/){$vM9kju8JR1=[split(/\s*,\s*/,$C1KxN90s87)];}else{$vM9kju8JR1=$C1KxN90s87;}my $lrf4leuzLm=$scrqlZeB3C->EAChg3VyoO($ZJFKQc3NIv,$DXDc6xzHrB,$vM9kju8JR1,$ud1BRQ0X9l,$qGX158jrDJ,$ElNMDs6GxZ,undef,undef,$jdW9ZHgIRA);unless(ref $lrf4leuzLm eq "\x41\x52\x52\x41\x59"){$lrf4leuzLm=[];}if($lrf4leuzLm){foreach my $VJl1O7oyw5(@{$lrf4leuzLm}){$VJl1O7oyw5->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$scrqlZeB3C->YPbw2qFVnY($VJl1O7oyw5->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});$VJl1O7oyw5->{"\x43\x44\x52\x5f\x44\x55\x52\x41\x54\x49\x4f\x4e"}=time-$VJl1O7oyw5->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"};}}my $X24Vk0aXqM=$scrqlZeB3C->UNj5BIlcs8();unless(ref $X24Vk0aXqM eq "\x41\x52\x52\x41\x59"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}$plUVODXPzB||=$scrqlZeB3C->XUp8KtvxSh("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x44\x45\x46\x5f\x43\x32\x43");if($plUVODXPzB){$plUVODXPzB=~ s#ph=[^&;]+##;$plUVODXPzB=~ s#user_vars=([^&;]+)##;if($1){$plUVODXPzB=",$1&$plUVODXPzB";}elsif($plUVODXPzB=~ /&/ and $plUVODXPzB !~ /^[,&]/){$plUVODXPzB="&$plUVODXPzB";}}return kNcPgbROm2($scrqlZeB3C,"\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74",{CALLS_COUNT=>scalar(@$lrf4leuzLm),CALLS_LIST=>$lrf4leuzLm,CDR_CALLER_ID=>$ZJFKQc3NIv,CDR_CALLED_ID=>$DXDc6xzHrB,CDR_AC=>$C1KxN90s87,CDR_CALL_TYPE=>$ud1BRQ0X9l,CDR_REFRESH_TIME=>$i7P6o0E8ac,CDR_C2C=>$plUVODXPzB,CDR_DURATION=>$qGX158jrDJ,CDR_GROUP=>$ElNMDs6GxZ,GROUPS=>$X24Vk0aXqM,$scrqlZeB3C->NHvhUgMaw6(1,$lrf4leuzLm,$jdW9ZHgIRA)});}sub EpkAiZRF8L{my $scrqlZeB3C=shift;my($jdW9ZHgIRA,$hPt16ed0WJ,$oofixwzK16,$C1KxN90s87,$uME9PK5YVi,$Yw9atRD28M)=$scrqlZeB3C->TH8vcZTGhW([[(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 $vM9kju8JR1;if($C1KxN90s87=~ /,/){$vM9kju8JR1=[split(/\s*,\s*/,$C1KxN90s87)];}else{$vM9kju8JR1=$C1KxN90s87;}my($NGspI5xtLr,$Ejlf5sAkaT)=$scrqlZeB3C->QlacuYWyLj($jdW9ZHgIRA,1,undef,$hPt16ed0WJ,$oofixwzK16,undef,$vM9kju8JR1,undef,$uME9PK5YVi,$Yw9atRD28M);unless(ref $NGspI5xtLr eq "\x41\x52\x52\x41\x59"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $Cg0opnAHDm=1;foreach my $vtAKBFyzqQ(@{$NGspI5xtLr}){if($vtAKBFyzqQ->{"\x4e\x45\x45\x44\x5f\x52\x45\x47"}and length($vtAKBFyzqQ->{"\x75\x73\x65\x72\x6e\x61\x6d\x65"})){if($vtAKBFyzqQ->{"\x68\x6f\x73\x74"}eq "\x64\x79\x6e\x61\x6d\x69\x63"){my $meNtm9Syc5=time;if($meNtm9Syc5<$vtAKBFyzqQ->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}){$vtAKBFyzqQ->{"\x52\x45\x47\x5f\x44\x41\x54\x41"}={state=>"\x52\x65\x67\x69\x73\x74\x65\x72\x65\x64"};}else{$vtAKBFyzqQ->{"\x52\x45\x47\x5f\x44\x41\x54\x41"}={state=>"\x55\x6e\x72\x65\x67\x69\x73\x74\x65\x72\x65\x64"};}}elsif($vtAKBFyzqQ->{"\x70\x6f\x72\x74"}eq "\x35\x30\x36\x30"){$vtAKBFyzqQ->{"\x52\x45\x47\x5f\x44\x41\x54\x41"}=$scrqlZeB3C->zO9VlUrSf1("\x73\x68\x2d\x73\x69\x70\x2d\x72\x65\x67\x73\x2d".$vtAKBFyzqQ->{"\x6e\x61\x6d\x65"});}else{$vtAKBFyzqQ->{"\x52\x45\x47\x5f\x44\x41\x54\x41"}=$scrqlZeB3C->zO9VlUrSf1("\x73\x68\x2d\x73\x69\x70\x2d\x72\x65\x67\x73\x2d".$vtAKBFyzqQ->{"\x68\x6f\x73\x74"}."\x3a".$vtAKBFyzqQ->{"\x70\x6f\x72\x74"}."\x3a".$vtAKBFyzqQ->{"\x75\x73\x65\x72\x6e\x61\x6d\x65"});}}$vtAKBFyzqQ->{"\x49\x44\x58"}=$jdW9ZHgIRA+$Cg0opnAHDm;$Cg0opnAHDm++;}kNcPgbROm2($scrqlZeB3C,"\x70\x65\x65\x72\x5f\x6c\x69\x73\x74\x2e\x74\x74",{SIPDEV=>$NGspI5xtLr,SIPDEV_CNT=>$Ejlf5sAkaT,AUTHNAME=>$hPt16ed0WJ,HOST=>$oofixwzK16,NEED_REG=>$uME9PK5YVi,PBXMODE=>$Yw9atRD28M,AC=>$C1KxN90s87,FROM=>$jdW9ZHgIRA,$scrqlZeB3C->NHvhUgMaw6(1,$NGspI5xtLr,$jdW9ZHgIRA)});}sub RTC5USDhVx{my($scrqlZeB3C)=@_;my($tBOxm9Vf5H,$irhALTt8Hq,$RODWMGdR0B,$ZJFKQc3NIv,$ud1BRQ0X9l,$DXDc6xzHrB,$qGX158jrDJ,$lTMLOFqljn,$TtMmydp4WX)=$scrqlZeB3C->TH8vcZTGhW([qw(from_time to_time smart_time caller_id call_type called_id duration data raw_chart_data)]);unless(length("$tBOxm9Vf5H$irhALTt8Hq$ZJFKQc3NIv$ud1BRQ0X9l$DXDc6xzHrB$qGX158jrDJ$lTMLOFqljn")){my $mpJES5Rlk0=$scrqlZeB3C->XUp8KtvxSh("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x41\x49");$tBOxm9Vf5H=$scrqlZeB3C->YPbw2qFVnY(time-86400*$mpJES5Rlk0,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$irhALTt8Hq=$scrqlZeB3C->YPbw2qFVnY(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my $dPuU3a7WG8=$scrqlZeB3C->AmgIOA7BFy($ZJFKQc3NIv,$scrqlZeB3C->q4wf1vd9KY(($tBOxm9Vf5H||"\x30\x30\x3a\x30\x30")),$scrqlZeB3C->q4wf1vd9KY($irhALTt8Hq),($scrqlZeB3C->TH8vcZTGhW("\x63\x68\x61\x72\x74\x5f\x67\x72\x6f\x75\x70\x5f\x70\x65\x72\x69\x6f\x64")||"\x64"),$ud1BRQ0X9l,$DXDc6xzHrB,$qGX158jrDJ,$lTMLOFqljn,$TtMmydp4WX,undef,"\x69\x73\x5f\x61\x69");if($TtMmydp4WX){unless($dPuU3a7WG8){$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}else{if($dPuU3a7WG8=~ /xlsx$/){return $scrqlZeB3C->oypGmxJ10z($dPuU3a7WG8,"\x61\x70\x70\x6c\x69\x63\x61\x74\x69\x6f\x6e\x2f\x78\x6c\x73\x78");}else{return $scrqlZeB3C->oypGmxJ10z($dPuU3a7WG8,"\x74\x65\x78\x74\x2f\x63\x73\x76");}}}my $odEght50cB;unless(ref $dPuU3a7WG8 eq "\x41\x52\x52\x41\x59"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}else{$odEght50cB=$scrqlZeB3C->YPbw2qFVnY($dPuU3a7WG8->[2])."\x20\x2d\x20".$scrqlZeB3C->YPbw2qFVnY($dPuU3a7WG8->[3]||time);}return kNcPgbROm2($scrqlZeB3C,"\x63\x64\x72\x73\x5f\x63\x68\x61\x72\x74\x2e\x74\x74",{CDR_LIST=>$dPuU3a7WG8->[0],CDR_HEADER=>$odEght50cB,CDR_PERIOD=>$dPuU3a7WG8->[1],CDR_CALLER_ID=>$ZJFKQc3NIv,CDR_CALLED_ID=>$DXDc6xzHrB,CDR_CALL_TYPE=>$ud1BRQ0X9l,CDR_DURATION=>$qGX158jrDJ,CDR_DATA=>$lTMLOFqljn,CDR_WITH_ASR=>$scrqlZeB3C->XUp8KtvxSh("\x43\x47\x49\x5f\x53\x54\x41\x54\x5f\x57\x49\x54\x48\x5f\x41\x53\x52"),EXCEL_MODE=>$scrqlZeB3C->XUp8KtvxSh("\x43\x47\x49\x5f\x45\x58\x43\x45\x4c\x5f\x4d\x4f\x44\x45"),SMART_TIME=>$RODWMGdR0B,FROM_TIME=>$tBOxm9Vf5H,TO_TIME=>$irhALTt8Hq});}sub vV1UJIexOQ{my($scrqlZeB3C,$NfKg80muSD,$S8S6x9wE0D)=@_;my($jdW9ZHgIRA,$tBOxm9Vf5H,$irhALTt8Hq,$RODWMGdR0B,$ZJFKQc3NIv,$DXDc6xzHrB,$qGX158jrDJ,$qPt9pCMNmE,$C1KxN90s87)=$scrqlZeB3C->TH8vcZTGhW([[(from=>0)],qw(from_time to_time smart_time caller_id called_id duration any_did ac)]);$scrqlZeB3C->{"\x5f\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}->{MSG_IN_PAGE}=$scrqlZeB3C->XUp8KtvxSh("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x4d\x53\x47\x5f\x49\x4e\x5f\x50\x41\x47\x45");unless(length("$tBOxm9Vf5H$irhALTt8Hq$ZJFKQc3NIv$DXDc6xzHrB$qGX158jrDJ$qPt9pCMNmE$C1KxN90s87")){my $mpJES5Rlk0=$scrqlZeB3C->XUp8KtvxSh("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x41\x49");$tBOxm9Vf5H=$scrqlZeB3C->YPbw2qFVnY(time-86400*$mpJES5Rlk0,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$irhALTt8Hq=$scrqlZeB3C->YPbw2qFVnY(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my $vM9kju8JR1;if($C1KxN90s87=~ /,/){$vM9kju8JR1=[split(/\s*,\s*/,$C1KxN90s87)];}else{$vM9kju8JR1=$C1KxN90s87;}my $n321hVH09a=$scrqlZeB3C->uQ2gY49zTq(0,$jdW9ZHgIRA,undef,$NfKg80muSD,$scrqlZeB3C->q4wf1vd9KY($tBOxm9Vf5H),$scrqlZeB3C->q4wf1vd9KY($irhALTt8Hq),$ZJFKQc3NIv,$DXDc6xzHrB,$S8S6x9wE0D,$qGX158jrDJ,$qPt9pCMNmE,"\x69\x73\x5f\x61\x69",$vM9kju8JR1);unless(ref $n321hVH09a eq "\x41\x52\x52\x41\x59"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}elsif($n321hVH09a){my $WyKdnao6be=$jdW9ZHgIRA+1;foreach my $YfrRAq49Py(@{$n321hVH09a}){$YfrRAq49Py->{"\x4d\x53\x47\x5f\x4e\x55\x4d"}=$WyKdnao6be++;$YfrRAq49Py->{"\x4d\x53\x47\x5f\x44\x41\x54\x45"}=$scrqlZeB3C->YPbw2qFVnY($YfrRAq49Py->{"\x43\x52\x45\x41\x54\x45\x5f\x54\x49\x4d\x45"});}}return kNcPgbROm2($scrqlZeB3C,"\x6d\x65\x73\x73\x61\x67\x65\x73\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c\x2e\x74\x74",{CGI_URL=>$scrqlZeB3C->XUp8KtvxSh("\x43\x47\x49\x5f\x55\x52\x4c"),MSG_LIST=>$n321hVH09a,FROM_TIME=>$tBOxm9Vf5H,TO_TIME=>$irhALTt8Hq,SMART_TIME=>$RODWMGdR0B,CALLER_ID=>$ZJFKQc3NIv,CALLED_ID=>$DXDc6xzHrB,ANY_DID=>$qPt9pCMNmE,DURATION=>$qGX158jrDJ,ACCESS_CODE=>$C1KxN90s87,MSG_TYPE=>(ref $NfKg80muSD ? join("\x3a",@$NfKg80muSD):'').(defined $S8S6x9wE0D ? ",$S8S6x9wE0D":''),$scrqlZeB3C->NHvhUgMaw6(0,$n321hVH09a,$jdW9ZHgIRA)});}sub kNcPgbROm2{my($scrqlZeB3C,$h9HMqKGxSZ,$dPuU3a7WG8)=@_;my $Cj4oZQklhY=Template::EasyTT->new({});my $qz5hYyVsfR=$scrqlZeB3C->XUp8KtvxSh("\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 $LpXRuCzZM6='';$dPuU3a7WG8->{"\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}=$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"};$dPuU3a7WG8->{"\x55\x53\x45\x5f\x42\x49\x4c\x4c\x49\x4e\x47"}=$scrqlZeB3C->XUp8KtvxSh("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x55\x53\x45\x5f\x42\x49\x4c\x4c\x49\x4e\x47");$dPuU3a7WG8->{"\x44\x59\x4e\x41\x4d\x49\x43\x5f\x44\x49\x41\x4c\x4f\x55\x54"}=$scrqlZeB3C->XUp8KtvxSh("\x53\x49\x50\x5f\x44\x59\x4e\x41\x4d\x49\x43\x5f\x44\x49\x41\x4c\x4f\x55\x54");$dPuU3a7WG8->{"\x55\x4e\x49\x58\x54\x49\x4d\x45"}=time;my @Nu85BhwGSy;if(length $ENV{"\x50\x41\x54\x48\x5f\x49\x4e\x46\x4f"}){@Nu85BhwGSy=split(/\//,substr($ENV{"\x50\x41\x54\x48\x5f\x49\x4e\x46\x4f"},1));}my $kjfLI5vGbH=$scrqlZeB3C->XUp8KtvxSh("\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 $fNSxmH31Qf=$scrqlZeB3C->XUp8KtvxSh("\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 $Nu85BhwGSy[0]){my($RdDNsTcU3a,$N9iRT8YZPf)=split(/:/,$Nu85BhwGSy[0]);$kjfLI5vGbH=$RdDNsTcU3a if length $RdDNsTcU3a;$fNSxmH31Qf=$N9iRT8YZPf if length $N9iRT8YZPf;$kjfLI5vGbH=~ s#[^\d\w_.-]##gs;}my $CstK9mSrFo=$scrqlZeB3C->TH8vcZTGhW("\x64\x66");if($CstK9mSrFo){my $UuiJTjaEHS=0;if(length($scrqlZeB3C->XUp8KtvxSh("\x43\x47\x49\x5f\x54\x52\x55\x53\x54\x45\x44\x5f\x34\x5f\x41\x49\x5f\x44\x46"))){my $OWYr1m9qGZ=($ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"}||"\x30\x2e\x30\x2e\x30\x2e\x30");if(index("\x2c".$scrqlZeB3C->XUp8KtvxSh("\x43\x47\x49\x5f\x54\x52\x55\x53\x54\x45\x44\x5f\x34\x5f\x41\x49\x5f\x44\x46")."\x2c",",$OWYr1m9qGZ,")>-1 or $scrqlZeB3C->XUp8KtvxSh("\x43\x47\x49\x5f\x54\x52\x55\x53\x54\x45\x44\x5f\x34\x5f\x41\x49\x5f\x44\x46")eq "\x2a"){$UuiJTjaEHS=1;}}$CstK9mSrFo='' unless $UuiJTjaEHS;}unless($CstK9mSrFo){$Cj4oZQklhY->operators_add("\x64\x69\x76\x32",sub{return $_[0]% 2});$Cj4oZQklhY->filters_add("\x67\x6d\x74\x69\x6d\x65",sub{return scalar(gmtime($_[1]))});$Cj4oZQklhY->filters_add("\x62\x69\x6c\x6c\x5f\x66\x6c\x6f\x61\x74",sub{return sprintf("\x25\x2e".($scrqlZeB3C->XUp8KtvxSh("\x42\x49\x4c\x4c\x49\x4e\x47\x5f\x52\x4f\x55\x4e\x44\x49\x4e\x47\x5f\x34\x47\x55\x49")||2)."\x66",$_[1])});$Cj4oZQklhY->filters_add("\x6c\x6f\x63\x61\x6c\x65\x5f\x6d\x73\x67",sub{my $sOrM4oPeUW=$scrqlZeB3C->x98mXV5nID($_[1],$fNSxmH31Qf);$sOrM4oPeUW=~ s#&#&amp;#gs;$sOrM4oPeUW=~ s#\x22#&quot;#gs;$sOrM4oPeUW=~ s#<#&lt;#gs;$sOrM4oPeUW=~ s#>#&gt;#gs;$sOrM4oPeUW=~ s#\x27#&apos;#gs;return $sOrM4oPeUW;});if(-e "$qz5hYyVsfR/$kjfLI5vGbH/$h9HMqKGxSZ"){$Cj4oZQklhY->process("$qz5hYyVsfR/$kjfLI5vGbH/$h9HMqKGxSZ",$dPuU3a7WG8,\$LpXRuCzZM6);}else{$Cj4oZQklhY->process("$qz5hYyVsfR/$h9HMqKGxSZ",$dPuU3a7WG8,\$LpXRuCzZM6);}}unless($CstK9mSrFo){$scrqlZeB3C->Ng5UVDpLIM(200,"\x4f\x6b",undef,$LpXRuCzZM6.$scrqlZeB3C->x98mXV5nID("\x67\x36\x31\x33","\x43"));}elsif($CstK9mSrFo eq "\x78\x6d\x6c"){require XML::Simple;$LpXRuCzZM6=XML::Simple::XMLout($dPuU3a7WG8);$scrqlZeB3C->hdFsb6T8Jk(200,"\x4f\x6b",undef,$LpXRuCzZM6);}elsif($CstK9mSrFo eq "\x6a\x73\x6f\x6e"){require JSON::XS;my $m9Cn8ySqJl=JSON::XS->new();$scrqlZeB3C->Ng5UVDpLIM(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",$m9Cn8ySqJl->encode($dPuU3a7WG8));}}sub S6iINbsQ7L{my $scrqlZeB3C=shift;my($UeGfh8QPBF,$z5PWQ4Emv0,$tMrWNz4wSX)=$scrqlZeB3C->TH8vcZTGhW([qw(caller_id called_id vars)]);my($f76bM5K1Ca,%fNoIgbu9Mq,$zEyx47bJFf,$VJ9BUIgbZL,@naLKzcwGgb);$z5PWQ4Emv0="\x30\x30\x30" unless length $z5PWQ4Emv0;$UeGfh8QPBF="\x30\x30\x30" unless length $UeGfh8QPBF;foreach my $zvZlYikGjH(split(/\s*,\s*/,$tMrWNz4wSX)){my($M7iumb3g2t,$x81dSVAnYe)=split(/\s*=\s*/,$zvZlYikGjH);$VJ9BUIgbZL->{$M7iumb3g2t}=$x81dSVAnYe;}my $ZqpBFOSTM0=$scrqlZeB3C->YH2nFmGgks($z5PWQ4Emv0,$UeGfh8QPBF,$VJ9BUIgbZL);my $sg3cFAvoBO='';if($z5PWQ4Emv0){$sg3cFAvoBO=$scrqlZeB3C->yVA4RFlSaI($z5PWQ4Emv0);if($sg3cFAvoBO){$zEyx47bJFf="$z5PWQ4Emv0 [ $sg3cFAvoBO ]";}}if(ref $ZqpBFOSTM0 eq "\x41\x52\x52\x41\x59"){foreach my $TCJALuI8B5(@{$ZqpBFOSTM0}){if(exists $TCJALuI8B5->{"\x44\x41\x54\x41\x5f\x49\x44"}){$fNoIgbu9Mq{$TCJALuI8B5->{"\x44\x41\x54\x41\x5f\x49\x44"}}=($TCJALuI8B5->{"\x50\x48\x4f\x4e\x45"}||$z5PWQ4Emv0);}}}unless($scrqlZeB3C->JFEGSlp8HB()->{"\x44\x46"}){@naLKzcwGgb=(ROUTE_CALLER_ID=>$UeGfh8QPBF,ROUTE_CALLED_ID=>$z5PWQ4Emv0,ROUTE_VARS=>$tMrWNz4wSX);}my $ovziXpW8tP=[];if(keys %fNoIgbu9Mq){my $TsuqDwivCe=$scrqlZeB3C->zH8bIFOwy9("\x69\x73\x5f\x61\x69");foreach my $TCJALuI8B5(@$TsuqDwivCe){if(exists $fNoIgbu9Mq{$TCJALuI8B5->{"\x44\x41\x54\x41\x5f\x49\x44"}}){if($z5PWQ4Emv0 ne $fNoIgbu9Mq{$TCJALuI8B5->{"\x44\x41\x54\x41\x5f\x49\x44"}}){$TCJALuI8B5->{"\x53\x55\x42\x53\x54\x52\x5f\x52\x45\x53\x55\x4c\x54"}=$fNoIgbu9Mq{$TCJALuI8B5->{"\x44\x41\x54\x41\x5f\x49\x44"}};}push @$ovziXpW8tP,$TCJALuI8B5;}}}kNcPgbROm2($scrqlZeB3C,"\x72\x6f\x75\x74\x65\x5f\x6c\x69\x73\x74\x2e\x74\x74",{ROUTES=>$ovziXpW8tP,MATCH_RESULTS=>$zEyx47bJFf,@naLKzcwGgb});}sub BJXIkVGevw{my $scrqlZeB3C=shift;my($UVd0ujTb4S,$MokUnKCvSV,$qWIOyvzH9X)=$scrqlZeB3C->TH8vcZTGhW([qw(node ip mode)]);if($qWIOyvzH9X eq "\x77\x6c\x61\x64\x64"){$scrqlZeB3C->xRkGI0FuN6($UVd0ujTb4S,$qWIOyvzH9X,$MokUnKCvSV);}elsif($qWIOyvzH9X eq "\x77\x6c\x64\x65\x6c"){$scrqlZeB3C->xRkGI0FuN6($UVd0ujTb4S,$qWIOyvzH9X,$MokUnKCvSV);}elsif($MokUnKCvSV){$scrqlZeB3C->t67SNHsCYT($UVd0ujTb4S,$MokUnKCvSV);}}sub D6UGRdPHVY{my $scrqlZeB3C=shift;my($MuSjAYOWJZ,$DO9L8S7fJ1)=$scrqlZeB3C->TH8vcZTGhW([qw(type id)]);my($UxvNkU3VbG,$aWvlUu4eM9);my $TBL7zCvtu9=1;if($MuSjAYOWJZ eq "\x73\x79\x73"){$aWvlUu4eM9=$scrqlZeB3C->XUp8KtvxSh("\x50\x41\x54\x48\x5f\x53\x59\x53\x5f\x42\x41\x43\x4b\x55\x50\x5f\x44\x49\x52");$UxvNkU3VbG="\x74\x67\x7a";}elsif($MuSjAYOWJZ eq "\x64\x62"){$aWvlUu4eM9=$scrqlZeB3C->XUp8KtvxSh("\x50\x41\x54\x48\x5f\x44\x42\x5f\x42\x41\x43\x4b\x55\x50\x5f\x44\x49\x52");$UxvNkU3VbG="\x67\x7a";}else{$TBL7zCvtu9=0;}$DO9L8S7fJ1=~ s/\D//gs;$TBL7zCvtu9=0 unless int($DO9L8S7fJ1);if($TBL7zCvtu9 and-e "$aWvlUu4eM9/$DO9L8S7fJ1.$UxvNkU3VbG"){return $scrqlZeB3C->oypGmxJ10z("$aWvlUu4eM9/$DO9L8S7fJ1.$UxvNkU3VbG");}else{$scrqlZeB3C->Ng5UVDpLIM(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 HDMJk1O7dQ{my $scrqlZeB3C=shift;my($EzgvTWbCnr,$SNOsQxiIRc)=$scrqlZeB3C->TH8vcZTGhW([qw(config_id fg)]);my $ykI8S9UxgV;my $hwy4V5JB0C=$scrqlZeB3C->ryIndwgO17(undef,undef,$EzgvTWbCnr,"\x69\x73\x5f\x61\x69");if(ref($hwy4V5JB0C)eq "\x41\x52\x52\x41\x59" and scalar(@{$hwy4V5JB0C})){$ykI8S9UxgV=$hwy4V5JB0C->[0]->{"\x46\x5f\x50\x41\x54\x48"};}if(-e $ykI8S9UxgV){my $eVefYWc4G8=(stat($ykI8S9UxgV))[9];if($scrqlZeB3C->Z05p81l34N(1,"\x55\x50\x44\x41\x54\x45\x20\x56\x50\x42\x58\x5f\x53\x45\x51\x55\x45\x4e\x43\x45\x53\x20\x73\x65\x74\x20\x53\x45\x43\x5f\x56\x41\x4c\x20\x3d\x20\x3f\x20\x77\x68\x65\x72\x65\x20\x53\x45\x43\x5f\x4e\x41\x4d\x45\x20\x3d\x20\x3f",1,"\x53\x41\x4e\x44\x42\x4f\x58")){my $RjICxKlLzu='';if($scrqlZeB3C->XUp8KtvxSh("\x44\x42\x5f\x4d\x41\x53\x54\x45\x52\x5f\x44\x53\x4e")){$RjICxKlLzu="\x4d\x41\x53\x54\x45\x52\x5f";}my $jTh1NftMkv=$scrqlZeB3C->XUp8KtvxSh("\x44\x42\x5f".$RjICxKlLzu."\x55\x53\x45\x52");my $ThBrgIJPAW=$scrqlZeB3C->XUp8KtvxSh("\x44\x42\x5f".$RjICxKlLzu."\x50\x41\x53\x53\x57\x4f\x52\x44");if($SNOsQxiIRc or ! fork){close STDIN;close STDOUT;$scrqlZeB3C->skWYG9Muvt(1);unless(defined $scrqlZeB3C->Al9D6aCx42("zgrep -v '^INSERT INTO.*CDR.*VALUES' $ykI8S9UxgV | mysql -u$jTh1NftMkv -p$ThBrgIJPAW xvbsandbox")){$scrqlZeB3C->Z05p81l34N(1,"\x55\x50\x44\x41\x54\x45\x20\x56\x50\x42\x58\x5f\x53\x45\x51\x55\x45\x4e\x43\x45\x53\x20\x73\x65\x74\x20\x53\x45\x43\x5f\x56\x41\x4c\x20\x3d\x20\x3f\x20\x77\x68\x65\x72\x65\x20\x53\x45\x43\x5f\x4e\x41\x4d\x45\x20\x3d\x20\x3f",0,"\x53\x41\x4e\x44\x42\x4f\x58");}else{$scrqlZeB3C->Z05p81l34N(1,"\x55\x50\x44\x41\x54\x45\x20\x56\x50\x42\x58\x5f\x53\x45\x51\x55\x45\x4e\x43\x45\x53\x20\x73\x65\x74\x20\x53\x45\x43\x5f\x56\x41\x4c\x20\x3d\x20\x3f\x20\x77\x68\x65\x72\x65\x20\x53\x45\x43\x5f\x4e\x41\x4d\x45\x20\x3d\x20\x3f",$eVefYWc4G8,"\x53\x41\x4e\x44\x42\x4f\x58");}exit;}}}}sub cd1B0wCEZW{my $scrqlZeB3C=shift;my $Jmd1Z3SW82=$scrqlZeB3C->Al9D6aCx42("\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 $GU0EvLIYlw;if($Jmd1Z3SW82=~ s/^\x24VAR1/\$GU0EvLIYlw/){eval "$Jmd1Z3SW82";}unless(ref $GU0EvLIYlw eq "\x48\x41\x53\x48"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $UVd0ujTb4S=$scrqlZeB3C->TH8vcZTGhW("\x6e\x6f\x64\x65");my $VkVz9XPKv8=$scrqlZeB3C->t67SNHsCYT($UVd0ujTb4S);unless(ref $VkVz9XPKv8 eq "\x41\x52\x52\x41\x59"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $RBwTvapeSk=$scrqlZeB3C->xRkGI0FuN6();unless(ref $RBwTvapeSk eq "\x41\x52\x52\x41\x59"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}$scrqlZeB3C->{"\x5f\x43\x4f\x4e\x46\x5f\x4f\x52\x49\x47"}={};$scrqlZeB3C->ngcsI2dwf4("\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 $iueoXmWjkK=[];my $B3zsd82n1A={};foreach my $M7iumb3g2t(keys %{$scrqlZeB3C->{"\x5f\x43\x4f\x4e\x46\x5f\x4f\x52\x49\x47"}}){$B3zsd82n1A->{$M7iumb3g2t}=1;}foreach my $M7iumb3g2t(sort keys %{$B3zsd82n1A}){if($scrqlZeB3C->{"\x5f\x43\x4f\x4e\x46\x5f\x4f\x52\x49\x47"}->{$M7iumb3g2t}ne $scrqlZeB3C->{"\x5f\x43\x4f\x4e\x46"}->{$M7iumb3g2t}){next if $M7iumb3g2t=~ /(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 $BXBoe75Wbz=$scrqlZeB3C->{"\x5f\x43\x4f\x4e\x46\x5f\x4f\x52\x49\x47"}->{$M7iumb3g2t};my $rqZpmvX9aM=$scrqlZeB3C->{"\x5f\x43\x4f\x4e\x46"}->{$M7iumb3g2t};$BXBoe75Wbz=~ s#([,;])#$1 #g;$rqZpmvX9aM=~ s#([,;])#$1 #g;push @$iueoXmWjkK,[uc($M7iumb3g2t),$BXBoe75Wbz,$rqZpmvX9aM];}}my $hwy4V5JB0C=$scrqlZeB3C->ryIndwgO17(undef,undef,undef,"\x69\x73\x5f\x61\x69");my $rMDN7t30j5=$scrqlZeB3C->IYPowa7eEz("select SEC_VAL from VPBX_SEQUENCES where SEC_NAME='SANDBOX'");$rMDN7t30j5=1;if($rMDN7t30j5>1){$rMDN7t30j5=$scrqlZeB3C->YPbw2qFVnY($rMDN7t30j5);}kNcPgbROm2($scrqlZeB3C,"\x73\x79\x73\x73\x74\x61\x74\x75\x73\x2e\x74\x74",{F2B_WL=>$RBwTvapeSk,F2B_CNT_WL=>scalar(@$RBwTvapeSk),F2B=>$VkVz9XPKv8,F2B_CNT=>scalar(@$VkVz9XPKv8),RAW=>$GU0EvLIYlw->{"\x52\x41\x57"},CPU=>$GU0EvLIYlw->{"\x43\x50\x55"},MEM=>$GU0EvLIYlw->{"\x4d\x45\x4d"},SWAP=>$GU0EvLIYlw->{"\x53\x57\x41\x50"},DISK=>$GU0EvLIYlw->{"\x44\x49\x53\x4b"},SYS=>$GU0EvLIYlw->{"\x53\x59\x53\x54\x45\x4d"},AST=>$GU0EvLIYlw->{"\x41\x53\x54\x45\x52\x49\x53\x4b"},NODE=>$scrqlZeB3C->XUp8KtvxSh("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x53\x45\x52\x56\x45\x52\x5f\x49\x44"),SYS_BACKUPS=>$hwy4V5JB0C,SYS_BACKUPS_DATE=>$rMDN7t30j5,CDIFF=>$iueoXmWjkK})}sub SkXojtK5ub{my $scrqlZeB3C=shift;my($a480YLZwE2,$NTGWPYDfOR,$mwnrLDuxv9,$sNwyX8HTCo)=$scrqlZeB3C->TH8vcZTGhW([qw(call_id start_time stop_time xvb_call_id)]);my $NDHT4v9gSq='';my $kCUf7yz4oT='';my $AiJngmoayb=$scrqlZeB3C->XUp8KtvxSh("\x50\x41\x54\x48\x5f\x54\x4d\x50\x5f\x44\x49\x52")."\x2f\x70\x63\x61\x70\x73";$a480YLZwE2=~ s/[`\x22\x27\r\n]//gs;if(length($a480YLZwE2)and-d $AiJngmoayb and opendir(PCAPDIR,$AiJngmoayb)){my @w9oydc2Xah=sort{(stat("$AiJngmoayb/$a"))[9]<=>(stat("$AiJngmoayb/$b"))[9]}grep(/pcap\d+$/,readdir(PCAPDIR));my $i6WxUsiyTo=0;my $tAXd9eLqD0=$scrqlZeB3C->XUp8KtvxSh("\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";$a480YLZwE2=": $a480YLZwE2";my %Yza94D1MrQ;my $naDMiGU1j6=1;my @cItd9hWRJH;foreach my $dncOTApkM1(@w9oydc2Xah){my $eVefYWc4G8=(stat("$AiJngmoayb/$dncOTApkM1"))[9];if(($i6WxUsiyTo<=$NTGWPYDfOR and $eVefYWc4G8>=$NTGWPYDfOR)or($i6WxUsiyTo<=$mwnrLDuxv9 and $eVefYWc4G8>=$mwnrLDuxv9)or($i6WxUsiyTo>=$NTGWPYDfOR and $eVefYWc4G8<$mwnrLDuxv9)){my($HVD9g31fCJ,$gZtYce7AEa,@YQoWtLqPHJ);for(my $yPngJ7Y9qj=0;$yPngJ7Y9qj<=2;$yPngJ7Y9qj++){$gZtYce7AEa="/usr/sbin/ngrep \x27$a480YLZwE2\x27 $tAXd9eLqD0 -I $AiJngmoayb/$dncOTApkM1 2>&1";my @NWTXCJ4aS9=`$gZtYce7AEa`;my $LTka7LyFQI=0;$HVD9g31fCJ='';@YQoWtLqPHJ=();foreach my $yYWDG325LK(@NWTXCJ4aS9){chomp($yYWDG325LK);$yYWDG325LK=~ s/\.$//;if($yYWDG325LK=~ /^U\s+\d+\/\d+\/\d+\s\d+:\d+:\d+\.\d+\s+([^\s]+)\s+->\s+([^\s]+)/){if($HVD9g31fCJ){push @YQoWtLqPHJ,$HVD9g31fCJ;}$HVD9g31fCJ="\n";$yYWDG325LK.="\n";}elsif($yYWDG325LK=~ /^(Call-ID|I|XVB-Call-ID)(:\s*[^\x22\x27\r\n]+)/gi){if(index($a480YLZwE2,$2)==-1){$a480YLZwE2.="|$2";$LTka7LyFQI=1;}if(lc($1)eq "\x69" or lc($1)eq "\x63\x61\x6c\x6c\x2d\x69\x64"){unless(exists $Yza94D1MrQ{$2}){$Yza94D1MrQ{$2}=$naDMiGU1j6++;if($naDMiGU1j6>11){$naDMiGU1j6=2;}}}}if($HVD9g31fCJ){$HVD9g31fCJ.="$yYWDG325LK\n";}}unless($LTka7LyFQI){push @YQoWtLqPHJ,$HVD9g31fCJ;last;}}$kCUf7yz4oT.="#<br>\n# ".$scrqlZeB3C->CEi891k0Gt($gZtYce7AEa)." <br>\n#<br>\n";push(@cItd9hWRJH,@YQoWtLqPHJ);}$i6WxUsiyTo=$eVefYWc4G8;}my @T5N1m8Qw9E=`/sbin/ifconfig|grep "inet "`;my $OY3zsl2wtG="\x2c";foreach my $mVCDQIiEFP(@T5N1m8Qw9E){chomp;$mVCDQIiEFP=~ s#.*inet\s+(addr:)?(\S+).*#$2#s;if(length($mVCDQIiEFP)){$OY3zsl2wtG.="$mVCDQIiEFP,";}}foreach my $YLKZa2i4mb(@cItd9hWRJH){my $naDMiGU1j6=0;my($w2Dm8c6djV,$IwMfIRYKVJ);foreach my $yYWDG325LK(split(/\n/,$YLKZa2i4mb)){if($yYWDG325LK=~ /^U\s+\d+\/\d+\/\d+\s\d+:\d+:\d+\.\d+\s+([^\s]+):\d+\s+->\s+([^\s]+):\d+/){($w2Dm8c6djV,$IwMfIRYKVJ)=($1,$2);}else{if($yYWDG325LK=~ /^(Call-ID|I)(:\s*[^\x22\x27\r\n]+)/gi){$naDMiGU1j6=$Yza94D1MrQ{$2};}}}my $Sz5hsdMuaN="\x20";if($naDMiGU1j6==1 and index($OY3zsl2wtG,",$w2Dm8c6djV,")>-1){$Sz5hsdMuaN="\t\t"}elsif($naDMiGU1j6>1 and index($OY3zsl2wtG,",$w2Dm8c6djV,")>-1){$Sz5hsdMuaN="\t\t";}elsif($naDMiGU1j6>1 and index($OY3zsl2wtG,",$IwMfIRYKVJ,")>-1){$Sz5hsdMuaN="\t\t\t\t";}$NDHT4v9gSq.="<p class=\x27pcap$naDMiGU1j6\x27>";foreach my $yYWDG325LK(split(/\n/,$YLKZa2i4mb)){$NDHT4v9gSq.=$Sz5hsdMuaN.$scrqlZeB3C->CEi891k0Gt($yYWDG325LK)."\n";}$NDHT4v9gSq.="</p>";}}kNcPgbROm2($scrqlZeB3C,"\x73\x69\x70\x5f\x70\x63\x61\x70\x2e\x74\x74",{CMD=>$kCUf7yz4oT,DATA=>$NDHT4v9gSq,XVB_CALL_ID=>$sNwyX8HTCo});}