#!/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;aF4emfrMx();sub new{my($FN2RsYGdVj,$EnCi2Rx4ZP)=@_;my $n9d8vgro0z=bless{_CGI=>CGI->new(),_CONF=>{},_CDR=>{CALLED_ID=>"\x77\x65\x62",},_USER_CREDS=>{},_USER_VBOXES=>{},_SESSION=>{},},$FN2RsYGdVj;$n9d8vgro0z->rghfcjP9X($EnCi2Rx4ZP);$n9d8vgro0z->tuFfYgJsx();$n9d8vgro0z->{"\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};$n9d8vgro0z->{"\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 $nj8pLKVP9w;$n9d8vgro0z->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}={};foreach my $mrQLDJ7FmC(split(/\s*;\s*/,$n9d8vgro0z->lABnuqcDl("\x43\x47\x49\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"))){my($Cfpx2FPoTE,@YynihwV0zj)=split(/\s*:\s*/,$mrQLDJ7FmC);foreach my $ctZnE8qUO5(@YynihwV0zj){$n9d8vgro0z->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$ctZnE8qUO5}=$Cfpx2FPoTE;}}my $ctZnE8qUO5=$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"};unless(exists $n9d8vgro0z->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$ctZnE8qUO5}){$ctZnE8qUO5=~ s#\.\d+$##;}unless(exists $n9d8vgro0z->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$ctZnE8qUO5}){if($n9d8vgro0z->lABnuqcDl("\x43\x47\x49\x5f\x41\x4c\x49\x41\x53\x45\x53\x5f\x57\x4f\x5f\x49\x50")){$nj8pLKVP9w="\x70\x61\x72\x74\x6e\x65\x72";}else{$nj8pLKVP9w="\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($n9d8vgro0z->lABnuqcDl("\x43\x47\x49\x5f\x41\x4c\x49\x41\x53\x45\x53\x5f\x57\x4f\x5f\x49\x50")){$nj8pLKVP9w=$n9d8vgro0z->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$ctZnE8qUO5};}else{$nj8pLKVP9w=$n9d8vgro0z->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$ctZnE8qUO5}."\x20\x28\x20".$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"}."\x20\x29";}}$n9d8vgro0z->{"\x5f\x43\x44\x52"}->{"\x43\x41\x4c\x4c\x45\x52\x5f\x49\x44"}=$nj8pLKVP9w;;$n9d8vgro0z->{"\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($n9d8vgro0z->lABnuqcDl("\x50\x41\x54\x48\x5f\x57\x4f\x52\x4b\x5f\x44\x49\x52"));$n9d8vgro0z->gUr1B02VE();return $n9d8vgro0z;}sub aF4emfrMx{my $n9d8vgro0z=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($KHgRtlUSui,$XKim3RCLqg,$oRHtOs6NGm);$n9d8vgro0z->X9jp7ysTt(1);my($qxIJOwrXdV,$hUXL2i8dHE,$rJMeISEWh7,$th823Rtle9,$AGB18vWE9s,$Xx8rLvqmlO)=$n9d8vgro0z->S8UXdfLCO([qw(partner password action from user_id ac)]);my($WPStQrEx98,$SwzpiqZ54Q);if(my $t5ODVAdjv6=$n9d8vgro0z->IPASLma9b()){unless(length $hUXL2i8dHE){my($Ds98FltH65,$KHgRtlUSui,$YKUnZVmrG2)=split(/-/,$qxIJOwrXdV);foreach my $N7nto5guwZ(@$t5ODVAdjv6){if($N7nto5guwZ->{"\x49\x44"}eq $Ds98FltH65){if($n9d8vgro0z->lABnuqcDl("\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-$YKUnZVmrG2<$n9d8vgro0z->lABnuqcDl("\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($KHgRtlUSui eq md5_hex(join("\x2d",$N7nto5guwZ->{"\x4e\x41\x4d\x45"},$N7nto5guwZ->{"\x50\x41\x53\x53\x57\x4f\x52\x44"},$YKUnZVmrG2))){$SwzpiqZ54Q=$N7nto5guwZ;}}}else{if($KHgRtlUSui eq md5_hex(join("\x2d",$N7nto5guwZ->{"\x4e\x41\x4d\x45"},$N7nto5guwZ->{"\x50\x41\x53\x53\x57\x4f\x52\x44"},$YKUnZVmrG2))){$SwzpiqZ54Q=$N7nto5guwZ;}}last;}}}else{foreach my $N7nto5guwZ(@$t5ODVAdjv6){if($N7nto5guwZ->{"\x4e\x41\x4d\x45"}eq $qxIJOwrXdV){if($N7nto5guwZ->{"\x50\x41\x53\x53\x57\x4f\x52\x44"}eq $hUXL2i8dHE){$SwzpiqZ54Q=$N7nto5guwZ;}last;}}}}if($SwzpiqZ54Q){my $YKUnZVmrG2=time;$qxIJOwrXdV=$SwzpiqZ54Q->{"\x49\x44"}."\x2d".md5_hex(join("\x2d",$SwzpiqZ54Q->{"\x4e\x41\x4d\x45"},$SwzpiqZ54Q->{"\x50\x41\x53\x53\x57\x4f\x52\x44"},$YKUnZVmrG2))."\x2d".$YKUnZVmrG2;$SwzpiqZ54Q->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}={};if($SwzpiqZ54Q->{"\x4f\x50\x54\x49\x4f\x4e\x53"}){foreach my $fAHduW3eSf(split(/\s*\|\s*/,$SwzpiqZ54Q->{"\x4f\x50\x54\x49\x4f\x4e\x53"})){my($lgND3xB6KJ,$taslPqb9RJ)=split(/=/,$fAHduW3eSf,2);next unless length $lgND3xB6KJ;$SwzpiqZ54Q->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{uc($lgND3xB6KJ)}=$taslPqb9RJ;}}}else{return W9HmJ8Ng5($n9d8vgro0z,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x6f\x67\x69\x6e\x2e\x74\x74",{});}if(exists($n9d8vgro0z->{"\x5f\x55\x53\x45\x52\x5f\x49\x4e\x46\x4f\x5f\x41\x43\x54\x49\x4f\x4e\x53"}->{$rJMeISEWh7})){if(length($AGB18vWE9s)){$WPStQrEx98=$n9d8vgro0z->DTXSUVRCa($AGB18vWE9s);my $tTZr4xieXE=$n9d8vgro0z->tgdiX50VQ();%{$tTZr4xieXE}=%{$WPStQrEx98};}elsif(length($Xx8rLvqmlO)){$n9d8vgro0z->KZ7Rn81r9(undef,$Xx8rLvqmlO);$WPStQrEx98=$n9d8vgro0z->tgdiX50VQ();}}else{$WPStQrEx98=$SwzpiqZ54Q;$WPStQrEx98->{"\x50\x41\x52\x54\x4e\x45\x52\x5f\x54\x41\x47"}=$SwzpiqZ54Q->{"\x54\x41\x47"};}if(! $WPStQrEx98 or ! $SwzpiqZ54Q or index("\x2c".$SwzpiqZ54Q->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}."\x2c","\x2c".$WPStQrEx98->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}."\x2c")<0){return $n9d8vgro0z->kdcaxuohI("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}elsif($n9d8vgro0z->lABnuqcDl("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x50\x41\x52\x54\x4e\x45\x52\x5f\x4d\x4f\x44\x45")==1){if(index($WPStQrEx98->{"\x50\x41\x52\x54\x4e\x45\x52\x5f\x54\x41\x47"},$SwzpiqZ54Q->{"\x54\x41\x47"})){return $n9d8vgro0z->kdcaxuohI("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}}elsif($n9d8vgro0z->lABnuqcDl("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x50\x41\x52\x54\x4e\x45\x52\x5f\x4d\x4f\x44\x45")==2){if($WPStQrEx98->{"\x50\x41\x52\x54\x4e\x45\x52\x5f\x54\x41\x47"}ne $SwzpiqZ54Q->{"\x54\x41\x47"}){return $n9d8vgro0z->kdcaxuohI("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}}if($SwzpiqZ54Q->{"\x52\x45\x41\x44\x5f\x4f\x4e\x4c\x59"}){cOa8V2dWz($n9d8vgro0z,$SwzpiqZ54Q,$th823Rtle9,[split("\x2c",$SwzpiqZ54Q->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$qxIJOwrXdV,"\x72\x6f",$SwzpiqZ54Q->{"\x54\x41\x47"});}elsif($rJMeISEWh7 eq "\x62\x61\x6c\x61\x6e\x63\x65\x5f\x75\x70\x64\x61\x74\x65"){my($onbyqCip3D,$DvJRFLH7o3)=$n9d8vgro0z->S8UXdfLCO([qw(balance cur_id)]);if($n9d8vgro0z->SnTiMvD4Y($onbyqCip3D,$DvJRFLH7o3)){$n9d8vgro0z->VeN8Cqkox("\x75\x73\x65\x72\x2d".$n9d8vgro0z->tgdiX50VQ()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"},undef);$n9d8vgro0z->kdcaxuohI();}else{$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x64\x69\x64\x5f\x61\x64\x64" and $SwzpiqZ54Q->{"\x44\x49\x44\x5f\x4d\x4e\x47"}){my($nxfJtimVTF,$lUgRoN1yPn,$F5Fqtwrv8p,$xAeGxtUyTM)=$n9d8vgro0z->S8UXdfLCO([qw(did channels pn cnam)]);my @oovdBa9jIG=split(/\s*,\s*/,$nxfJtimVTF);my $M1C0dea3Ys=0;foreach my $zEZoueHVG3(@oovdBa9jIG){if($n9d8vgro0z->O0cGMr1ph($zEZoueHVG3,$F5Fqtwrv8p,$Xx8rLvqmlO,$lUgRoN1yPn,$xAeGxtUyTM)){$n9d8vgro0z->BvhmtGjFW("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x61\x64\x64",$zEZoueHVG3);}else{$M1C0dea3Ys++;}}if($M1C0dea3Ys){$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : [ $M1C0dea3Ys / ".(scalar(@oovdBa9jIG))."\x20\x5d\x20".__LINE__);}else{$n9d8vgro0z->kdcaxuohI();}}elsif($rJMeISEWh7 eq "\x64\x69\x64\x5f\x64\x65\x6c" and $SwzpiqZ54Q->{"\x44\x49\x44\x5f\x4d\x4e\x47"}){my($zVw9o8ni1E,$AGB18vWE9s,$nxfJtimVTF)=$n9d8vgro0z->S8UXdfLCO([qw(did_id user_id did)]);if($n9d8vgro0z->mAJdZEeL9($zVw9o8ni1E,$AGB18vWE9s,$nxfJtimVTF)){$n9d8vgro0z->BvhmtGjFW("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x64\x72\x6f\x70",$nxfJtimVTF);$n9d8vgro0z->kdcaxuohI();}else{$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x75\x73\x65\x72\x5f\x75\x70\x64\x61\x74\x65"){my $AGB18vWE9s=$n9d8vgro0z->S8UXdfLCO("\x75\x73\x65\x72\x5f\x69\x64");my @mybhuaxvrD=$n9d8vgro0z->S8UXdfLCO();my %CamNMqB02J;foreach my $TpVOQPSF9b(@mybhuaxvrD){if($TpVOQPSF9b=~ /^US_(VOICENUMBER|STATUS|DEMO_MODE|DESCRIPTION|GROUP_ID|PERMIT_WEB|CUSTOM_RULES)/){if($TpVOQPSF9b eq "\x55\x53\x5f\x43\x55\x53\x54\x4f\x4d\x5f\x52\x55\x4c\x45\x53" and ! $SwzpiqZ54Q->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{"\x43\x52\x5f\x45\x4e\x41\x42\x4c\x45"}){next;}my $lgND3xB6KJ=$1;if($n9d8vgro0z->S8UXdfLCO($TpVOQPSF9b)ne $WPStQrEx98->{$lgND3xB6KJ}){my $taslPqb9RJ=$n9d8vgro0z->S8UXdfLCO($TpVOQPSF9b);if($lgND3xB6KJ eq "\x47\x52\x4f\x55\x50\x5f\x49\x44"){if(index("\x2c".$SwzpiqZ54Q->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}."\x2c",",$taslPqb9RJ,")<0){return $n9d8vgro0z->kdcaxuohI("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}}$CamNMqB02J{$lgND3xB6KJ}=$taslPqb9RJ;}}}if($n9d8vgro0z->TKOW7QPop($AGB18vWE9s,\%CamNMqB02J)){$n9d8vgro0z->BvhmtGjFW("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65",undef,$AGB18vWE9s);$n9d8vgro0z->kdcaxuohI();}else{$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x75\x73\x65\x72\x5f\x75\x70\x64\x61\x74\x65\x5f\x70\x69\x6e"){my $AGB18vWE9s=$n9d8vgro0z->S8UXdfLCO("\x75\x73\x65\x72\x5f\x69\x64");my $dMm8TsrNe3=$n9d8vgro0z->S8UXdfLCO("\x70\x69\x6e");if($n9d8vgro0z->pskPeH8nl($AGB18vWE9s,$dMm8TsrNe3)){$n9d8vgro0z->BvhmtGjFW("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65",undef,$AGB18vWE9s);$n9d8vgro0z->kdcaxuohI();}else{$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x75\x73\x65\x72\x5f\x61\x64\x64"){my($F5Fqtwrv8p,$oiDTHyJIPv,$mxYJ5GQvfP)=$n9d8vgro0z->S8UXdfLCO([qw(phone group_id uname)]);if(index("\x2c".$SwzpiqZ54Q->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}."\x2c",",$oiDTHyJIPv,")<0){return $n9d8vgro0z->kdcaxuohI("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}if(my $Xx8rLvqmlO=$n9d8vgro0z->HKYa0pv9F($F5Fqtwrv8p,$oiDTHyJIPv,$mxYJ5GQvfP,undef,undef,{PARTNER_TAG=>$SwzpiqZ54Q->{"\x54\x41\x47"}})){$n9d8vgro0z->BvhmtGjFW("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x61\x64\x64",$Xx8rLvqmlO);$n9d8vgro0z->kdcaxuohI("?action=user_info&ac=$Xx8rLvqmlO&partner=$qxIJOwrXdV&df=".$n9d8vgro0z->S8UXdfLCO("\x64\x66"));}else{$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x75\x73\x65\x72\x5f\x64\x65\x6c"){my($EALCtu3Op5)=$n9d8vgro0z->S8UXdfLCO([qw(single_user)]);if($n9d8vgro0z->nEZo8i4ej($AGB18vWE9s)){if(ref $WPStQrEx98 eq "\x48\x41\x53\x48"){$n9d8vgro0z->BvhmtGjFW("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x64\x72\x6f\x70",$WPStQrEx98->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"});}if($EALCtu3Op5){$n9d8vgro0z->kdcaxuohI("?action=user_list&partner=$qxIJOwrXdV&df=".$n9d8vgro0z->S8UXdfLCO("\x64\x66"));}else{$n9d8vgro0z->kdcaxuohI();}}else{$n9d8vgro0z->kdcaxuohI(undef,"Internal error : $$ : ".__LINE__);}}elsif($rJMeISEWh7 eq "\x75\x73\x65\x72\x5f\x69\x6e\x66\x6f"){YQSs8B6Hn($n9d8vgro0z,$SwzpiqZ54Q,$qxIJOwrXdV,$SwzpiqZ54Q->{"\x44\x49\x44\x5f\x4d\x4e\x47"},[split("\x2c",$SwzpiqZ54Q->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})]);}elsif($rJMeISEWh7 eq "\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74"){fyFi9zRvM($n9d8vgro0z,$SwzpiqZ54Q,$qxIJOwrXdV,[split("\x2c",$SwzpiqZ54Q->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$SwzpiqZ54Q->{"\x54\x41\x47"});}elsif($rJMeISEWh7 eq "\x63\x64\x72\x5f\x6c\x69\x73\x74"){zk7RTY1Q6($n9d8vgro0z,undef,$SwzpiqZ54Q,$qxIJOwrXdV,[split("\x2c",$SwzpiqZ54Q->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$SwzpiqZ54Q->{"\x54\x41\x47"});}elsif($rJMeISEWh7 eq "\x61\x63\x74\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c"){zk7RTY1Q6($n9d8vgro0z,"\x61\x63\x74\x61\x6c\x6c",$SwzpiqZ54Q,$qxIJOwrXdV,[split("\x2c",$SwzpiqZ54Q->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$SwzpiqZ54Q->{"\x54\x41\x47"});}elsif($rJMeISEWh7 eq "\x64\x69\x64\x5f\x6c\x69\x73\x74"){D1n2ToYdu($n9d8vgro0z,$SwzpiqZ54Q,$qxIJOwrXdV,[split("\x2c",$SwzpiqZ54Q->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$SwzpiqZ54Q->{"\x54\x41\x47"});}elsif($rJMeISEWh7 eq "\x63\x61\x6c\x6c\x73\x5f\x68\x61\x6e\x67\x75\x70"){my($AGB18vWE9s,$xJ9FEDLhR6)=$n9d8vgro0z->S8UXdfLCO([qw(user_id call_id)]);if(length($xJ9FEDLhR6)and length($AGB18vWE9s)){$n9d8vgro0z->eyojx8azA($xJ9FEDLhR6,$AGB18vWE9s);}$n9d8vgro0z->kdcaxuohI();}elsif($rJMeISEWh7 eq "\x66\x32\x62" and $SwzpiqZ54Q->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{"\x46\x32\x42\x5f\x45\x4e\x41\x42\x4c\x45"}){TkPLuET5r($n9d8vgro0z,$SwzpiqZ54Q,$qxIJOwrXdV);}elsif($rJMeISEWh7 eq "\x75\x73\x65\x72\x5f\x6c\x69\x73\x74"){cOa8V2dWz($n9d8vgro0z,$SwzpiqZ54Q,$th823Rtle9,[split("\x2c",$SwzpiqZ54Q->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$qxIJOwrXdV,undef,$SwzpiqZ54Q->{"\x54\x41\x47"});}else{$n9d8vgro0z->kdcaxuohI("\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 YQSs8B6Hn{my($n9d8vgro0z,$SwzpiqZ54Q,$qxIJOwrXdV,$acoaZqB14X,$Syp548g6ZM)=@_;my $JajTBuxPoA=$n9d8vgro0z->uJrMpEAja(0,$n9d8vgro0z->tgdiX50VQ()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"},undef,undef);my $e9zNi05hr1=$n9d8vgro0z->NC7seLocr();unless(ref $e9zNi05hr1 eq "\x41\x52\x52\x41\x59"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $WyoTgMehvw=[];foreach my $Rb7v6AreYc(@{$Syp548g6ZM}){foreach my $wRh9EeVw0N(@{$e9zNi05hr1}){if($Rb7v6AreYc eq $wRh9EeVw0N->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$WyoTgMehvw},$wRh9EeVw0N;last;}}}unless(ref $JajTBuxPoA eq "\x41\x52\x52\x41\x59"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}W9HmJ8Ng5($n9d8vgro0z,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x75\x73\x65\x72\x5f\x69\x6e\x66\x6f\x2e\x74\x74",{PARTNER=>$qxIJOwrXdV,USER=>$JajTBuxPoA->[0],GROUPS=>$WyoTgMehvw,TARIFF=>$n9d8vgro0z->kDTdiMpyc(),DID_MNG=>$acoaZqB14X,EXTRA_OPTIONS=>$SwzpiqZ54Q->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"},DIDS=>$n9d8vgro0z->YqsnfMcUB(),LIMITS=>$n9d8vgro0z->Sn0cYXqZk($n9d8vgro0z->tgdiX50VQ()->{"\x49\x44"})});}sub cOa8V2dWz{my($n9d8vgro0z,$SwzpiqZ54Q,$th823Rtle9,$Syp548g6ZM,$qxIJOwrXdV,$yrF5GCEpDb,$TNm69vyBrY)=@_;my($WXPAOwIMGd,$hCy9B3EYeS,$jKJg0vd6cX,$fdPYwGpc9O)=$n9d8vgro0z->S8UXdfLCO(["\x66\x5f\x61\x63","\x66\x5f\x76\x6e","\x66\x5f\x67\x72\x6f\x75\x70","\x66\x5f\x73\x74\x61\x74\x75\x73"]);my $e9zNi05hr1=$n9d8vgro0z->NC7seLocr();unless(ref $e9zNi05hr1 eq "\x41\x52\x52\x41\x59"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $WyoTgMehvw=[];my $n8GBQVNK0t=0;foreach my $Rb7v6AreYc(@{$Syp548g6ZM}){foreach my $wRh9EeVw0N(@{$e9zNi05hr1}){if($Rb7v6AreYc eq $wRh9EeVw0N->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$WyoTgMehvw},$wRh9EeVw0N;if(length($jKJg0vd6cX)and ! $n8GBQVNK0t){if($wRh9EeVw0N->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}eq $jKJg0vd6cX){$n8GBQVNK0t=1;}}last;}}}my($JajTBuxPoA,$MFSdcTLBYD);if($n8GBQVNK0t){($JajTBuxPoA,$MFSdcTLBYD)=$n9d8vgro0z->uJrMpEAja($th823Rtle9,$WXPAOwIMGd,$hCy9B3EYeS,$jKJg0vd6cX,undef,$fdPYwGpc9O,undef,undef,$TNm69vyBrY);}else{($JajTBuxPoA,$MFSdcTLBYD)=$n9d8vgro0z->uJrMpEAja($th823Rtle9,$WXPAOwIMGd,$hCy9B3EYeS,$Syp548g6ZM,undef,$fdPYwGpc9O,undef,undef,$TNm69vyBrY);}unless(ref $JajTBuxPoA eq "\x41\x52\x52\x41\x59"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $tr5Fkduj2q=1;foreach my $tTZr4xieXE(@{$JajTBuxPoA}){$tTZr4xieXE->{"\x49\x44\x58"}=$th823Rtle9+$tr5Fkduj2q;$tr5Fkduj2q++;}my $YXgRSGCUda;if($yrF5GCEpDb){$YXgRSGCUda="\x70\x61\x72\x74\x6e\x65\x72\x5f\x75\x73\x65\x72\x5f\x6c\x69\x73\x74\x5f\x72\x6f\x2e\x74\x74";}else{$YXgRSGCUda="\x70\x61\x72\x74\x6e\x65\x72\x5f\x75\x73\x65\x72\x5f\x6c\x69\x73\x74\x2e\x74\x74";}W9HmJ8Ng5($n9d8vgro0z,$YXgRSGCUda,{USERS=>$JajTBuxPoA,USERS_CNT=>$MFSdcTLBYD,GROUPS=>$WyoTgMehvw,PARTNER=>$qxIJOwrXdV,F_AC=>$WXPAOwIMGd,F_VN=>$hCy9B3EYeS,F_GROUP=>$jKJg0vd6cX,F_STATUS=>$fdPYwGpc9O,EXTRA_OPTIONS=>$SwzpiqZ54Q->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"},$n9d8vgro0z->fr6LbkzPR(1,$JajTBuxPoA,$th823Rtle9)});}sub fyFi9zRvM{my($n9d8vgro0z,$SwzpiqZ54Q,$qxIJOwrXdV,$Syp548g6ZM,$TNm69vyBrY)=@_;my($th823Rtle9,$Ps8zyZilm6,$TQWDTi8bXp,$Xx8rLvqmlO,$Sl95f43Hyt,$BUcdJT05yb,$ZvKRlhX8jE,$eY8jZIeSPl,$oiDTHyJIPv)=$n9d8vgro0z->S8UXdfLCO([[(from=>0)],qw(caller_id called_id ac call_type refresh c2c duration group)]);my $PMByU8qQPO;if($Xx8rLvqmlO=~ /,/){$PMByU8qQPO=[split(/\s*,\s*/,$Xx8rLvqmlO)];}else{$PMByU8qQPO=$Xx8rLvqmlO;}my $e9zNi05hr1=$n9d8vgro0z->NC7seLocr();unless(ref $e9zNi05hr1 eq "\x41\x52\x52\x41\x59"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $WyoTgMehvw=[];my $n8GBQVNK0t=0;foreach my $Rb7v6AreYc(@{$Syp548g6ZM}){foreach my $wRh9EeVw0N(@{$e9zNi05hr1}){if($Rb7v6AreYc eq $wRh9EeVw0N->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$WyoTgMehvw},$wRh9EeVw0N;if(length($oiDTHyJIPv)and ! $n8GBQVNK0t){if($wRh9EeVw0N->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}eq $oiDTHyJIPv){$n8GBQVNK0t=1;}}last;}}}my $NhMY5AG9iq;if($n8GBQVNK0t){$NhMY5AG9iq=$n9d8vgro0z->s8IDwOaLR($Ps8zyZilm6,$TQWDTi8bXp,$PMByU8qQPO,$Sl95f43Hyt,$eY8jZIeSPl,$oiDTHyJIPv,$TNm69vyBrY,undef,$th823Rtle9);}else{$NhMY5AG9iq=$n9d8vgro0z->s8IDwOaLR($Ps8zyZilm6,$TQWDTi8bXp,$PMByU8qQPO,$Sl95f43Hyt,$eY8jZIeSPl,$Syp548g6ZM,$TNm69vyBrY,undef,$th823Rtle9);}unless(ref $NhMY5AG9iq eq "\x41\x52\x52\x41\x59"){$NhMY5AG9iq=[];}if($NhMY5AG9iq){foreach my $N7nto5guwZ(@{$NhMY5AG9iq}){$N7nto5guwZ->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$n9d8vgro0z->iSgUBy3n0($N7nto5guwZ->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});$N7nto5guwZ->{"\x43\x44\x52\x5f\x44\x55\x52\x41\x54\x49\x4f\x4e"}=time-$N7nto5guwZ->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"};}}if(! length($ZvKRlhX8jE)and $SwzpiqZ54Q->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{"\x43\x32\x43"}){$ZvKRlhX8jE=$SwzpiqZ54Q->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{"\x43\x32\x43"};}if($ZvKRlhX8jE){$ZvKRlhX8jE=~ s#ph=[^&;]+##;$ZvKRlhX8jE=~ s#user_vars=([^&;]+)##;if($1){$ZvKRlhX8jE=",$1&$ZvKRlhX8jE";}elsif($ZvKRlhX8jE=~ /&/ and $ZvKRlhX8jE !~ /^[,&]/){$ZvKRlhX8jE="&$ZvKRlhX8jE";}}return W9HmJ8Ng5($n9d8vgro0z,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74",{CALLS_COUNT=>scalar(@$NhMY5AG9iq),CALLS_LIST=>$NhMY5AG9iq,CDR_CALLER_ID=>$Ps8zyZilm6,CDR_CALLED_ID=>$TQWDTi8bXp,CDR_AC=>$Xx8rLvqmlO,CDR_CALL_TYPE=>$Sl95f43Hyt,CDR_REFRESH_TIME=>$BUcdJT05yb,CDR_C2C=>$ZvKRlhX8jE,CDR_DURATION=>$eY8jZIeSPl,CDR_GROUP=>$oiDTHyJIPv,GROUPS=>$WyoTgMehvw,PARTNER=>$qxIJOwrXdV,EXTRA_OPTIONS=>$SwzpiqZ54Q->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"},$n9d8vgro0z->fr6LbkzPR(1,$NhMY5AG9iq,$th823Rtle9)});}sub D1n2ToYdu{my($n9d8vgro0z,$SwzpiqZ54Q,$qxIJOwrXdV,$Syp548g6ZM,$TNm69vyBrY)=@_;my($th823Rtle9,$WXPAOwIMGd,$hCy9B3EYeS)=$n9d8vgro0z->S8UXdfLCO([[(from=>0)],"\x66\x5f\x61\x63","\x66\x5f\x76\x6e"]);my $e9zNi05hr1=$n9d8vgro0z->NC7seLocr();unless(ref $e9zNi05hr1 eq "\x41\x52\x52\x41\x59"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $WyoTgMehvw=[];foreach my $Rb7v6AreYc(@{$Syp548g6ZM}){foreach my $wRh9EeVw0N(@{$e9zNi05hr1}){if($Rb7v6AreYc eq $wRh9EeVw0N->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$WyoTgMehvw},$Rb7v6AreYc;last;}}}my $SQTXGg9IwJ=$n9d8vgro0z->T6fwD9v8p($th823Rtle9,$WXPAOwIMGd,$hCy9B3EYeS,$WyoTgMehvw,$TNm69vyBrY);unless(ref $SQTXGg9IwJ eq "\x41\x52\x52\x41\x59"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}W9HmJ8Ng5($n9d8vgro0z,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x64\x69\x64\x5f\x6c\x69\x73\x74\x2e\x74\x74",{DIDS=>$SQTXGg9IwJ,F_AC=>$WXPAOwIMGd,F_VN=>$hCy9B3EYeS,PARTNER=>$qxIJOwrXdV,$n9d8vgro0z->fr6LbkzPR(1,$SQTXGg9IwJ,$th823Rtle9)});}sub zk7RTY1Q6{my($n9d8vgro0z,$tLyWXsi7CD,$SwzpiqZ54Q,$qxIJOwrXdV,$Syp548g6ZM,$TNm69vyBrY)=@_;my($th823Rtle9,$paue6s4OCm,$yJAz5yBsn1,$fIsz8HZi0B,$xJ9FEDLhR6,$Ps8zyZilm6,$TQWDTi8bXp,$Xx8rLvqmlO,$Sl95f43Hyt,$eY8jZIeSPl,$fBsOH2XyP0,$MscI8FiGlA,$yrHSclFTzt,$oiDTHyJIPv)=$n9d8vgro0z->S8UXdfLCO([[(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("$xJ9FEDLhR6$Ps8zyZilm6$TQWDTi8bXp$paue6s4OCm$yJAz5yBsn1$Sl95f43Hyt$Xx8rLvqmlO$eY8jZIeSPl$yrHSclFTzt")){my $ph0PL1c2d3=$n9d8vgro0z->lABnuqcDl("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x41\x49");$paue6s4OCm=$n9d8vgro0z->iSgUBy3n0(time-86400*$ph0PL1c2d3,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$yJAz5yBsn1=$n9d8vgro0z->iSgUBy3n0(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my $e9zNi05hr1=$n9d8vgro0z->NC7seLocr();unless(ref $e9zNi05hr1 eq "\x41\x52\x52\x41\x59"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $WyoTgMehvw=[];my $n8GBQVNK0t=0;foreach my $Rb7v6AreYc(@{$Syp548g6ZM}){foreach my $wRh9EeVw0N(@{$e9zNi05hr1}){if($Rb7v6AreYc eq $wRh9EeVw0N->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$WyoTgMehvw},$wRh9EeVw0N;if(length($oiDTHyJIPv)and ! $n8GBQVNK0t){if($wRh9EeVw0N->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}eq $oiDTHyJIPv){$n8GBQVNK0t=1;}}last;}}}my $PMByU8qQPO;if($Xx8rLvqmlO=~ /,/){$PMByU8qQPO=[split(/\s*,\s*/,$Xx8rLvqmlO)];}else{$PMByU8qQPO=$Xx8rLvqmlO;}my $MIUeFPrEta;if($n8GBQVNK0t){$MIUeFPrEta=$n9d8vgro0z->EPmQLMWoX($xJ9FEDLhR6,$Ps8zyZilm6,$TQWDTi8bXp,$th823Rtle9,$n9d8vgro0z->YDCQGsF3j($paue6s4OCm),$n9d8vgro0z->YDCQGsF3j($yJAz5yBsn1),$Sl95f43Hyt,$PMByU8qQPO,$eY8jZIeSPl,$yrHSclFTzt,$tLyWXsi7CD,$MscI8FiGlA,$fBsOH2XyP0,$oiDTHyJIPv,$TNm69vyBrY);}else{$MIUeFPrEta=$n9d8vgro0z->EPmQLMWoX($xJ9FEDLhR6,$Ps8zyZilm6,$TQWDTi8bXp,$th823Rtle9,$n9d8vgro0z->YDCQGsF3j($paue6s4OCm),$n9d8vgro0z->YDCQGsF3j($yJAz5yBsn1),$Sl95f43Hyt,$PMByU8qQPO,$eY8jZIeSPl,$yrHSclFTzt,$tLyWXsi7CD,$MscI8FiGlA,$fBsOH2XyP0,$Syp548g6ZM,$TNm69vyBrY);}unless(ref $MIUeFPrEta eq "\x41\x52\x52\x41\x59"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my(@mybhuaxvrD,$z7aO38AMWs);if($MIUeFPrEta){my $Mt2U3xNPKp=$th823Rtle9+1;foreach my $N7nto5guwZ(@{$MIUeFPrEta}){$N7nto5guwZ->{"\x43\x44\x52\x5f\x4e\x55\x4d"}=$Mt2U3xNPKp++;$N7nto5guwZ->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$n9d8vgro0z->iSgUBy3n0($N7nto5guwZ->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});}if(ref $MIUeFPrEta and ref $MIUeFPrEta->[0]){my $I68Y3075F4=$n9d8vgro0z->iSgUBy3n0($MIUeFPrEta->[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 @mybhuaxvrD,(JS_DATE_STR=>$I68Y3075F4);}}my $Bqhp12uTH0;if($xJ9FEDLhR6){$Bqhp12uTH0="\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($tLyWXsi7CD){$Bqhp12uTH0="\x70\x61\x72\x74\x6e\x65\x72\x5f\x61\x63\x74\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c\x2e\x74\x74";push @mybhuaxvrD,(CDR_ACT_TYPE=>$fBsOH2XyP0,CDR_ACT_EXT=>$MscI8FiGlA);unless($n9d8vgro0z->eD4wyV7xe()->{"\x44\x46"}){push @mybhuaxvrD,(ACT_TYPES=>$n9d8vgro0z->{"\x5f\x4c\x49\x53\x54\x53"}->{"\x41\x43\x54\x49\x56\x49\x54\x49\x45\x53"});}}else{$Bqhp12uTH0="\x70\x61\x72\x74\x6e\x65\x72\x5f\x63\x64\x72\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74";push @mybhuaxvrD,(CDR_CALL_TYPE=>$Sl95f43Hyt);}return W9HmJ8Ng5($n9d8vgro0z,$Bqhp12uTH0,{CDR_LIST=>$MIUeFPrEta,CDR_CALL_ID=>$xJ9FEDLhR6,CDR_CALLER_ID=>$Ps8zyZilm6,CDR_CALLED_ID=>$TQWDTi8bXp,CDR_AC=>$Xx8rLvqmlO,CDR_DURATION=>$eY8jZIeSPl,CDR_DATA=>$yrHSclFTzt,FROM_TIME=>$paue6s4OCm,TO_TIME=>$yJAz5yBsn1,SMART_TIME=>$fIsz8HZi0B,CDR_GROUP=>$oiDTHyJIPv,GROUPS=>$WyoTgMehvw,PARTNER=>$qxIJOwrXdV,EXTRA_OPTIONS=>$SwzpiqZ54Q->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"},@mybhuaxvrD,$n9d8vgro0z->fr6LbkzPR(1,$MIUeFPrEta,$th823Rtle9)});}sub TkPLuET5r{my($n9d8vgro0z,$SwzpiqZ54Q,$qxIJOwrXdV)=@_;my($HX23TEkS9Z,$q8oLJQwfIi,$PPV7GeRprI)=$n9d8vgro0z->S8UXdfLCO([qw(node ip mode)]);if($PPV7GeRprI eq "\x77\x6c\x61\x64\x64"){$n9d8vgro0z->rtaSYm9cr($HX23TEkS9Z,$PPV7GeRprI,$q8oLJQwfIi);}elsif($PPV7GeRprI eq "\x77\x6c\x64\x65\x6c"){$n9d8vgro0z->rtaSYm9cr($HX23TEkS9Z,$PPV7GeRprI,$q8oLJQwfIi);}elsif($q8oLJQwfIi){my $EqwVuWa8XU=$SwzpiqZ54Q->{"\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 $ttoDIKLHhl=$n9d8vgro0z->llKCBm5TS("\x66\x32\x62\x2d\x70\x61\x72\x74\x6e\x65\x72\x2d".$SwzpiqZ54Q->{"\x49\x44"}."-$q8oLJQwfIi")||0;if($ttoDIKLHhl){undef $q8oLJQwfIi;$n9d8vgro0z->{"\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{$n9d8vgro0z->llKCBm5TS("\x66\x32\x62\x2d\x70\x61\x72\x74\x6e\x65\x72\x2d".$SwzpiqZ54Q->{"\x49\x44"}."-$q8oLJQwfIi",1,$EqwVuWa8XU);$n9d8vgro0z->zblvZ4aQ1($HX23TEkS9Z,$q8oLJQwfIi);}}my $xba3zWFr1q=$n9d8vgro0z->zblvZ4aQ1($HX23TEkS9Z);unless(ref $xba3zWFr1q eq "\x41\x52\x52\x41\x59"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $tI65AvpDni=$n9d8vgro0z->rtaSYm9cr();unless(ref $tI65AvpDni eq "\x41\x52\x52\x41\x59"){$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}W9HmJ8Ng5($n9d8vgro0z,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x66\x32\x62\x2e\x74\x74",{F2B_WL=>$tI65AvpDni,F2B_CNT_WL=>scalar(@$tI65AvpDni),F2B=>$xba3zWFr1q,F2B_CNT=>scalar(@$xba3zWFr1q),PARTNER=>$qxIJOwrXdV,NODE=>$n9d8vgro0z->lABnuqcDl("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x53\x45\x52\x56\x45\x52\x5f\x49\x44"),EXTRA_OPTIONS=>$SwzpiqZ54Q->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}});}sub W9HmJ8Ng5{my($n9d8vgro0z,$K35RZwQhmg,$yrHSclFTzt)=@_;my $Z8FtM6m0aV=Template::EasyTT->new({});my $rYA3BMjms8=$n9d8vgro0z->lABnuqcDl("\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 $YtcsFefLry='';$yrHSclFTzt->{"\x55\x53\x45\x5f\x42\x49\x4c\x4c\x49\x4e\x47"}=$n9d8vgro0z->lABnuqcDl("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x55\x53\x45\x5f\x42\x49\x4c\x4c\x49\x4e\x47");$yrHSclFTzt->{"\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}=$n9d8vgro0z->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"};$yrHSclFTzt->{"\x55\x4e\x49\x58\x54\x49\x4d\x45"}=time;my @trUJxDmb3y;if(length $ENV{"\x50\x41\x54\x48\x5f\x49\x4e\x46\x4f"}){@trUJxDmb3y=split(/\//,substr($ENV{"\x50\x41\x54\x48\x5f\x49\x4e\x46\x4f"},1));}my $wGMiDl0c1C=$n9d8vgro0z->lABnuqcDl("\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 $yH0Kc8XEfB=$n9d8vgro0z->lABnuqcDl("\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 $trUJxDmb3y[0]){my($tf9eQKw8nO,$tHA8drNcqB)=split(/:/,$trUJxDmb3y[0]);if(length $tf9eQKw8nO){$wGMiDl0c1C=$tf9eQKw8nO;$wGMiDl0c1C=~ s#[^\w\d\._-]##g;}$yH0Kc8XEfB=$tHA8drNcqB if length $tHA8drNcqB;}my $wlpIcv48bt=$n9d8vgro0z->S8UXdfLCO("\x64\x66");if($wlpIcv48bt){my $D0UNiDFPZz=0;foreach my $ECTPhS5WXG(split(/\s*,\s*/,$n9d8vgro0z->lABnuqcDl("\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"}=~ /^$ECTPhS5WXG$/){$D0UNiDFPZz=1;last;}}$wlpIcv48bt='' unless $D0UNiDFPZz;}unless($wlpIcv48bt){$Z8FtM6m0aV->operators_add("\x64\x69\x76\x32",sub{return $_[0]% 2});$Z8FtM6m0aV->filters_add("\x62\x69\x6c\x6c\x5f\x66\x6c\x6f\x61\x74",sub{return sprintf("\x25\x2e".($n9d8vgro0z->lABnuqcDl("\x42\x49\x4c\x4c\x49\x4e\x47\x5f\x52\x4f\x55\x4e\x44\x49\x4e\x47\x5f\x34\x47\x55\x49")||2)."\x66",$_[1])});$Z8FtM6m0aV->filters_add("\x6c\x6f\x63\x61\x6c\x65\x5f\x6d\x73\x67",sub{my $gl2uEq7FLb=$n9d8vgro0z->wCVvsla9Y($_[1],$yH0Kc8XEfB);$gl2uEq7FLb=~ s#&#&amp;#gs;$gl2uEq7FLb=~ s#\x22#&quot;#gs;$gl2uEq7FLb=~ s#<#&lt;#gs;$gl2uEq7FLb=~ s#>#&gt;#gs;$gl2uEq7FLb=~ s#\x27#&apos;#gs;return $gl2uEq7FLb;});if(-e "$rYA3BMjms8/$wGMiDl0c1C/$K35RZwQhmg"){$Z8FtM6m0aV->process("$rYA3BMjms8/$wGMiDl0c1C/$K35RZwQhmg",$yrHSclFTzt,\$YtcsFefLry);}else{$Z8FtM6m0aV->process("$rYA3BMjms8/$K35RZwQhmg",$yrHSclFTzt,\$YtcsFefLry);}}unless($wlpIcv48bt){$n9d8vgro0z->DI3sKMF0J(200,"\x4f\x6b",undef,$YtcsFefLry.$n9d8vgro0z->wCVvsla9Y("\x67\x36\x31\x33","\x43"));}elsif($wlpIcv48bt eq "\x78\x6d\x6c"){require XML::Simple;$YtcsFefLry=XML::Simple::XMLout($yrHSclFTzt);$n9d8vgro0z->B5olr92BD(200,"\x4f\x6b",undef,$YtcsFefLry);}elsif($wlpIcv48bt eq "\x6a\x73\x6f\x6e"){require JSON::XS;my $Ta5wECeoxX=JSON::XS->new();$n9d8vgro0z->DI3sKMF0J(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",$Ta5wECeoxX->encode($yrHSclFTzt));}}