#!/usr/bin/perl
########################################################################
#
# $Id: VirtualPBX-PI.cgi,v 1.58 2025/12/16 10:07:28 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;Tcmt8nsVuo();sub new{my($g38qa0hog1,$gjYqHeiGI4)=@_;my $yInoMmEp9f=bless{_CGI=>CGI->new(),_CONF=>{},_CDR=>{CALLED_ID=>"\x77\x65\x62",},_USER_CREDS=>{},_USER_VBOXES=>{},_SESSION=>{},},$g38qa0hog1;$yInoMmEp9f->YEnmDKuRXT($gjYqHeiGI4);$yInoMmEp9f->mws24oGRnA();if($yInoMmEp9f->JisSHQVMcn("\x44\x45\x42\x55\x47\x5f\x48\x54\x54\x50\x5f\x41\x55\x44\x49\x54\x5f\x46\x49\x4c\x45")){$yInoMmEp9f->mws24oGRnA("\x46\x49\x4c\x45","\x44\x45\x42\x55\x47\x5f\x48\x54\x54\x50\x5f\x41\x55\x44\x49\x54\x5f\x46\x49\x4c\x45");}$yInoMmEp9f->{"\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};$yInoMmEp9f->{"\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 $NMVkyr6CFG;$yInoMmEp9f->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}={};foreach my $tlbGDE4YBn(split(/\s*;\s*/,$yInoMmEp9f->JisSHQVMcn("\x43\x47\x49\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"))){my($m3yix4pO6S,@YJg5eAnDf9)=split(/\s*:\s*/,$tlbGDE4YBn);foreach my $KzybdcnCas(@YJg5eAnDf9){$yInoMmEp9f->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$KzybdcnCas}=$m3yix4pO6S;}}my $KzybdcnCas=$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"};unless(exists $yInoMmEp9f->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$KzybdcnCas}){$KzybdcnCas=~ s#\.\d+$##;}unless(exists $yInoMmEp9f->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$KzybdcnCas}){if($yInoMmEp9f->JisSHQVMcn("\x43\x47\x49\x5f\x41\x4c\x49\x41\x53\x45\x53\x5f\x57\x4f\x5f\x49\x50")){$NMVkyr6CFG="\x70\x61\x72\x74\x6e\x65\x72";}else{$NMVkyr6CFG="\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($yInoMmEp9f->JisSHQVMcn("\x43\x47\x49\x5f\x41\x4c\x49\x41\x53\x45\x53\x5f\x57\x4f\x5f\x49\x50")){$NMVkyr6CFG=$yInoMmEp9f->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$KzybdcnCas};}else{$NMVkyr6CFG=$yInoMmEp9f->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$KzybdcnCas}."\x20\x28\x20".$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"}."\x20\x29";}}$yInoMmEp9f->{"\x5f\x43\x44\x52"}->{"\x43\x41\x4c\x4c\x45\x52\x5f\x49\x44"}=$NMVkyr6CFG;;$yInoMmEp9f->{"\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($yInoMmEp9f->JisSHQVMcn("\x50\x41\x54\x48\x5f\x57\x4f\x52\x4b\x5f\x44\x49\x52"));$yInoMmEp9f->mRLMDckAHG();return $yInoMmEp9f;}sub Tcmt8nsVuo{my $yInoMmEp9f=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($a6ZzUa9YK2,$KxsADhbFCo,$y9UYB35uJL);$yInoMmEp9f->Bjt169fgr3(1);my($hDXk8pR9zK,$AA8wx9WF7v,$nKAL9Qjq8T,$GLpcmRsF3M,$J9s6fQ7XYw,$IGpN1O4KIw)=$yInoMmEp9f->ygswNUMao5([qw(partner password action from user_id ac)]);my($h9AmNRHQij,$dwjqCU1zyv);if(my $Ty9vMaDq6Z=$yInoMmEp9f->WYkgeRAv03()){unless(length $AA8wx9WF7v){my($Lbpg9OsdFv,$a6ZzUa9YK2,$nhi0V14qPJ)=split(/-/,$hDXk8pR9zK);foreach my $uRcmOjl8iT(@$Ty9vMaDq6Z){if($uRcmOjl8iT->{"\x49\x44"}eq $Lbpg9OsdFv){if($yInoMmEp9f->JisSHQVMcn("\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-$nhi0V14qPJ<$yInoMmEp9f->JisSHQVMcn("\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($a6ZzUa9YK2 eq md5_hex(join("\x2d",$uRcmOjl8iT->{"\x4e\x41\x4d\x45"},$uRcmOjl8iT->{"\x50\x41\x53\x53\x57\x4f\x52\x44"},$nhi0V14qPJ))){$dwjqCU1zyv=$uRcmOjl8iT;}}}else{if($a6ZzUa9YK2 eq md5_hex(join("\x2d",$uRcmOjl8iT->{"\x4e\x41\x4d\x45"},$uRcmOjl8iT->{"\x50\x41\x53\x53\x57\x4f\x52\x44"},$nhi0V14qPJ))){$dwjqCU1zyv=$uRcmOjl8iT;}}last;}}}else{foreach my $uRcmOjl8iT(@$Ty9vMaDq6Z){if($uRcmOjl8iT->{"\x4e\x41\x4d\x45"}eq $hDXk8pR9zK){if($uRcmOjl8iT->{"\x50\x41\x53\x53\x57\x4f\x52\x44"}eq $AA8wx9WF7v){$dwjqCU1zyv=$uRcmOjl8iT;}last;}}}}if($dwjqCU1zyv){my $nhi0V14qPJ=time;$hDXk8pR9zK=$dwjqCU1zyv->{"\x49\x44"}."\x2d".md5_hex(join("\x2d",$dwjqCU1zyv->{"\x4e\x41\x4d\x45"},$dwjqCU1zyv->{"\x50\x41\x53\x53\x57\x4f\x52\x44"},$nhi0V14qPJ))."\x2d".$nhi0V14qPJ;$dwjqCU1zyv->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}={};if($dwjqCU1zyv->{"\x4f\x50\x54\x49\x4f\x4e\x53"}){foreach my $Vxzy0anF59(split(/\s*\|\s*/,$dwjqCU1zyv->{"\x4f\x50\x54\x49\x4f\x4e\x53"})){my($oQ6qdS8ruR,$u0QdRWSCi8)=split(/=/,$Vxzy0anF59,2);next unless length $oQ6qdS8ruR;$dwjqCU1zyv->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{uc($oQ6qdS8ruR)}=$u0QdRWSCi8;}}}else{return QnGabKiy9C($yInoMmEp9f,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x6f\x67\x69\x6e\x2e\x74\x74",{});}if(exists($yInoMmEp9f->{"\x5f\x55\x53\x45\x52\x5f\x49\x4e\x46\x4f\x5f\x41\x43\x54\x49\x4f\x4e\x53"}->{$nKAL9Qjq8T})){if(length($J9s6fQ7XYw)){$h9AmNRHQij=$yInoMmEp9f->LlhCkQDIE1($J9s6fQ7XYw);my $dSzPMBpsOT=$yInoMmEp9f->NXOtBmzSP8();%{$dSzPMBpsOT}=%{$h9AmNRHQij};}elsif(length($IGpN1O4KIw)){$yInoMmEp9f->Wc8kN9T2H4(undef,$IGpN1O4KIw);$h9AmNRHQij=$yInoMmEp9f->NXOtBmzSP8();}}else{$h9AmNRHQij=$dwjqCU1zyv;$h9AmNRHQij->{"\x50\x41\x52\x54\x4e\x45\x52\x5f\x54\x41\x47"}=$dwjqCU1zyv->{"\x54\x41\x47"};}if(! $h9AmNRHQij or ! $dwjqCU1zyv or index("\x2c".$dwjqCU1zyv->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}."\x2c","\x2c".$h9AmNRHQij->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}."\x2c")<0){return $yInoMmEp9f->yvfPlkqJS2("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}elsif($yInoMmEp9f->JisSHQVMcn("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x50\x41\x52\x54\x4e\x45\x52\x5f\x4d\x4f\x44\x45")==1){if(index($h9AmNRHQij->{"\x50\x41\x52\x54\x4e\x45\x52\x5f\x54\x41\x47"},$dwjqCU1zyv->{"\x54\x41\x47"})){return $yInoMmEp9f->yvfPlkqJS2("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}}elsif($yInoMmEp9f->JisSHQVMcn("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x50\x41\x52\x54\x4e\x45\x52\x5f\x4d\x4f\x44\x45")==2){if($h9AmNRHQij->{"\x50\x41\x52\x54\x4e\x45\x52\x5f\x54\x41\x47"}ne $dwjqCU1zyv->{"\x54\x41\x47"}){return $yInoMmEp9f->yvfPlkqJS2("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}}if($dwjqCU1zyv->{"\x52\x45\x41\x44\x5f\x4f\x4e\x4c\x59"}){N6k2r4L8Ae($yInoMmEp9f,$dwjqCU1zyv,$GLpcmRsF3M,[split("\x2c",$dwjqCU1zyv->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$hDXk8pR9zK,"\x72\x6f",$dwjqCU1zyv->{"\x54\x41\x47"});}elsif($nKAL9Qjq8T eq "\x62\x61\x6c\x61\x6e\x63\x65\x5f\x75\x70\x64\x61\x74\x65"){my($LVW42yudUq,$v31fAYrazG)=$yInoMmEp9f->ygswNUMao5([qw(balance cur_id)]);if($yInoMmEp9f->TCjXtkdyiH($LVW42yudUq,$v31fAYrazG)){$yInoMmEp9f->sG9uzwS3Zm("\x75\x73\x65\x72\x2d".$yInoMmEp9f->NXOtBmzSP8()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"},undef);$yInoMmEp9f->yvfPlkqJS2();}else{$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x64\x69\x64\x5f\x61\x64\x64" and $dwjqCU1zyv->{"\x44\x49\x44\x5f\x4d\x4e\x47"}){my($UCIYtsghp9,$G81AT9FYdE,$zaJBAbvW89,$E7yJA8zhcl)=$yInoMmEp9f->ygswNUMao5([qw(did channels pn cnam)]);my @IaHLk6W12R=split(/\s*,\s*/,$UCIYtsghp9);my $QcNRBSYn47=0;foreach my $Yr3zgiqXGt(@IaHLk6W12R){if($yInoMmEp9f->oKrf8sGtAO($Yr3zgiqXGt,$zaJBAbvW89,$IGpN1O4KIw,$G81AT9FYdE,$E7yJA8zhcl)){$yInoMmEp9f->y2q9pdsUQo("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x61\x64\x64",$Yr3zgiqXGt);}else{$QcNRBSYn47++;}}if($QcNRBSYn47){$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : [ $QcNRBSYn47 / ".(scalar(@IaHLk6W12R))."\x20\x5d\x20".__LINE__);}else{$yInoMmEp9f->yvfPlkqJS2();}}elsif($nKAL9Qjq8T eq "\x64\x69\x64\x5f\x64\x65\x6c" and $dwjqCU1zyv->{"\x44\x49\x44\x5f\x4d\x4e\x47"}){my($LK6rGPI0nW,$J9s6fQ7XYw,$UCIYtsghp9)=$yInoMmEp9f->ygswNUMao5([qw(did_id user_id did)]);if($yInoMmEp9f->zkN9OTIJcb($LK6rGPI0nW,$J9s6fQ7XYw,$UCIYtsghp9)){$yInoMmEp9f->y2q9pdsUQo("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x64\x72\x6f\x70",$UCIYtsghp9);$yInoMmEp9f->yvfPlkqJS2();}else{$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x75\x73\x65\x72\x5f\x75\x70\x64\x61\x74\x65"){my $J9s6fQ7XYw=$yInoMmEp9f->ygswNUMao5("\x75\x73\x65\x72\x5f\x69\x64");my @xwPyaMZHKn=$yInoMmEp9f->ygswNUMao5();my %ws2JIYTHoU;foreach my $doPipDxGLZ(@xwPyaMZHKn){if($doPipDxGLZ=~ /^US_(VOICENUMBER|STATUS|DEMO_MODE|DESCRIPTION|GROUP_ID|PERMIT_WEB|CUSTOM_RULES)/){if($doPipDxGLZ eq "\x55\x53\x5f\x43\x55\x53\x54\x4f\x4d\x5f\x52\x55\x4c\x45\x53" and ! $dwjqCU1zyv->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{"\x43\x52\x5f\x45\x4e\x41\x42\x4c\x45"}){next;}my $oQ6qdS8ruR=$1;if($yInoMmEp9f->ygswNUMao5($doPipDxGLZ)ne $h9AmNRHQij->{$oQ6qdS8ruR}){my $u0QdRWSCi8=$yInoMmEp9f->ygswNUMao5($doPipDxGLZ);if($oQ6qdS8ruR eq "\x47\x52\x4f\x55\x50\x5f\x49\x44"){if(index("\x2c".$dwjqCU1zyv->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}."\x2c",",$u0QdRWSCi8,")<0){return $yInoMmEp9f->yvfPlkqJS2("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}}$ws2JIYTHoU{$oQ6qdS8ruR}=$u0QdRWSCi8;}}}if($yInoMmEp9f->TeRyVT8K6h($J9s6fQ7XYw,\%ws2JIYTHoU)){$yInoMmEp9f->y2q9pdsUQo("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65",undef,$J9s6fQ7XYw);$yInoMmEp9f->yvfPlkqJS2();}else{$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x75\x73\x65\x72\x5f\x75\x70\x64\x61\x74\x65\x5f\x70\x69\x6e"){my $J9s6fQ7XYw=$yInoMmEp9f->ygswNUMao5("\x75\x73\x65\x72\x5f\x69\x64");my $ibUT5WEqNd=$yInoMmEp9f->ygswNUMao5("\x70\x69\x6e");if($yInoMmEp9f->nBeERQjMIw($J9s6fQ7XYw,$ibUT5WEqNd)){$yInoMmEp9f->y2q9pdsUQo("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65",undef,$J9s6fQ7XYw);$yInoMmEp9f->yvfPlkqJS2();}else{$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x75\x73\x65\x72\x5f\x61\x64\x64"){my($zaJBAbvW89,$aL25VDBc0v,$ajksLQglJe)=$yInoMmEp9f->ygswNUMao5([qw(phone group_id uname)]);if(index("\x2c".$dwjqCU1zyv->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}."\x2c",",$aL25VDBc0v,")<0){return $yInoMmEp9f->yvfPlkqJS2("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}if(my $IGpN1O4KIw=$yInoMmEp9f->Vi5lkBhgef($zaJBAbvW89,$aL25VDBc0v,$ajksLQglJe,undef,undef,{PARTNER_TAG=>$dwjqCU1zyv->{"\x54\x41\x47"}})){$yInoMmEp9f->y2q9pdsUQo("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x61\x64\x64",$IGpN1O4KIw);$yInoMmEp9f->yvfPlkqJS2("?action=user_info&ac=$IGpN1O4KIw&partner=$hDXk8pR9zK&df=".$yInoMmEp9f->ygswNUMao5("\x64\x66"));}else{$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x75\x73\x65\x72\x5f\x64\x65\x6c"){my($nd6h7BCmca)=$yInoMmEp9f->ygswNUMao5([qw(single_user)]);if($yInoMmEp9f->c9vijGEDLu($J9s6fQ7XYw)){if(ref $h9AmNRHQij eq "\x48\x41\x53\x48"){$yInoMmEp9f->y2q9pdsUQo("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x64\x72\x6f\x70",$h9AmNRHQij->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"});}if($nd6h7BCmca){$yInoMmEp9f->yvfPlkqJS2("?action=user_list&partner=$hDXk8pR9zK&df=".$yInoMmEp9f->ygswNUMao5("\x64\x66"));}else{$yInoMmEp9f->yvfPlkqJS2();}}else{$yInoMmEp9f->yvfPlkqJS2(undef,"Internal error : $$ : ".__LINE__);}}elsif($nKAL9Qjq8T eq "\x75\x73\x65\x72\x5f\x69\x6e\x66\x6f"){ZiUGkvxMsr($yInoMmEp9f,$dwjqCU1zyv,$hDXk8pR9zK,$dwjqCU1zyv->{"\x44\x49\x44\x5f\x4d\x4e\x47"},[split("\x2c",$dwjqCU1zyv->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})]);}elsif($nKAL9Qjq8T eq "\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74"){DxFRBKie3E($yInoMmEp9f,$dwjqCU1zyv,$hDXk8pR9zK,[split("\x2c",$dwjqCU1zyv->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$dwjqCU1zyv->{"\x54\x41\x47"});}elsif($nKAL9Qjq8T eq "\x63\x64\x72\x5f\x6c\x69\x73\x74"){f38NvX5CMJ($yInoMmEp9f,undef,$dwjqCU1zyv,$hDXk8pR9zK,[split("\x2c",$dwjqCU1zyv->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$dwjqCU1zyv->{"\x54\x41\x47"});}elsif($nKAL9Qjq8T eq "\x61\x63\x74\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c"){f38NvX5CMJ($yInoMmEp9f,"\x61\x63\x74\x61\x6c\x6c",$dwjqCU1zyv,$hDXk8pR9zK,[split("\x2c",$dwjqCU1zyv->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$dwjqCU1zyv->{"\x54\x41\x47"});}elsif($nKAL9Qjq8T eq "\x64\x69\x64\x5f\x6c\x69\x73\x74"){t1jc9SBAIE($yInoMmEp9f,$dwjqCU1zyv,$hDXk8pR9zK,[split("\x2c",$dwjqCU1zyv->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$dwjqCU1zyv->{"\x54\x41\x47"});}elsif($nKAL9Qjq8T eq "\x63\x61\x6c\x6c\x73\x5f\x68\x61\x6e\x67\x75\x70"){my($J9s6fQ7XYw,$BD9BFa8fXx)=$yInoMmEp9f->ygswNUMao5([qw(user_id call_id)]);if(length($BD9BFa8fXx)and length($J9s6fQ7XYw)){$yInoMmEp9f->ylW83hBVEP($BD9BFa8fXx,$J9s6fQ7XYw);}$yInoMmEp9f->yvfPlkqJS2();}elsif($nKAL9Qjq8T eq "\x66\x32\x62" and $dwjqCU1zyv->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{"\x46\x32\x42\x5f\x45\x4e\x41\x42\x4c\x45"}){Z61hYFqHDZ($yInoMmEp9f,$dwjqCU1zyv,$hDXk8pR9zK);}elsif($nKAL9Qjq8T eq "\x75\x73\x65\x72\x5f\x6c\x69\x73\x74"){N6k2r4L8Ae($yInoMmEp9f,$dwjqCU1zyv,$GLpcmRsF3M,[split("\x2c",$dwjqCU1zyv->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$hDXk8pR9zK,undef,$dwjqCU1zyv->{"\x54\x41\x47"});}else{$yInoMmEp9f->yvfPlkqJS2("\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 ZiUGkvxMsr{my($yInoMmEp9f,$dwjqCU1zyv,$hDXk8pR9zK,$ycsCRIXy8O,$EQC1sBtkLw)=@_;my $lM7HOpWEon=$yInoMmEp9f->zYwIvHeEKs(0,$yInoMmEp9f->NXOtBmzSP8()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"},undef,undef);my $Zzi8O24BP5=$yInoMmEp9f->TEu3aZwFJI();unless(ref $Zzi8O24BP5 eq "\x41\x52\x52\x41\x59"){$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $MFBdyf9ZVi=[];foreach my $F4LYyKZoCz(@{$EQC1sBtkLw}){foreach my $i8BCzjfTAD(@{$Zzi8O24BP5}){if($F4LYyKZoCz eq $i8BCzjfTAD->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$MFBdyf9ZVi},$i8BCzjfTAD;last;}}}unless(ref $lM7HOpWEon eq "\x41\x52\x52\x41\x59"){$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}QnGabKiy9C($yInoMmEp9f,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x75\x73\x65\x72\x5f\x69\x6e\x66\x6f\x2e\x74\x74",{PARTNER=>$hDXk8pR9zK,USER=>$lM7HOpWEon->[0],GROUPS=>$MFBdyf9ZVi,TARIFF=>$yInoMmEp9f->wqL79kG4l2(),DID_MNG=>$ycsCRIXy8O,EXTRA_OPTIONS=>$dwjqCU1zyv->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"},DIDS=>$yInoMmEp9f->lkyXJ9zRsF(),LIMITS=>$yInoMmEp9f->TZWFuYXpSm($yInoMmEp9f->NXOtBmzSP8()->{"\x49\x44"})});}sub N6k2r4L8Ae{my($yInoMmEp9f,$dwjqCU1zyv,$GLpcmRsF3M,$EQC1sBtkLw,$hDXk8pR9zK,$DLBNMacIAb,$y3vI57HFtq)=@_;my($DmJ8AW4OD9,$G5EV4BMTNb,$CN9wkpu2j1,$ofg8DOTWpd)=$yInoMmEp9f->ygswNUMao5(["\x66\x5f\x61\x63","\x66\x5f\x76\x6e","\x66\x5f\x67\x72\x6f\x75\x70","\x66\x5f\x73\x74\x61\x74\x75\x73"]);my $Zzi8O24BP5=$yInoMmEp9f->TEu3aZwFJI();unless(ref $Zzi8O24BP5 eq "\x41\x52\x52\x41\x59"){$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $MFBdyf9ZVi=[];my $Tp5xW2F4ny=0;foreach my $F4LYyKZoCz(@{$EQC1sBtkLw}){foreach my $i8BCzjfTAD(@{$Zzi8O24BP5}){if($F4LYyKZoCz eq $i8BCzjfTAD->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$MFBdyf9ZVi},$i8BCzjfTAD;if(length($CN9wkpu2j1)and ! $Tp5xW2F4ny){if($i8BCzjfTAD->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}eq $CN9wkpu2j1){$Tp5xW2F4ny=1;}}last;}}}my($lM7HOpWEon,$mw5xtS42M8);if($Tp5xW2F4ny){($lM7HOpWEon,$mw5xtS42M8)=$yInoMmEp9f->zYwIvHeEKs($GLpcmRsF3M,$DmJ8AW4OD9,$G5EV4BMTNb,$CN9wkpu2j1,undef,$ofg8DOTWpd,undef,undef,$y3vI57HFtq);}else{($lM7HOpWEon,$mw5xtS42M8)=$yInoMmEp9f->zYwIvHeEKs($GLpcmRsF3M,$DmJ8AW4OD9,$G5EV4BMTNb,$EQC1sBtkLw,undef,$ofg8DOTWpd,undef,undef,$y3vI57HFtq);}unless(ref $lM7HOpWEon eq "\x41\x52\x52\x41\x59"){$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $CAIVhGHlJo=1;foreach my $dSzPMBpsOT(@{$lM7HOpWEon}){$dSzPMBpsOT->{"\x49\x44\x58"}=$GLpcmRsF3M+$CAIVhGHlJo;$CAIVhGHlJo++;}my $m5CbQeaMpc;if($DLBNMacIAb){$m5CbQeaMpc="\x70\x61\x72\x74\x6e\x65\x72\x5f\x75\x73\x65\x72\x5f\x6c\x69\x73\x74\x5f\x72\x6f\x2e\x74\x74";}else{$m5CbQeaMpc="\x70\x61\x72\x74\x6e\x65\x72\x5f\x75\x73\x65\x72\x5f\x6c\x69\x73\x74\x2e\x74\x74";}QnGabKiy9C($yInoMmEp9f,$m5CbQeaMpc,{USERS=>$lM7HOpWEon,USERS_CNT=>$mw5xtS42M8,GROUPS=>$MFBdyf9ZVi,PARTNER=>$hDXk8pR9zK,F_AC=>$DmJ8AW4OD9,F_VN=>$G5EV4BMTNb,F_GROUP=>$CN9wkpu2j1,F_STATUS=>$ofg8DOTWpd,EXTRA_OPTIONS=>$dwjqCU1zyv->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"},$yInoMmEp9f->YBhgq75yGD(1,$lM7HOpWEon,$GLpcmRsF3M)});}sub DxFRBKie3E{my($yInoMmEp9f,$dwjqCU1zyv,$hDXk8pR9zK,$EQC1sBtkLw,$y3vI57HFtq)=@_;my($GLpcmRsF3M,$GQoMfts9n2,$rpKT2zrogm,$IGpN1O4KIw,$Z7eQCH3tRx,$h0qr9nBxDh,$IeOvtisjRq,$ydKAIopkU1,$aL25VDBc0v)=$yInoMmEp9f->ygswNUMao5([[(from=>0)],qw(caller_id called_id ac call_type refresh c2c duration group)]);my $xQ7mrHhuBJ;if($IGpN1O4KIw=~ /,/){$xQ7mrHhuBJ=[split(/\s*,\s*/,$IGpN1O4KIw)];}else{$xQ7mrHhuBJ=$IGpN1O4KIw;}my $Zzi8O24BP5=$yInoMmEp9f->TEu3aZwFJI();unless(ref $Zzi8O24BP5 eq "\x41\x52\x52\x41\x59"){$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $MFBdyf9ZVi=[];my $Tp5xW2F4ny=0;foreach my $F4LYyKZoCz(@{$EQC1sBtkLw}){foreach my $i8BCzjfTAD(@{$Zzi8O24BP5}){if($F4LYyKZoCz eq $i8BCzjfTAD->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$MFBdyf9ZVi},$i8BCzjfTAD;if(length($aL25VDBc0v)and ! $Tp5xW2F4ny){if($i8BCzjfTAD->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}eq $aL25VDBc0v){$Tp5xW2F4ny=1;}}last;}}}my $MHlROLdQ9Y;if($Tp5xW2F4ny){$MHlROLdQ9Y=$yInoMmEp9f->zQYJVCI3U2($GQoMfts9n2,$rpKT2zrogm,$xQ7mrHhuBJ,$Z7eQCH3tRx,$ydKAIopkU1,$aL25VDBc0v,$y3vI57HFtq,undef,$GLpcmRsF3M);}else{$MHlROLdQ9Y=$yInoMmEp9f->zQYJVCI3U2($GQoMfts9n2,$rpKT2zrogm,$xQ7mrHhuBJ,$Z7eQCH3tRx,$ydKAIopkU1,$EQC1sBtkLw,$y3vI57HFtq,undef,$GLpcmRsF3M);}unless(ref $MHlROLdQ9Y eq "\x41\x52\x52\x41\x59"){$MHlROLdQ9Y=[];}if($MHlROLdQ9Y){foreach my $uRcmOjl8iT(@{$MHlROLdQ9Y}){$uRcmOjl8iT->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$yInoMmEp9f->aD5a7Zuy2E($uRcmOjl8iT->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});$uRcmOjl8iT->{"\x43\x44\x52\x5f\x44\x55\x52\x41\x54\x49\x4f\x4e"}=time-$uRcmOjl8iT->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"};}}if(! length($IeOvtisjRq)and $dwjqCU1zyv->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{"\x43\x32\x43"}){$IeOvtisjRq=$dwjqCU1zyv->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{"\x43\x32\x43"};}if($IeOvtisjRq){$IeOvtisjRq=~ s#ph=[^&;]+##;$IeOvtisjRq=~ s#user_vars=([^&;]+)##;if($1){$IeOvtisjRq=",$1&$IeOvtisjRq";}elsif($IeOvtisjRq=~ /&/ and $IeOvtisjRq !~ /^[,&]/){$IeOvtisjRq="&$IeOvtisjRq";}}return QnGabKiy9C($yInoMmEp9f,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74",{CALLS_COUNT=>scalar(@$MHlROLdQ9Y),CALLS_LIST=>$MHlROLdQ9Y,CDR_CALLER_ID=>$GQoMfts9n2,CDR_CALLED_ID=>$rpKT2zrogm,CDR_AC=>$IGpN1O4KIw,CDR_CALL_TYPE=>$Z7eQCH3tRx,CDR_REFRESH_TIME=>$h0qr9nBxDh,CDR_C2C=>$IeOvtisjRq,CDR_DURATION=>$ydKAIopkU1,CDR_GROUP=>$aL25VDBc0v,GROUPS=>$MFBdyf9ZVi,PARTNER=>$hDXk8pR9zK,EXTRA_OPTIONS=>$dwjqCU1zyv->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"},$yInoMmEp9f->YBhgq75yGD(1,$MHlROLdQ9Y,$GLpcmRsF3M)});}sub t1jc9SBAIE{my($yInoMmEp9f,$dwjqCU1zyv,$hDXk8pR9zK,$EQC1sBtkLw,$y3vI57HFtq)=@_;my($GLpcmRsF3M,$DmJ8AW4OD9,$G5EV4BMTNb)=$yInoMmEp9f->ygswNUMao5([[(from=>0)],"\x66\x5f\x61\x63","\x66\x5f\x76\x6e"]);my $Zzi8O24BP5=$yInoMmEp9f->TEu3aZwFJI();unless(ref $Zzi8O24BP5 eq "\x41\x52\x52\x41\x59"){$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $MFBdyf9ZVi=[];foreach my $F4LYyKZoCz(@{$EQC1sBtkLw}){foreach my $i8BCzjfTAD(@{$Zzi8O24BP5}){if($F4LYyKZoCz eq $i8BCzjfTAD->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$MFBdyf9ZVi},$F4LYyKZoCz;last;}}}my $Zawo1J8BtV=$yInoMmEp9f->LWdqb61rGE($GLpcmRsF3M,$DmJ8AW4OD9,$G5EV4BMTNb,$MFBdyf9ZVi,$y3vI57HFtq);unless(ref $Zawo1J8BtV eq "\x41\x52\x52\x41\x59"){$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}QnGabKiy9C($yInoMmEp9f,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x64\x69\x64\x5f\x6c\x69\x73\x74\x2e\x74\x74",{DIDS=>$Zawo1J8BtV,F_AC=>$DmJ8AW4OD9,F_VN=>$G5EV4BMTNb,PARTNER=>$hDXk8pR9zK,$yInoMmEp9f->YBhgq75yGD(1,$Zawo1J8BtV,$GLpcmRsF3M)});}sub f38NvX5CMJ{my($yInoMmEp9f,$zPOu0jNYFW,$dwjqCU1zyv,$hDXk8pR9zK,$EQC1sBtkLw,$y3vI57HFtq)=@_;my($GLpcmRsF3M,$TdUNLKBHnz,$d14LDTCW6E,$e6QCR59Tv8,$BD9BFa8fXx,$GQoMfts9n2,$rpKT2zrogm,$IGpN1O4KIw,$Z7eQCH3tRx,$ydKAIopkU1,$VJ3ZCVlIbD,$vd5mzi7gHW,$T9Unp8mQvo,$aL25VDBc0v)=$yInoMmEp9f->ygswNUMao5([[(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("$BD9BFa8fXx$GQoMfts9n2$rpKT2zrogm$TdUNLKBHnz$d14LDTCW6E$Z7eQCH3tRx$IGpN1O4KIw$ydKAIopkU1$T9Unp8mQvo")){my $yFYDg5AS1w=$yInoMmEp9f->JisSHQVMcn("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x41\x49");$TdUNLKBHnz=$yInoMmEp9f->aD5a7Zuy2E(time-86400*$yFYDg5AS1w,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$d14LDTCW6E=$yInoMmEp9f->aD5a7Zuy2E(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my $Zzi8O24BP5=$yInoMmEp9f->TEu3aZwFJI();unless(ref $Zzi8O24BP5 eq "\x41\x52\x52\x41\x59"){$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $MFBdyf9ZVi=[];my $Tp5xW2F4ny=0;foreach my $F4LYyKZoCz(@{$EQC1sBtkLw}){foreach my $i8BCzjfTAD(@{$Zzi8O24BP5}){if($F4LYyKZoCz eq $i8BCzjfTAD->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$MFBdyf9ZVi},$i8BCzjfTAD;if(length($aL25VDBc0v)and ! $Tp5xW2F4ny){if($i8BCzjfTAD->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}eq $aL25VDBc0v){$Tp5xW2F4ny=1;}}last;}}}my $xQ7mrHhuBJ;if($IGpN1O4KIw=~ /,/){$xQ7mrHhuBJ=[split(/\s*,\s*/,$IGpN1O4KIw)];}else{$xQ7mrHhuBJ=$IGpN1O4KIw;}my $Vn89rq0YwN;if($Tp5xW2F4ny){$Vn89rq0YwN=$yInoMmEp9f->Xq89gCLbxo($BD9BFa8fXx,$GQoMfts9n2,$rpKT2zrogm,$GLpcmRsF3M,$yInoMmEp9f->P9gARsKNnI($TdUNLKBHnz),$yInoMmEp9f->P9gARsKNnI($d14LDTCW6E),$Z7eQCH3tRx,$xQ7mrHhuBJ,$ydKAIopkU1,$T9Unp8mQvo,$zPOu0jNYFW,$vd5mzi7gHW,$VJ3ZCVlIbD,$aL25VDBc0v,$y3vI57HFtq);}else{$Vn89rq0YwN=$yInoMmEp9f->Xq89gCLbxo($BD9BFa8fXx,$GQoMfts9n2,$rpKT2zrogm,$GLpcmRsF3M,$yInoMmEp9f->P9gARsKNnI($TdUNLKBHnz),$yInoMmEp9f->P9gARsKNnI($d14LDTCW6E),$Z7eQCH3tRx,$xQ7mrHhuBJ,$ydKAIopkU1,$T9Unp8mQvo,$zPOu0jNYFW,$vd5mzi7gHW,$VJ3ZCVlIbD,$EQC1sBtkLw,$y3vI57HFtq);}unless(ref $Vn89rq0YwN eq "\x41\x52\x52\x41\x59"){$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my(@xwPyaMZHKn,$l5bZLfc4uA);if($Vn89rq0YwN){my $wS7dg80G3V=$GLpcmRsF3M+1;foreach my $uRcmOjl8iT(@{$Vn89rq0YwN}){$uRcmOjl8iT->{"\x43\x44\x52\x5f\x4e\x55\x4d"}=$wS7dg80G3V++;$uRcmOjl8iT->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$yInoMmEp9f->aD5a7Zuy2E($uRcmOjl8iT->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});}if(ref $Vn89rq0YwN and ref $Vn89rq0YwN->[0]){my $uGt26ld54o=$yInoMmEp9f->aD5a7Zuy2E($Vn89rq0YwN->[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 @xwPyaMZHKn,(JS_DATE_STR=>$uGt26ld54o);}}my $NghyM780K4;if($BD9BFa8fXx){$NghyM780K4="\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($zPOu0jNYFW){$NghyM780K4="\x70\x61\x72\x74\x6e\x65\x72\x5f\x61\x63\x74\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c\x2e\x74\x74";push @xwPyaMZHKn,(CDR_ACT_TYPE=>$VJ3ZCVlIbD,CDR_ACT_EXT=>$vd5mzi7gHW);unless($yInoMmEp9f->y7FE8GPAza()->{"\x44\x46"}){push @xwPyaMZHKn,(ACT_TYPES=>$yInoMmEp9f->{"\x5f\x4c\x49\x53\x54\x53"}->{"\x41\x43\x54\x49\x56\x49\x54\x49\x45\x53"});}}else{$NghyM780K4="\x70\x61\x72\x74\x6e\x65\x72\x5f\x63\x64\x72\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74";push @xwPyaMZHKn,(CDR_CALL_TYPE=>$Z7eQCH3tRx);}return QnGabKiy9C($yInoMmEp9f,$NghyM780K4,{CDR_LIST=>$Vn89rq0YwN,CDR_CALL_ID=>$BD9BFa8fXx,CDR_CALLER_ID=>$GQoMfts9n2,CDR_CALLED_ID=>$rpKT2zrogm,CDR_AC=>$IGpN1O4KIw,CDR_DURATION=>$ydKAIopkU1,CDR_DATA=>$T9Unp8mQvo,FROM_TIME=>$TdUNLKBHnz,TO_TIME=>$d14LDTCW6E,SMART_TIME=>$e6QCR59Tv8,CDR_GROUP=>$aL25VDBc0v,GROUPS=>$MFBdyf9ZVi,PARTNER=>$hDXk8pR9zK,EXTRA_OPTIONS=>$dwjqCU1zyv->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"},@xwPyaMZHKn,$yInoMmEp9f->YBhgq75yGD(1,$Vn89rq0YwN,$GLpcmRsF3M)});}sub Z61hYFqHDZ{my($yInoMmEp9f,$dwjqCU1zyv,$hDXk8pR9zK)=@_;my($KUC3qWH60F,$TH5CmJDQ7W,$ktfQeINLyE)=$yInoMmEp9f->ygswNUMao5([qw(node ip mode)]);if($ktfQeINLyE eq "\x77\x6c\x61\x64\x64"){$yInoMmEp9f->sMeCAFY8P4($KUC3qWH60F,$ktfQeINLyE,$TH5CmJDQ7W);}elsif($ktfQeINLyE eq "\x77\x6c\x64\x65\x6c"){$yInoMmEp9f->sMeCAFY8P4($KUC3qWH60F,$ktfQeINLyE,$TH5CmJDQ7W);}elsif($TH5CmJDQ7W){my $SGznF6Pdfq=$dwjqCU1zyv->{"\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 $zg9D8Zhk2Q=$yInoMmEp9f->jZ8JcyD0v3("\x66\x32\x62\x2d\x70\x61\x72\x74\x6e\x65\x72\x2d".$dwjqCU1zyv->{"\x49\x44"}."-$TH5CmJDQ7W")||0;if($zg9D8Zhk2Q){undef $TH5CmJDQ7W;$yInoMmEp9f->{"\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{$yInoMmEp9f->jZ8JcyD0v3("\x66\x32\x62\x2d\x70\x61\x72\x74\x6e\x65\x72\x2d".$dwjqCU1zyv->{"\x49\x44"}."-$TH5CmJDQ7W",1,$SGznF6Pdfq);$yInoMmEp9f->SxWutByNVm($KUC3qWH60F,$TH5CmJDQ7W);}}my $g4Ftj8c9qS=$yInoMmEp9f->SxWutByNVm($KUC3qWH60F);unless(ref $g4Ftj8c9qS eq "\x41\x52\x52\x41\x59"){$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $Kpmnzbcfvk=$yInoMmEp9f->sMeCAFY8P4();unless(ref $Kpmnzbcfvk eq "\x41\x52\x52\x41\x59"){$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}QnGabKiy9C($yInoMmEp9f,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x66\x32\x62\x2e\x74\x74",{F2B_WL=>$Kpmnzbcfvk,F2B_CNT_WL=>scalar(@$Kpmnzbcfvk),F2B=>$g4Ftj8c9qS,F2B_CNT=>scalar(@$g4Ftj8c9qS),PARTNER=>$hDXk8pR9zK,NODE=>$yInoMmEp9f->JisSHQVMcn("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x53\x45\x52\x56\x45\x52\x5f\x49\x44"),EXTRA_OPTIONS=>$dwjqCU1zyv->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}});}sub QnGabKiy9C{my($yInoMmEp9f,$Z7CVdisEDt,$T9Unp8mQvo)=@_;my $YuQK8jELmP=Template::EasyTT->new({});my $ZqZm0rRS12=$yInoMmEp9f->JisSHQVMcn("\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 $TOyZoTYzWp='';$T9Unp8mQvo->{"\x55\x53\x45\x5f\x42\x49\x4c\x4c\x49\x4e\x47"}=$yInoMmEp9f->JisSHQVMcn("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x55\x53\x45\x5f\x42\x49\x4c\x4c\x49\x4e\x47");$T9Unp8mQvo->{"\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}=$yInoMmEp9f->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"};$T9Unp8mQvo->{"\x55\x4e\x49\x58\x54\x49\x4d\x45"}=time;my @mg92iyE1WP;if(length $ENV{"\x50\x41\x54\x48\x5f\x49\x4e\x46\x4f"}){@mg92iyE1WP=split(/\//,substr($ENV{"\x50\x41\x54\x48\x5f\x49\x4e\x46\x4f"},1));}my $yb40z1qgcd=$yInoMmEp9f->JisSHQVMcn("\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 $XVD0JMWdkb=$yInoMmEp9f->JisSHQVMcn("\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 $mg92iyE1WP[0]){my($zBTRNML09X,$F8S60XypFM)=split(/:/,$mg92iyE1WP[0]);if(length $zBTRNML09X){$yb40z1qgcd=$zBTRNML09X;$yb40z1qgcd=~ s#[^\w\d\._-]##g;}$XVD0JMWdkb=$F8S60XypFM if length $F8S60XypFM;}my $aq70zAvgBC=$yInoMmEp9f->ygswNUMao5("\x64\x66");if($aq70zAvgBC){my $HHq7FQwdN5=0;foreach my $aCuZvBHwPG(split(/\s*,\s*/,$yInoMmEp9f->JisSHQVMcn("\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"}=~ /^$aCuZvBHwPG$/){$HHq7FQwdN5=1;last;}}$aq70zAvgBC='' unless $HHq7FQwdN5;}unless($aq70zAvgBC){$YuQK8jELmP->operators_add("\x64\x69\x76\x32",sub{return $_[0]% 2});$YuQK8jELmP->filters_add("\x62\x69\x6c\x6c\x5f\x66\x6c\x6f\x61\x74",sub{return sprintf("\x25\x2e".($yInoMmEp9f->JisSHQVMcn("\x42\x49\x4c\x4c\x49\x4e\x47\x5f\x52\x4f\x55\x4e\x44\x49\x4e\x47\x5f\x34\x47\x55\x49")||2)."\x66",$_[1])});$YuQK8jELmP->filters_add("\x6c\x6f\x63\x61\x6c\x65\x5f\x6d\x73\x67",sub{my $M27nYR8Q6z=$yInoMmEp9f->oYKeyHOhko($_[1],$XVD0JMWdkb);$M27nYR8Q6z=~ s#&#&amp;#gs;$M27nYR8Q6z=~ s#\x22#&quot;#gs;$M27nYR8Q6z=~ s#<#&lt;#gs;$M27nYR8Q6z=~ s#>#&gt;#gs;$M27nYR8Q6z=~ s#\x27#&apos;#gs;return $M27nYR8Q6z;});if(-e "$ZqZm0rRS12/$yb40z1qgcd/$Z7CVdisEDt"){$YuQK8jELmP->process("$ZqZm0rRS12/$yb40z1qgcd/$Z7CVdisEDt",$T9Unp8mQvo,\$TOyZoTYzWp);}else{$YuQK8jELmP->process("$ZqZm0rRS12/$Z7CVdisEDt",$T9Unp8mQvo,\$TOyZoTYzWp);}}unless($aq70zAvgBC){$yInoMmEp9f->eNIeah5Mdf(200,"\x4f\x6b",undef,$TOyZoTYzWp.$yInoMmEp9f->oYKeyHOhko("\x67\x36\x31\x33","\x43"));}elsif($aq70zAvgBC eq "\x78\x6d\x6c"){require XML::Simple;$TOyZoTYzWp=XML::Simple::XMLout($T9Unp8mQvo);$yInoMmEp9f->IZ9j5TiesI(200,"\x4f\x6b",undef,$TOyZoTYzWp);}elsif($aq70zAvgBC eq "\x6a\x73\x6f\x6e"){require JSON::XS;my $UxMrmt9Bnb=JSON::XS->new();$yInoMmEp9f->eNIeah5Mdf(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",$UxMrmt9Bnb->encode($T9Unp8mQvo));}}