#!/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;DwEe7lgfHd();sub new{my($Na4KXDY05O,$m4vDJP6hMk)=@_;my $YxJPfXkGup=bless{_CGI=>CGI->new(),_CONF=>{},_CDR=>{CALLED_ID=>"\x77\x65\x62",},_USER_CREDS=>{},_USER_VBOXES=>{},_SESSION=>{},},$Na4KXDY05O;$YxJPfXkGup->uan385Lv9B($m4vDJP6hMk);$YxJPfXkGup->kh6jHCDIMv();$YxJPfXkGup->{"\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};$YxJPfXkGup->{"\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 $jEkg1sMn3W;$YxJPfXkGup->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}={};foreach my $f98NanfbT4(split(/\s*;\s*/,$YxJPfXkGup->LkXDqNIi1U("\x43\x47\x49\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"))){my($tOf8xknI9j,@T2YsO9u1yH)=split(/\s*:\s*/,$f98NanfbT4);foreach my $ICtuK5FPL2(@T2YsO9u1yH){$YxJPfXkGup->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$ICtuK5FPL2}=$tOf8xknI9j;}}my $ICtuK5FPL2=$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"};unless(exists $YxJPfXkGup->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$ICtuK5FPL2}){$ICtuK5FPL2=~ s#\.\d+$##;}unless(exists $YxJPfXkGup->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$ICtuK5FPL2}){if($YxJPfXkGup->LkXDqNIi1U("\x43\x47\x49\x5f\x41\x4c\x49\x41\x53\x45\x53\x5f\x57\x4f\x5f\x49\x50")){$jEkg1sMn3W="\x70\x61\x72\x74\x6e\x65\x72";}else{$jEkg1sMn3W="\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($YxJPfXkGup->LkXDqNIi1U("\x43\x47\x49\x5f\x41\x4c\x49\x41\x53\x45\x53\x5f\x57\x4f\x5f\x49\x50")){$jEkg1sMn3W=$YxJPfXkGup->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$ICtuK5FPL2};}else{$jEkg1sMn3W=$YxJPfXkGup->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$ICtuK5FPL2}."\x20\x28\x20".$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"}."\x20\x29";}}$YxJPfXkGup->{"\x5f\x43\x44\x52"}->{"\x43\x41\x4c\x4c\x45\x52\x5f\x49\x44"}=$jEkg1sMn3W;;$YxJPfXkGup->{"\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($YxJPfXkGup->LkXDqNIi1U("\x50\x41\x54\x48\x5f\x57\x4f\x52\x4b\x5f\x44\x49\x52"));$YxJPfXkGup->tCcgFj0RMW();return $YxJPfXkGup;}sub DwEe7lgfHd{my $YxJPfXkGup=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($nLUS4X013P,$rmfKFS2LUJ,$r91LkC2DGp);$YxJPfXkGup->LwBxcahkvj(1);my($To6k2OlpBS,$ihw3BMFcCf,$Jr74KMNfHh,$hDQHtr2pNC,$Qa7E62UPJ3,$ZDPvIsBfeO)=$YxJPfXkGup->a4eP9YOWX5([qw(partner password action from user_id ac)]);my($nM4PN9r5uo,$qdi0ABz61C);if(my $SnrUg69kht=$YxJPfXkGup->ZqYA2hBLZF()){unless(length $ihw3BMFcCf){my($gFa46etqdx,$nLUS4X013P,$nvWny87OVY)=split(/-/,$To6k2OlpBS);foreach my $XxHtcQjGAY(@$SnrUg69kht){if($XxHtcQjGAY->{"\x49\x44"}eq $gFa46etqdx){if($YxJPfXkGup->LkXDqNIi1U("\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-$nvWny87OVY<$YxJPfXkGup->LkXDqNIi1U("\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($nLUS4X013P eq md5_hex(join("\x2d",$XxHtcQjGAY->{"\x4e\x41\x4d\x45"},$XxHtcQjGAY->{"\x50\x41\x53\x53\x57\x4f\x52\x44"},$nvWny87OVY))){$qdi0ABz61C=$XxHtcQjGAY;}}}else{if($nLUS4X013P eq md5_hex(join("\x2d",$XxHtcQjGAY->{"\x4e\x41\x4d\x45"},$XxHtcQjGAY->{"\x50\x41\x53\x53\x57\x4f\x52\x44"},$nvWny87OVY))){$qdi0ABz61C=$XxHtcQjGAY;}}last;}}}else{foreach my $XxHtcQjGAY(@$SnrUg69kht){if($XxHtcQjGAY->{"\x4e\x41\x4d\x45"}eq $To6k2OlpBS){if($XxHtcQjGAY->{"\x50\x41\x53\x53\x57\x4f\x52\x44"}eq $ihw3BMFcCf){$qdi0ABz61C=$XxHtcQjGAY;}last;}}}}if($qdi0ABz61C){my $nvWny87OVY=time;$To6k2OlpBS=$qdi0ABz61C->{"\x49\x44"}."\x2d".md5_hex(join("\x2d",$qdi0ABz61C->{"\x4e\x41\x4d\x45"},$qdi0ABz61C->{"\x50\x41\x53\x53\x57\x4f\x52\x44"},$nvWny87OVY))."\x2d".$nvWny87OVY;$qdi0ABz61C->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}={};if($qdi0ABz61C->{"\x4f\x50\x54\x49\x4f\x4e\x53"}){foreach my $fdMx4Y97ck(split(/\s*\|\s*/,$qdi0ABz61C->{"\x4f\x50\x54\x49\x4f\x4e\x53"})){my($vmbVHdn78G,$KTMf5LVWGd)=split(/=/,$fdMx4Y97ck,2);next unless length $vmbVHdn78G;$qdi0ABz61C->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{uc($vmbVHdn78G)}=$KTMf5LVWGd;}}}else{return IkgY8wZQ7z($YxJPfXkGup,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x6f\x67\x69\x6e\x2e\x74\x74",{});}if(exists($YxJPfXkGup->{"\x5f\x55\x53\x45\x52\x5f\x49\x4e\x46\x4f\x5f\x41\x43\x54\x49\x4f\x4e\x53"}->{$Jr74KMNfHh})){if(length($Qa7E62UPJ3)){$nM4PN9r5uo=$YxJPfXkGup->Tu382e9j0Q($Qa7E62UPJ3);my $HZOnp5hENz=$YxJPfXkGup->Pa4lJy7CWz();%{$HZOnp5hENz}=%{$nM4PN9r5uo};}elsif(length($ZDPvIsBfeO)){$YxJPfXkGup->tOlP8ynhfu(undef,$ZDPvIsBfeO);$nM4PN9r5uo=$YxJPfXkGup->Pa4lJy7CWz();}}else{$nM4PN9r5uo=$qdi0ABz61C;$nM4PN9r5uo->{"\x50\x41\x52\x54\x4e\x45\x52\x5f\x54\x41\x47"}=$qdi0ABz61C->{"\x54\x41\x47"};}if(! $nM4PN9r5uo or ! $qdi0ABz61C or index("\x2c".$qdi0ABz61C->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}."\x2c","\x2c".$nM4PN9r5uo->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}."\x2c")<0){return $YxJPfXkGup->GRXMuq4YHg("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}elsif($YxJPfXkGup->LkXDqNIi1U("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x50\x41\x52\x54\x4e\x45\x52\x5f\x4d\x4f\x44\x45")==1){if(index($nM4PN9r5uo->{"\x50\x41\x52\x54\x4e\x45\x52\x5f\x54\x41\x47"},$qdi0ABz61C->{"\x54\x41\x47"})){return $YxJPfXkGup->GRXMuq4YHg("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}}elsif($YxJPfXkGup->LkXDqNIi1U("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x50\x41\x52\x54\x4e\x45\x52\x5f\x4d\x4f\x44\x45")==2){if($nM4PN9r5uo->{"\x50\x41\x52\x54\x4e\x45\x52\x5f\x54\x41\x47"}ne $qdi0ABz61C->{"\x54\x41\x47"}){return $YxJPfXkGup->GRXMuq4YHg("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}}if($qdi0ABz61C->{"\x52\x45\x41\x44\x5f\x4f\x4e\x4c\x59"}){IzPJImtOoA($YxJPfXkGup,$qdi0ABz61C,$hDQHtr2pNC,[split("\x2c",$qdi0ABz61C->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$To6k2OlpBS,"\x72\x6f",$qdi0ABz61C->{"\x54\x41\x47"});}elsif($Jr74KMNfHh eq "\x62\x61\x6c\x61\x6e\x63\x65\x5f\x75\x70\x64\x61\x74\x65"){my($JZDSITjVYH,$nBR3OLU9Em)=$YxJPfXkGup->a4eP9YOWX5([qw(balance cur_id)]);if($YxJPfXkGup->YHkmt8j5nb($JZDSITjVYH,$nBR3OLU9Em)){$YxJPfXkGup->P09dGmBWfj("\x75\x73\x65\x72\x2d".$YxJPfXkGup->Pa4lJy7CWz()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"},undef);$YxJPfXkGup->GRXMuq4YHg();}else{$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x64\x69\x64\x5f\x61\x64\x64" and $qdi0ABz61C->{"\x44\x49\x44\x5f\x4d\x4e\x47"}){my($bJ9IregFmZ,$gZkhVLQE9p,$kYhPQmJIA1,$sLweSJlcx4)=$YxJPfXkGup->a4eP9YOWX5([qw(did channels pn cnam)]);my @oJ014dhecG=split(/\s*,\s*/,$bJ9IregFmZ);my $ZAJLBfrQpq=0;foreach my $GIkJ7SezGC(@oJ014dhecG){if($YxJPfXkGup->Z0PlrM81hL($GIkJ7SezGC,$kYhPQmJIA1,$ZDPvIsBfeO,$gZkhVLQE9p,$sLweSJlcx4)){$YxJPfXkGup->UIefDZLOgE("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x61\x64\x64",$GIkJ7SezGC);}else{$ZAJLBfrQpq++;}}if($ZAJLBfrQpq){$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : [ $ZAJLBfrQpq / ".(scalar(@oJ014dhecG))."\x20\x5d\x20".__LINE__);}else{$YxJPfXkGup->GRXMuq4YHg();}}elsif($Jr74KMNfHh eq "\x64\x69\x64\x5f\x64\x65\x6c" and $qdi0ABz61C->{"\x44\x49\x44\x5f\x4d\x4e\x47"}){my($UoYOfJ8dki,$Qa7E62UPJ3,$bJ9IregFmZ)=$YxJPfXkGup->a4eP9YOWX5([qw(did_id user_id did)]);if($YxJPfXkGup->BPnYHlF1xt($UoYOfJ8dki,$Qa7E62UPJ3,$bJ9IregFmZ)){$YxJPfXkGup->UIefDZLOgE("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x64\x72\x6f\x70",$bJ9IregFmZ);$YxJPfXkGup->GRXMuq4YHg();}else{$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x75\x73\x65\x72\x5f\x75\x70\x64\x61\x74\x65"){my $Qa7E62UPJ3=$YxJPfXkGup->a4eP9YOWX5("\x75\x73\x65\x72\x5f\x69\x64");my @GuGqr23Zlc=$YxJPfXkGup->a4eP9YOWX5();my %UKA2TeLIk0;foreach my $eX97Pj0uw8(@GuGqr23Zlc){if($eX97Pj0uw8=~ /^US_(VOICENUMBER|STATUS|DEMO_MODE|DESCRIPTION|GROUP_ID|PERMIT_WEB|CUSTOM_RULES)/){if($eX97Pj0uw8 eq "\x55\x53\x5f\x43\x55\x53\x54\x4f\x4d\x5f\x52\x55\x4c\x45\x53" and ! $qdi0ABz61C->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{"\x43\x52\x5f\x45\x4e\x41\x42\x4c\x45"}){next;}my $vmbVHdn78G=$1;if($YxJPfXkGup->a4eP9YOWX5($eX97Pj0uw8)ne $nM4PN9r5uo->{$vmbVHdn78G}){my $KTMf5LVWGd=$YxJPfXkGup->a4eP9YOWX5($eX97Pj0uw8);if($vmbVHdn78G eq "\x47\x52\x4f\x55\x50\x5f\x49\x44"){if(index("\x2c".$qdi0ABz61C->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}."\x2c",",$KTMf5LVWGd,")<0){return $YxJPfXkGup->GRXMuq4YHg("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}}$UKA2TeLIk0{$vmbVHdn78G}=$KTMf5LVWGd;}}}if($YxJPfXkGup->kKu1k49GAW($Qa7E62UPJ3,\%UKA2TeLIk0)){$YxJPfXkGup->UIefDZLOgE("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65",undef,$Qa7E62UPJ3);$YxJPfXkGup->GRXMuq4YHg();}else{$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x75\x73\x65\x72\x5f\x75\x70\x64\x61\x74\x65\x5f\x70\x69\x6e"){my $Qa7E62UPJ3=$YxJPfXkGup->a4eP9YOWX5("\x75\x73\x65\x72\x5f\x69\x64");my $CSg3YdN8aJ=$YxJPfXkGup->a4eP9YOWX5("\x70\x69\x6e");if($YxJPfXkGup->vnSADT7dGj($Qa7E62UPJ3,$CSg3YdN8aJ)){$YxJPfXkGup->UIefDZLOgE("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65",undef,$Qa7E62UPJ3);$YxJPfXkGup->GRXMuq4YHg();}else{$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x75\x73\x65\x72\x5f\x61\x64\x64"){my($kYhPQmJIA1,$U0fQRSUqen,$VlK0nMkAjW)=$YxJPfXkGup->a4eP9YOWX5([qw(phone group_id uname)]);if(index("\x2c".$qdi0ABz61C->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}."\x2c",",$U0fQRSUqen,")<0){return $YxJPfXkGup->GRXMuq4YHg("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}if(my $ZDPvIsBfeO=$YxJPfXkGup->zyzNoYWcEZ($kYhPQmJIA1,$U0fQRSUqen,$VlK0nMkAjW,undef,undef,{PARTNER_TAG=>$qdi0ABz61C->{"\x54\x41\x47"}})){$YxJPfXkGup->UIefDZLOgE("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x61\x64\x64",$ZDPvIsBfeO);$YxJPfXkGup->GRXMuq4YHg("?action=user_info&ac=$ZDPvIsBfeO&partner=$To6k2OlpBS&df=".$YxJPfXkGup->a4eP9YOWX5("\x64\x66"));}else{$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x75\x73\x65\x72\x5f\x64\x65\x6c"){my($vobmVpCgtR)=$YxJPfXkGup->a4eP9YOWX5([qw(single_user)]);if($YxJPfXkGup->MOmuJ19d8B($Qa7E62UPJ3)){if(ref $nM4PN9r5uo eq "\x48\x41\x53\x48"){$YxJPfXkGup->UIefDZLOgE("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x64\x72\x6f\x70",$nM4PN9r5uo->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"});}if($vobmVpCgtR){$YxJPfXkGup->GRXMuq4YHg("?action=user_list&partner=$To6k2OlpBS&df=".$YxJPfXkGup->a4eP9YOWX5("\x64\x66"));}else{$YxJPfXkGup->GRXMuq4YHg();}}else{$YxJPfXkGup->GRXMuq4YHg(undef,"Internal error : $$ : ".__LINE__);}}elsif($Jr74KMNfHh eq "\x75\x73\x65\x72\x5f\x69\x6e\x66\x6f"){fpDJ5bXfMY($YxJPfXkGup,$qdi0ABz61C,$To6k2OlpBS,$qdi0ABz61C->{"\x44\x49\x44\x5f\x4d\x4e\x47"},[split("\x2c",$qdi0ABz61C->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})]);}elsif($Jr74KMNfHh eq "\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74"){sOX4RJ6qc9($YxJPfXkGup,$qdi0ABz61C,$To6k2OlpBS,[split("\x2c",$qdi0ABz61C->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$qdi0ABz61C->{"\x54\x41\x47"});}elsif($Jr74KMNfHh eq "\x63\x64\x72\x5f\x6c\x69\x73\x74"){j7cDBfe9mv($YxJPfXkGup,undef,$qdi0ABz61C,$To6k2OlpBS,[split("\x2c",$qdi0ABz61C->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$qdi0ABz61C->{"\x54\x41\x47"});}elsif($Jr74KMNfHh eq "\x61\x63\x74\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c"){j7cDBfe9mv($YxJPfXkGup,"\x61\x63\x74\x61\x6c\x6c",$qdi0ABz61C,$To6k2OlpBS,[split("\x2c",$qdi0ABz61C->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$qdi0ABz61C->{"\x54\x41\x47"});}elsif($Jr74KMNfHh eq "\x64\x69\x64\x5f\x6c\x69\x73\x74"){Jij45Fl6kG($YxJPfXkGup,$qdi0ABz61C,$To6k2OlpBS,[split("\x2c",$qdi0ABz61C->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$qdi0ABz61C->{"\x54\x41\x47"});}elsif($Jr74KMNfHh eq "\x63\x61\x6c\x6c\x73\x5f\x68\x61\x6e\x67\x75\x70"){my($Qa7E62UPJ3,$tC5q2BANVu)=$YxJPfXkGup->a4eP9YOWX5([qw(user_id call_id)]);if(length($tC5q2BANVu)and length($Qa7E62UPJ3)){$YxJPfXkGup->FU2tOA1au8($tC5q2BANVu,$Qa7E62UPJ3);}$YxJPfXkGup->GRXMuq4YHg();}elsif($Jr74KMNfHh eq "\x66\x32\x62" and $qdi0ABz61C->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{"\x46\x32\x42\x5f\x45\x4e\x41\x42\x4c\x45"}){FyVdeUas2t($YxJPfXkGup,$qdi0ABz61C,$To6k2OlpBS);}elsif($Jr74KMNfHh eq "\x75\x73\x65\x72\x5f\x6c\x69\x73\x74"){IzPJImtOoA($YxJPfXkGup,$qdi0ABz61C,$hDQHtr2pNC,[split("\x2c",$qdi0ABz61C->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$To6k2OlpBS,undef,$qdi0ABz61C->{"\x54\x41\x47"});}else{$YxJPfXkGup->GRXMuq4YHg("\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 fpDJ5bXfMY{my($YxJPfXkGup,$qdi0ABz61C,$To6k2OlpBS,$Jo0LK2VNGd,$oiAJx9cHC5)=@_;my $TYwSZ4sXPx=$YxJPfXkGup->mU2rZv8u5Y(0,$YxJPfXkGup->Pa4lJy7CWz()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"},undef,undef);my $ZLuqGkxrQy=$YxJPfXkGup->GnJ2MtYTSs();unless(ref $ZLuqGkxrQy eq "\x41\x52\x52\x41\x59"){$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $HCro1f5nD4=[];foreach my $lgx93VcAUm(@{$oiAJx9cHC5}){foreach my $Zv7Ao9F8i5(@{$ZLuqGkxrQy}){if($lgx93VcAUm eq $Zv7Ao9F8i5->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$HCro1f5nD4},$Zv7Ao9F8i5;last;}}}unless(ref $TYwSZ4sXPx eq "\x41\x52\x52\x41\x59"){$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}IkgY8wZQ7z($YxJPfXkGup,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x75\x73\x65\x72\x5f\x69\x6e\x66\x6f\x2e\x74\x74",{PARTNER=>$To6k2OlpBS,USER=>$TYwSZ4sXPx->[0],GROUPS=>$HCro1f5nD4,TARIFF=>$YxJPfXkGup->MpjiYtDJnT(),DID_MNG=>$Jo0LK2VNGd,EXTRA_OPTIONS=>$qdi0ABz61C->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"},DIDS=>$YxJPfXkGup->EQlLMfOb5E(),LIMITS=>$YxJPfXkGup->e6WeYsZEw9($YxJPfXkGup->Pa4lJy7CWz()->{"\x49\x44"})});}sub IzPJImtOoA{my($YxJPfXkGup,$qdi0ABz61C,$hDQHtr2pNC,$oiAJx9cHC5,$To6k2OlpBS,$CZJEVpPzOc,$f8UPDrB9Cd)=@_;my($Zi7IvB5ogY,$CVUjP2fTW3,$v1TD0t2AJb,$dysKRl2IdO)=$YxJPfXkGup->a4eP9YOWX5(["\x66\x5f\x61\x63","\x66\x5f\x76\x6e","\x66\x5f\x67\x72\x6f\x75\x70","\x66\x5f\x73\x74\x61\x74\x75\x73"]);my $ZLuqGkxrQy=$YxJPfXkGup->GnJ2MtYTSs();unless(ref $ZLuqGkxrQy eq "\x41\x52\x52\x41\x59"){$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $HCro1f5nD4=[];my $n5X9cFa3tv=0;foreach my $lgx93VcAUm(@{$oiAJx9cHC5}){foreach my $Zv7Ao9F8i5(@{$ZLuqGkxrQy}){if($lgx93VcAUm eq $Zv7Ao9F8i5->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$HCro1f5nD4},$Zv7Ao9F8i5;if(length($v1TD0t2AJb)and ! $n5X9cFa3tv){if($Zv7Ao9F8i5->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}eq $v1TD0t2AJb){$n5X9cFa3tv=1;}}last;}}}my($TYwSZ4sXPx,$sFQ0EcsW1d);if($n5X9cFa3tv){($TYwSZ4sXPx,$sFQ0EcsW1d)=$YxJPfXkGup->mU2rZv8u5Y($hDQHtr2pNC,$Zi7IvB5ogY,$CVUjP2fTW3,$v1TD0t2AJb,undef,$dysKRl2IdO,undef,undef,$f8UPDrB9Cd);}else{($TYwSZ4sXPx,$sFQ0EcsW1d)=$YxJPfXkGup->mU2rZv8u5Y($hDQHtr2pNC,$Zi7IvB5ogY,$CVUjP2fTW3,$oiAJx9cHC5,undef,$dysKRl2IdO,undef,undef,$f8UPDrB9Cd);}unless(ref $TYwSZ4sXPx eq "\x41\x52\x52\x41\x59"){$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $h01hKpNkgl=1;foreach my $HZOnp5hENz(@{$TYwSZ4sXPx}){$HZOnp5hENz->{"\x49\x44\x58"}=$hDQHtr2pNC+$h01hKpNkgl;$h01hKpNkgl++;}my $ycjRQbMDXI;if($CZJEVpPzOc){$ycjRQbMDXI="\x70\x61\x72\x74\x6e\x65\x72\x5f\x75\x73\x65\x72\x5f\x6c\x69\x73\x74\x5f\x72\x6f\x2e\x74\x74";}else{$ycjRQbMDXI="\x70\x61\x72\x74\x6e\x65\x72\x5f\x75\x73\x65\x72\x5f\x6c\x69\x73\x74\x2e\x74\x74";}IkgY8wZQ7z($YxJPfXkGup,$ycjRQbMDXI,{USERS=>$TYwSZ4sXPx,USERS_CNT=>$sFQ0EcsW1d,GROUPS=>$HCro1f5nD4,PARTNER=>$To6k2OlpBS,F_AC=>$Zi7IvB5ogY,F_VN=>$CVUjP2fTW3,F_GROUP=>$v1TD0t2AJb,F_STATUS=>$dysKRl2IdO,EXTRA_OPTIONS=>$qdi0ABz61C->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"},$YxJPfXkGup->cwI6zgro3i(1,$TYwSZ4sXPx,$hDQHtr2pNC)});}sub sOX4RJ6qc9{my($YxJPfXkGup,$qdi0ABz61C,$To6k2OlpBS,$oiAJx9cHC5,$f8UPDrB9Cd)=@_;my($hDQHtr2pNC,$IqeVuCtloF,$sTVZac4LKN,$ZDPvIsBfeO,$YG8IoKPv9F,$IuhV8w9PJn,$DKbHVmBDkC,$ncae5KU46E,$U0fQRSUqen)=$YxJPfXkGup->a4eP9YOWX5([[(from=>0)],qw(caller_id called_id ac call_type refresh c2c duration group)]);my $OB9CHdlKxw;if($ZDPvIsBfeO=~ /,/){$OB9CHdlKxw=[split(/\s*,\s*/,$ZDPvIsBfeO)];}else{$OB9CHdlKxw=$ZDPvIsBfeO;}my $ZLuqGkxrQy=$YxJPfXkGup->GnJ2MtYTSs();unless(ref $ZLuqGkxrQy eq "\x41\x52\x52\x41\x59"){$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $HCro1f5nD4=[];my $n5X9cFa3tv=0;foreach my $lgx93VcAUm(@{$oiAJx9cHC5}){foreach my $Zv7Ao9F8i5(@{$ZLuqGkxrQy}){if($lgx93VcAUm eq $Zv7Ao9F8i5->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$HCro1f5nD4},$Zv7Ao9F8i5;if(length($U0fQRSUqen)and ! $n5X9cFa3tv){if($Zv7Ao9F8i5->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}eq $U0fQRSUqen){$n5X9cFa3tv=1;}}last;}}}my $Ef7au4oVw0;if($n5X9cFa3tv){$Ef7au4oVw0=$YxJPfXkGup->jsBcfAQ8av($IqeVuCtloF,$sTVZac4LKN,$OB9CHdlKxw,$YG8IoKPv9F,$ncae5KU46E,$U0fQRSUqen,$f8UPDrB9Cd,undef,$hDQHtr2pNC);}else{$Ef7au4oVw0=$YxJPfXkGup->jsBcfAQ8av($IqeVuCtloF,$sTVZac4LKN,$OB9CHdlKxw,$YG8IoKPv9F,$ncae5KU46E,$oiAJx9cHC5,$f8UPDrB9Cd,undef,$hDQHtr2pNC);}unless(ref $Ef7au4oVw0 eq "\x41\x52\x52\x41\x59"){$Ef7au4oVw0=[];}if($Ef7au4oVw0){foreach my $XxHtcQjGAY(@{$Ef7au4oVw0}){$XxHtcQjGAY->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$YxJPfXkGup->H3SdXqsMcr($XxHtcQjGAY->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});$XxHtcQjGAY->{"\x43\x44\x52\x5f\x44\x55\x52\x41\x54\x49\x4f\x4e"}=time-$XxHtcQjGAY->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"};}}if(! length($DKbHVmBDkC)and $qdi0ABz61C->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{"\x43\x32\x43"}){$DKbHVmBDkC=$qdi0ABz61C->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{"\x43\x32\x43"};}if($DKbHVmBDkC){$DKbHVmBDkC=~ s#ph=[^&;]+##;$DKbHVmBDkC=~ s#user_vars=([^&;]+)##;if($1){$DKbHVmBDkC=",$1&$DKbHVmBDkC";}elsif($DKbHVmBDkC=~ /&/ and $DKbHVmBDkC !~ /^[,&]/){$DKbHVmBDkC="&$DKbHVmBDkC";}}return IkgY8wZQ7z($YxJPfXkGup,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74",{CALLS_COUNT=>scalar(@$Ef7au4oVw0),CALLS_LIST=>$Ef7au4oVw0,CDR_CALLER_ID=>$IqeVuCtloF,CDR_CALLED_ID=>$sTVZac4LKN,CDR_AC=>$ZDPvIsBfeO,CDR_CALL_TYPE=>$YG8IoKPv9F,CDR_REFRESH_TIME=>$IuhV8w9PJn,CDR_C2C=>$DKbHVmBDkC,CDR_DURATION=>$ncae5KU46E,CDR_GROUP=>$U0fQRSUqen,GROUPS=>$HCro1f5nD4,PARTNER=>$To6k2OlpBS,EXTRA_OPTIONS=>$qdi0ABz61C->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"},$YxJPfXkGup->cwI6zgro3i(1,$Ef7au4oVw0,$hDQHtr2pNC)});}sub Jij45Fl6kG{my($YxJPfXkGup,$qdi0ABz61C,$To6k2OlpBS,$oiAJx9cHC5,$f8UPDrB9Cd)=@_;my($hDQHtr2pNC,$Zi7IvB5ogY,$CVUjP2fTW3)=$YxJPfXkGup->a4eP9YOWX5([[(from=>0)],"\x66\x5f\x61\x63","\x66\x5f\x76\x6e"]);my $ZLuqGkxrQy=$YxJPfXkGup->GnJ2MtYTSs();unless(ref $ZLuqGkxrQy eq "\x41\x52\x52\x41\x59"){$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $HCro1f5nD4=[];foreach my $lgx93VcAUm(@{$oiAJx9cHC5}){foreach my $Zv7Ao9F8i5(@{$ZLuqGkxrQy}){if($lgx93VcAUm eq $Zv7Ao9F8i5->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$HCro1f5nD4},$lgx93VcAUm;last;}}}my $WlnHN4tbia=$YxJPfXkGup->SbYT3QuV7E($hDQHtr2pNC,$Zi7IvB5ogY,$CVUjP2fTW3,$HCro1f5nD4,$f8UPDrB9Cd);unless(ref $WlnHN4tbia eq "\x41\x52\x52\x41\x59"){$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}IkgY8wZQ7z($YxJPfXkGup,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x64\x69\x64\x5f\x6c\x69\x73\x74\x2e\x74\x74",{DIDS=>$WlnHN4tbia,F_AC=>$Zi7IvB5ogY,F_VN=>$CVUjP2fTW3,PARTNER=>$To6k2OlpBS,$YxJPfXkGup->cwI6zgro3i(1,$WlnHN4tbia,$hDQHtr2pNC)});}sub j7cDBfe9mv{my($YxJPfXkGup,$JHcm9XINka,$qdi0ABz61C,$To6k2OlpBS,$oiAJx9cHC5,$f8UPDrB9Cd)=@_;my($hDQHtr2pNC,$Kpnf1495Po,$u0fxC9ygKc,$JMVyejJzLK,$tC5q2BANVu,$IqeVuCtloF,$sTVZac4LKN,$ZDPvIsBfeO,$YG8IoKPv9F,$ncae5KU46E,$xwMnvbBWd3,$BBA0RvGiqO,$XVQdoRstcl,$U0fQRSUqen)=$YxJPfXkGup->a4eP9YOWX5([[(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("$tC5q2BANVu$IqeVuCtloF$sTVZac4LKN$Kpnf1495Po$u0fxC9ygKc$YG8IoKPv9F$ZDPvIsBfeO$ncae5KU46E$XVQdoRstcl")){my $OLAwUn5gvr=$YxJPfXkGup->LkXDqNIi1U("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x41\x49");$Kpnf1495Po=$YxJPfXkGup->H3SdXqsMcr(time-86400*$OLAwUn5gvr,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$u0fxC9ygKc=$YxJPfXkGup->H3SdXqsMcr(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my $ZLuqGkxrQy=$YxJPfXkGup->GnJ2MtYTSs();unless(ref $ZLuqGkxrQy eq "\x41\x52\x52\x41\x59"){$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $HCro1f5nD4=[];my $n5X9cFa3tv=0;foreach my $lgx93VcAUm(@{$oiAJx9cHC5}){foreach my $Zv7Ao9F8i5(@{$ZLuqGkxrQy}){if($lgx93VcAUm eq $Zv7Ao9F8i5->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$HCro1f5nD4},$Zv7Ao9F8i5;if(length($U0fQRSUqen)and ! $n5X9cFa3tv){if($Zv7Ao9F8i5->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}eq $U0fQRSUqen){$n5X9cFa3tv=1;}}last;}}}my $OB9CHdlKxw;if($ZDPvIsBfeO=~ /,/){$OB9CHdlKxw=[split(/\s*,\s*/,$ZDPvIsBfeO)];}else{$OB9CHdlKxw=$ZDPvIsBfeO;}my $cU5AYtskQi;if($n5X9cFa3tv){$cU5AYtskQi=$YxJPfXkGup->ugIlVX02kK($tC5q2BANVu,$IqeVuCtloF,$sTVZac4LKN,$hDQHtr2pNC,$YxJPfXkGup->SQcuPHeSxy($Kpnf1495Po),$YxJPfXkGup->SQcuPHeSxy($u0fxC9ygKc),$YG8IoKPv9F,$OB9CHdlKxw,$ncae5KU46E,$XVQdoRstcl,$JHcm9XINka,$BBA0RvGiqO,$xwMnvbBWd3,$U0fQRSUqen,$f8UPDrB9Cd);}else{$cU5AYtskQi=$YxJPfXkGup->ugIlVX02kK($tC5q2BANVu,$IqeVuCtloF,$sTVZac4LKN,$hDQHtr2pNC,$YxJPfXkGup->SQcuPHeSxy($Kpnf1495Po),$YxJPfXkGup->SQcuPHeSxy($u0fxC9ygKc),$YG8IoKPv9F,$OB9CHdlKxw,$ncae5KU46E,$XVQdoRstcl,$JHcm9XINka,$BBA0RvGiqO,$xwMnvbBWd3,$oiAJx9cHC5,$f8UPDrB9Cd);}unless(ref $cU5AYtskQi eq "\x41\x52\x52\x41\x59"){$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my(@GuGqr23Zlc,$NuCeAFmtBs);if($cU5AYtskQi){my $WSzHK5PiTx=$hDQHtr2pNC+1;foreach my $XxHtcQjGAY(@{$cU5AYtskQi}){$XxHtcQjGAY->{"\x43\x44\x52\x5f\x4e\x55\x4d"}=$WSzHK5PiTx++;$XxHtcQjGAY->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$YxJPfXkGup->H3SdXqsMcr($XxHtcQjGAY->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});}if(ref $cU5AYtskQi and ref $cU5AYtskQi->[0]){my $zt8Bq9XuTz=$YxJPfXkGup->H3SdXqsMcr($cU5AYtskQi->[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 @GuGqr23Zlc,(JS_DATE_STR=>$zt8Bq9XuTz);}}my $ytjD0uSTef;if($tC5q2BANVu){$ytjD0uSTef="\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($JHcm9XINka){$ytjD0uSTef="\x70\x61\x72\x74\x6e\x65\x72\x5f\x61\x63\x74\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c\x2e\x74\x74";push @GuGqr23Zlc,(CDR_ACT_TYPE=>$xwMnvbBWd3,CDR_ACT_EXT=>$BBA0RvGiqO);unless($YxJPfXkGup->uH1CWBgJbt()->{"\x44\x46"}){push @GuGqr23Zlc,(ACT_TYPES=>$YxJPfXkGup->{"\x5f\x4c\x49\x53\x54\x53"}->{"\x41\x43\x54\x49\x56\x49\x54\x49\x45\x53"});}}else{$ytjD0uSTef="\x70\x61\x72\x74\x6e\x65\x72\x5f\x63\x64\x72\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74";push @GuGqr23Zlc,(CDR_CALL_TYPE=>$YG8IoKPv9F);}return IkgY8wZQ7z($YxJPfXkGup,$ytjD0uSTef,{CDR_LIST=>$cU5AYtskQi,CDR_CALL_ID=>$tC5q2BANVu,CDR_CALLER_ID=>$IqeVuCtloF,CDR_CALLED_ID=>$sTVZac4LKN,CDR_AC=>$ZDPvIsBfeO,CDR_DURATION=>$ncae5KU46E,CDR_DATA=>$XVQdoRstcl,FROM_TIME=>$Kpnf1495Po,TO_TIME=>$u0fxC9ygKc,SMART_TIME=>$JMVyejJzLK,CDR_GROUP=>$U0fQRSUqen,GROUPS=>$HCro1f5nD4,PARTNER=>$To6k2OlpBS,EXTRA_OPTIONS=>$qdi0ABz61C->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"},@GuGqr23Zlc,$YxJPfXkGup->cwI6zgro3i(1,$cU5AYtskQi,$hDQHtr2pNC)});}sub FyVdeUas2t{my($YxJPfXkGup,$qdi0ABz61C,$To6k2OlpBS)=@_;my($I6cJ0AZiTP,$B7m6KHjLf8,$e3ptOc2Skb)=$YxJPfXkGup->a4eP9YOWX5([qw(node ip mode)]);if($e3ptOc2Skb eq "\x77\x6c\x61\x64\x64"){$YxJPfXkGup->GE0OAl8veY($I6cJ0AZiTP,$e3ptOc2Skb,$B7m6KHjLf8);}elsif($e3ptOc2Skb eq "\x77\x6c\x64\x65\x6c"){$YxJPfXkGup->GE0OAl8veY($I6cJ0AZiTP,$e3ptOc2Skb,$B7m6KHjLf8);}elsif($B7m6KHjLf8){my $v6M9CNTDUS=$qdi0ABz61C->{"\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 $FXotjFVCT7=$YxJPfXkGup->TXkoyCYDH0("\x66\x32\x62\x2d\x70\x61\x72\x74\x6e\x65\x72\x2d".$qdi0ABz61C->{"\x49\x44"}."-$B7m6KHjLf8")||0;if($FXotjFVCT7){undef $B7m6KHjLf8;$YxJPfXkGup->{"\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{$YxJPfXkGup->TXkoyCYDH0("\x66\x32\x62\x2d\x70\x61\x72\x74\x6e\x65\x72\x2d".$qdi0ABz61C->{"\x49\x44"}."-$B7m6KHjLf8",1,$v6M9CNTDUS);$YxJPfXkGup->fom9GnSCH1($I6cJ0AZiTP,$B7m6KHjLf8);}}my $x0CpudRL3q=$YxJPfXkGup->fom9GnSCH1($I6cJ0AZiTP);unless(ref $x0CpudRL3q eq "\x41\x52\x52\x41\x59"){$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $YYFstw89po=$YxJPfXkGup->GE0OAl8veY();unless(ref $YYFstw89po eq "\x41\x52\x52\x41\x59"){$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}IkgY8wZQ7z($YxJPfXkGup,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x66\x32\x62\x2e\x74\x74",{F2B_WL=>$YYFstw89po,F2B_CNT_WL=>scalar(@$YYFstw89po),F2B=>$x0CpudRL3q,F2B_CNT=>scalar(@$x0CpudRL3q),PARTNER=>$To6k2OlpBS,NODE=>$YxJPfXkGup->LkXDqNIi1U("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x53\x45\x52\x56\x45\x52\x5f\x49\x44"),EXTRA_OPTIONS=>$qdi0ABz61C->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}});}sub IkgY8wZQ7z{my($YxJPfXkGup,$dTqaQZ1Sr9,$XVQdoRstcl)=@_;my $uSltXZAToO=Template::EasyTT->new({});my $O0mvihkcSa=$YxJPfXkGup->LkXDqNIi1U("\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 $e96mu25L8U='';$XVQdoRstcl->{"\x55\x53\x45\x5f\x42\x49\x4c\x4c\x49\x4e\x47"}=$YxJPfXkGup->LkXDqNIi1U("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x55\x53\x45\x5f\x42\x49\x4c\x4c\x49\x4e\x47");$XVQdoRstcl->{"\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}=$YxJPfXkGup->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"};$XVQdoRstcl->{"\x55\x4e\x49\x58\x54\x49\x4d\x45"}=time;my @sK8yWVuBkT;if(length $ENV{"\x50\x41\x54\x48\x5f\x49\x4e\x46\x4f"}){@sK8yWVuBkT=split(/\//,substr($ENV{"\x50\x41\x54\x48\x5f\x49\x4e\x46\x4f"},1));}my $skgAHNBDz8=$YxJPfXkGup->LkXDqNIi1U("\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 $t1LJpnNmox=$YxJPfXkGup->LkXDqNIi1U("\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 $sK8yWVuBkT[0]){my($dPeiX3Z8m5,$zCkh8GeqZd)=split(/:/,$sK8yWVuBkT[0]);if(length $dPeiX3Z8m5){$skgAHNBDz8=$dPeiX3Z8m5;$skgAHNBDz8=~ s#[^\w\d\._-]##g;}$t1LJpnNmox=$zCkh8GeqZd if length $zCkh8GeqZd;}my $UGwpBZ980A=$YxJPfXkGup->a4eP9YOWX5("\x64\x66");if($UGwpBZ980A){my $WIpKtJ6BAD=0;foreach my $nmYhy3nIS8(split(/\s*,\s*/,$YxJPfXkGup->LkXDqNIi1U("\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"}=~ /^$nmYhy3nIS8$/){$WIpKtJ6BAD=1;last;}}$UGwpBZ980A='' unless $WIpKtJ6BAD;}unless($UGwpBZ980A){$uSltXZAToO->operators_add("\x64\x69\x76\x32",sub{return $_[0]% 2});$uSltXZAToO->filters_add("\x62\x69\x6c\x6c\x5f\x66\x6c\x6f\x61\x74",sub{return sprintf("\x25\x2e".($YxJPfXkGup->LkXDqNIi1U("\x42\x49\x4c\x4c\x49\x4e\x47\x5f\x52\x4f\x55\x4e\x44\x49\x4e\x47\x5f\x34\x47\x55\x49")||2)."\x66",$_[1])});$uSltXZAToO->filters_add("\x6c\x6f\x63\x61\x6c\x65\x5f\x6d\x73\x67",sub{my $tUVnXBzM9Z=$YxJPfXkGup->AOihZumA9j($_[1],$t1LJpnNmox);$tUVnXBzM9Z=~ s#&#&amp;#gs;$tUVnXBzM9Z=~ s#\x22#&quot;#gs;$tUVnXBzM9Z=~ s#<#&lt;#gs;$tUVnXBzM9Z=~ s#>#&gt;#gs;$tUVnXBzM9Z=~ s#\x27#&apos;#gs;return $tUVnXBzM9Z;});if(-e "$O0mvihkcSa/$skgAHNBDz8/$dTqaQZ1Sr9"){$uSltXZAToO->process("$O0mvihkcSa/$skgAHNBDz8/$dTqaQZ1Sr9",$XVQdoRstcl,\$e96mu25L8U);}else{$uSltXZAToO->process("$O0mvihkcSa/$dTqaQZ1Sr9",$XVQdoRstcl,\$e96mu25L8U);}}unless($UGwpBZ980A){$YxJPfXkGup->s5BrWRZyYk(200,"\x4f\x6b",undef,$e96mu25L8U.$YxJPfXkGup->AOihZumA9j("\x67\x36\x31\x33","\x43"));}elsif($UGwpBZ980A eq "\x78\x6d\x6c"){require XML::Simple;$e96mu25L8U=XML::Simple::XMLout($XVQdoRstcl);$YxJPfXkGup->N9u2xXnOzE(200,"\x4f\x6b",undef,$e96mu25L8U);}elsif($UGwpBZ980A eq "\x6a\x73\x6f\x6e"){require JSON::XS;my $ULuY8HxzvC=JSON::XS->new();$YxJPfXkGup->s5BrWRZyYk(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",$ULuY8HxzvC->encode($XVQdoRstcl));}}