#!/usr/bin/perl
########################################################################
#
# $Id: VirtualPBX-PI.cgi,v 1.57 2025/08/15 15:01:14 gosha Exp $
#
# Copyright (c) Igor Okunev <igor[at]prv.mts-nn.ru>  2012 - 2025
#
########################################################################
package VirtualPBXPI;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::Journal;use XVB::Users;use XVB::Billing;use XVB::MC;use XVB::Locale;use Template::EasyTT;use XVB::UI::CGI;use XVB::UI::CGI::Mailboxes;use XVB::UI::CGI::Users;use XVB::UI::CGI::CallsTrack;use XVB::UI::CGI::CDR;use XVB::UI::CGI::ExtStat::Dashboard;use XVB::DIDs;use Digest::MD5 qw(md5_hex);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\x55\x53\x45\x52\x5f\x49\x4e\x46\x4f\x5f\x41\x43\x54\x49\x4f\x4e\x53"}={user_info=>1,user_del=>1,user_update=>1,did_del=>1,did_add=>1,balance_update=>1,user_update_pin=>1};$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="\x70\x61\x72\x74\x6e\x65\x72";}else{$kXoeUhRn6r="\x70\x61\x72\x74\x6e\x65\x72\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->Tjcsr0kWa();return $Il3DMO869L;}sub KvZyQx5kz{my $Il3DMO869L=VirtualPBXPI->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($s8gkyln0m2,$kp4DIMqAvG,$Ng7rJBa25p);$Il3DMO869L->NPh3YvQOU(1);my($Z2w4J8ciVU,$M1CptHQZGD,$hMP3Z8ruYS,$Wuln98aQ7v,$eZ5yQxUwPD,$Kve9Gr0OmE)=$Il3DMO869L->TPGRQ3NW9([qw(partner password action from user_id ac)]);my($Bca0pA1l5g,$tXDWtdmw9a);if(my $vqEwxYIR8K=$Il3DMO869L->Wq7zwUMWZ()){unless(length $M1CptHQZGD){my($eEP85gL4FC,$s8gkyln0m2,$amnUtZEliC)=split(/-/,$Z2w4J8ciVU);foreach my $xSiPlvj7Lp(@$vqEwxYIR8K){if($xSiPlvj7Lp->{"\x49\x44"}eq $eEP85gL4FC){if($Il3DMO869L->D72RNGHCf("\x54\x49\x4d\x45\x4f\x55\x54\x5f\x57\x45\x42\x5f\x50\x41\x53\x53\x57\x4f\x52\x44\x5f\x45\x58\x50\x49\x52\x45\x44")){if(time-$amnUtZEliC<$Il3DMO869L->D72RNGHCf("\x54\x49\x4d\x45\x4f\x55\x54\x5f\x57\x45\x42\x5f\x50\x41\x53\x53\x57\x4f\x52\x44\x5f\x45\x58\x50\x49\x52\x45\x44")){if($s8gkyln0m2 eq md5_hex(join("\x2d",$xSiPlvj7Lp->{"\x4e\x41\x4d\x45"},$xSiPlvj7Lp->{"\x50\x41\x53\x53\x57\x4f\x52\x44"},$amnUtZEliC))){$tXDWtdmw9a=$xSiPlvj7Lp;}}}else{if($s8gkyln0m2 eq md5_hex(join("\x2d",$xSiPlvj7Lp->{"\x4e\x41\x4d\x45"},$xSiPlvj7Lp->{"\x50\x41\x53\x53\x57\x4f\x52\x44"},$amnUtZEliC))){$tXDWtdmw9a=$xSiPlvj7Lp;}}last;}}}else{foreach my $xSiPlvj7Lp(@$vqEwxYIR8K){if($xSiPlvj7Lp->{"\x4e\x41\x4d\x45"}eq $Z2w4J8ciVU){if($xSiPlvj7Lp->{"\x50\x41\x53\x53\x57\x4f\x52\x44"}eq $M1CptHQZGD){$tXDWtdmw9a=$xSiPlvj7Lp;}last;}}}}if($tXDWtdmw9a){my $amnUtZEliC=time;$Z2w4J8ciVU=$tXDWtdmw9a->{"\x49\x44"}."\x2d".md5_hex(join("\x2d",$tXDWtdmw9a->{"\x4e\x41\x4d\x45"},$tXDWtdmw9a->{"\x50\x41\x53\x53\x57\x4f\x52\x44"},$amnUtZEliC))."\x2d".$amnUtZEliC;$tXDWtdmw9a->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}={};if($tXDWtdmw9a->{"\x4f\x50\x54\x49\x4f\x4e\x53"}){foreach my $Fg7Ryxz4Gv(split(/\s*\|\s*/,$tXDWtdmw9a->{"\x4f\x50\x54\x49\x4f\x4e\x53"})){my($D9hG1gYmq4,$npoqNTSLbH)=split(/=/,$Fg7Ryxz4Gv,2);next unless length $D9hG1gYmq4;$tXDWtdmw9a->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{uc($D9hG1gYmq4)}=$npoqNTSLbH;}}}else{return gWgYqTt7X($Il3DMO869L,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x6f\x67\x69\x6e\x2e\x74\x74",{});}if(exists($Il3DMO869L->{"\x5f\x55\x53\x45\x52\x5f\x49\x4e\x46\x4f\x5f\x41\x43\x54\x49\x4f\x4e\x53"}->{$hMP3Z8ruYS})){if(length($eZ5yQxUwPD)){$Bca0pA1l5g=$Il3DMO869L->Y3TOsp98X($eZ5yQxUwPD);my $noI5piT4uS=$Il3DMO869L->A5qWonOHl();%{$noI5piT4uS}=%{$Bca0pA1l5g};}elsif(length($Kve9Gr0OmE)){$Il3DMO869L->PxaTEjQUo(undef,$Kve9Gr0OmE);$Bca0pA1l5g=$Il3DMO869L->A5qWonOHl();}}else{$Bca0pA1l5g=$tXDWtdmw9a;$Bca0pA1l5g->{"\x50\x41\x52\x54\x4e\x45\x52\x5f\x54\x41\x47"}=$tXDWtdmw9a->{"\x54\x41\x47"};}if(! $Bca0pA1l5g or ! $tXDWtdmw9a or index("\x2c".$tXDWtdmw9a->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}."\x2c","\x2c".$Bca0pA1l5g->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}."\x2c")<0){return $Il3DMO869L->itHGsWJzh("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}elsif($Il3DMO869L->D72RNGHCf("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x50\x41\x52\x54\x4e\x45\x52\x5f\x4d\x4f\x44\x45")==1){if(index($Bca0pA1l5g->{"\x50\x41\x52\x54\x4e\x45\x52\x5f\x54\x41\x47"},$tXDWtdmw9a->{"\x54\x41\x47"})){return $Il3DMO869L->itHGsWJzh("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}}elsif($Il3DMO869L->D72RNGHCf("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x50\x41\x52\x54\x4e\x45\x52\x5f\x4d\x4f\x44\x45")==2){if($Bca0pA1l5g->{"\x50\x41\x52\x54\x4e\x45\x52\x5f\x54\x41\x47"}ne $tXDWtdmw9a->{"\x54\x41\x47"}){return $Il3DMO869L->itHGsWJzh("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}}if($tXDWtdmw9a->{"\x52\x45\x41\x44\x5f\x4f\x4e\x4c\x59"}){Hgy5o8bLd($Il3DMO869L,$tXDWtdmw9a,$Wuln98aQ7v,[split("\x2c",$tXDWtdmw9a->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$Z2w4J8ciVU,"\x72\x6f",$tXDWtdmw9a->{"\x54\x41\x47"});}elsif($hMP3Z8ruYS eq "\x62\x61\x6c\x61\x6e\x63\x65\x5f\x75\x70\x64\x61\x74\x65"){my($gjl8MqQkTW,$tzKsaEyn14)=$Il3DMO869L->TPGRQ3NW9([qw(balance cur_id)]);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 "\x64\x69\x64\x5f\x61\x64\x64" and $tXDWtdmw9a->{"\x44\x49\x44\x5f\x4d\x4e\x47"}){my($s8foUx7Wia,$VbX8xJ5wev,$xyzRk2PeOW,$rlGLs15WJg)=$Il3DMO869L->TPGRQ3NW9([qw(did channels pn 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" and $tXDWtdmw9a->{"\x44\x49\x44\x5f\x4d\x4e\x47"}){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 "\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;foreach my $EIsC1BEbAz(@sodQXZ1sx8){if($EIsC1BEbAz=~ /^US_(VOICENUMBER|STATUS|DEMO_MODE|DESCRIPTION|GROUP_ID|PERMIT_WEB|CUSTOM_RULES)/){if($EIsC1BEbAz eq "\x55\x53\x5f\x43\x55\x53\x54\x4f\x4d\x5f\x52\x55\x4c\x45\x53" and ! $tXDWtdmw9a->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{"\x43\x52\x5f\x45\x4e\x41\x42\x4c\x45"}){next;}my $D9hG1gYmq4=$1;if($Il3DMO869L->TPGRQ3NW9($EIsC1BEbAz)ne $Bca0pA1l5g->{$D9hG1gYmq4}){my $npoqNTSLbH=$Il3DMO869L->TPGRQ3NW9($EIsC1BEbAz);if($D9hG1gYmq4 eq "\x47\x52\x4f\x55\x50\x5f\x49\x44"){if(index("\x2c".$tXDWtdmw9a->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}."\x2c",",$npoqNTSLbH,")<0){return $Il3DMO869L->itHGsWJzh("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}}$NJPbLtWUAS{$D9hG1gYmq4}=$npoqNTSLbH;}}}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,$uLMtXEAhoZ,$bdyzf0UcjH)=$Il3DMO869L->TPGRQ3NW9([qw(phone group_id uname)]);if(index("\x2c".$tXDWtdmw9a->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}."\x2c",",$uLMtXEAhoZ,")<0){return $Il3DMO869L->itHGsWJzh("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}if(my $Kve9Gr0OmE=$Il3DMO869L->TZBIH2db4($xyzRk2PeOW,$uLMtXEAhoZ,$bdyzf0UcjH,undef,undef,{PARTNER_TAG=>$tXDWtdmw9a->{"\x54\x41\x47"}})){$Il3DMO869L->CUNFPYReL("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x61\x64\x64",$Kve9Gr0OmE);$Il3DMO869L->itHGsWJzh("?action=user_info&ac=$Kve9Gr0OmE&partner=$Z2w4J8ciVU&df=".$Il3DMO869L->TPGRQ3NW9("\x64\x66"));}else{$Il3DMO869L->itHGsWJzh(undef,"Internal error : $$ : ".__LINE__);}}elsif($hMP3Z8ruYS eq "\x75\x73\x65\x72\x5f\x64\x65\x6c"){my($Ua2SbOYljR)=$Il3DMO869L->TPGRQ3NW9([qw(single_user)]);if($Il3DMO869L->YJGURkMFD($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("?action=user_list&partner=$Z2w4J8ciVU&df=".$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,$tXDWtdmw9a,$Z2w4J8ciVU,$tXDWtdmw9a->{"\x44\x49\x44\x5f\x4d\x4e\x47"},[split("\x2c",$tXDWtdmw9a->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})]);}elsif($hMP3Z8ruYS eq "\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74"){pwdWB8lEV($Il3DMO869L,$tXDWtdmw9a,$Z2w4J8ciVU,[split("\x2c",$tXDWtdmw9a->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$tXDWtdmw9a->{"\x54\x41\x47"});}elsif($hMP3Z8ruYS eq "\x63\x64\x72\x5f\x6c\x69\x73\x74"){SVeJaxoCd($Il3DMO869L,undef,$tXDWtdmw9a,$Z2w4J8ciVU,[split("\x2c",$tXDWtdmw9a->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$tXDWtdmw9a->{"\x54\x41\x47"});}elsif($hMP3Z8ruYS eq "\x61\x63\x74\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c"){SVeJaxoCd($Il3DMO869L,"\x61\x63\x74\x61\x6c\x6c",$tXDWtdmw9a,$Z2w4J8ciVU,[split("\x2c",$tXDWtdmw9a->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$tXDWtdmw9a->{"\x54\x41\x47"});}elsif($hMP3Z8ruYS eq "\x64\x69\x64\x5f\x6c\x69\x73\x74"){ZIiMncoHd($Il3DMO869L,$tXDWtdmw9a,$Z2w4J8ciVU,[split("\x2c",$tXDWtdmw9a->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$tXDWtdmw9a->{"\x54\x41\x47"});}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 "\x66\x32\x62" and $tXDWtdmw9a->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{"\x46\x32\x42\x5f\x45\x4e\x41\x42\x4c\x45"}){c7QUxwzs1($Il3DMO869L,$tXDWtdmw9a,$Z2w4J8ciVU);}elsif($hMP3Z8ruYS eq "\x75\x73\x65\x72\x5f\x6c\x69\x73\x74"){Hgy5o8bLd($Il3DMO869L,$tXDWtdmw9a,$Wuln98aQ7v,[split("\x2c",$tXDWtdmw9a->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$Z2w4J8ciVU,undef,$tXDWtdmw9a->{"\x54\x41\x47"});}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,$tXDWtdmw9a,$Z2w4J8ciVU,$oOB3ZdbnCG,$XBk7NnsEHR)=@_;my $Fh1etKkd32=$Il3DMO869L->i9LKb80it(0,$Il3DMO869L->A5qWonOHl()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"},undef,undef);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 $Hq6hz51RlG=[];foreach my $vGeFHEhw76(@{$XBk7NnsEHR}){foreach my $PwB4hvIfLF(@{$mAYsx23wTI}){if($vGeFHEhw76 eq $PwB4hvIfLF->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$Hq6hz51RlG},$PwB4hvIfLF;last;}}}unless(ref $Fh1etKkd32 eq "\x41\x52\x52\x41\x59"){$Il3DMO869L->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}gWgYqTt7X($Il3DMO869L,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x75\x73\x65\x72\x5f\x69\x6e\x66\x6f\x2e\x74\x74",{PARTNER=>$Z2w4J8ciVU,USER=>$Fh1etKkd32->[0],GROUPS=>$Hq6hz51RlG,TARIFF=>$Il3DMO869L->G2MTpeLON(),DID_MNG=>$oOB3ZdbnCG,EXTRA_OPTIONS=>$tXDWtdmw9a->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"},DIDS=>$Il3DMO869L->F4lHzO0I5(),LIMITS=>$Il3DMO869L->s2TPOwERW($Il3DMO869L->A5qWonOHl()->{"\x49\x44"})});}sub Hgy5o8bLd{my($Il3DMO869L,$tXDWtdmw9a,$Wuln98aQ7v,$XBk7NnsEHR,$Z2w4J8ciVU,$GURVpS4oew,$VgnhUPXaev)=@_;my($A2dWvpsIlC,$mbVNmFEIai,$ca82tHrIz1,$zMghP13kql)=$Il3DMO869L->TPGRQ3NW9(["\x66\x5f\x61\x63","\x66\x5f\x76\x6e","\x66\x5f\x67\x72\x6f\x75\x70","\x66\x5f\x73\x74\x61\x74\x75\x73"]);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 $Hq6hz51RlG=[];my $kU7084ZdOf=0;foreach my $vGeFHEhw76(@{$XBk7NnsEHR}){foreach my $PwB4hvIfLF(@{$mAYsx23wTI}){if($vGeFHEhw76 eq $PwB4hvIfLF->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$Hq6hz51RlG},$PwB4hvIfLF;if(length($ca82tHrIz1)and ! $kU7084ZdOf){if($PwB4hvIfLF->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}eq $ca82tHrIz1){$kU7084ZdOf=1;}}last;}}}my($Fh1etKkd32,$yAMHGf2tUF);if($kU7084ZdOf){($Fh1etKkd32,$yAMHGf2tUF)=$Il3DMO869L->i9LKb80it($Wuln98aQ7v,$A2dWvpsIlC,$mbVNmFEIai,$ca82tHrIz1,undef,$zMghP13kql,undef,undef,$VgnhUPXaev);}else{($Fh1etKkd32,$yAMHGf2tUF)=$Il3DMO869L->i9LKb80it($Wuln98aQ7v,$A2dWvpsIlC,$mbVNmFEIai,$XBk7NnsEHR,undef,$zMghP13kql,undef,undef,$VgnhUPXaev);}unless(ref $Fh1etKkd32 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 $noI5piT4uS(@{$Fh1etKkd32}){$noI5piT4uS->{"\x49\x44\x58"}=$Wuln98aQ7v+$Yd9GxgKhjf;$Yd9GxgKhjf++;}my $q9zZqBmbIX;if($GURVpS4oew){$q9zZqBmbIX="\x70\x61\x72\x74\x6e\x65\x72\x5f\x75\x73\x65\x72\x5f\x6c\x69\x73\x74\x5f\x72\x6f\x2e\x74\x74";}else{$q9zZqBmbIX="\x70\x61\x72\x74\x6e\x65\x72\x5f\x75\x73\x65\x72\x5f\x6c\x69\x73\x74\x2e\x74\x74";}gWgYqTt7X($Il3DMO869L,$q9zZqBmbIX,{USERS=>$Fh1etKkd32,USERS_CNT=>$yAMHGf2tUF,GROUPS=>$Hq6hz51RlG,PARTNER=>$Z2w4J8ciVU,F_AC=>$A2dWvpsIlC,F_VN=>$mbVNmFEIai,F_GROUP=>$ca82tHrIz1,F_STATUS=>$zMghP13kql,EXTRA_OPTIONS=>$tXDWtdmw9a->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"},$Il3DMO869L->gR0nmpSuH(1,$Fh1etKkd32,$Wuln98aQ7v)});}sub pwdWB8lEV{my($Il3DMO869L,$tXDWtdmw9a,$Z2w4J8ciVU,$XBk7NnsEHR,$VgnhUPXaev)=@_;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 $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 $Hq6hz51RlG=[];my $kU7084ZdOf=0;foreach my $vGeFHEhw76(@{$XBk7NnsEHR}){foreach my $PwB4hvIfLF(@{$mAYsx23wTI}){if($vGeFHEhw76 eq $PwB4hvIfLF->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$Hq6hz51RlG},$PwB4hvIfLF;if(length($uLMtXEAhoZ)and ! $kU7084ZdOf){if($PwB4hvIfLF->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}eq $uLMtXEAhoZ){$kU7084ZdOf=1;}}last;}}}my $lq7Qh9JiIB;if($kU7084ZdOf){$lq7Qh9JiIB=$Il3DMO869L->TNa0z9VFk($yepuio5t7M,$tE8MNK91a7,$eZc9RiHSWD,$xS1Iq9akV8,$rEHOaqhRFY,$uLMtXEAhoZ,$VgnhUPXaev,undef,$Wuln98aQ7v);}else{$lq7Qh9JiIB=$Il3DMO869L->TNa0z9VFk($yepuio5t7M,$tE8MNK91a7,$eZc9RiHSWD,$xS1Iq9akV8,$rEHOaqhRFY,$XBk7NnsEHR,$VgnhUPXaev,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"};}}if(! length($YqOYthVsXp)and $tXDWtdmw9a->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{"\x43\x32\x43"}){$YqOYthVsXp=$tXDWtdmw9a->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{"\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,"\x70\x61\x72\x74\x6e\x65\x72\x5f\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=>$Hq6hz51RlG,PARTNER=>$Z2w4J8ciVU,EXTRA_OPTIONS=>$tXDWtdmw9a->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"},$Il3DMO869L->gR0nmpSuH(1,$lq7Qh9JiIB,$Wuln98aQ7v)});}sub ZIiMncoHd{my($Il3DMO869L,$tXDWtdmw9a,$Z2w4J8ciVU,$XBk7NnsEHR,$VgnhUPXaev)=@_;my($Wuln98aQ7v,$A2dWvpsIlC,$mbVNmFEIai)=$Il3DMO869L->TPGRQ3NW9([[(from=>0)],"\x66\x5f\x61\x63","\x66\x5f\x76\x6e"]);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 $Hq6hz51RlG=[];foreach my $vGeFHEhw76(@{$XBk7NnsEHR}){foreach my $PwB4hvIfLF(@{$mAYsx23wTI}){if($vGeFHEhw76 eq $PwB4hvIfLF->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$Hq6hz51RlG},$vGeFHEhw76;last;}}}my $xri68CGU94=$Il3DMO869L->AQ1uSfzAM($Wuln98aQ7v,$A2dWvpsIlC,$mbVNmFEIai,$Hq6hz51RlG,$VgnhUPXaev);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,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x64\x69\x64\x5f\x6c\x69\x73\x74\x2e\x74\x74",{DIDS=>$xri68CGU94,F_AC=>$A2dWvpsIlC,F_VN=>$mbVNmFEIai,PARTNER=>$Z2w4J8ciVU,$Il3DMO869L->gR0nmpSuH(1,$xri68CGU94,$Wuln98aQ7v)});}sub SVeJaxoCd{my($Il3DMO869L,$kfbqMVNg9d,$tXDWtdmw9a,$Z2w4J8ciVU,$XBk7NnsEHR,$VgnhUPXaev)=@_;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 $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 $Hq6hz51RlG=[];my $kU7084ZdOf=0;foreach my $vGeFHEhw76(@{$XBk7NnsEHR}){foreach my $PwB4hvIfLF(@{$mAYsx23wTI}){if($vGeFHEhw76 eq $PwB4hvIfLF->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$Hq6hz51RlG},$PwB4hvIfLF;if(length($uLMtXEAhoZ)and ! $kU7084ZdOf){if($PwB4hvIfLF->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}eq $uLMtXEAhoZ){$kU7084ZdOf=1;}}last;}}}my $eZc9RiHSWD;if($Kve9Gr0OmE=~ /,/){$eZc9RiHSWD=[split(/\s*,\s*/,$Kve9Gr0OmE)];}else{$eZc9RiHSWD=$Kve9Gr0OmE;}my $QAX5EMZSyH;if($kU7084ZdOf){$QAX5EMZSyH=$Il3DMO869L->yaTmXSUlQ($AGTvyNe8SK,$yepuio5t7M,$tE8MNK91a7,$Wuln98aQ7v,$Il3DMO869L->uunULNgQw($NghHpVoDbL),$Il3DMO869L->uunULNgQw($nWNYoVM8rK),$xS1Iq9akV8,$eZc9RiHSWD,$rEHOaqhRFY,$I01DsmX8Ph,$kfbqMVNg9d,$BrzY0ZPuWt,$Hy98K1MCW6,$uLMtXEAhoZ,$VgnhUPXaev);}else{$QAX5EMZSyH=$Il3DMO869L->yaTmXSUlQ($AGTvyNe8SK,$yepuio5t7M,$tE8MNK91a7,$Wuln98aQ7v,$Il3DMO869L->uunULNgQw($NghHpVoDbL),$Il3DMO869L->uunULNgQw($nWNYoVM8rK),$xS1Iq9akV8,$eZc9RiHSWD,$rEHOaqhRFY,$I01DsmX8Ph,$kfbqMVNg9d,$BrzY0ZPuWt,$Hy98K1MCW6,$XBk7NnsEHR,$VgnhUPXaev);}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);if($QAX5EMZSyH){my $VDHGg16QRy=$Wuln98aQ7v+1;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(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);}}my $A015qUHcnI;if($AGTvyNe8SK){$A015qUHcnI="\x70\x61\x72\x74\x6e\x65\x72\x5f\x63\x64\x72\x73\x5f\x61\x63\x74\x5f\x6c\x69\x73\x74\x2e\x74\x74";}elsif($kfbqMVNg9d){$A015qUHcnI="\x70\x61\x72\x74\x6e\x65\x72\x5f\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="\x70\x61\x72\x74\x6e\x65\x72\x5f\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,FROM_TIME=>$NghHpVoDbL,TO_TIME=>$nWNYoVM8rK,SMART_TIME=>$mLMajT85ih,CDR_GROUP=>$uLMtXEAhoZ,GROUPS=>$Hq6hz51RlG,PARTNER=>$Z2w4J8ciVU,EXTRA_OPTIONS=>$tXDWtdmw9a->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"},@sodQXZ1sx8,$Il3DMO869L->gR0nmpSuH(1,$QAX5EMZSyH,$Wuln98aQ7v)});}sub c7QUxwzs1{my($Il3DMO869L,$tXDWtdmw9a,$Z2w4J8ciVU)=@_;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){my $NoqXpLStDn=$tXDWtdmw9a->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{"\x46\x32\x42\x5f\x45\x4e\x41\x42\x4c\x45"}||60;my $xgbVBX468w=$Il3DMO869L->mw3raOQby("\x66\x32\x62\x2d\x70\x61\x72\x74\x6e\x65\x72\x2d".$tXDWtdmw9a->{"\x49\x44"}."-$B9siwlv4um")||0;if($xgbVBX468w){undef $B9siwlv4um;$Il3DMO869L->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="\x50\x6c\x65\x61\x73\x65\x20\x74\x72\x79\x20\x61\x67\x61\x69\x6e\x20\x6c\x61\x74\x65\x72\x2e\x2e\x2e";}else{$Il3DMO869L->mw3raOQby("\x66\x32\x62\x2d\x70\x61\x72\x74\x6e\x65\x72\x2d".$tXDWtdmw9a->{"\x49\x44"}."-$B9siwlv4um",1,$NoqXpLStDn);$Il3DMO869L->duvp7fx4F($d6Ye3ZarJl,$B9siwlv4um);}}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__;}gWgYqTt7X($Il3DMO869L,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x66\x32\x62\x2e\x74\x74",{F2B_WL=>$g4CaLDNwJh,F2B_CNT_WL=>scalar(@$g4CaLDNwJh),F2B=>$OM90DdGPc4,F2B_CNT=>scalar(@$OM90DdGPc4),PARTNER=>$Z2w4J8ciVU,NODE=>$Il3DMO869L->D72RNGHCf("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x53\x45\x52\x56\x45\x52\x5f\x49\x44"),EXTRA_OPTIONS=>$tXDWtdmw9a->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}});}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->{"\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->{"\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}=$Il3DMO869L->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"};$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]);if(length $bgYpad2iuN){$EgavLdThKJ=$bgYpad2iuN;$EgavLdThKJ=~ s#[^\w\d\._-]##g;}$bPuzaX1kWh=$RbZieIHuUQ if length $RbZieIHuUQ;}my $QJbhcQAwZa=$Il3DMO869L->TPGRQ3NW9("\x64\x66");if($QJbhcQAwZa){my $lCJgIMTSVh=0;foreach my $D8Xw3I5nft(split(/\s*,\s*/,$Il3DMO869L->D72RNGHCf("\x43\x47\x49\x5f\x54\x52\x55\x53\x54\x45\x44\x5f\x34\x5f\x41\x49\x5f\x44\x46"))){if($ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"}=~ /^$D8Xw3I5nft$/){$lCJgIMTSVh=1;last;}}$QJbhcQAwZa='' unless $lCJgIMTSVh;}unless($QJbhcQAwZa){$Tv7qepMOWu->operators_add("\x64\x69\x76\x32",sub{return $_[0]% 2});$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));}}