#!/usr/bin/perl
########################################################################
#
# $Id: VirtualPBX-AI.cgi,v 1.217 2025/08/15 15:01:14 gosha Exp $
#
# Copyright (c) Igor Okunev <igor[at]prv.mts-nn.ru>  2008 - 2025
#
########################################################################
package VirtualPBXAI;open STDERR,"\x3e\x3e\x2f\x76\x61\x72\x2f\x6c\x6f\x67\x2f\x56\x69\x72\x74\x75\x61\x6c\x50\x42\x58\x2f\x58\x56\x42\x2e\x73\x74\x64\x65\x72\x72";use strict;use lib qw(/opt/VirtualPBX/lib);use XVB::Admin;use XVB::Core;use XVB::Database;use XVB::Mailboxes;use XVB::Messages;use XVB::Journal;use XVB::Users;use XVB::Billing;use XVB::MC;use XVB::Locale;use XVB::Routes;use Template::EasyTT;use XVB::UI::CGI;use XVB::UI::CGI::Reports;use XVB::UI::CGI::Mailboxes;use XVB::UI::CGI::Users;use XVB::UI::CGI::CDR;use XVB::UI::CGI::Journal;use XVB::UI::CGI::CallsTrack;use XVB::UI::CGI::Routes;use XVB::UI::DATA::CSV;use XVB::UI::AGI::CallsGeoLocation;use XVB::UI::CGI::ExtStat::Dashboard;use XVB::DIDs;use CGI;KvZyQx5kz();sub new{my($ZofhvYkSBZ,$bAMFeTqNKY)=@_;my $Il3DMO869L=bless{_CGI=>CGI->new(),_CONF=>{},_CDR=>{CALLED_ID=>"\x77\x65\x62",},_USER_CREDS=>{},_USER_VBOXES=>{},_SESSION=>{},},$ZofhvYkSBZ;$Il3DMO869L->ey2WOQF1f($bAMFeTqNKY);$Il3DMO869L->yKdjmtCzR();$Il3DMO869L->{"\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 $kXoeUhRn6r;$Il3DMO869L->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}={};foreach my $uZ971s2nNF(split(/\s*;\s*/,$Il3DMO869L->D72RNGHCf("\x43\x47\x49\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"))){my($DBfZRKhMAX,@wzX7ZYIL9B)=split(/\s*:\s*/,$uZ971s2nNF);foreach my $a8T2jfbgSo(@wzX7ZYIL9B){$Il3DMO869L->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$a8T2jfbgSo}=$DBfZRKhMAX;}}my $a8T2jfbgSo=$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"};unless(exists $Il3DMO869L->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$a8T2jfbgSo}){$a8T2jfbgSo=~ s#\.\d+$##;}unless(exists $Il3DMO869L->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$a8T2jfbgSo}){if($Il3DMO869L->D72RNGHCf("\x43\x47\x49\x5f\x41\x4c\x49\x41\x53\x45\x53\x5f\x57\x4f\x5f\x49\x50")){$kXoeUhRn6r="\x61\x64\x6d\x69\x6e";}else{$kXoeUhRn6r="\x61\x64\x6d\x69\x6e\x20\x28\x20".$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"}."\x20\x29";}}else{if($Il3DMO869L->D72RNGHCf("\x43\x47\x49\x5f\x41\x4c\x49\x41\x53\x45\x53\x5f\x57\x4f\x5f\x49\x50")){$kXoeUhRn6r=$Il3DMO869L->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$a8T2jfbgSo};}else{$kXoeUhRn6r=$Il3DMO869L->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$a8T2jfbgSo}."\x20\x28\x20".$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"}."\x20\x29";}}$Il3DMO869L->{"\x5f\x43\x44\x52"}->{"\x43\x41\x4c\x4c\x45\x52\x5f\x49\x44"}=$kXoeUhRn6r;;$Il3DMO869L->{"\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($Il3DMO869L->D72RNGHCf("\x50\x41\x54\x48\x5f\x57\x4f\x52\x4b\x5f\x44\x49\x52"));$Il3DMO869L->{"\x5f\x43\x4f\x4e\x46"}->{"\x74\x61\x62\x6c\x65\x73\x5f\x63\x64\x72\x73"}=$Il3DMO869L->{"\x5f\x43\x4f\x4e\x46"}->{"\x74\x61\x62\x6c\x65\x73\x5f\x63\x64\x72\x73\x5f\x61\x6c\x6c"};$Il3DMO869L->{"\x5f\x43\x4f\x4e\x46"}->{"\x74\x61\x62\x6c\x65\x73\x5f\x63\x64\x72\x73\x5f\x61"}=$Il3DMO869L->{"\x5f\x43\x4f\x4e\x46"}->{"\x74\x61\x62\x6c\x65\x73\x5f\x63\x64\x72\x73\x5f\x61\x5f\x61\x6c\x6c"};$Il3DMO869L->Tjcsr0kWa();return $Il3DMO869L;}sub KvZyQx5kz{my $Il3DMO869L=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($Kve9Gr0OmE,$s8gkyln0m2,$s4LqCkXMHr,$kp4DIMqAvG,$Ng7rJBa25p);$Il3DMO869L->NPh3YvQOU(1);my($hMP3Z8ruYS,$Wuln98aQ7v)=$Il3DMO869L->TPGRQ3NW9([qw(action from)]);if($hMP3Z8ruYS eq "\x62\x61\x6c\x61\x6e\x63\x65\x5f\x75\x70\x64\x61\x74\x65"){my($gjl8MqQkTW,$eZ5yQxUwPD,$tzKsaEyn14)=$Il3DMO869L->TPGRQ3NW9([qw(balance user_id cur_id)]);my $Bca0pA1l5g=$Il3DMO869L->Y3TOsp98X($eZ5yQxUwPD);unless(ref $Bca0pA1l5g eq "\x48\x41\x53\x48"){$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);return;}else{my $noI5piT4uS=$Il3DMO869L->A5qWonOHl();%{$noI5piT4uS}=%{$Bca0pA1l5g};}if($Il3DMO869L->IrPCZbhAO($gjl8MqQkTW,$tzKsaEyn14)){$Il3DMO869L->msTvD8eH3("\x75\x73\x65\x72\x2d".$Il3DMO869L->A5qWonOHl()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"},undef);$Il3DMO869L->itHGsWJzh();}else{$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x63\x64\x72\x5f\x6c\x69\x73\x74"){if($Il3DMO869L->TPGRQ3NW9("\x6e\x65\x65\x64\x5f\x63\x68\x61\x72\x74")){OLyOH8cf3($Il3DMO869L);}else{SVeJaxoCd($Il3DMO869L);}}elsif($hMP3Z8ruYS eq "\x61\x63\x74\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c"){SVeJaxoCd($Il3DMO869L,"\x61\x63\x74\x61\x6c\x6c");}elsif($hMP3Z8ruYS eq "\x6a\x5f\x6c\x69\x73\x74"){JTobx1fUR($Il3DMO869L);}elsif($hMP3Z8ruYS eq "\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x6c\x69\x73\x74"){gXDfjOzWs($Il3DMO869L);}elsif($hMP3Z8ruYS eq "\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x64\x65\x6c"){if($Il3DMO869L->gtm24LWSD($Il3DMO869L->TPGRQ3NW9("\x64\x69\x64"))){$Il3DMO869L->itHGsWJzh("\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".$Il3DMO869L->TPGRQ3NW9("\x64\x66"));$Il3DMO869L->CUNFPYReL("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x64\x72\x6f\x70",$Il3DMO869L->TPGRQ3NW9("\x64\x69\x64"));}else{$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x61\x64\x64"){my @sodQXZ1sx8=$Il3DMO869L->TPGRQ3NW9();my %NJPbLtWUAS;foreach my $EIsC1BEbAz(@sodQXZ1sx8){if($EIsC1BEbAz=~ /^T_(.*)/){my $D9hG1gYmq4=$1;$D9hG1gYmq4=~ s#[^\d\w._-]##g;$NJPbLtWUAS{$D9hG1gYmq4}=$Il3DMO869L->TPGRQ3NW9($EIsC1BEbAz);}}if($Il3DMO869L->AhEcdGxDl(\%NJPbLtWUAS)){$Il3DMO869L->CUNFPYReL("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x61\x64\x64",$NJPbLtWUAS{"\x44\x49\x44"});$Il3DMO869L->itHGsWJzh();}else{$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x75\x70\x64\x61\x74\x65"){my $s8foUx7Wia=$Il3DMO869L->TPGRQ3NW9("\x64\x61\x74\x61\x5f\x69\x64");my @sodQXZ1sx8=$Il3DMO869L->TPGRQ3NW9();my %NJPbLtWUAS;foreach my $EIsC1BEbAz(@sodQXZ1sx8){if($EIsC1BEbAz=~ /^T_(.*)/){my $D9hG1gYmq4=$1;$D9hG1gYmq4=~ s#[^\d\w._-]##g;next if $D9hG1gYmq4 eq "\x49\x44";$NJPbLtWUAS{$D9hG1gYmq4}=$Il3DMO869L->TPGRQ3NW9($EIsC1BEbAz);}}if($Il3DMO869L->N67L30qlr($s8foUx7Wia,\%NJPbLtWUAS)){$Il3DMO869L->itHGsWJzh();}else{$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x74\x61\x72\x69\x66\x66\x5f\x6c\x69\x73\x74"){JiFro7j1A($Il3DMO869L);}elsif($hMP3Z8ruYS eq "\x74\x61\x72\x69\x66\x66\x5f\x69\x6e\x66\x6f"){EkhZlBs0F($Il3DMO869L,$Il3DMO869L->TPGRQ3NW9("\x74\x61\x72\x69\x66\x66\x5f\x69\x64"));}elsif($hMP3Z8ruYS eq "\x74\x61\x72\x69\x66\x66\x5f\x64\x65\x6c"){if($Il3DMO869L->WWKCVXe78($Il3DMO869L->TPGRQ3NW9("\x74\x61\x72\x69\x66\x66\x5f\x69\x64"))){$Il3DMO869L->itHGsWJzh("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x74\x61\x72\x69\x66\x66\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$Il3DMO869L->TPGRQ3NW9("\x64\x66"));}else{$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x74\x61\x72\x69\x66\x66\x5f\x61\x64\x64"){my @sodQXZ1sx8=$Il3DMO869L->TPGRQ3NW9();my %NJPbLtWUAS;foreach my $EIsC1BEbAz(@sodQXZ1sx8){if($EIsC1BEbAz=~ /^T_(.*)/){my $D9hG1gYmq4=$1;$D9hG1gYmq4=~ s#[^\d\w._-]##g;$NJPbLtWUAS{$D9hG1gYmq4}=$Il3DMO869L->TPGRQ3NW9($EIsC1BEbAz);}}if($Il3DMO869L->j6Wpjm2Iw(\%NJPbLtWUAS)){$Il3DMO869L->itHGsWJzh();}else{$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x74\x61\x72\x69\x66\x66\x5f\x75\x70\x64\x61\x74\x65"){my $M8yK3mw05N=$Il3DMO869L->TPGRQ3NW9("\x74\x61\x72\x69\x66\x66\x5f\x69\x64");my @sodQXZ1sx8=$Il3DMO869L->TPGRQ3NW9();my %NJPbLtWUAS;foreach my $EIsC1BEbAz(@sodQXZ1sx8){if($EIsC1BEbAz=~ /^T_(.*)/){my $D9hG1gYmq4=$1;$D9hG1gYmq4=~ s#[^\d\w._-]##g;next if $D9hG1gYmq4 eq "\x49\x44";$NJPbLtWUAS{$D9hG1gYmq4}=$Il3DMO869L->TPGRQ3NW9($EIsC1BEbAz);}}if($Il3DMO869L->huXyjqdGi($M8yK3mw05N,\%NJPbLtWUAS)){$Il3DMO869L->itHGsWJzh();}else{$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x72\x65\x70\x6f\x72\x74\x5f\x6c\x69\x73\x74"){kdlSsT2zY($Il3DMO869L);}elsif($hMP3Z8ruYS eq "\x72\x65\x70\x6f\x72\x74\x5f\x64\x65\x6c"){my $u92nCfXRQd=$Il3DMO869L->TPGRQ3NW9("\x72\x65\x70\x6f\x72\x74\x5f\x69\x64");unless($u92nCfXRQd){$Il3DMO869L->itHGsWJzh(undef,"\x4e\x6f\x20\x73\x65\x61\x72\x63\x68\x20\x72\x65\x70\x6f\x72\x74");}elsif(! $Il3DMO869L->N2TmJj9gZ($u92nCfXRQd)){$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}else{if($ENV{"\x48\x54\x54\x50\x5f\x52\x45\x46\x45\x52\x45\x52"}=~ /report_list/){$Il3DMO869L->itHGsWJzh();}else{$Il3DMO869L->itHGsWJzh("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x72\x65\x70\x6f\x72\x74\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$Il3DMO869L->TPGRQ3NW9("\x64\x66"));}}}elsif($hMP3Z8ruYS eq "\x72\x65\x70\x6f\x72\x74\x5f\x61\x64\x64"){if(my $NJ73xtsdFG=$Il3DMO869L->vR3WGnHZI($Il3DMO869L->TPGRQ3NW9("\x52\x5f\x4e\x41\x4d\x45"),1)){$Il3DMO869L->itHGsWJzh("?action=report_info&report_id=$NJ73xtsdFG&df=".$Il3DMO869L->TPGRQ3NW9("\x64\x66"));}else{$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x72\x65\x70\x6f\x72\x74\x5f\x69\x6e\x66\x6f"){my $u92nCfXRQd=$Il3DMO869L->TPGRQ3NW9("\x72\x65\x70\x6f\x72\x74\x5f\x69\x64")||1;my $O38ID9gQ4b=$Il3DMO869L->DcSQnKbaw($u92nCfXRQd)||[];my(%YxiVjYrUaE,@k7mfg9svwr);if(ref $O38ID9gQ4b eq "\x41\x52\x52\x41\x59" and $O38ID9gQ4b->[0]->{"\x45\x58\x54\x52\x41\x5f\x50\x41\x52\x41\x4d\x53"}){foreach my $zJHmx8uvpP(split(/\s*\|\s*/,$O38ID9gQ4b->[0]->{"\x45\x58\x54\x52\x41\x5f\x50\x41\x52\x41\x4d\x53"})){my($wfEyM1iQFv,$sijpJYQUxo,$iuGY3AeIv6)=split(/\s*:\s*/,$zJHmx8uvpP,3);$YxiVjYrUaE{$wfEyM1iQFv}=$Il3DMO869L->TPGRQ3NW9($wfEyM1iQFv);push @k7mfg9svwr,{name=>$wfEyM1iQFv,label=>$sijpJYQUxo,value=>$YxiVjYrUaE{$wfEyM1iQFv}};}}gWgYqTt7X($Il3DMO869L,"\x72\x65\x70\x6f\x72\x74\x5f\x69\x6e\x66\x6f\x2e\x74\x74",{REPORT_DATA=>$O38ID9gQ4b->[0],EXTRA_PARAMS=>\@k7mfg9svwr});}elsif($hMP3Z8ruYS eq "\x72\x65\x70\x6f\x72\x74\x5f\x75\x70\x64\x61\x74\x65"){my($yRkBYrSc5g,$fuQdqc96ob,$jNKz6XFvLy,$YDufsMBwVg,$u92nCfXRQd)=$Il3DMO869L->TPGRQ3NW9([qw(R_FILE R_QUERY R_FILTER_FILE R_POST_FILTER report_id)]);unless($u92nCfXRQd){return $Il3DMO869L->itHGsWJzh(undef,"\x4e\x6f\x20\x73\x65\x61\x72\x63\x68\x20\x72\x65\x70\x6f\x72\x74");}if($yRkBYrSc5g){$fuQdqc96ob='';while(<$yRkBYrSc5g>){$fuQdqc96ob.=$_;}}if($jNKz6XFvLy){$YDufsMBwVg='';while(<$jNKz6XFvLy>){$YDufsMBwVg.=$_;}}if($Il3DMO869L->nDkBAuTZc($u92nCfXRQd,$Il3DMO869L->TPGRQ3NW9([qw(R_NAME R_TYPE R_TTL R_DATE_START R_DATE_STOP R_ACCESS_GROUPS R_ACCESS_ACCOUNTS R_EXTRA_PARAMS)]),$fuQdqc96ob,$YDufsMBwVg)){$Il3DMO869L->itHGsWJzh();}else{$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x72\x65\x70\x6f\x72\x74\x5f\x72\x75\x6e"){tU7tJq8Sx($Il3DMO869L);}elsif($hMP3Z8ruYS eq "\x6e\x6f\x64\x65\x5f\x6c\x69\x73\x74"){M1cK58Mx7($Il3DMO869L);}elsif($hMP3Z8ruYS eq "\x6e\x6f\x64\x65\x5f\x64\x65\x6c"){if($Il3DMO869L->vRTA6e7KW($Il3DMO869L->TPGRQ3NW9("\x6e\x6f\x64\x65\x5f\x69\x64"))){$Il3DMO869L->itHGsWJzh("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x6e\x6f\x64\x65\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$Il3DMO869L->TPGRQ3NW9("\x64\x66"));}else{$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x6e\x6f\x64\x65\x5f\x61\x64\x64"){if($Il3DMO869L->dpf2G5QwR($Il3DMO869L->TPGRQ3NW9([qw(N_NODE_ID N_NODE_IP N_DOWNLOAD_IP N_AMI_CREDS N_NODE_DESC N_NODE_LIMITS N_NODE_STAT_URL)]))){$Il3DMO869L->itHGsWJzh();}else{$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x6e\x6f\x64\x65\x5f\x75\x70\x64\x61\x74\x65"){my $TfOmreK1PL=$Il3DMO869L->TPGRQ3NW9("\x6e\x6f\x64\x65\x5f\x69\x64");my @sodQXZ1sx8=$Il3DMO869L->TPGRQ3NW9();my %NJPbLtWUAS;foreach my $EIsC1BEbAz(@sodQXZ1sx8){if($EIsC1BEbAz=~ /^N_(.*)/){my $D9hG1gYmq4=$1;$D9hG1gYmq4=~ s#[^\d\w._-]##g;next if $D9hG1gYmq4 eq "\x49\x44";$NJPbLtWUAS{$D9hG1gYmq4}=$Il3DMO869L->TPGRQ3NW9($EIsC1BEbAz);}}if($Il3DMO869L->Sbf9786iw($TfOmreK1PL,\%NJPbLtWUAS)){$Il3DMO869L->CUNFPYReL("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65");$Il3DMO869L->itHGsWJzh();}else{$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x67\x72\x6f\x75\x70\x5f\x6c\x69\x73\x74"){yIYwo6VlA($Il3DMO869L);}elsif($hMP3Z8ruYS eq "\x67\x72\x6f\x75\x70\x5f\x64\x65\x6c"){if($Il3DMO869L->GwVYfFiED($Il3DMO869L->TPGRQ3NW9("\x67\x72\x6f\x75\x70\x5f\x69\x64"))){$Il3DMO869L->itHGsWJzh("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x67\x72\x6f\x75\x70\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$Il3DMO869L->TPGRQ3NW9("\x64\x66"));}else{$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x67\x72\x6f\x75\x70\x5f\x61\x64\x64"){my($N6GxaSR7ZT,$nsAEb67CF0)=$Il3DMO869L->TPGRQ3NW9([qw(group_name node_name)]);if($Il3DMO869L->yL1IxKm0k($N6GxaSR7ZT,$nsAEb67CF0)){my $QpUK9lY47Z=$Il3DMO869L->a0k6pV1y8(undef,$N6GxaSR7ZT);$Il3DMO869L->itHGsWJzh("\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".$QpUK9lY47Z->[0]->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"},"\x64\x66\x3d".$Il3DMO869L->TPGRQ3NW9("\x64\x66")));}else{$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x67\x72\x6f\x75\x70\x5f\x69\x6e\x66\x6f"){Ol6NB2aQ1($Il3DMO869L,$Il3DMO869L->TPGRQ3NW9("\x67\x72\x6f\x75\x70\x5f\x69\x64"));}elsif($hMP3Z8ruYS eq "\x67\x72\x6f\x75\x70\x5f\x75\x70\x64\x61\x74\x65"){my $XBk7NnsEHR=$Il3DMO869L->TPGRQ3NW9("\x67\x72\x6f\x75\x70\x5f\x69\x64");my @sodQXZ1sx8=$Il3DMO869L->TPGRQ3NW9();my %NJPbLtWUAS;foreach my $EIsC1BEbAz(@sodQXZ1sx8){if($EIsC1BEbAz=~ /^GR_(.*)/){my $D9hG1gYmq4=$1;$D9hG1gYmq4=~ s#[^\d\w._-]##g;next if $D9hG1gYmq4 eq "\x49\x44";$NJPbLtWUAS{$D9hG1gYmq4}=$Il3DMO869L->TPGRQ3NW9($EIsC1BEbAz);}}if($Il3DMO869L->zKkdSbTIF($XBk7NnsEHR,\%NJPbLtWUAS)){$Il3DMO869L->CUNFPYReL("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65");$Il3DMO869L->itHGsWJzh();}else{$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x64\x69\x64\x5f\x61\x64\x64"){my($s8foUx7Wia,$xyzRk2PeOW,$Kve9Gr0OmE,$VbX8xJ5wev,$rlGLs15WJg)=$Il3DMO869L->TPGRQ3NW9([qw(did pn ac channels cnam)]);my @RavhltbIZR=split(/\s*,\s*/,$s8foUx7Wia);my $mNY0Xzx8Hd=0;foreach my $SLVPMN3s2J(@RavhltbIZR){if($Il3DMO869L->RwS4HdQjG($SLVPMN3s2J,$xyzRk2PeOW,$Kve9Gr0OmE,$VbX8xJ5wev,$rlGLs15WJg)){$Il3DMO869L->CUNFPYReL("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x61\x64\x64",$SLVPMN3s2J);}else{$mNY0Xzx8Hd++;}}if($mNY0Xzx8Hd){$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : [ $mNY0Xzx8Hd / ".(scalar(@RavhltbIZR))."\x20\x5d\x20".__LINE__);}else{$Il3DMO869L->itHGsWJzh();}}elsif($hMP3Z8ruYS eq "\x64\x69\x64\x5f\x64\x65\x6c"){my($YudC5ml7Yx,$eZ5yQxUwPD,$s8foUx7Wia)=$Il3DMO869L->TPGRQ3NW9([qw(did_id user_id did)]);if($Il3DMO869L->JotEyvXrq($YudC5ml7Yx,$eZ5yQxUwPD,$s8foUx7Wia)){$Il3DMO869L->CUNFPYReL("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x64\x72\x6f\x70",$s8foUx7Wia);$Il3DMO869L->itHGsWJzh();}else{$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x64\x69\x64\x5f\x6c\x69\x73\x74"){ZIiMncoHd($Il3DMO869L);}elsif($hMP3Z8ruYS eq "\x64\x69\x64\x5f\x61\x64\x64\x5f\x73\x69\x70\x64\x6f\x6d\x61\x69\x6e"){my($IhCX8JLzEm,$xyzRk2PeOW,$Kve9Gr0OmE)=$Il3DMO869L->TPGRQ3NW9([qw(domain pn ac)]);if($Il3DMO869L->aYzrNyM0f(lc($IhCX8JLzEm),$xyzRk2PeOW,$Kve9Gr0OmE)){$Il3DMO869L->CUNFPYReL("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x61\x64\x64","\x40".lc($IhCX8JLzEm));$Il3DMO869L->itHGsWJzh();}else{$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x64\x69\x64\x5f\x64\x65\x6c\x5f\x73\x69\x70\x64\x6f\x6d\x61\x69\x6e"){my($HS34wgrNtq,$eZ5yQxUwPD,$IhCX8JLzEm)=$Il3DMO869L->TPGRQ3NW9([qw(domain_id user_id domain)]);if($Il3DMO869L->NanNfAPEh($HS34wgrNtq,$eZ5yQxUwPD,lc($IhCX8JLzEm))){$Il3DMO869L->CUNFPYReL("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x64\x72\x6f\x70","\x40".lc($IhCX8JLzEm));$Il3DMO869L->itHGsWJzh();}else{$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x64\x69\x64\x5f\x6c\x69\x73\x74\x5f\x73\x69\x70\x64\x6f\x6d\x61\x69\x6e"){RY3vf9Ugt($Il3DMO869L);}elsif($hMP3Z8ruYS eq "\x72\x6f\x75\x74\x65\x5f\x6c\x69\x73\x74"){if($Il3DMO869L->TPGRQ3NW9("\x6e\x65\x65\x64\x5f\x6c\x6f\x6f\x6b\x75\x70")and $Il3DMO869L->TPGRQ3NW9("\x63\x61\x6c\x6c\x65\x64\x5f\x69\x64")){return Tok9CPA87($Il3DMO869L);}gWgYqTt7X($Il3DMO869L,"\x72\x6f\x75\x74\x65\x5f\x6c\x69\x73\x74\x2e\x74\x74",{ROUTES=>$Il3DMO869L->RrnfcemRg("\x69\x73\x5f\x61\x69")});}elsif($hMP3Z8ruYS eq "\x72\x6f\x75\x74\x65\x5f\x61\x64\x64"){my @fnx3tIMg96;if(my $TEnG59jBxo=$Il3DMO869L->TPGRQ3NW9("\x63\x6c\x6f\x6e\x65\x5f\x69\x64")){my $YeRQHuOwC1=$Il3DMO869L->RrnfcemRg("\x69\x73\x5f\x61\x69");if(ref($YeRQHuOwC1)eq "\x41\x52\x52\x41\x59"){foreach my $XVt3krGeJv(@{$YeRQHuOwC1}){if($XVt3krGeJv->{"\x44\x41\x54\x41\x5f\x49\x44"}eq $TEnG59jBxo){foreach my $nh38I6J7AH(qw(PATTERN PEER PRIORITY SUBSTR EXT_NUMBER DESCRIPTION DEFCID LAST_ROUTE)){push @fnx3tIMg96,$XVt3krGeJv->{$nh38I6J7AH};}last;}}}}else{@fnx3tIMg96=$Il3DMO869L->TPGRQ3NW9([qw(r_PATTERN r_PEER r_PRIORITY r_SUBSTR r_EXT_NUMBER r_DESCRIPTION r_DEFCID r_LAST_ROUTE)]);}if(scalar(@fnx3tIMg96)and defined($Il3DMO869L->NaDsqW1CH(@fnx3tIMg96))){return $Il3DMO869L->itHGsWJzh();}else{return $Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x72\x6f\x75\x74\x65\x5f\x75\x70\x64\x61\x74\x65"){if($Il3DMO869L->Gconb9RdL($Il3DMO869L->TPGRQ3NW9([qw(data_id r_PATTERN r_PEER r_PRIORITY r_SUBSTR r_EXT_NUMBER r_DESCRIPTION r_DEFCID r_LAST_ROUTE)]))){return $Il3DMO869L->itHGsWJzh();}else{return $Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x72\x6f\x75\x74\x65\x5f\x64\x65\x6c"){my $nWlFHOURcX;$nWlFHOURcX="\x61\x6c\x6c" if $Il3DMO869L->TPGRQ3NW9("\x64\x61\x74\x61\x5f\x69\x64")eq "\x61\x6c\x6c";if($Il3DMO869L->ixVfoGW9e($Il3DMO869L->TPGRQ3NW9("\x64\x61\x74\x61\x5f\x69\x64"),$nWlFHOURcX)){return $Il3DMO869L->itHGsWJzh();}else{return $Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x75\x73\x65\x72\x5f\x75\x70\x64\x61\x74\x65"){my $eZ5yQxUwPD=$Il3DMO869L->TPGRQ3NW9("\x75\x73\x65\x72\x5f\x69\x64");my @sodQXZ1sx8=$Il3DMO869L->TPGRQ3NW9();my %NJPbLtWUAS;my $Bca0pA1l5g=$Il3DMO869L->Y3TOsp98X($eZ5yQxUwPD);unless(ref $Bca0pA1l5g eq "\x48\x41\x53\x48"){$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);return;}my $noI5piT4uS=$Il3DMO869L->A5qWonOHl();%{$noI5piT4uS}=%{$Bca0pA1l5g};foreach my $EIsC1BEbAz(@sodQXZ1sx8){if($EIsC1BEbAz=~ /^US_(.*)/){my $D9hG1gYmq4=$1;$D9hG1gYmq4=~ s#[^\d\w._-]##g;next if $D9hG1gYmq4 eq "\x49\x44";if($Il3DMO869L->TPGRQ3NW9($EIsC1BEbAz)ne $Bca0pA1l5g->{$D9hG1gYmq4}){$NJPbLtWUAS{$D9hG1gYmq4}=$Il3DMO869L->TPGRQ3NW9($EIsC1BEbAz);}}}if($Il3DMO869L->wW3duTjXh($eZ5yQxUwPD,\%NJPbLtWUAS)){$Il3DMO869L->CUNFPYReL("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65",undef,$eZ5yQxUwPD);$Il3DMO869L->itHGsWJzh();}else{$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x75\x73\x65\x72\x5f\x75\x70\x64\x61\x74\x65\x5f\x70\x69\x6e"){my $eZ5yQxUwPD=$Il3DMO869L->TPGRQ3NW9("\x75\x73\x65\x72\x5f\x69\x64");my $UDCQcFiOv8=$Il3DMO869L->TPGRQ3NW9("\x70\x69\x6e");if($Il3DMO869L->Y75TvcnSa($eZ5yQxUwPD,$UDCQcFiOv8)){$Il3DMO869L->CUNFPYReL("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65",undef,$eZ5yQxUwPD);$Il3DMO869L->itHGsWJzh();}else{$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x75\x73\x65\x72\x5f\x61\x64\x64"){my($xyzRk2PeOW,$XBk7NnsEHR,$VGYNQ6nlCx,$bdyzf0UcjH,$Kve9Gr0OmE,$eZ5yQxUwPD)=$Il3DMO869L->TPGRQ3NW9([qw(phone group_id conf_file uname user_ac user_id)]);my $mjR8ibeQDg={};foreach my $NH09PUV2SK(split(/\s*,\s*/,$Il3DMO869L->D72RNGHCf("\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($D9hG1gYmq4,$buMHRjOPa2)=split(/:/,$NH09PUV2SK);$mjR8ibeQDg->{$buMHRjOPa2||$D9hG1gYmq4}=$Il3DMO869L->TPGRQ3NW9($D9hG1gYmq4);$mjR8ibeQDg->{$buMHRjOPa2||$D9hG1gYmq4}='' unless defined $mjR8ibeQDg->{$buMHRjOPa2||$D9hG1gYmq4};}if(my $Kve9Gr0OmE=$Il3DMO869L->TZBIH2db4($xyzRk2PeOW,$XBk7NnsEHR,$bdyzf0UcjH,$Kve9Gr0OmE,$eZ5yQxUwPD,$mjR8ibeQDg)){$Il3DMO869L->CUNFPYReL("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x61\x64\x64",$Kve9Gr0OmE);if($VGYNQ6nlCx and-e $VGYNQ6nlCx){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"."$xyzRk2PeOW $Kve9Gr0OmE $VGYNQ6nlCx &>/dev/null";}$Il3DMO869L->itHGsWJzh("?action=user_info&ac=$Kve9Gr0OmE&df=".$Il3DMO869L->TPGRQ3NW9("\x64\x66"));}else{$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x75\x73\x65\x72\x5f\x64\x65\x6c"){my($eZ5yQxUwPD,$Ua2SbOYljR)=$Il3DMO869L->TPGRQ3NW9([qw(user_id single_user)]);if($Il3DMO869L->YJGURkMFD($eZ5yQxUwPD)){my $Bca0pA1l5g=$Il3DMO869L->Y3TOsp98X($eZ5yQxUwPD);if(ref $Bca0pA1l5g eq "\x48\x41\x53\x48"){$Il3DMO869L->CUNFPYReL("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x64\x72\x6f\x70",$Bca0pA1l5g->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"});}if($Ua2SbOYljR){$Il3DMO869L->itHGsWJzh("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x75\x73\x65\x72\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$Il3DMO869L->TPGRQ3NW9("\x64\x66"));}else{$Il3DMO869L->itHGsWJzh();}}else{$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x75\x73\x65\x72\x5f\x69\x6e\x66\x6f"){DjVaNDYA9($Il3DMO869L);}elsif($hMP3Z8ruYS eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x69\x73\x74"){OcEKZYFzL($Il3DMO869L);}elsif($hMP3Z8ruYS eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x64\x65\x6c"){if($Il3DMO869L->uCZ7Va1jz($Il3DMO869L->TPGRQ3NW9("\x70\x61\x72\x74\x6e\x65\x72\x5f\x69\x64"))){$Il3DMO869L->itHGsWJzh("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$Il3DMO869L->TPGRQ3NW9("\x64\x66"));}else{$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x61\x64\x64"){my @sodQXZ1sx8=$Il3DMO869L->TPGRQ3NW9();my %NJPbLtWUAS;foreach my $EIsC1BEbAz(@sodQXZ1sx8){if($EIsC1BEbAz=~ /^P_(.*)/){my $D9hG1gYmq4=$1;$D9hG1gYmq4=~ s#[^\d\w._-]##g;$NJPbLtWUAS{$D9hG1gYmq4}=$Il3DMO869L->TPGRQ3NW9($EIsC1BEbAz);}}if($Il3DMO869L->ofSdoDKi1(\%NJPbLtWUAS,$Il3DMO869L->TPGRQ3NW9("\x47\x52\x4f\x55\x50\x5f\x49\x44"))){$Il3DMO869L->itHGsWJzh();}else{$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x75\x70\x64\x61\x74\x65"){my $eEP85gL4FC=$Il3DMO869L->TPGRQ3NW9("\x70\x61\x72\x74\x6e\x65\x72\x5f\x69\x64");my @sodQXZ1sx8=$Il3DMO869L->TPGRQ3NW9();my %NJPbLtWUAS;foreach my $EIsC1BEbAz(@sodQXZ1sx8){if($EIsC1BEbAz=~ /^P_(.*)/){my $D9hG1gYmq4=$1;$D9hG1gYmq4=~ s#[^\d\w._-]##g;next if $D9hG1gYmq4 eq "\x49\x44";$NJPbLtWUAS{$D9hG1gYmq4}=$Il3DMO869L->TPGRQ3NW9($EIsC1BEbAz);if($D9hG1gYmq4 eq "\x54\x41\x47" and length($NJPbLtWUAS{$D9hG1gYmq4})==0){$NJPbLtWUAS{$D9hG1gYmq4}=undef;}}}if($Il3DMO869L->ZwH7SOdGM($eEP85gL4FC,\%NJPbLtWUAS)){$Il3DMO869L->itHGsWJzh();}else{$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x67\x72\x6f\x75\x70\x5f\x64\x65\x6c"){if($Il3DMO869L->LyPtlgpwH($Il3DMO869L->TPGRQ3NW9("\x70\x61\x72\x74\x6e\x65\x72\x5f\x69\x64"),$Il3DMO869L->TPGRQ3NW9("\x67\x72\x6f\x75\x70\x5f\x69\x64"))){$Il3DMO869L->itHGsWJzh("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$Il3DMO869L->TPGRQ3NW9("\x64\x66"));}else{$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x67\x72\x6f\x75\x70\x5f\x61\x64\x64"){if($Il3DMO869L->zTS1mPO0s($Il3DMO869L->TPGRQ3NW9("\x70\x61\x72\x74\x6e\x65\x72\x5f\x69\x64"),$Il3DMO869L->TPGRQ3NW9("\x67\x72\x6f\x75\x70\x5f\x69\x64"))){$Il3DMO869L->itHGsWJzh("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$Il3DMO869L->TPGRQ3NW9("\x64\x66"));}else{$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x70\x68\x6f\x6e\x65\x5f\x6c\x69\x73\x74"){M9jhDAnkq($Il3DMO869L);}elsif($hMP3Z8ruYS eq "\x70\x65\x65\x72\x5f\x6c\x69\x73\x74"){JiaxTmoIu($Il3DMO869L);}elsif($hMP3Z8ruYS eq "\x61\x75\x74\x68\x5f\x6e\x61\x6d\x65\x5f\x72\x65\x73\x65\x74"){if(my $K8Mxl645NL=$Il3DMO869L->Hw8N5zy97($Il3DMO869L->TPGRQ3NW9("\x69\x64"),$Il3DMO869L->TPGRQ3NW9("\x70\x61\x63"),$Il3DMO869L->TPGRQ3NW9("\x6e\x65\x77\x69\x64"),$Il3DMO869L->TPGRQ3NW9("\x6e\x65\x77\x70\x77"))){my $D5DZNMEvkX=$Il3DMO869L->TPGRQ3NW9("\x6d\x6f\x64\x65");if($D5DZNMEvkX eq "\x72\x65\x64\x69\x72"){return $Il3DMO869L->itHGsWJzh();}else{my $Gt9gLi8K17=$Il3DMO869L->TPGRQ3NW9("\x64\x74\x79\x70\x65");if($Gt9gLi8K17 eq "\x70\x68\x6f\x6e\x65"){M9jhDAnkq($Il3DMO869L);}else{JiaxTmoIu($Il3DMO869L);}}}else{$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x73\x69\x70\x5f\x63\x61\x6c\x6c\x5f\x6c\x69\x6d\x69\x74"){if($Il3DMO869L->tty1eZqAU($Il3DMO869L->TPGRQ3NW9([qw(data_id user_id phone limit)]))){return $Il3DMO869L->itHGsWJzh();}else{$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x70\x62\x78\x5f\x6d\x6f\x64\x65\x5f\x75\x70\x64\x61\x74\x65"){if($Il3DMO869L->gjsFRpf9i($Il3DMO869L->TPGRQ3NW9([qw(data_id need_reg user_id host PBXMODE)]))){return $Il3DMO869L->itHGsWJzh();}else{return $Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x63\x6c\x6f\x6e\x65"){my($juFmnw7Z91,$NJ73xtsdFG,$NjIGVmHirp,$t5jUm6tsDz,$hMP3Z8ruYS,$OakX1brF8l)=$Il3DMO869L->TPGRQ3NW9([qw(tname id fname fid newaction noauto)]);my $K8Mxl645NL=$Il3DMO869L->ZsOdFbcAZ($juFmnw7Z91,$NJ73xtsdFG,$NjIGVmHirp,$t5jUm6tsDz,$OakX1brF8l);if(defined $K8Mxl645NL){$Il3DMO869L->itHGsWJzh("\x3f\x61\x63\x74\x69\x6f\x6e\x3d".$hMP3Z8ruYS."\x3d".$K8Mxl645NL);}else{$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x63\x6f\x75\x6e\x74\x65\x72\x73\x5f\x63\x6c\x65\x61\x6e"){my $IOoNEFzTq0=$Il3DMO869L->TPGRQ3NW9("\x61\x63");if($IOoNEFzTq0){my $y8tEjFib9y="\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".$IOoNEFzTq0."\x20\x63\x6c\x65\x61\x6e";my $hEPWHi4k25=`$y8tEjFib9y`;}$Il3DMO869L->itHGsWJzh();}elsif($hMP3Z8ruYS eq "\x73\x79\x73\x73\x74\x61\x74\x75\x73"){hBOgk7ZPW($Il3DMO869L);}elsif($hMP3Z8ruYS eq "\x72\x65\x70\x6f\x72\x74"){$Il3DMO869L->FaL2x63rt(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 $nBmnxhS9ge=$Il3DMO869L->TPGRQ3NW9("\x74\x79\x70\x65");if($nBmnxhS9ge eq "\x73\x79\x73\x73\x74\x61\x74\x65"){my $NOS7d35wyL=$Il3DMO869L->v74Vq0cyv("\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 $NOS7d35wyL;}elsif($nBmnxhS9ge 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($nBmnxhS9ge 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($nBmnxhS9ge 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($nBmnxhS9ge 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($hMP3Z8ruYS eq "\x63\x61\x6c\x6c\x5f\x6c\x6f\x67"){my $AGTvyNe8SK=$Il3DMO869L->TPGRQ3NW9("\x63\x61\x6c\x6c\x5f\x69\x64");my $y8tEjFib9y="find /var/log/VirtualPBX/backup/ -name 'XVB.log*.gz'";my @vWQ98PzHS6=`$y8tEjFib9y`;push @vWQ98PzHS6,"\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 @vWQ98PzHS6;@vWQ98PzHS6=sort{(stat($b))[9]<=>(stat($a))[9]}@vWQ98PzHS6;my $oSoD8VR9iI='';local $|=1;$Il3DMO869L->FaL2x63rt(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 $AGTvyNe8SK ");my $hDqoFpLH4m=time;my $qcbhgEiP89=$Il3DMO869L->TPGRQ3NW9("\x6d\x6c")||$Il3DMO869L->D72RNGHCf("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x4d\x41\x58\x5f\x4c\x4f\x47\x53")||3;my $NzJFi8E9gm=$Il3DMO869L->TPGRQ3NW9("\x6d\x6c\x74")||$Il3DMO869L->D72RNGHCf("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x4d\x41\x58\x5f\x4c\x4f\x47\x53\x5f\x54\x4f")||20;$#vWQ98PzHS6=$qcbhgEiP89-1 if $#vWQ98PzHS6>$qcbhgEiP89-1;foreach my $TAIPdH9UiT(@vWQ98PzHS6){my $SnOszRKHl1='';$y8tEjFib9y="grep '$AGTvyNe8SK' $TAIPdH9UiT | tac";if($TAIPdH9UiT=~ /gz$/){$y8tEjFib9y="z$y8tEjFib9y";}$SnOszRKHl1=`$y8tEjFib9y`;$oSoD8VR9iI.=$SnOszRKHl1;print "=";if(time>$hDqoFpLH4m+$NzJFi8E9gm){last;}}unless(length($oSoD8VR9iI)){print "\n\nCannot found data, the call is too old or log-files is too huge, try to grep in console\n";}else{my @Gx8C93HSW6=split(/[\r\n]+/,$oSoD8VR9iI);print "\n\n".join("\n",reverse(@Gx8C93HSW6));}}elsif($hMP3Z8ruYS eq "\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74"){pwdWB8lEV($Il3DMO869L);}elsif($hMP3Z8ruYS eq "\x6d\x73\x67\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c"){my($bEdtM8TwcY,$j8QUpMJxnH)=split("\x2c",$Il3DMO869L->TPGRQ3NW9("\x6d\x73\x67\x5f\x74\x79\x70\x65"),2);my @TlbZq3rDho=map{int($_)}split("\x3a",$bEdtM8TwcY,10);if(scalar(@TlbZq3rDho)){XeBgRc8H4($Il3DMO869L,\@TlbZq3rDho,$j8QUpMJxnH);}else{XeBgRc8H4($Il3DMO869L,undef,$j8QUpMJxnH);}}elsif($hMP3Z8ruYS eq "\x63\x61\x6c\x6c\x73\x5f\x68\x61\x6e\x67\x75\x70"){my($eZ5yQxUwPD,$AGTvyNe8SK)=$Il3DMO869L->TPGRQ3NW9([qw(user_id call_id)]);if(length($AGTvyNe8SK)and length($eZ5yQxUwPD)){$Il3DMO869L->wAMQdvNqT($AGTvyNe8SK,$eZ5yQxUwPD);}$Il3DMO869L->itHGsWJzh();}elsif($hMP3Z8ruYS eq "\x73\x69\x70\x5f\x6c\x6f\x67"){ywWVCI8cv($Il3DMO869L);}elsif($hMP3Z8ruYS eq "\x66\x32\x62"){my $B9siwlv4um=Az7mBab1M($Il3DMO869L);hBOgk7ZPW($Il3DMO869L);}elsif($hMP3Z8ruYS eq "\x75\x73\x65\x72\x5f\x6c\x69\x73\x74"){s0G3AirhI($Il3DMO869L);}elsif($hMP3Z8ruYS eq "\x62\x61\x63\x6b\x75\x70"){yRr0Uv4QT($Il3DMO869L);}else{$Il3DMO869L->itHGsWJzh("\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 DjVaNDYA9{my $Il3DMO869L=shift;my($Kve9Gr0OmE)=$Il3DMO869L->TPGRQ3NW9("\x61\x63");my $Fh1etKkd32=$Il3DMO869L->i9LKb80it(0,$Kve9Gr0OmE,undef,undef);unless(ref $Fh1etKkd32 eq "\x41\x52\x52\x41\x59"){$Il3DMO869L->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $mAYsx23wTI=$Il3DMO869L->a0k6pV1y8();unless(ref $mAYsx23wTI eq "\x41\x52\x52\x41\x59"){$Il3DMO869L->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $noI5piT4uS=$Il3DMO869L->A5qWonOHl();%{$noI5piT4uS}=(ID=>$Fh1etKkd32->[0]->{"\x49\x44"},TARIFF_ID=>$Fh1etKkd32->[0]->{"\x54\x41\x52\x49\x46\x46\x5f\x49\x44"});$Fh1etKkd32->[0]->{"\x43\x55\x52\x5f\x43\x41\x4c\x4c\x53"}=$Il3DMO869L->mw3raOQby("\x73\x68\x2d\x61\x63\x2d\x69\x6e\x2d".$Fh1etKkd32->[0]->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"})||0;my @chG706Fadc;foreach my $NH09PUV2SK(split(/\s*,\s*/,$Il3DMO869L->D72RNGHCf("\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($D9hG1gYmq4,$buMHRjOPa2,$zMNrGkZAE5)=split(/:/,$NH09PUV2SK);next unless $zMNrGkZAE5;push @chG706Fadc,{NAME=>$zMNrGkZAE5,VAL=>$Fh1etKkd32->[0]->{$D9hG1gYmq4},KEY=>$D9hG1gYmq4};}my $y8tEjFib9y="\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".($Fh1etKkd32->[0]->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"}||0);my $hEPWHi4k25=`$y8tEjFib9y`;gWgYqTt7X($Il3DMO869L,"\x75\x73\x65\x72\x5f\x69\x6e\x66\x6f\x2e\x74\x74",{USER=>$Fh1etKkd32->[0],USER_COUNTERS=>$hEPWHi4k25,DIDS=>$Il3DMO869L->F4lHzO0I5(),DOMAINS=>$Il3DMO869L->scWvMtd5D(),TARIFF=>$Il3DMO869L->G2MTpeLON(),ADMIN_KEY=>$Il3DMO869L->D72RNGHCf("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x4b\x45\x59"),CUSTOM_FIELDS=>\@chG706Fadc,GROUPS=>$mAYsx23wTI,LIMITS=>$Il3DMO869L->s2TPOwERW($Fh1etKkd32->[0]->{"\x49\x44"})});}sub s0G3AirhI{my $Il3DMO869L=shift;my($Wuln98aQ7v,$A2dWvpsIlC,$mbVNmFEIai,$ca82tHrIz1,$nnEcfzK4JI,$zMghP13kql,$piJTF2KYrX,$Dw0s7WEnKX,$qdaRIE3TyG)=$Il3DMO869L->TPGRQ3NW9([[(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($Fh1etKkd32,$yAMHGf2tUF)=$Il3DMO869L->i9LKb80it($Wuln98aQ7v,$A2dWvpsIlC,$mbVNmFEIai,$ca82tHrIz1,$nnEcfzK4JI,$zMghP13kql,$piJTF2KYrX,$Dw0s7WEnKX,undef,$qdaRIE3TyG);unless(ref $Fh1etKkd32 eq "\x41\x52\x52\x41\x59"){$Il3DMO869L->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $mAYsx23wTI=$Il3DMO869L->a0k6pV1y8();unless(ref $mAYsx23wTI eq "\x41\x52\x52\x41\x59"){$Il3DMO869L->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $Sldkcf8hjn=[];foreach my $Tv7qepMOWu(split(/\s*;\s*/,$Il3DMO869L->D72RNGHCf("\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($TAIPdH9UiT,$CL84dAZOYE)=split(/:/,$Tv7qepMOWu,2);unless($CL84dAZOYE){$CL84dAZOYE=$TAIPdH9UiT;$CL84dAZOYE=~ s{.*/([^/]+)$}{$1};}push @$Sldkcf8hjn,{FILE=>$TAIPdH9UiT,DESC=>$CL84dAZOYE};}my $Yd9GxgKhjf=1;foreach my $noI5piT4uS(@{$Fh1etKkd32}){$noI5piT4uS->{"\x49\x44\x58"}=$Wuln98aQ7v+$Yd9GxgKhjf;$Yd9GxgKhjf++;}gWgYqTt7X($Il3DMO869L,"\x75\x73\x65\x72\x5f\x6c\x69\x73\x74\x2e\x74\x74",{USERS=>$Fh1etKkd32,USERS_CNT=>$yAMHGf2tUF,GROUPS=>$mAYsx23wTI,TEMPLATES=>$Sldkcf8hjn,F_AC=>$A2dWvpsIlC,F_VN=>$mbVNmFEIai,F_GROUP=>$ca82tHrIz1,F_UNAME=>$nnEcfzK4JI,F_STATUS=>$zMghP13kql,F_TARIFF=>$piJTF2KYrX,F_DESC=>$Dw0s7WEnKX,F_ID=>$qdaRIE3TyG,TARIFFS=>$Il3DMO869L->dx4cdR5wq("\x54\x41\x52\x49\x46\x46"),DEF_SH_DID=>$Il3DMO869L->D72RNGHCf("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x44\x45\x46\x5f\x53\x48\x5f\x44\x49\x44"),$Il3DMO869L->gR0nmpSuH(1,$Fh1etKkd32,$Wuln98aQ7v)});}sub ZIiMncoHd{my $Il3DMO869L=shift;my($Wuln98aQ7v,$A2dWvpsIlC,$mbVNmFEIai)=$Il3DMO869L->TPGRQ3NW9([[(from=>0)],"\x66\x5f\x61\x63","\x66\x5f\x76\x6e"]);my $xri68CGU94=$Il3DMO869L->AQ1uSfzAM($Wuln98aQ7v,$A2dWvpsIlC,$mbVNmFEIai);unless(ref $xri68CGU94 eq "\x41\x52\x52\x41\x59"){$Il3DMO869L->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}gWgYqTt7X($Il3DMO869L,"\x64\x69\x64\x5f\x6c\x69\x73\x74\x2e\x74\x74",{DIDS=>$xri68CGU94,F_AC=>$A2dWvpsIlC,F_VN=>$mbVNmFEIai,$Il3DMO869L->gR0nmpSuH(1,$xri68CGU94,$Wuln98aQ7v)});}sub RY3vf9Ugt{my $Il3DMO869L=shift;my($Wuln98aQ7v,$A2dWvpsIlC,$mbVNmFEIai)=$Il3DMO869L->TPGRQ3NW9([[(from=>0)],"\x66\x5f\x61\x63","\x66\x5f\x76\x6e"]);my $tH21miGbrs=$Il3DMO869L->iR1hTnP5m($Wuln98aQ7v,$A2dWvpsIlC,$mbVNmFEIai);unless(ref $tH21miGbrs eq "\x41\x52\x52\x41\x59"){$Il3DMO869L->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}gWgYqTt7X($Il3DMO869L,"\x73\x69\x70\x64\x6f\x6d\x61\x69\x6e\x5f\x6c\x69\x73\x74\x2e\x74\x74",{DOMAINS=>$tH21miGbrs,F_AC=>$A2dWvpsIlC,F_VN=>$mbVNmFEIai,$Il3DMO869L->gR0nmpSuH(1,$tH21miGbrs,$Wuln98aQ7v)});}sub yIYwo6VlA{my $Il3DMO869L=shift;my($Wuln98aQ7v,$ca82tHrIz1)=$Il3DMO869L->TPGRQ3NW9([[(from=>0)],"\x66\x5f\x67\x72\x6f\x75\x70"]);my $mAYsx23wTI=$Il3DMO869L->a0k6pV1y8(undef,$ca82tHrIz1,$Wuln98aQ7v);unless(ref $mAYsx23wTI eq "\x41\x52\x52\x41\x59"){$Il3DMO869L->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}gWgYqTt7X($Il3DMO869L,"\x67\x72\x6f\x75\x70\x5f\x6c\x69\x73\x74\x2e\x74\x74",{GROUPS=>$mAYsx23wTI,NODES=>$Il3DMO869L->xWX8RUsEq(),F_GROUP=>$ca82tHrIz1,$Il3DMO869L->gR0nmpSuH(1,$mAYsx23wTI,$Wuln98aQ7v)});}sub Ol6NB2aQ1{my($Il3DMO869L,$XBk7NnsEHR,$N6GxaSR7ZT)=@_;my $QpUK9lY47Z=$Il3DMO869L->a0k6pV1y8($XBk7NnsEHR,$N6GxaSR7ZT);unless(ref $QpUK9lY47Z eq "\x41\x52\x52\x41\x59"){$Il3DMO869L->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;yIYwo6VlA($Il3DMO869L);}else{my $BGuRoJDrqM=$Il3DMO869L->dx4cdR5wq("\x56\x42\x54\x59\x50\x45\x53");foreach my $xSiPlvj7Lp(@$BGuRoJDrqM){$xSiPlvj7Lp->{"\x4c\x49\x4d\x49\x54\x5f\x56\x41\x4c\x55\x45"}=$QpUK9lY47Z->[0]->{"\x56\x42\x4c\x5f".$xSiPlvj7Lp->{"\x49\x44"}};}gWgYqTt7X($Il3DMO869L,"\x67\x72\x6f\x75\x70\x5f\x69\x6e\x66\x6f\x2e\x74\x74",{GROUP=>$QpUK9lY47Z->[0],NODES=>$Il3DMO869L->dx4cdR5wq("\x4e\x4f\x44\x45","\x4e\x4f\x44\x45\x5f\x49\x44"),TARIFFS=>$Il3DMO869L->dx4cdR5wq("\x54\x41\x52\x49\x46\x46"),LANG=>$Il3DMO869L->dx4cdR5wq("\x4c\x41\x4e\x47",undef,{STATUS=>1}),VB_TYPES=>$BGuRoJDrqM});}}sub EkhZlBs0F{my($Il3DMO869L,$NJ73xtsdFG)=@_;my $ABmYiesMGU=$Il3DMO869L->TjWviLMxw(undef,$NJ73xtsdFG);if(ref $ABmYiesMGU ne "\x41\x52\x52\x41\x59" or ref $ABmYiesMGU->[0]ne "\x48\x41\x53\x48"){$Il3DMO869L->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}gWgYqTt7X($Il3DMO869L,"\x74\x61\x72\x69\x66\x66\x5f\x69\x6e\x66\x6f\x2e\x74\x74",{%{$ABmYiesMGU->[0]},CURRENCY=>$Il3DMO869L->dx4cdR5wq("\x43\x55\x52\x52\x45\x4e\x43\x59","\x43\x55\x52\x5f\x49\x44"),});}sub SVeJaxoCd{my($Il3DMO869L,$kfbqMVNg9d)=@_;my($Wuln98aQ7v,$NghHpVoDbL,$nWNYoVM8rK,$mLMajT85ih,$AGTvyNe8SK,$yepuio5t7M,$tE8MNK91a7,$Kve9Gr0OmE,$xS1Iq9akV8,$rEHOaqhRFY,$Hy98K1MCW6,$BrzY0ZPuWt,$I01DsmX8Ph,$uLMtXEAhoZ)=$Il3DMO869L->TPGRQ3NW9([[(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("$AGTvyNe8SK$yepuio5t7M$tE8MNK91a7$NghHpVoDbL$nWNYoVM8rK$xS1Iq9akV8$Kve9Gr0OmE$rEHOaqhRFY$I01DsmX8Ph")){my $HlOUKoWHkw=$Il3DMO869L->D72RNGHCf("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x41\x49");$NghHpVoDbL=$Il3DMO869L->YVjlbie8N(time-86400*$HlOUKoWHkw,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$nWNYoVM8rK=$Il3DMO869L->YVjlbie8N(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my $eZc9RiHSWD;if($Kve9Gr0OmE=~ /,/){$eZc9RiHSWD=[split(/\s*,\s*/,$Kve9Gr0OmE)];}else{$eZc9RiHSWD=$Kve9Gr0OmE;}my $QAX5EMZSyH=$Il3DMO869L->yaTmXSUlQ($AGTvyNe8SK,$yepuio5t7M,$tE8MNK91a7,$Wuln98aQ7v,$Il3DMO869L->uunULNgQw($NghHpVoDbL),$Il3DMO869L->uunULNgQw($nWNYoVM8rK),$xS1Iq9akV8,$eZc9RiHSWD,$rEHOaqhRFY,$I01DsmX8Ph,$kfbqMVNg9d,$BrzY0ZPuWt,$Hy98K1MCW6,$uLMtXEAhoZ);unless(ref $QAX5EMZSyH eq "\x41\x52\x52\x41\x59"){$Il3DMO869L->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my(@sodQXZ1sx8,$y23PU7CWiX,$a1IPV8Z9T2);my $mAYsx23wTI=$Il3DMO869L->a0k6pV1y8();if($QAX5EMZSyH){my $VDHGg16QRy=$Wuln98aQ7v+1;unless($AGTvyNe8SK){foreach my $xSiPlvj7Lp(@{$QAX5EMZSyH}){$xSiPlvj7Lp->{"\x43\x44\x52\x5f\x4e\x55\x4d"}=$VDHGg16QRy++;$xSiPlvj7Lp->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$Il3DMO869L->YVjlbie8N($xSiPlvj7Lp->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});}}else{foreach my $xSiPlvj7Lp(@{$QAX5EMZSyH}){$xSiPlvj7Lp->{"\x43\x44\x52\x5f\x4e\x55\x4d"}=$VDHGg16QRy++;$xSiPlvj7Lp->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$Il3DMO869L->YVjlbie8N($xSiPlvj7Lp->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});if($xSiPlvj7Lp->{"\x54\x59\x50\x45"}eq "\x43\x61\x6c\x6c"){$y23PU7CWiX=$xSiPlvj7Lp->{"\x45\x58\x54\x5f\x4e\x55\x4d\x42\x45\x52"};$a1IPV8Z9T2=$xSiPlvj7Lp->{"\x44\x4f\x57\x4e\x4c\x4f\x41\x44\x5f\x49\x50"};}}$y23PU7CWiX=$AGTvyNe8SK unless length($y23PU7CWiX);if(ref $QAX5EMZSyH and ref $QAX5EMZSyH->[0]){my $t4G8MeJv9A=$Il3DMO869L->YVjlbie8N($QAX5EMZSyH->[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 @sodQXZ1sx8,(JS_DATE_STR=>$t4G8MeJv9A);push @sodQXZ1sx8,(SIP_CALL_ID=>$y23PU7CWiX,SIP_CALL_START=>$QAX5EMZSyH->[0]->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"},SIP_CALL_STOP=>$QAX5EMZSyH->[$#{$QAX5EMZSyH}]->{"\x53\x54\x4f\x50\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"},SIP_NODE_IP=>$a1IPV8Z9T2);}}}my $A015qUHcnI;if($AGTvyNe8SK){$A015qUHcnI="\x63\x64\x72\x73\x5f\x61\x63\x74\x5f\x6c\x69\x73\x74\x2e\x74\x74";}elsif($kfbqMVNg9d){$A015qUHcnI="\x61\x63\x74\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c\x2e\x74\x74";push @sodQXZ1sx8,(CDR_ACT_TYPE=>$Hy98K1MCW6,CDR_ACT_EXT=>$BrzY0ZPuWt);unless($Il3DMO869L->OcWXQdIab()->{"\x44\x46"}){push @sodQXZ1sx8,(ACT_TYPES=>$Il3DMO869L->{"\x5f\x4c\x49\x53\x54\x53"}->{"\x41\x43\x54\x49\x56\x49\x54\x49\x45\x53"});}}else{$A015qUHcnI="\x63\x64\x72\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74";push @sodQXZ1sx8,(CDR_CALL_TYPE=>$xS1Iq9akV8);}return gWgYqTt7X($Il3DMO869L,$A015qUHcnI,{CDR_LIST=>$QAX5EMZSyH,CDR_CALL_ID=>$AGTvyNe8SK,CDR_CALLER_ID=>$yepuio5t7M,CDR_CALLED_ID=>$tE8MNK91a7,CDR_AC=>$Kve9Gr0OmE,CDR_DURATION=>$rEHOaqhRFY,CDR_DATA=>$I01DsmX8Ph,CDR_GROUP=>$uLMtXEAhoZ,GROUPS=>$mAYsx23wTI,FROM_TIME=>$NghHpVoDbL,TO_TIME=>$nWNYoVM8rK,SMART_TIME=>$mLMajT85ih,@sodQXZ1sx8,$Il3DMO869L->gR0nmpSuH(1,$QAX5EMZSyH,$Wuln98aQ7v)});}sub JTobx1fUR{my $Il3DMO869L=shift;my($Wuln98aQ7v,$Kve9Gr0OmE,$NghHpVoDbL,$nWNYoVM8rK,$mLMajT85ih,$HN7ZgtYhkL,$LDX6LvcA8V,$I01DsmX8Ph,$yrZv8m9fDC)=$Il3DMO869L->TPGRQ3NW9([[(from=>0)],qw(ac from_time to_time smart_time ext_num action_type data cid)]);unless(length("$Kve9Gr0OmE$NghHpVoDbL$nWNYoVM8rK$HN7ZgtYhkL$LDX6LvcA8V$I01DsmX8Ph$yrZv8m9fDC")){my $HlOUKoWHkw=$Il3DMO869L->D72RNGHCf("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x41\x49");$NghHpVoDbL=$Il3DMO869L->YVjlbie8N(time-86400*$HlOUKoWHkw,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$nWNYoVM8rK=$Il3DMO869L->YVjlbie8N(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my $eZc9RiHSWD;if($Kve9Gr0OmE=~ /,/){$eZc9RiHSWD=[split(/\s*,\s*/,$Kve9Gr0OmE)];}else{$eZc9RiHSWD=$Kve9Gr0OmE;}my $whg3axkwFb=$Il3DMO869L->iyKuLwMmZ($eZc9RiHSWD,$HN7ZgtYhkL,$I01DsmX8Ph,$Wuln98aQ7v,$LDX6LvcA8V,$Il3DMO869L->uunULNgQw($NghHpVoDbL),$Il3DMO869L->uunULNgQw($nWNYoVM8rK),$yrZv8m9fDC);if(ref $whg3axkwFb ne "\x41\x52\x52\x41\x59"){$Il3DMO869L->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}elsif($whg3axkwFb){my $VDHGg16QRy=$Wuln98aQ7v+1;foreach my $xSiPlvj7Lp(@{$whg3axkwFb}){$xSiPlvj7Lp->{"\x4a\x5f\x4e\x55\x4d"}=$VDHGg16QRy++;$xSiPlvj7Lp->{"\x4a\x5f\x44\x41\x54\x45"}=$Il3DMO869L->YVjlbie8N($xSiPlvj7Lp->{"\x43\x52\x45\x41\x54\x45\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});}}return gWgYqTt7X($Il3DMO869L,"\x6a\x6f\x75\x72\x6e\x61\x6c\x5f\x6c\x69\x73\x74\x2e\x74\x74",{J_LIST=>$whg3axkwFb,J_DATA=>$I01DsmX8Ph,J_EXT_NUM=>$HN7ZgtYhkL,J_ACTION=>$LDX6LvcA8V,J_AC=>$Kve9Gr0OmE,J_CID=>$yrZv8m9fDC,ACTIONS=>$Il3DMO869L->XkQK3GrIi(),FROM_TIME=>$NghHpVoDbL,TO_TIME=>$nWNYoVM8rK,SMART_TIME=>$mLMajT85ih,$Il3DMO869L->gR0nmpSuH(1,$whg3axkwFb,$Wuln98aQ7v)});}sub gXDfjOzWs{my $Il3DMO869L=shift;my($Wuln98aQ7v,$mbVNmFEIai)=$Il3DMO869L->TPGRQ3NW9([[(from=>0)],"\x66\x5f\x76\x6e"]);my $td5HEWx9Pk=$Il3DMO869L->jABr9q7Wg($Wuln98aQ7v,$mbVNmFEIai);unless(ref $td5HEWx9Pk eq "\x41\x52\x52\x41\x59"){$Il3DMO869L->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}gWgYqTt7X($Il3DMO869L,"\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x6c\x69\x73\x74\x2e\x74\x74",{DIDS=>$td5HEWx9Pk,LANG=>$Il3DMO869L->dx4cdR5wq("\x4c\x41\x4e\x47",undef,{STATUS=>1}),F_VN=>$mbVNmFEIai,$Il3DMO869L->gR0nmpSuH(1,$td5HEWx9Pk,$Wuln98aQ7v)});}sub JiFro7j1A{my $Il3DMO869L=shift;my $Wuln98aQ7v=$Il3DMO869L->TPGRQ3NW9("\x66\x72\x6f\x6d")||0;my $ABmYiesMGU=$Il3DMO869L->TjWviLMxw($Wuln98aQ7v);unless(ref $ABmYiesMGU eq "\x41\x52\x52\x41\x59"){$Il3DMO869L->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}gWgYqTt7X($Il3DMO869L,"\x74\x61\x72\x69\x66\x66\x5f\x6c\x69\x73\x74\x2e\x74\x74",{TARIFFS=>$ABmYiesMGU,CURRENCY=>$Il3DMO869L->dx4cdR5wq("\x43\x55\x52\x52\x45\x4e\x43\x59","\x43\x55\x52\x5f\x49\x44"),$Il3DMO869L->gR0nmpSuH(1,$ABmYiesMGU,$Wuln98aQ7v)});}sub M1cK58Mx7{my $Il3DMO869L=shift;my $Wuln98aQ7v=$Il3DMO869L->TPGRQ3NW9("\x66\x72\x6f\x6d")||0;my $zxirPCpWUv=$Il3DMO869L->xWX8RUsEq($Wuln98aQ7v);unless(ref $zxirPCpWUv eq "\x41\x52\x52\x41\x59"){$Il3DMO869L->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}else{foreach my $DDgcZOTjPN(@{$zxirPCpWUv}){$DDgcZOTjPN->{"\x73\x74\x61\x74"}=$Il3DMO869L->mw3raOQby("\x73\x68\x2d\x73\x74\x61\x74\x2d".$DDgcZOTjPN->{"\x4e\x4f\x44\x45\x5f\x49\x44"})||{};$DDgcZOTjPN->{"\x73\x74\x61\x74"}->{"\x63\x61\x6c\x6c\x73"}=$Il3DMO869L->mw3raOQby("\x73\x68\x2d\x63\x61\x6c\x6c\x73\x2d".$DDgcZOTjPN->{"\x4e\x4f\x44\x45\x5f\x49\x44"})||0;}}gWgYqTt7X($Il3DMO869L,"\x6e\x6f\x64\x65\x5f\x6c\x69\x73\x74\x2e\x74\x74",{NODES=>$zxirPCpWUv,$Il3DMO869L->gR0nmpSuH(1,$zxirPCpWUv,$Wuln98aQ7v)});}sub kdlSsT2zY{my $Il3DMO869L=shift;my($Wuln98aQ7v,$zqHW458NLX,$Gt9gLi8K17)=$Il3DMO869L->TPGRQ3NW9([[(from=>0)],"\x6e\x61\x6d\x65","\x74\x79\x70\x65"]);my $xAEHX95V03=$Il3DMO869L->DcSQnKbaw(undef,$Gt9gLi8K17,$zqHW458NLX,$Wuln98aQ7v);unless(ref $xAEHX95V03 eq "\x41\x52\x52\x41\x59"){$Il3DMO869L->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;return 0;}gWgYqTt7X($Il3DMO869L,"\x72\x65\x70\x6f\x72\x74\x5f\x6c\x69\x73\x74\x2e\x74\x74",{REPORTS=>$xAEHX95V03,SEARCH_NAME=>$zqHW458NLX,SEARCH_TYPE=>$Gt9gLi8K17,$Il3DMO869L->gR0nmpSuH(1,$xAEHX95V03,$Wuln98aQ7v)});}sub tU7tJq8Sx{my $Il3DMO869L=shift;my($u92nCfXRQd,$t3OXBPZDLC,$tBmLv4xAwX,$oP8MqWfGtH,$mLMajT85ih,$Gt9gLi8K17)=$Il3DMO869L->TPGRQ3NW9([qw(report_id need_excel from_time to_time smart_time type)]);my $xq4JDCIOn3=$Il3DMO869L->uunULNgQw($tBmLv4xAwX);my $gDeSMRw18h=$Il3DMO869L->uunULNgQw($oP8MqWfGtH);my(%YxiVjYrUaE,@k7mfg9svwr);my $O38ID9gQ4b=$Il3DMO869L->DcSQnKbaw($u92nCfXRQd);if(ref $O38ID9gQ4b eq "\x41\x52\x52\x41\x59" and $O38ID9gQ4b->[0]->{"\x45\x58\x54\x52\x41\x5f\x50\x41\x52\x41\x4d\x53"}){foreach my $zJHmx8uvpP(split(/\s*\|\s*/,$O38ID9gQ4b->[0]->{"\x45\x58\x54\x52\x41\x5f\x50\x41\x52\x41\x4d\x53"})){my($wfEyM1iQFv,$sijpJYQUxo,$iuGY3AeIv6)=split(/\s*:\s*/,$zJHmx8uvpP,3);$YxiVjYrUaE{$wfEyM1iQFv}=$Il3DMO869L->TPGRQ3NW9($wfEyM1iQFv);push @k7mfg9svwr,{name=>$wfEyM1iQFv,label=>$sijpJYQUxo,value=>$YxiVjYrUaE{$wfEyM1iQFv}};}}my $XVt3krGeJv=$Il3DMO869L->tm5G4jpUC($u92nCfXRQd,$Gt9gLi8K17,$t3OXBPZDLC,$xq4JDCIOn3,$gDeSMRw18h,\%YxiVjYrUaE);if($t3OXBPZDLC){if($XVt3krGeJv){if($XVt3krGeJv=~ /xlsx$/){return $Il3DMO869L->yU9SeT8gN($XVt3krGeJv,"\x61\x70\x70\x6c\x69\x63\x61\x74\x69\x6f\x6e\x2f\x78\x6c\x73\x78");}else{return $Il3DMO869L->yU9SeT8gN($XVt3krGeJv,"\x74\x65\x78\x74\x2f\x63\x73\x76");}}}unless(ref $XVt3krGeJv eq "\x41\x52\x52\x41\x59"){$Il3DMO869L->{"\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";$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);return 0;}my $OgVIG49SAv=[];my $cIPUaEm9SK=[];foreach my $lXQC9WgOyt(@{$XVt3krGeJv->[1]}){my $EIsC1BEbAz=$lXQC9WgOyt;if($EIsC1BEbAz=~ s/^=//){push @{$cIPUaEm9SK},{name=>$EIsC1BEbAz,align=>"\x6c\x65\x66\x74"};}elsif($EIsC1BEbAz=~ s/=$//){push @{$cIPUaEm9SK},{name=>$EIsC1BEbAz,align=>"\x72\x69\x67\x68\x74"};}else{push @{$cIPUaEm9SK},{name=>$EIsC1BEbAz,align=>"\x63\x65\x6e\x74\x65\x72"};}}for(0..$#{$XVt3krGeJv->[0]}){$OgVIG49SAv->[$_]=[];foreach my $EIsC1BEbAz(@{$XVt3krGeJv->[1]}){my $YsoP8pRTbB=$XVt3krGeJv->[0]->[$_]->{$EIsC1BEbAz};my $F9EV6FRtZb=0;if($EIsC1BEbAz=~ /^=?ACCESS_CODE=?$/){$YsoP8pRTbB="<a href='/ai?ac=$YsoP8pRTbB&action=user_info'>$YsoP8pRTbB</a>";$F9EV6FRtZb=1;}if($EIsC1BEbAz=~ /^=/){push @{$OgVIG49SAv->[$_]},{value=>$YsoP8pRTbB,align=>"\x6c\x65\x66\x74",is_raw=>$F9EV6FRtZb};}elsif($EIsC1BEbAz=~ /=$/){push @{$OgVIG49SAv->[$_]},{value=>$YsoP8pRTbB,align=>"\x72\x69\x67\x68\x74",is_raw=>$F9EV6FRtZb};}else{push @{$OgVIG49SAv->[$_]},{value=>$YsoP8pRTbB,align=>"\x63\x65\x6e\x74\x65\x72",is_raw=>$F9EV6FRtZb};}}}gWgYqTt7X($Il3DMO869L,"\x72\x65\x70\x6f\x72\x74\x5f\x72\x65\x73\x75\x6c\x74\x2e\x74\x74",{FROM_TIME=>($tBmLv4xAwX||$XVt3krGeJv->[3]),TO_TIME=>($oP8MqWfGtH||$XVt3krGeJv->[4]),SMART_TIME=>$mLMajT85ih,REPORT_RAW_DATA=>$XVt3krGeJv->[5],REPORT_RESULT=>$OgVIG49SAv,REPORT_HDR=>$cIPUaEm9SK,REPORT_DATA=>$XVt3krGeJv->[2],EXTRA_PARAMS=>\@k7mfg9svwr});}sub OcEKZYFzL{my $Il3DMO869L=shift;my $Wuln98aQ7v=$Il3DMO869L->TPGRQ3NW9("\x66\x72\x6f\x6d")||0;my($vqEwxYIR8K,$TZDGJoeKzq)=$Il3DMO869L->Wq7zwUMWZ($Wuln98aQ7v);my $mAYsx23wTI;foreach my $tXDWtdmw9a(@{$vqEwxYIR8K}){$tXDWtdmw9a->{"\x47\x52\x4f\x55\x50\x5f\x49\x44\x5f\x42\x49\x4e"}=[split(/,/,$tXDWtdmw9a->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})];}unless(ref $vqEwxYIR8K eq "\x41\x52\x52\x41\x59"){$Il3DMO869L->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}else{$mAYsx23wTI=$Il3DMO869L->a0k6pV1y8();unless(ref $mAYsx23wTI eq "\x41\x52\x52\x41\x59"){$Il3DMO869L->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}}my $Yd9GxgKhjf=1;foreach my $tXDWtdmw9a(@{$vqEwxYIR8K}){$tXDWtdmw9a->{"\x49\x44\x58"}=$Wuln98aQ7v+$Yd9GxgKhjf;$Yd9GxgKhjf++;}gWgYqTt7X($Il3DMO869L,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x69\x73\x74\x2e\x74\x74",{PARTNERS=>$vqEwxYIR8K,PARTNERS_CNT=>$TZDGJoeKzq,GROUPS=>$mAYsx23wTI,$Il3DMO869L->gR0nmpSuH(1,$vqEwxYIR8K,$Wuln98aQ7v)});}sub M9jhDAnkq{my $Il3DMO869L=shift;my($Wuln98aQ7v,$s4LqCkXMHr,$igodD5sHUt,$B9siwlv4um,$Kve9Gr0OmE,$emYzRt3a8Z,$km308pXPMg)=$Il3DMO869L->TPGRQ3NW9([[(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 $eZc9RiHSWD;if($Kve9Gr0OmE=~ /,/){$eZc9RiHSWD=[split(/\s*,\s*/,$Kve9Gr0OmE)];}else{$eZc9RiHSWD=$Kve9Gr0OmE;}my($agUrosOJ6A,$iKvOyUboZ3)=$Il3DMO869L->Zj9uXcMw8($Wuln98aQ7v,0,$s4LqCkXMHr,$igodD5sHUt,undef,$B9siwlv4um,$eZc9RiHSWD,$emYzRt3a8Z,undef,undef,$km308pXPMg);unless(ref $agUrosOJ6A eq "\x41\x52\x52\x41\x59"){$Il3DMO869L->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $uVJ3cX02tU=time;my $Yd9GxgKhjf=1;foreach my $xyzRk2PeOW(@$agUrosOJ6A){if($uVJ3cX02tU<$xyzRk2PeOW->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}){$xyzRk2PeOW->{"\x52\x45\x47\x5f\x53\x54\x41\x54\x55\x53"}="\x52\x65\x67\x69\x73\x74\x65\x72\x65\x64";}else{$xyzRk2PeOW->{"\x52\x45\x47\x5f\x53\x54\x41\x54\x55\x53"}="\x55\x6e\x72\x65\x67\x69\x73\x74\x65\x72\x65\x64";}$xyzRk2PeOW->{"\x52\x45\x47\x5f\x45\x58\x50\x49\x52\x45\x44"}=$xyzRk2PeOW->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}? $Il3DMO869L->YVjlbie8N($xyzRk2PeOW->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}):"\x2d";$xyzRk2PeOW->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}=$xyzRk2PeOW->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}? $Il3DMO869L->YVjlbie8N($xyzRk2PeOW->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}):"\x2d";$xyzRk2PeOW->{"\x49\x44\x58"}=$Wuln98aQ7v+$Yd9GxgKhjf;$Yd9GxgKhjf++;}gWgYqTt7X($Il3DMO869L,"\x70\x68\x6f\x6e\x65\x5f\x6c\x69\x73\x74\x2e\x74\x74",{SIPDEV=>$agUrosOJ6A,SIPDEV_CNT=>$iKvOyUboZ3,AUTHNAME=>$igodD5sHUt,PHONE=>$s4LqCkXMHr,IP=>$B9siwlv4um,AC=>$Kve9Gr0OmE,UA=>$emYzRt3a8Z,RST=>$km308pXPMg,FROM=>$Wuln98aQ7v,ALLOW_RESET=>($Il3DMO869L->D72RNGHCf("\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=>$Il3DMO869L->D72RNGHCf("\x53\x49\x50\x5f\x41\x49\x5f\x41\x55\x54\x48\x5f\x45\x44\x49\x54"),$Il3DMO869L->gR0nmpSuH(1,$agUrosOJ6A,$Wuln98aQ7v)});}sub pwdWB8lEV{my $Il3DMO869L=shift;my($Wuln98aQ7v,$yepuio5t7M,$tE8MNK91a7,$Kve9Gr0OmE,$xS1Iq9akV8,$LkmOZgeS09,$YqOYthVsXp,$rEHOaqhRFY,$uLMtXEAhoZ)=$Il3DMO869L->TPGRQ3NW9([[(from=>0)],qw(caller_id called_id ac call_type refresh c2c duration group)]);my $eZc9RiHSWD;if($Kve9Gr0OmE=~ /,/){$eZc9RiHSWD=[split(/\s*,\s*/,$Kve9Gr0OmE)];}else{$eZc9RiHSWD=$Kve9Gr0OmE;}my $lq7Qh9JiIB=$Il3DMO869L->TNa0z9VFk($yepuio5t7M,$tE8MNK91a7,$eZc9RiHSWD,$xS1Iq9akV8,$rEHOaqhRFY,$uLMtXEAhoZ,undef,undef,$Wuln98aQ7v);unless(ref $lq7Qh9JiIB eq "\x41\x52\x52\x41\x59"){$lq7Qh9JiIB=[];}if($lq7Qh9JiIB){foreach my $xSiPlvj7Lp(@{$lq7Qh9JiIB}){$xSiPlvj7Lp->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$Il3DMO869L->YVjlbie8N($xSiPlvj7Lp->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});$xSiPlvj7Lp->{"\x43\x44\x52\x5f\x44\x55\x52\x41\x54\x49\x4f\x4e"}=time-$xSiPlvj7Lp->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"};}}my $mAYsx23wTI=$Il3DMO869L->a0k6pV1y8();unless(ref $mAYsx23wTI eq "\x41\x52\x52\x41\x59"){$Il3DMO869L->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}$YqOYthVsXp||=$Il3DMO869L->D72RNGHCf("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x44\x45\x46\x5f\x43\x32\x43");if($YqOYthVsXp){$YqOYthVsXp=~ s#ph=[^&;]+##;$YqOYthVsXp=~ s#user_vars=([^&;]+)##;if($1){$YqOYthVsXp=",$1&$YqOYthVsXp";}elsif($YqOYthVsXp=~ /&/ and $YqOYthVsXp !~ /^[,&]/){$YqOYthVsXp="&$YqOYthVsXp";}}return gWgYqTt7X($Il3DMO869L,"\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74",{CALLS_COUNT=>scalar(@$lq7Qh9JiIB),CALLS_LIST=>$lq7Qh9JiIB,CDR_CALLER_ID=>$yepuio5t7M,CDR_CALLED_ID=>$tE8MNK91a7,CDR_AC=>$Kve9Gr0OmE,CDR_CALL_TYPE=>$xS1Iq9akV8,CDR_REFRESH_TIME=>$LkmOZgeS09,CDR_C2C=>$YqOYthVsXp,CDR_DURATION=>$rEHOaqhRFY,CDR_GROUP=>$uLMtXEAhoZ,GROUPS=>$mAYsx23wTI,$Il3DMO869L->gR0nmpSuH(1,$lq7Qh9JiIB,$Wuln98aQ7v)});}sub JiaxTmoIu{my $Il3DMO869L=shift;my($Wuln98aQ7v,$igodD5sHUt,$wm35w8gxQD,$Kve9Gr0OmE,$Xy5Y7hj2RJ,$UQYMABVwDf)=$Il3DMO869L->TPGRQ3NW9([[(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 $eZc9RiHSWD;if($Kve9Gr0OmE=~ /,/){$eZc9RiHSWD=[split(/\s*,\s*/,$Kve9Gr0OmE)];}else{$eZc9RiHSWD=$Kve9Gr0OmE;}my($HjhDqAX0cG,$Sa8jBALiPS)=$Il3DMO869L->Zj9uXcMw8($Wuln98aQ7v,1,undef,$igodD5sHUt,$wm35w8gxQD,undef,$eZc9RiHSWD,undef,$Xy5Y7hj2RJ,$UQYMABVwDf);unless(ref $HjhDqAX0cG eq "\x41\x52\x52\x41\x59"){$Il3DMO869L->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $Yd9GxgKhjf=1;foreach my $tXDWtdmw9a(@{$HjhDqAX0cG}){if($tXDWtdmw9a->{"\x4e\x45\x45\x44\x5f\x52\x45\x47"}and length($tXDWtdmw9a->{"\x75\x73\x65\x72\x6e\x61\x6d\x65"})){if($tXDWtdmw9a->{"\x68\x6f\x73\x74"}eq "\x64\x79\x6e\x61\x6d\x69\x63"){my $uVJ3cX02tU=time;if($uVJ3cX02tU<$tXDWtdmw9a->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}){$tXDWtdmw9a->{"\x52\x45\x47\x5f\x44\x41\x54\x41"}={state=>"\x52\x65\x67\x69\x73\x74\x65\x72\x65\x64"};}else{$tXDWtdmw9a->{"\x52\x45\x47\x5f\x44\x41\x54\x41"}={state=>"\x55\x6e\x72\x65\x67\x69\x73\x74\x65\x72\x65\x64"};}}elsif($tXDWtdmw9a->{"\x70\x6f\x72\x74"}eq "\x35\x30\x36\x30"){$tXDWtdmw9a->{"\x52\x45\x47\x5f\x44\x41\x54\x41"}=$Il3DMO869L->mw3raOQby("\x73\x68\x2d\x73\x69\x70\x2d\x72\x65\x67\x73\x2d".$tXDWtdmw9a->{"\x6e\x61\x6d\x65"});}else{$tXDWtdmw9a->{"\x52\x45\x47\x5f\x44\x41\x54\x41"}=$Il3DMO869L->mw3raOQby("\x73\x68\x2d\x73\x69\x70\x2d\x72\x65\x67\x73\x2d".$tXDWtdmw9a->{"\x68\x6f\x73\x74"}."\x3a".$tXDWtdmw9a->{"\x70\x6f\x72\x74"}."\x3a".$tXDWtdmw9a->{"\x75\x73\x65\x72\x6e\x61\x6d\x65"});}}$tXDWtdmw9a->{"\x49\x44\x58"}=$Wuln98aQ7v+$Yd9GxgKhjf;$Yd9GxgKhjf++;}gWgYqTt7X($Il3DMO869L,"\x70\x65\x65\x72\x5f\x6c\x69\x73\x74\x2e\x74\x74",{SIPDEV=>$HjhDqAX0cG,SIPDEV_CNT=>$Sa8jBALiPS,AUTHNAME=>$igodD5sHUt,HOST=>$wm35w8gxQD,NEED_REG=>$Xy5Y7hj2RJ,PBXMODE=>$UQYMABVwDf,AC=>$Kve9Gr0OmE,FROM=>$Wuln98aQ7v,$Il3DMO869L->gR0nmpSuH(1,$HjhDqAX0cG,$Wuln98aQ7v)});}sub OLyOH8cf3{my($Il3DMO869L)=@_;my($NghHpVoDbL,$nWNYoVM8rK,$mLMajT85ih,$yepuio5t7M,$xS1Iq9akV8,$tE8MNK91a7,$rEHOaqhRFY,$Zy8vors4bc,$SIXMpN6Bm3)=$Il3DMO869L->TPGRQ3NW9([qw(from_time to_time smart_time caller_id call_type called_id duration data raw_chart_data)]);unless(length("$NghHpVoDbL$nWNYoVM8rK$yepuio5t7M$xS1Iq9akV8$tE8MNK91a7$rEHOaqhRFY$Zy8vors4bc")){my $HlOUKoWHkw=$Il3DMO869L->D72RNGHCf("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x41\x49");$NghHpVoDbL=$Il3DMO869L->YVjlbie8N(time-86400*$HlOUKoWHkw,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$nWNYoVM8rK=$Il3DMO869L->YVjlbie8N(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my $I01DsmX8Ph=$Il3DMO869L->ZErdsUBi9($yepuio5t7M,$Il3DMO869L->uunULNgQw(($NghHpVoDbL||"\x30\x30\x3a\x30\x30")),$Il3DMO869L->uunULNgQw($nWNYoVM8rK),($Il3DMO869L->TPGRQ3NW9("\x63\x68\x61\x72\x74\x5f\x67\x72\x6f\x75\x70\x5f\x70\x65\x72\x69\x6f\x64")||"\x64"),$xS1Iq9akV8,$tE8MNK91a7,$rEHOaqhRFY,$Zy8vors4bc,$SIXMpN6Bm3,undef,"\x69\x73\x5f\x61\x69");if($SIXMpN6Bm3){unless($I01DsmX8Ph){$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}else{if($I01DsmX8Ph=~ /xlsx$/){return $Il3DMO869L->yU9SeT8gN($I01DsmX8Ph,"\x61\x70\x70\x6c\x69\x63\x61\x74\x69\x6f\x6e\x2f\x78\x6c\x73\x78");}else{return $Il3DMO869L->yU9SeT8gN($I01DsmX8Ph,"\x74\x65\x78\x74\x2f\x63\x73\x76");}}}my $gqyldurw98;unless(ref $I01DsmX8Ph eq "\x41\x52\x52\x41\x59"){$Il3DMO869L->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}else{$gqyldurw98=$Il3DMO869L->YVjlbie8N($I01DsmX8Ph->[2])."\x20\x2d\x20".$Il3DMO869L->YVjlbie8N($I01DsmX8Ph->[3]||time);}return gWgYqTt7X($Il3DMO869L,"\x63\x64\x72\x73\x5f\x63\x68\x61\x72\x74\x2e\x74\x74",{CDR_LIST=>$I01DsmX8Ph->[0],CDR_HEADER=>$gqyldurw98,CDR_PERIOD=>$I01DsmX8Ph->[1],CDR_CALLER_ID=>$yepuio5t7M,CDR_CALLED_ID=>$tE8MNK91a7,CDR_CALL_TYPE=>$xS1Iq9akV8,CDR_DURATION=>$rEHOaqhRFY,CDR_DATA=>$Zy8vors4bc,CDR_WITH_ASR=>$Il3DMO869L->D72RNGHCf("\x43\x47\x49\x5f\x53\x54\x41\x54\x5f\x57\x49\x54\x48\x5f\x41\x53\x52"),EXCEL_MODE=>$Il3DMO869L->D72RNGHCf("\x43\x47\x49\x5f\x45\x58\x43\x45\x4c\x5f\x4d\x4f\x44\x45"),SMART_TIME=>$mLMajT85ih,FROM_TIME=>$NghHpVoDbL,TO_TIME=>$nWNYoVM8rK});}sub XeBgRc8H4{my($Il3DMO869L,$zhtulXpK2U,$j8QUpMJxnH)=@_;my($Wuln98aQ7v,$NghHpVoDbL,$nWNYoVM8rK,$mLMajT85ih,$yepuio5t7M,$tE8MNK91a7,$rEHOaqhRFY,$OH98jLXbQd,$Kve9Gr0OmE)=$Il3DMO869L->TPGRQ3NW9([[(from=>0)],qw(from_time to_time smart_time caller_id called_id duration any_did ac)]);$Il3DMO869L->{"\x5f\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}->{MSG_IN_PAGE}=$Il3DMO869L->D72RNGHCf("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x4d\x53\x47\x5f\x49\x4e\x5f\x50\x41\x47\x45");unless(length("$NghHpVoDbL$nWNYoVM8rK$yepuio5t7M$tE8MNK91a7$rEHOaqhRFY$OH98jLXbQd$Kve9Gr0OmE")){my $HlOUKoWHkw=$Il3DMO869L->D72RNGHCf("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x41\x49");$NghHpVoDbL=$Il3DMO869L->YVjlbie8N(time-86400*$HlOUKoWHkw,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$nWNYoVM8rK=$Il3DMO869L->YVjlbie8N(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my $eZc9RiHSWD;if($Kve9Gr0OmE=~ /,/){$eZc9RiHSWD=[split(/\s*,\s*/,$Kve9Gr0OmE)];}else{$eZc9RiHSWD=$Kve9Gr0OmE;}my $gIKX84CJVi=$Il3DMO869L->MtQ4WSsbR(0,$Wuln98aQ7v,undef,$zhtulXpK2U,$Il3DMO869L->uunULNgQw($NghHpVoDbL),$Il3DMO869L->uunULNgQw($nWNYoVM8rK),$yepuio5t7M,$tE8MNK91a7,$j8QUpMJxnH,$rEHOaqhRFY,$OH98jLXbQd,"\x69\x73\x5f\x61\x69",$eZc9RiHSWD);unless(ref $gIKX84CJVi eq "\x41\x52\x52\x41\x59"){$Il3DMO869L->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}elsif($gIKX84CJVi){my $VDHGg16QRy=$Wuln98aQ7v+1;foreach my $XLGAzQNvBy(@{$gIKX84CJVi}){$XLGAzQNvBy->{"\x4d\x53\x47\x5f\x4e\x55\x4d"}=$VDHGg16QRy++;$XLGAzQNvBy->{"\x4d\x53\x47\x5f\x44\x41\x54\x45"}=$Il3DMO869L->YVjlbie8N($XLGAzQNvBy->{"\x43\x52\x45\x41\x54\x45\x5f\x54\x49\x4d\x45"});}}return gWgYqTt7X($Il3DMO869L,"\x6d\x65\x73\x73\x61\x67\x65\x73\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c\x2e\x74\x74",{CGI_URL=>$Il3DMO869L->D72RNGHCf("\x43\x47\x49\x5f\x55\x52\x4c"),MSG_LIST=>$gIKX84CJVi,FROM_TIME=>$NghHpVoDbL,TO_TIME=>$nWNYoVM8rK,SMART_TIME=>$mLMajT85ih,CALLER_ID=>$yepuio5t7M,CALLED_ID=>$tE8MNK91a7,ANY_DID=>$OH98jLXbQd,DURATION=>$rEHOaqhRFY,ACCESS_CODE=>$Kve9Gr0OmE,MSG_TYPE=>(ref $zhtulXpK2U ? join("\x3a",@$zhtulXpK2U):'').(defined $j8QUpMJxnH ? ",$j8QUpMJxnH":''),$Il3DMO869L->gR0nmpSuH(0,$gIKX84CJVi,$Wuln98aQ7v)});}sub gWgYqTt7X{my($Il3DMO869L,$hJtjmbkTdZ,$I01DsmX8Ph)=@_;my $Tv7qepMOWu=Template::EasyTT->new({});my $SSRQH1PNOB=$Il3DMO869L->D72RNGHCf("\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 $MnuRheJ2SZ='';$I01DsmX8Ph->{"\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}=$Il3DMO869L->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"};$I01DsmX8Ph->{"\x55\x53\x45\x5f\x42\x49\x4c\x4c\x49\x4e\x47"}=$Il3DMO869L->D72RNGHCf("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x55\x53\x45\x5f\x42\x49\x4c\x4c\x49\x4e\x47");$I01DsmX8Ph->{"\x44\x59\x4e\x41\x4d\x49\x43\x5f\x44\x49\x41\x4c\x4f\x55\x54"}=$Il3DMO869L->D72RNGHCf("\x53\x49\x50\x5f\x44\x59\x4e\x41\x4d\x49\x43\x5f\x44\x49\x41\x4c\x4f\x55\x54");$I01DsmX8Ph->{"\x55\x4e\x49\x58\x54\x49\x4d\x45"}=time;my @qBOQ0GYgPz;if(length $ENV{"\x50\x41\x54\x48\x5f\x49\x4e\x46\x4f"}){@qBOQ0GYgPz=split(/\//,substr($ENV{"\x50\x41\x54\x48\x5f\x49\x4e\x46\x4f"},1));}my $EgavLdThKJ=$Il3DMO869L->D72RNGHCf("\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 $bPuzaX1kWh=$Il3DMO869L->D72RNGHCf("\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 $qBOQ0GYgPz[0]){my($bgYpad2iuN,$RbZieIHuUQ)=split(/:/,$qBOQ0GYgPz[0]);$EgavLdThKJ=$bgYpad2iuN if length $bgYpad2iuN;$bPuzaX1kWh=$RbZieIHuUQ if length $RbZieIHuUQ;}my $QJbhcQAwZa=$Il3DMO869L->TPGRQ3NW9("\x64\x66");if($QJbhcQAwZa){my $lCJgIMTSVh=0;if(length($Il3DMO869L->D72RNGHCf("\x43\x47\x49\x5f\x54\x52\x55\x53\x54\x45\x44\x5f\x34\x5f\x41\x49\x5f\x44\x46"))){my $rEAf908QRh=($ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"}||"\x30\x2e\x30\x2e\x30\x2e\x30");if(index("\x2c".$Il3DMO869L->D72RNGHCf("\x43\x47\x49\x5f\x54\x52\x55\x53\x54\x45\x44\x5f\x34\x5f\x41\x49\x5f\x44\x46")."\x2c",",$rEAf908QRh,")>-1 or $Il3DMO869L->D72RNGHCf("\x43\x47\x49\x5f\x54\x52\x55\x53\x54\x45\x44\x5f\x34\x5f\x41\x49\x5f\x44\x46")eq "\x2a"){$lCJgIMTSVh=1;}}$QJbhcQAwZa='' unless $lCJgIMTSVh;}unless($QJbhcQAwZa){$Tv7qepMOWu->operators_add("\x64\x69\x76\x32",sub{return $_[0]% 2});$Tv7qepMOWu->filters_add("\x67\x6d\x74\x69\x6d\x65",sub{return scalar(gmtime($_[1]))});$Tv7qepMOWu->filters_add("\x62\x69\x6c\x6c\x5f\x66\x6c\x6f\x61\x74",sub{return sprintf("\x25\x2e".($Il3DMO869L->D72RNGHCf("\x42\x49\x4c\x4c\x49\x4e\x47\x5f\x52\x4f\x55\x4e\x44\x49\x4e\x47\x5f\x34\x47\x55\x49")||2)."\x66",$_[1])});$Tv7qepMOWu->filters_add("\x6c\x6f\x63\x61\x6c\x65\x5f\x6d\x73\x67",sub{my $plX5tQVn80=$Il3DMO869L->tlX38iAs7($_[1],$bPuzaX1kWh);$plX5tQVn80=~ s#&#&amp;#gs;$plX5tQVn80=~ s#\x22#&quot;#gs;$plX5tQVn80=~ s#<#&lt;#gs;$plX5tQVn80=~ s#>#&gt;#gs;$plX5tQVn80=~ s#\x27#&apos;#gs;return $plX5tQVn80;});if(-e "$SSRQH1PNOB/$EgavLdThKJ/$hJtjmbkTdZ"){$Tv7qepMOWu->process("$SSRQH1PNOB/$EgavLdThKJ/$hJtjmbkTdZ",$I01DsmX8Ph,\$MnuRheJ2SZ);}else{$Tv7qepMOWu->process("$SSRQH1PNOB/$hJtjmbkTdZ",$I01DsmX8Ph,\$MnuRheJ2SZ);}}unless($QJbhcQAwZa){$Il3DMO869L->FaL2x63rt(200,"\x4f\x6b",undef,$MnuRheJ2SZ.$Il3DMO869L->tlX38iAs7("\x67\x36\x31\x33","\x43"));}elsif($QJbhcQAwZa eq "\x78\x6d\x6c"){require XML::Simple;$MnuRheJ2SZ=XML::Simple::XMLout($I01DsmX8Ph);$Il3DMO869L->wPuGjqW10(200,"\x4f\x6b",undef,$MnuRheJ2SZ);}elsif($QJbhcQAwZa eq "\x6a\x73\x6f\x6e"){require JSON::XS;my $c8p9YBF6H7=JSON::XS->new();$Il3DMO869L->FaL2x63rt(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",$c8p9YBF6H7->encode($I01DsmX8Ph));}}sub Tok9CPA87{my $Il3DMO869L=shift;my($RHPgitRI1K,$nexvB8kc0l,$y16vq7HrGa)=$Il3DMO869L->TPGRQ3NW9([qw(caller_id called_id vars)]);my($ZiRQjUkPas,%kitpdgURrX,$pWfJeFZu6M,$NkIlrjiA7D,@Y8MG9NsXjV);$nexvB8kc0l="\x30\x30\x30" unless length $nexvB8kc0l;$RHPgitRI1K="\x30\x30\x30" unless length $RHPgitRI1K;foreach my $VoJB5mlV4G(split(/\s*,\s*/,$y16vq7HrGa)){my($D9hG1gYmq4,$npoqNTSLbH)=split(/\s*=\s*/,$VoJB5mlV4G);$NkIlrjiA7D->{$D9hG1gYmq4}=$npoqNTSLbH;}my $GfiwyCojqe=$Il3DMO869L->XRVQK7BCA($nexvB8kc0l,$RHPgitRI1K,$NkIlrjiA7D);my $kOSx5UG18Z='';if($nexvB8kc0l){$kOSx5UG18Z=$Il3DMO869L->tkLz1VJKj($nexvB8kc0l);if($kOSx5UG18Z){$pWfJeFZu6M="$nexvB8kc0l [ $kOSx5UG18Z ]";}}if(ref $GfiwyCojqe eq "\x41\x52\x52\x41\x59"){foreach my $Bca0pA1l5g(@{$GfiwyCojqe}){if(exists $Bca0pA1l5g->{"\x44\x41\x54\x41\x5f\x49\x44"}){$kitpdgURrX{$Bca0pA1l5g->{"\x44\x41\x54\x41\x5f\x49\x44"}}=($Bca0pA1l5g->{"\x50\x48\x4f\x4e\x45"}||$nexvB8kc0l);}}}unless($Il3DMO869L->OcWXQdIab()->{"\x44\x46"}){@Y8MG9NsXjV=(ROUTE_CALLER_ID=>$RHPgitRI1K,ROUTE_CALLED_ID=>$nexvB8kc0l,ROUTE_VARS=>$y16vq7HrGa);}my $YeRQHuOwC1=[];if(keys %kitpdgURrX){my $Tm82ZPezOG=$Il3DMO869L->RrnfcemRg("\x69\x73\x5f\x61\x69");foreach my $Bca0pA1l5g(@$Tm82ZPezOG){if(exists $kitpdgURrX{$Bca0pA1l5g->{"\x44\x41\x54\x41\x5f\x49\x44"}}){if($nexvB8kc0l ne $kitpdgURrX{$Bca0pA1l5g->{"\x44\x41\x54\x41\x5f\x49\x44"}}){$Bca0pA1l5g->{"\x53\x55\x42\x53\x54\x52\x5f\x52\x45\x53\x55\x4c\x54"}=$kitpdgURrX{$Bca0pA1l5g->{"\x44\x41\x54\x41\x5f\x49\x44"}};}push @$YeRQHuOwC1,$Bca0pA1l5g;}}}gWgYqTt7X($Il3DMO869L,"\x72\x6f\x75\x74\x65\x5f\x6c\x69\x73\x74\x2e\x74\x74",{ROUTES=>$YeRQHuOwC1,MATCH_RESULTS=>$pWfJeFZu6M,@Y8MG9NsXjV});}sub Az7mBab1M{my $Il3DMO869L=shift;my($d6Ye3ZarJl,$B9siwlv4um,$D5DZNMEvkX)=$Il3DMO869L->TPGRQ3NW9([qw(node ip mode)]);if($D5DZNMEvkX eq "\x77\x6c\x61\x64\x64"){$Il3DMO869L->O58zycBTv($d6Ye3ZarJl,$D5DZNMEvkX,$B9siwlv4um);}elsif($D5DZNMEvkX eq "\x77\x6c\x64\x65\x6c"){$Il3DMO869L->O58zycBTv($d6Ye3ZarJl,$D5DZNMEvkX,$B9siwlv4um);}elsif($B9siwlv4um){$Il3DMO869L->duvp7fx4F($d6Ye3ZarJl,$B9siwlv4um);}}sub yRr0Uv4QT{my $Il3DMO869L=shift;my($Gt9gLi8K17,$NJ73xtsdFG)=$Il3DMO869L->TPGRQ3NW9([qw(type id)]);my($SJzVqxSUMk,$Z29uL4G7VY);my $k8GpXn9oHD=1;if($Gt9gLi8K17 eq "\x73\x79\x73"){$Z29uL4G7VY=$Il3DMO869L->D72RNGHCf("\x50\x41\x54\x48\x5f\x53\x59\x53\x5f\x42\x41\x43\x4b\x55\x50\x5f\x44\x49\x52");$SJzVqxSUMk="\x74\x67\x7a";}elsif($Gt9gLi8K17 eq "\x64\x62"){$Z29uL4G7VY=$Il3DMO869L->D72RNGHCf("\x50\x41\x54\x48\x5f\x44\x42\x5f\x42\x41\x43\x4b\x55\x50\x5f\x44\x49\x52");$SJzVqxSUMk="\x67\x7a";}else{$k8GpXn9oHD=0;}$NJ73xtsdFG=~ s/\D//gs;$k8GpXn9oHD=0 unless int($NJ73xtsdFG);if($k8GpXn9oHD and-e "$Z29uL4G7VY/$NJ73xtsdFG.$SJzVqxSUMk"){return $Il3DMO869L->yU9SeT8gN("$Z29uL4G7VY/$NJ73xtsdFG.$SJzVqxSUMk");}else{$Il3DMO869L->FaL2x63rt(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 hBOgk7ZPW{my $Il3DMO869L=shift;my $NOS7d35wyL=$Il3DMO869L->v74Vq0cyv("\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 $ZDHvnXduYm;if($NOS7d35wyL=~ s/^\x24VAR1/\$ZDHvnXduYm/){eval "$NOS7d35wyL";}unless(ref $ZDHvnXduYm eq "\x48\x41\x53\x48"){$Il3DMO869L->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $d6Ye3ZarJl=$Il3DMO869L->TPGRQ3NW9("\x6e\x6f\x64\x65");my $OM90DdGPc4=$Il3DMO869L->duvp7fx4F($d6Ye3ZarJl);unless(ref $OM90DdGPc4 eq "\x41\x52\x52\x41\x59"){$Il3DMO869L->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $g4CaLDNwJh=$Il3DMO869L->O58zycBTv();unless(ref $g4CaLDNwJh eq "\x41\x52\x52\x41\x59"){$Il3DMO869L->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}$Il3DMO869L->{"\x5f\x43\x4f\x4e\x46\x5f\x4f\x52\x49\x47"}={};$Il3DMO869L->ey2WOQF1f("\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 $n9q8hsAFdn=[];my $UUaBF8jPpv={};foreach my $D9hG1gYmq4(keys %{$Il3DMO869L->{"\x5f\x43\x4f\x4e\x46\x5f\x4f\x52\x49\x47"}}){$UUaBF8jPpv->{$D9hG1gYmq4}=1;}foreach my $D9hG1gYmq4(sort keys %{$UUaBF8jPpv}){if($Il3DMO869L->{"\x5f\x43\x4f\x4e\x46\x5f\x4f\x52\x49\x47"}->{$D9hG1gYmq4}ne $Il3DMO869L->{"\x5f\x43\x4f\x4e\x46"}->{$D9hG1gYmq4}){next if $D9hG1gYmq4=~ /(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 $iDKte83xdW=$Il3DMO869L->{"\x5f\x43\x4f\x4e\x46\x5f\x4f\x52\x49\x47"}->{$D9hG1gYmq4};my $FtVMcJd4B3=$Il3DMO869L->{"\x5f\x43\x4f\x4e\x46"}->{$D9hG1gYmq4};$iDKte83xdW=~ s#([,;])#$1 #g;$FtVMcJd4B3=~ s#([,;])#$1 #g;push @$n9q8hsAFdn,[uc($D9hG1gYmq4),$iDKte83xdW,$FtVMcJd4B3];}}gWgYqTt7X($Il3DMO869L,"\x73\x79\x73\x73\x74\x61\x74\x75\x73\x2e\x74\x74",{F2B_WL=>$g4CaLDNwJh,F2B_CNT_WL=>scalar(@$g4CaLDNwJh),F2B=>$OM90DdGPc4,F2B_CNT=>scalar(@$OM90DdGPc4),RAW=>$ZDHvnXduYm->{"\x52\x41\x57"},CPU=>$ZDHvnXduYm->{"\x43\x50\x55"},MEM=>$ZDHvnXduYm->{"\x4d\x45\x4d"},SWAP=>$ZDHvnXduYm->{"\x53\x57\x41\x50"},DISK=>$ZDHvnXduYm->{"\x44\x49\x53\x4b"},SYS=>$ZDHvnXduYm->{"\x53\x59\x53\x54\x45\x4d"},AST=>$ZDHvnXduYm->{"\x41\x53\x54\x45\x52\x49\x53\x4b"},NODE=>$Il3DMO869L->D72RNGHCf("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x53\x45\x52\x56\x45\x52\x5f\x49\x44"),CDIFF=>$n9q8hsAFdn})}sub ywWVCI8cv{my $Il3DMO869L=shift;my($AGTvyNe8SK,$tzdQkZh4sK,$sfWToFYRkE,$ooUWCvF2dE)=$Il3DMO869L->TPGRQ3NW9([qw(call_id start_time stop_time xvb_call_id)]);my $iV8wYTWmNZ='';my $Vuv8ekws7i='';my $R9zL8J7yCp=$Il3DMO869L->D72RNGHCf("\x50\x41\x54\x48\x5f\x54\x4d\x50\x5f\x44\x49\x52")."\x2f\x70\x63\x61\x70\x73";$AGTvyNe8SK=~ s/[`\x22\x27\r\n]//gs;if(length($AGTvyNe8SK)and-d $R9zL8J7yCp and opendir(PCAPDIR,$R9zL8J7yCp)){my @vWQ98PzHS6=sort{(stat("$R9zL8J7yCp/$a"))[9]<=>(stat("$R9zL8J7yCp/$b"))[9]}grep(/pcap\d+$/,readdir(PCAPDIR));my $SFE5tTmrKq=0;my $OoLdys7C6W=$Il3DMO869L->D72RNGHCf("\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";$AGTvyNe8SK=": $AGTvyNe8SK";my %R9JyIqEXoK;my $rKeEB1XuxR=1;my @pxPSFhUTgA;foreach my $n5gZp7uNMx(@vWQ98PzHS6){my $Ta4XcSxbCy=(stat("$R9zL8J7yCp/$n5gZp7uNMx"))[9];if(($SFE5tTmrKq<=$tzdQkZh4sK and $Ta4XcSxbCy>=$tzdQkZh4sK)or($SFE5tTmrKq<=$sfWToFYRkE and $Ta4XcSxbCy>=$sfWToFYRkE)or($SFE5tTmrKq>=$tzdQkZh4sK and $Ta4XcSxbCy<$sfWToFYRkE)){my($am9VutOaPJ,$y8tEjFib9y,@xSYWECf01D);for(my $MIPfo3HMin=0;$MIPfo3HMin<=2;$MIPfo3HMin++){$y8tEjFib9y="/usr/sbin/ngrep \x27$AGTvyNe8SK\x27 $OoLdys7C6W -I $R9zL8J7yCp/$n5gZp7uNMx 2>&1";my @zeE6uXPVaR=`$y8tEjFib9y`;my $ZebvfODrAL=0;$am9VutOaPJ='';@xSYWECf01D=();foreach my $X3iNWkRw01(@zeE6uXPVaR){chomp($X3iNWkRw01);$X3iNWkRw01=~ s/\.$//;if($X3iNWkRw01=~ /^U\s+\d+\/\d+\/\d+\s\d+:\d+:\d+\.\d+\s+([^\s]+)\s+->\s+([^\s]+)/){if($am9VutOaPJ){push @xSYWECf01D,$am9VutOaPJ;}$am9VutOaPJ="\n";$X3iNWkRw01.="\n";}elsif($X3iNWkRw01=~ /^(Call-ID|I|XVB-Call-ID)(:\s*[^\x22\x27\r\n]+)/gi){if(index($AGTvyNe8SK,$2)==-1){$AGTvyNe8SK.="|$2";$ZebvfODrAL=1;}if(lc($1)eq "\x69" or lc($1)eq "\x63\x61\x6c\x6c\x2d\x69\x64"){unless(exists $R9JyIqEXoK{$2}){$R9JyIqEXoK{$2}=$rKeEB1XuxR++;if($rKeEB1XuxR>11){$rKeEB1XuxR=2;}}}}if($am9VutOaPJ){$am9VutOaPJ.="$X3iNWkRw01\n";}}unless($ZebvfODrAL){push @xSYWECf01D,$am9VutOaPJ;last;}}$Vuv8ekws7i.="#<br>\n# ".$Il3DMO869L->B1V8OFwXG($y8tEjFib9y)." <br>\n#<br>\n";push(@pxPSFhUTgA,@xSYWECf01D);}$SFE5tTmrKq=$Ta4XcSxbCy;}my @tn9XmCRM8V=`/sbin/ifconfig|grep "inet "`;my $rCnhV8jueI="\x2c";foreach my $hBG2AfUgCi(@tn9XmCRM8V){chomp;$hBG2AfUgCi=~ s#.*inet\s+(addr:)?(\S+).*#$2#s;if(length($hBG2AfUgCi)){$rCnhV8jueI.="$hBG2AfUgCi,";}}foreach my $PY6dDfhapq(@pxPSFhUTgA){my $rKeEB1XuxR=0;my($sVabEIGB37,$f3PKdOgMjz);foreach my $X3iNWkRw01(split(/\n/,$PY6dDfhapq)){if($X3iNWkRw01=~ /^U\s+\d+\/\d+\/\d+\s\d+:\d+:\d+\.\d+\s+([^\s]+):\d+\s+->\s+([^\s]+):\d+/){($sVabEIGB37,$f3PKdOgMjz)=($1,$2);}else{if($X3iNWkRw01=~ /^(Call-ID|I)(:\s*[^\x22\x27\r\n]+)/gi){$rKeEB1XuxR=$R9JyIqEXoK{$2};}}}my $eLZ8MrXENW="\x20";if($rKeEB1XuxR==1 and index($rCnhV8jueI,",$sVabEIGB37,")>-1){$eLZ8MrXENW="\t\t"}elsif($rKeEB1XuxR>1 and index($rCnhV8jueI,",$sVabEIGB37,")>-1){$eLZ8MrXENW="\t\t";}elsif($rKeEB1XuxR>1 and index($rCnhV8jueI,",$f3PKdOgMjz,")>-1){$eLZ8MrXENW="\t\t\t\t";}$iV8wYTWmNZ.="<p class=\x27pcap$rKeEB1XuxR\x27>";foreach my $X3iNWkRw01(split(/\n/,$PY6dDfhapq)){$iV8wYTWmNZ.=$eLZ8MrXENW.$Il3DMO869L->B1V8OFwXG($X3iNWkRw01)."\n";}$iV8wYTWmNZ.="</p>";}}gWgYqTt7X($Il3DMO869L,"\x73\x69\x70\x5f\x70\x63\x61\x70\x2e\x74\x74",{CMD=>$Vuv8ekws7i,DATA=>$iV8wYTWmNZ,XVB_CALL_ID=>$ooUWCvF2dE});}