#!/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;duMeG5gnQc();sub new{my($FIwL9fKS4q,$MPzWuR2YIk)=@_;my $FvaYR8d3Tu=bless{_CGI=>CGI->new(),_CONF=>{},_CDR=>{CALLED_ID=>"\x77\x65\x62",},_USER_CREDS=>{},_USER_VBOXES=>{},_SESSION=>{},},$FIwL9fKS4q;$FvaYR8d3Tu->d5y9ZKn0Ci($MPzWuR2YIk);$FvaYR8d3Tu->cEO9kI51SM();if($FvaYR8d3Tu->VzAEujaiBr("\x44\x45\x42\x55\x47\x5f\x48\x54\x54\x50\x5f\x41\x55\x44\x49\x54\x5f\x46\x49\x4c\x45")){$FvaYR8d3Tu->cEO9kI51SM("\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");}$FvaYR8d3Tu->{"\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};$FvaYR8d3Tu->{"\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 $zGLjlZXm9s;$FvaYR8d3Tu->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}={};foreach my $cn8jBa2wYy(split(/\s*;\s*/,$FvaYR8d3Tu->VzAEujaiBr("\x43\x47\x49\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"))){my($n4cw3Mqt0S,@sLnPKd8Bo6)=split(/\s*:\s*/,$cn8jBa2wYy);foreach my $ZzpLO8K9Yj(@sLnPKd8Bo6){$FvaYR8d3Tu->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$ZzpLO8K9Yj}=$n4cw3Mqt0S;}}my $ZzpLO8K9Yj=$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"};unless(exists $FvaYR8d3Tu->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$ZzpLO8K9Yj}){$ZzpLO8K9Yj=~ s#\.\d+$##;}unless(exists $FvaYR8d3Tu->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$ZzpLO8K9Yj}){if($FvaYR8d3Tu->VzAEujaiBr("\x43\x47\x49\x5f\x41\x4c\x49\x41\x53\x45\x53\x5f\x57\x4f\x5f\x49\x50")){$zGLjlZXm9s="\x70\x61\x72\x74\x6e\x65\x72";}else{$zGLjlZXm9s="\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($FvaYR8d3Tu->VzAEujaiBr("\x43\x47\x49\x5f\x41\x4c\x49\x41\x53\x45\x53\x5f\x57\x4f\x5f\x49\x50")){$zGLjlZXm9s=$FvaYR8d3Tu->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$ZzpLO8K9Yj};}else{$zGLjlZXm9s=$FvaYR8d3Tu->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$ZzpLO8K9Yj}."\x20\x28\x20".$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"}."\x20\x29";}}$FvaYR8d3Tu->{"\x5f\x43\x44\x52"}->{"\x43\x41\x4c\x4c\x45\x52\x5f\x49\x44"}=$zGLjlZXm9s;;$FvaYR8d3Tu->{"\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($FvaYR8d3Tu->VzAEujaiBr("\x50\x41\x54\x48\x5f\x57\x4f\x52\x4b\x5f\x44\x49\x52"));$FvaYR8d3Tu->VKdDgN7uUv();return $FvaYR8d3Tu;}sub duMeG5gnQc{my $FvaYR8d3Tu=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($uCDhFT8nJc,$F6SY5uFowT,$t8jgzGPWo0);$FvaYR8d3Tu->jdtpksbcew(1);my($SQyZgd0HUO,$DF4pkva3mH,$TDCT05sRen,$xJElBtxmzL,$rP8MTwraxb,$EyF6kxm2Qu)=$FvaYR8d3Tu->FVFE1uXA0t([qw(partner password action from user_id ac)]);my($t2rAYB9PnZ,$zZYJ13RsEB);if(my $dIJVuBSFl6=$FvaYR8d3Tu->HjDIHTik6p()){unless(length $DF4pkva3mH){my($MjSrAkC9P3,$uCDhFT8nJc,$eqMpXfVNvU)=split(/-/,$SQyZgd0HUO);foreach my $q7tsiJTwuX(@$dIJVuBSFl6){if($q7tsiJTwuX->{"\x49\x44"}eq $MjSrAkC9P3){if($FvaYR8d3Tu->VzAEujaiBr("\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-$eqMpXfVNvU<$FvaYR8d3Tu->VzAEujaiBr("\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($uCDhFT8nJc eq md5_hex(join("\x2d",$q7tsiJTwuX->{"\x4e\x41\x4d\x45"},$q7tsiJTwuX->{"\x50\x41\x53\x53\x57\x4f\x52\x44"},$eqMpXfVNvU))){$zZYJ13RsEB=$q7tsiJTwuX;}}}else{if($uCDhFT8nJc eq md5_hex(join("\x2d",$q7tsiJTwuX->{"\x4e\x41\x4d\x45"},$q7tsiJTwuX->{"\x50\x41\x53\x53\x57\x4f\x52\x44"},$eqMpXfVNvU))){$zZYJ13RsEB=$q7tsiJTwuX;}}last;}}}else{foreach my $q7tsiJTwuX(@$dIJVuBSFl6){if($q7tsiJTwuX->{"\x4e\x41\x4d\x45"}eq $SQyZgd0HUO){if($q7tsiJTwuX->{"\x50\x41\x53\x53\x57\x4f\x52\x44"}eq $DF4pkva3mH){$zZYJ13RsEB=$q7tsiJTwuX;}last;}}}}if($zZYJ13RsEB){my $eqMpXfVNvU=time;$SQyZgd0HUO=$zZYJ13RsEB->{"\x49\x44"}."\x2d".md5_hex(join("\x2d",$zZYJ13RsEB->{"\x4e\x41\x4d\x45"},$zZYJ13RsEB->{"\x50\x41\x53\x53\x57\x4f\x52\x44"},$eqMpXfVNvU))."\x2d".$eqMpXfVNvU;$zZYJ13RsEB->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}={};if($zZYJ13RsEB->{"\x4f\x50\x54\x49\x4f\x4e\x53"}){foreach my $JI4Q32yhCN(split(/\s*\|\s*/,$zZYJ13RsEB->{"\x4f\x50\x54\x49\x4f\x4e\x53"})){my($D8xwz25Kh3,$XiYm9Oe085)=split(/=/,$JI4Q32yhCN,2);next unless length $D8xwz25Kh3;$zZYJ13RsEB->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{uc($D8xwz25Kh3)}=$XiYm9Oe085;}}}else{return dKUouA9SJq($FvaYR8d3Tu,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x6f\x67\x69\x6e\x2e\x74\x74",{});}if(exists($FvaYR8d3Tu->{"\x5f\x55\x53\x45\x52\x5f\x49\x4e\x46\x4f\x5f\x41\x43\x54\x49\x4f\x4e\x53"}->{$TDCT05sRen})){if(length($rP8MTwraxb)){$t2rAYB9PnZ=$FvaYR8d3Tu->OcTz91nQqu($rP8MTwraxb);my $z7P41F8rC0=$FvaYR8d3Tu->M9Ztzifv2j();%{$z7P41F8rC0}=%{$t2rAYB9PnZ};}elsif(length($EyF6kxm2Qu)){$FvaYR8d3Tu->VjkcO9dlhA(undef,$EyF6kxm2Qu);$t2rAYB9PnZ=$FvaYR8d3Tu->M9Ztzifv2j();}}else{$t2rAYB9PnZ=$zZYJ13RsEB;$t2rAYB9PnZ->{"\x50\x41\x52\x54\x4e\x45\x52\x5f\x54\x41\x47"}=$zZYJ13RsEB->{"\x54\x41\x47"};}if(! $t2rAYB9PnZ or ! $zZYJ13RsEB or index("\x2c".$zZYJ13RsEB->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}."\x2c","\x2c".$t2rAYB9PnZ->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}."\x2c")<0){return $FvaYR8d3Tu->rOY8JLMXZI("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}elsif($FvaYR8d3Tu->VzAEujaiBr("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x50\x41\x52\x54\x4e\x45\x52\x5f\x4d\x4f\x44\x45")==1){if(index($t2rAYB9PnZ->{"\x50\x41\x52\x54\x4e\x45\x52\x5f\x54\x41\x47"},$zZYJ13RsEB->{"\x54\x41\x47"})){return $FvaYR8d3Tu->rOY8JLMXZI("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}}elsif($FvaYR8d3Tu->VzAEujaiBr("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x50\x41\x52\x54\x4e\x45\x52\x5f\x4d\x4f\x44\x45")==2){if($t2rAYB9PnZ->{"\x50\x41\x52\x54\x4e\x45\x52\x5f\x54\x41\x47"}ne $zZYJ13RsEB->{"\x54\x41\x47"}){return $FvaYR8d3Tu->rOY8JLMXZI("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}}if($zZYJ13RsEB->{"\x52\x45\x41\x44\x5f\x4f\x4e\x4c\x59"}){ev6u8Y7NbM($FvaYR8d3Tu,$zZYJ13RsEB,$xJElBtxmzL,[split("\x2c",$zZYJ13RsEB->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$SQyZgd0HUO,"\x72\x6f",$zZYJ13RsEB->{"\x54\x41\x47"});}elsif($TDCT05sRen eq "\x62\x61\x6c\x61\x6e\x63\x65\x5f\x75\x70\x64\x61\x74\x65"){my($Pbpsydcx3g,$ndYnk6mJlx)=$FvaYR8d3Tu->FVFE1uXA0t([qw(balance cur_id)]);if($FvaYR8d3Tu->agspmuWRE2($Pbpsydcx3g,$ndYnk6mJlx)){$FvaYR8d3Tu->ZgWmSZeVRF("\x75\x73\x65\x72\x2d".$FvaYR8d3Tu->M9Ztzifv2j()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"},undef);$FvaYR8d3Tu->rOY8JLMXZI();}else{$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x64\x69\x64\x5f\x61\x64\x64" and $zZYJ13RsEB->{"\x44\x49\x44\x5f\x4d\x4e\x47"}){my($tqCVyKOzFL,$yi9hgGmbxf,$rkRd8fYjOQ,$DxepGSaU9c)=$FvaYR8d3Tu->FVFE1uXA0t([qw(did channels pn cnam)]);my @QFeu8v5WIQ=split(/\s*,\s*/,$tqCVyKOzFL);my $xlVD94Ss81=0;foreach my $gSW3oiRnY6(@QFeu8v5WIQ){if($FvaYR8d3Tu->zpI3HmTOn9($gSW3oiRnY6,$rkRd8fYjOQ,$EyF6kxm2Qu,$yi9hgGmbxf,$DxepGSaU9c)){$FvaYR8d3Tu->idxircbtCk("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x61\x64\x64",$gSW3oiRnY6);}else{$xlVD94Ss81++;}}if($xlVD94Ss81){$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : [ $xlVD94Ss81 / ".(scalar(@QFeu8v5WIQ))."\x20\x5d\x20".__LINE__);}else{$FvaYR8d3Tu->rOY8JLMXZI();}}elsif($TDCT05sRen eq "\x64\x69\x64\x5f\x64\x65\x6c" and $zZYJ13RsEB->{"\x44\x49\x44\x5f\x4d\x4e\x47"}){my($t7xa6LmnYO,$rP8MTwraxb,$tqCVyKOzFL)=$FvaYR8d3Tu->FVFE1uXA0t([qw(did_id user_id did)]);if($FvaYR8d3Tu->rmOP8hzjYZ($t7xa6LmnYO,$rP8MTwraxb,$tqCVyKOzFL)){$FvaYR8d3Tu->idxircbtCk("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x64\x72\x6f\x70",$tqCVyKOzFL);$FvaYR8d3Tu->rOY8JLMXZI();}else{$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x75\x73\x65\x72\x5f\x75\x70\x64\x61\x74\x65"){my $rP8MTwraxb=$FvaYR8d3Tu->FVFE1uXA0t("\x75\x73\x65\x72\x5f\x69\x64");my @KdnQkwHGlm=$FvaYR8d3Tu->FVFE1uXA0t();my %wHAcp2R7iP;foreach my $ZqYaiBmNpz(@KdnQkwHGlm){if($ZqYaiBmNpz=~ /^US_(VOICENUMBER|STATUS|DEMO_MODE|DESCRIPTION|GROUP_ID|PERMIT_WEB|CUSTOM_RULES)/){if($ZqYaiBmNpz eq "\x55\x53\x5f\x43\x55\x53\x54\x4f\x4d\x5f\x52\x55\x4c\x45\x53" and ! $zZYJ13RsEB->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{"\x43\x52\x5f\x45\x4e\x41\x42\x4c\x45"}){next;}my $D8xwz25Kh3=$1;if($FvaYR8d3Tu->FVFE1uXA0t($ZqYaiBmNpz)ne $t2rAYB9PnZ->{$D8xwz25Kh3}){my $XiYm9Oe085=$FvaYR8d3Tu->FVFE1uXA0t($ZqYaiBmNpz);if($D8xwz25Kh3 eq "\x47\x52\x4f\x55\x50\x5f\x49\x44"){if(index("\x2c".$zZYJ13RsEB->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}."\x2c",",$XiYm9Oe085,")<0){return $FvaYR8d3Tu->rOY8JLMXZI("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}}$wHAcp2R7iP{$D8xwz25Kh3}=$XiYm9Oe085;}}}if($FvaYR8d3Tu->wChrl768SW($rP8MTwraxb,\%wHAcp2R7iP)){$FvaYR8d3Tu->idxircbtCk("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65",undef,$rP8MTwraxb);$FvaYR8d3Tu->rOY8JLMXZI();}else{$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x75\x73\x65\x72\x5f\x75\x70\x64\x61\x74\x65\x5f\x70\x69\x6e"){my $rP8MTwraxb=$FvaYR8d3Tu->FVFE1uXA0t("\x75\x73\x65\x72\x5f\x69\x64");my $Z8IAtXlNoj=$FvaYR8d3Tu->FVFE1uXA0t("\x70\x69\x6e");if($FvaYR8d3Tu->WJjGd49Aas($rP8MTwraxb,$Z8IAtXlNoj)){$FvaYR8d3Tu->idxircbtCk("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65",undef,$rP8MTwraxb);$FvaYR8d3Tu->rOY8JLMXZI();}else{$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x75\x73\x65\x72\x5f\x61\x64\x64"){my($rkRd8fYjOQ,$dEtYXI52zb,$ZCMaZGtQqY)=$FvaYR8d3Tu->FVFE1uXA0t([qw(phone group_id uname)]);if(index("\x2c".$zZYJ13RsEB->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}."\x2c",",$dEtYXI52zb,")<0){return $FvaYR8d3Tu->rOY8JLMXZI("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}if(my $EyF6kxm2Qu=$FvaYR8d3Tu->NVe9qGTgh7($rkRd8fYjOQ,$dEtYXI52zb,$ZCMaZGtQqY,undef,undef,{PARTNER_TAG=>$zZYJ13RsEB->{"\x54\x41\x47"}})){$FvaYR8d3Tu->idxircbtCk("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x61\x64\x64",$EyF6kxm2Qu);$FvaYR8d3Tu->rOY8JLMXZI("?action=user_info&ac=$EyF6kxm2Qu&partner=$SQyZgd0HUO&df=".$FvaYR8d3Tu->FVFE1uXA0t("\x64\x66"));}else{$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x75\x73\x65\x72\x5f\x64\x65\x6c"){my($XpNn7x6M5i)=$FvaYR8d3Tu->FVFE1uXA0t([qw(single_user)]);if($FvaYR8d3Tu->Z39b48qoxu($rP8MTwraxb)){if(ref $t2rAYB9PnZ eq "\x48\x41\x53\x48"){$FvaYR8d3Tu->idxircbtCk("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x64\x72\x6f\x70",$t2rAYB9PnZ->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"});}if($XpNn7x6M5i){$FvaYR8d3Tu->rOY8JLMXZI("?action=user_list&partner=$SQyZgd0HUO&df=".$FvaYR8d3Tu->FVFE1uXA0t("\x64\x66"));}else{$FvaYR8d3Tu->rOY8JLMXZI();}}else{$FvaYR8d3Tu->rOY8JLMXZI(undef,"Internal error : $$ : ".__LINE__);}}elsif($TDCT05sRen eq "\x75\x73\x65\x72\x5f\x69\x6e\x66\x6f"){EF4LOBoeJk($FvaYR8d3Tu,$zZYJ13RsEB,$SQyZgd0HUO,$zZYJ13RsEB->{"\x44\x49\x44\x5f\x4d\x4e\x47"},[split("\x2c",$zZYJ13RsEB->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})]);}elsif($TDCT05sRen eq "\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74"){Tr4AhKbBaF($FvaYR8d3Tu,$zZYJ13RsEB,$SQyZgd0HUO,[split("\x2c",$zZYJ13RsEB->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$zZYJ13RsEB->{"\x54\x41\x47"});}elsif($TDCT05sRen eq "\x63\x64\x72\x5f\x6c\x69\x73\x74"){dP1No8qWTd($FvaYR8d3Tu,undef,$zZYJ13RsEB,$SQyZgd0HUO,[split("\x2c",$zZYJ13RsEB->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$zZYJ13RsEB->{"\x54\x41\x47"});}elsif($TDCT05sRen eq "\x61\x63\x74\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c"){dP1No8qWTd($FvaYR8d3Tu,"\x61\x63\x74\x61\x6c\x6c",$zZYJ13RsEB,$SQyZgd0HUO,[split("\x2c",$zZYJ13RsEB->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$zZYJ13RsEB->{"\x54\x41\x47"});}elsif($TDCT05sRen eq "\x64\x69\x64\x5f\x6c\x69\x73\x74"){Z2M73yZI6a($FvaYR8d3Tu,$zZYJ13RsEB,$SQyZgd0HUO,[split("\x2c",$zZYJ13RsEB->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$zZYJ13RsEB->{"\x54\x41\x47"});}elsif($TDCT05sRen eq "\x63\x61\x6c\x6c\x73\x5f\x68\x61\x6e\x67\x75\x70"){my($rP8MTwraxb,$LMztHksdNL)=$FvaYR8d3Tu->FVFE1uXA0t([qw(user_id call_id)]);if(length($LMztHksdNL)and length($rP8MTwraxb)){$FvaYR8d3Tu->pp9hbngcH8($LMztHksdNL,$rP8MTwraxb);}$FvaYR8d3Tu->rOY8JLMXZI();}elsif($TDCT05sRen eq "\x66\x32\x62" and $zZYJ13RsEB->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{"\x46\x32\x42\x5f\x45\x4e\x41\x42\x4c\x45"}){LCDjcZKP8E($FvaYR8d3Tu,$zZYJ13RsEB,$SQyZgd0HUO);}elsif($TDCT05sRen eq "\x75\x73\x65\x72\x5f\x6c\x69\x73\x74"){ev6u8Y7NbM($FvaYR8d3Tu,$zZYJ13RsEB,$xJElBtxmzL,[split("\x2c",$zZYJ13RsEB->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$SQyZgd0HUO,undef,$zZYJ13RsEB->{"\x54\x41\x47"});}else{$FvaYR8d3Tu->rOY8JLMXZI("\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 EF4LOBoeJk{my($FvaYR8d3Tu,$zZYJ13RsEB,$SQyZgd0HUO,$Mc7NMJdIs0,$YpvMdAU3ct)=@_;my $zNpGzF2EkT=$FvaYR8d3Tu->IcADRQKgmj(0,$FvaYR8d3Tu->M9Ztzifv2j()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"},undef,undef);my $k7TR3FMCaS=$FvaYR8d3Tu->OSiHDMhqxG();unless(ref $k7TR3FMCaS eq "\x41\x52\x52\x41\x59"){$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $N7NZLK3Ms8=[];foreach my $mbAsrq984c(@{$YpvMdAU3ct}){foreach my $gB2JKY30Xf(@{$k7TR3FMCaS}){if($mbAsrq984c eq $gB2JKY30Xf->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$N7NZLK3Ms8},$gB2JKY30Xf;last;}}}unless(ref $zNpGzF2EkT eq "\x41\x52\x52\x41\x59"){$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}dKUouA9SJq($FvaYR8d3Tu,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x75\x73\x65\x72\x5f\x69\x6e\x66\x6f\x2e\x74\x74",{PARTNER=>$SQyZgd0HUO,USER=>$zNpGzF2EkT->[0],GROUPS=>$N7NZLK3Ms8,TARIFF=>$FvaYR8d3Tu->d9NPaHrLgY(),DID_MNG=>$Mc7NMJdIs0,EXTRA_OPTIONS=>$zZYJ13RsEB->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"},DIDS=>$FvaYR8d3Tu->vUJuq6QpMt(),LIMITS=>$FvaYR8d3Tu->M19sbNHol4($FvaYR8d3Tu->M9Ztzifv2j()->{"\x49\x44"})});}sub ev6u8Y7NbM{my($FvaYR8d3Tu,$zZYJ13RsEB,$xJElBtxmzL,$YpvMdAU3ct,$SQyZgd0HUO,$kBy2bfc35o,$Ss9FL8wtdx)=@_;my($zSUPx4rs9t,$Nga89zBZPy,$SQXkVJaE2j,$y7hRijxW0X)=$FvaYR8d3Tu->FVFE1uXA0t(["\x66\x5f\x61\x63","\x66\x5f\x76\x6e","\x66\x5f\x67\x72\x6f\x75\x70","\x66\x5f\x73\x74\x61\x74\x75\x73"]);my $k7TR3FMCaS=$FvaYR8d3Tu->OSiHDMhqxG();unless(ref $k7TR3FMCaS eq "\x41\x52\x52\x41\x59"){$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $N7NZLK3Ms8=[];my $DL8jz9ki7q=0;foreach my $mbAsrq984c(@{$YpvMdAU3ct}){foreach my $gB2JKY30Xf(@{$k7TR3FMCaS}){if($mbAsrq984c eq $gB2JKY30Xf->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$N7NZLK3Ms8},$gB2JKY30Xf;if(length($SQXkVJaE2j)and ! $DL8jz9ki7q){if($gB2JKY30Xf->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}eq $SQXkVJaE2j){$DL8jz9ki7q=1;}}last;}}}my($zNpGzF2EkT,$k8stAUErJk);if($DL8jz9ki7q){($zNpGzF2EkT,$k8stAUErJk)=$FvaYR8d3Tu->IcADRQKgmj($xJElBtxmzL,$zSUPx4rs9t,$Nga89zBZPy,$SQXkVJaE2j,undef,$y7hRijxW0X,undef,undef,$Ss9FL8wtdx);}else{($zNpGzF2EkT,$k8stAUErJk)=$FvaYR8d3Tu->IcADRQKgmj($xJElBtxmzL,$zSUPx4rs9t,$Nga89zBZPy,$YpvMdAU3ct,undef,$y7hRijxW0X,undef,undef,$Ss9FL8wtdx);}unless(ref $zNpGzF2EkT eq "\x41\x52\x52\x41\x59"){$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $LFE7P9qNzO=1;foreach my $z7P41F8rC0(@{$zNpGzF2EkT}){$z7P41F8rC0->{"\x49\x44\x58"}=$xJElBtxmzL+$LFE7P9qNzO;$LFE7P9qNzO++;}my $vB81Stg0hl;if($kBy2bfc35o){$vB81Stg0hl="\x70\x61\x72\x74\x6e\x65\x72\x5f\x75\x73\x65\x72\x5f\x6c\x69\x73\x74\x5f\x72\x6f\x2e\x74\x74";}else{$vB81Stg0hl="\x70\x61\x72\x74\x6e\x65\x72\x5f\x75\x73\x65\x72\x5f\x6c\x69\x73\x74\x2e\x74\x74";}dKUouA9SJq($FvaYR8d3Tu,$vB81Stg0hl,{USERS=>$zNpGzF2EkT,USERS_CNT=>$k8stAUErJk,GROUPS=>$N7NZLK3Ms8,PARTNER=>$SQyZgd0HUO,F_AC=>$zSUPx4rs9t,F_VN=>$Nga89zBZPy,F_GROUP=>$SQXkVJaE2j,F_STATUS=>$y7hRijxW0X,EXTRA_OPTIONS=>$zZYJ13RsEB->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"},$FvaYR8d3Tu->cqGL29RrWo(1,$zNpGzF2EkT,$xJElBtxmzL)});}sub Tr4AhKbBaF{my($FvaYR8d3Tu,$zZYJ13RsEB,$SQyZgd0HUO,$YpvMdAU3ct,$Ss9FL8wtdx)=@_;my($xJElBtxmzL,$ySbyniXW7o,$FGow7Px5BJ,$EyF6kxm2Qu,$Bn7cL6yx58,$PLGQdBRSel,$eC8mIBukG1,$LRGsSmvDlC,$dEtYXI52zb)=$FvaYR8d3Tu->FVFE1uXA0t([[(from=>0)],qw(caller_id called_id ac call_type refresh c2c duration group)]);my $YOHBtymMRq;if($EyF6kxm2Qu=~ /,/){$YOHBtymMRq=[split(/\s*,\s*/,$EyF6kxm2Qu)];}else{$YOHBtymMRq=$EyF6kxm2Qu;}my $k7TR3FMCaS=$FvaYR8d3Tu->OSiHDMhqxG();unless(ref $k7TR3FMCaS eq "\x41\x52\x52\x41\x59"){$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $N7NZLK3Ms8=[];my $DL8jz9ki7q=0;foreach my $mbAsrq984c(@{$YpvMdAU3ct}){foreach my $gB2JKY30Xf(@{$k7TR3FMCaS}){if($mbAsrq984c eq $gB2JKY30Xf->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$N7NZLK3Ms8},$gB2JKY30Xf;if(length($dEtYXI52zb)and ! $DL8jz9ki7q){if($gB2JKY30Xf->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}eq $dEtYXI52zb){$DL8jz9ki7q=1;}}last;}}}my $YwUdmHkVcI;if($DL8jz9ki7q){$YwUdmHkVcI=$FvaYR8d3Tu->XUVqrGnMmP($ySbyniXW7o,$FGow7Px5BJ,$YOHBtymMRq,$Bn7cL6yx58,$LRGsSmvDlC,$dEtYXI52zb,$Ss9FL8wtdx,undef,$xJElBtxmzL);}else{$YwUdmHkVcI=$FvaYR8d3Tu->XUVqrGnMmP($ySbyniXW7o,$FGow7Px5BJ,$YOHBtymMRq,$Bn7cL6yx58,$LRGsSmvDlC,$YpvMdAU3ct,$Ss9FL8wtdx,undef,$xJElBtxmzL);}unless(ref $YwUdmHkVcI eq "\x41\x52\x52\x41\x59"){$YwUdmHkVcI=[];}if($YwUdmHkVcI){foreach my $q7tsiJTwuX(@{$YwUdmHkVcI}){$q7tsiJTwuX->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$FvaYR8d3Tu->MKVjIJR5aZ($q7tsiJTwuX->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});$q7tsiJTwuX->{"\x43\x44\x52\x5f\x44\x55\x52\x41\x54\x49\x4f\x4e"}=time-$q7tsiJTwuX->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"};}}if(! length($eC8mIBukG1)and $zZYJ13RsEB->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{"\x43\x32\x43"}){$eC8mIBukG1=$zZYJ13RsEB->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{"\x43\x32\x43"};}if($eC8mIBukG1){$eC8mIBukG1=~ s#ph=[^&;]+##;$eC8mIBukG1=~ s#user_vars=([^&;]+)##;if($1){$eC8mIBukG1=",$1&$eC8mIBukG1";}elsif($eC8mIBukG1=~ /&/ and $eC8mIBukG1 !~ /^[,&]/){$eC8mIBukG1="&$eC8mIBukG1";}}return dKUouA9SJq($FvaYR8d3Tu,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74",{CALLS_COUNT=>scalar(@$YwUdmHkVcI),CALLS_LIST=>$YwUdmHkVcI,CDR_CALLER_ID=>$ySbyniXW7o,CDR_CALLED_ID=>$FGow7Px5BJ,CDR_AC=>$EyF6kxm2Qu,CDR_CALL_TYPE=>$Bn7cL6yx58,CDR_REFRESH_TIME=>$PLGQdBRSel,CDR_C2C=>$eC8mIBukG1,CDR_DURATION=>$LRGsSmvDlC,CDR_GROUP=>$dEtYXI52zb,GROUPS=>$N7NZLK3Ms8,PARTNER=>$SQyZgd0HUO,EXTRA_OPTIONS=>$zZYJ13RsEB->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"},$FvaYR8d3Tu->cqGL29RrWo(1,$YwUdmHkVcI,$xJElBtxmzL)});}sub Z2M73yZI6a{my($FvaYR8d3Tu,$zZYJ13RsEB,$SQyZgd0HUO,$YpvMdAU3ct,$Ss9FL8wtdx)=@_;my($xJElBtxmzL,$zSUPx4rs9t,$Nga89zBZPy)=$FvaYR8d3Tu->FVFE1uXA0t([[(from=>0)],"\x66\x5f\x61\x63","\x66\x5f\x76\x6e"]);my $k7TR3FMCaS=$FvaYR8d3Tu->OSiHDMhqxG();unless(ref $k7TR3FMCaS eq "\x41\x52\x52\x41\x59"){$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $N7NZLK3Ms8=[];foreach my $mbAsrq984c(@{$YpvMdAU3ct}){foreach my $gB2JKY30Xf(@{$k7TR3FMCaS}){if($mbAsrq984c eq $gB2JKY30Xf->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$N7NZLK3Ms8},$mbAsrq984c;last;}}}my $M751ByPG20=$FvaYR8d3Tu->w35D1xqpLm($xJElBtxmzL,$zSUPx4rs9t,$Nga89zBZPy,$N7NZLK3Ms8,$Ss9FL8wtdx);unless(ref $M751ByPG20 eq "\x41\x52\x52\x41\x59"){$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}dKUouA9SJq($FvaYR8d3Tu,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x64\x69\x64\x5f\x6c\x69\x73\x74\x2e\x74\x74",{DIDS=>$M751ByPG20,F_AC=>$zSUPx4rs9t,F_VN=>$Nga89zBZPy,PARTNER=>$SQyZgd0HUO,$FvaYR8d3Tu->cqGL29RrWo(1,$M751ByPG20,$xJElBtxmzL)});}sub dP1No8qWTd{my($FvaYR8d3Tu,$ztEqpUewJo,$zZYJ13RsEB,$SQyZgd0HUO,$YpvMdAU3ct,$Ss9FL8wtdx)=@_;my($xJElBtxmzL,$n28gwTVaft,$O0b21OUPC6,$G3j2qgSd8z,$LMztHksdNL,$ySbyniXW7o,$FGow7Px5BJ,$EyF6kxm2Qu,$Bn7cL6yx58,$LRGsSmvDlC,$tNq8D0gAHL,$SNi8O9Qhso,$JJXfg5ALa9,$dEtYXI52zb)=$FvaYR8d3Tu->FVFE1uXA0t([[(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("$LMztHksdNL$ySbyniXW7o$FGow7Px5BJ$n28gwTVaft$O0b21OUPC6$Bn7cL6yx58$EyF6kxm2Qu$LRGsSmvDlC$JJXfg5ALa9")){my $X3bwT8FyOi=$FvaYR8d3Tu->VzAEujaiBr("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x41\x49");$n28gwTVaft=$FvaYR8d3Tu->MKVjIJR5aZ(time-86400*$X3bwT8FyOi,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$O0b21OUPC6=$FvaYR8d3Tu->MKVjIJR5aZ(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my $k7TR3FMCaS=$FvaYR8d3Tu->OSiHDMhqxG();unless(ref $k7TR3FMCaS eq "\x41\x52\x52\x41\x59"){$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $N7NZLK3Ms8=[];my $DL8jz9ki7q=0;foreach my $mbAsrq984c(@{$YpvMdAU3ct}){foreach my $gB2JKY30Xf(@{$k7TR3FMCaS}){if($mbAsrq984c eq $gB2JKY30Xf->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$N7NZLK3Ms8},$gB2JKY30Xf;if(length($dEtYXI52zb)and ! $DL8jz9ki7q){if($gB2JKY30Xf->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}eq $dEtYXI52zb){$DL8jz9ki7q=1;}}last;}}}my $YOHBtymMRq;if($EyF6kxm2Qu=~ /,/){$YOHBtymMRq=[split(/\s*,\s*/,$EyF6kxm2Qu)];}else{$YOHBtymMRq=$EyF6kxm2Qu;}my $JgkeKfMZLN;if($DL8jz9ki7q){$JgkeKfMZLN=$FvaYR8d3Tu->gzZPHj2Y9T($LMztHksdNL,$ySbyniXW7o,$FGow7Px5BJ,$xJElBtxmzL,$FvaYR8d3Tu->E2zGx7vyZq($n28gwTVaft),$FvaYR8d3Tu->E2zGx7vyZq($O0b21OUPC6),$Bn7cL6yx58,$YOHBtymMRq,$LRGsSmvDlC,$JJXfg5ALa9,$ztEqpUewJo,$SNi8O9Qhso,$tNq8D0gAHL,$dEtYXI52zb,$Ss9FL8wtdx);}else{$JgkeKfMZLN=$FvaYR8d3Tu->gzZPHj2Y9T($LMztHksdNL,$ySbyniXW7o,$FGow7Px5BJ,$xJElBtxmzL,$FvaYR8d3Tu->E2zGx7vyZq($n28gwTVaft),$FvaYR8d3Tu->E2zGx7vyZq($O0b21OUPC6),$Bn7cL6yx58,$YOHBtymMRq,$LRGsSmvDlC,$JJXfg5ALa9,$ztEqpUewJo,$SNi8O9Qhso,$tNq8D0gAHL,$YpvMdAU3ct,$Ss9FL8wtdx);}unless(ref $JgkeKfMZLN eq "\x41\x52\x52\x41\x59"){$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my(@KdnQkwHGlm,$Y9S02NOVWE);if($JgkeKfMZLN){my $djKwxbGC2I=$xJElBtxmzL+1;foreach my $q7tsiJTwuX(@{$JgkeKfMZLN}){$q7tsiJTwuX->{"\x43\x44\x52\x5f\x4e\x55\x4d"}=$djKwxbGC2I++;$q7tsiJTwuX->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$FvaYR8d3Tu->MKVjIJR5aZ($q7tsiJTwuX->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});}if(ref $JgkeKfMZLN and ref $JgkeKfMZLN->[0]){my $Vl9xCqcJAR=$FvaYR8d3Tu->MKVjIJR5aZ($JgkeKfMZLN->[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 @KdnQkwHGlm,(JS_DATE_STR=>$Vl9xCqcJAR);}}my $iyRtKF5Jzr;if($LMztHksdNL){$iyRtKF5Jzr="\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($ztEqpUewJo){$iyRtKF5Jzr="\x70\x61\x72\x74\x6e\x65\x72\x5f\x61\x63\x74\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c\x2e\x74\x74";push @KdnQkwHGlm,(CDR_ACT_TYPE=>$tNq8D0gAHL,CDR_ACT_EXT=>$SNi8O9Qhso);unless($FvaYR8d3Tu->yuGSzPDNTV()->{"\x44\x46"}){push @KdnQkwHGlm,(ACT_TYPES=>$FvaYR8d3Tu->{"\x5f\x4c\x49\x53\x54\x53"}->{"\x41\x43\x54\x49\x56\x49\x54\x49\x45\x53"});}}else{$iyRtKF5Jzr="\x70\x61\x72\x74\x6e\x65\x72\x5f\x63\x64\x72\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74";push @KdnQkwHGlm,(CDR_CALL_TYPE=>$Bn7cL6yx58);}return dKUouA9SJq($FvaYR8d3Tu,$iyRtKF5Jzr,{CDR_LIST=>$JgkeKfMZLN,CDR_CALL_ID=>$LMztHksdNL,CDR_CALLER_ID=>$ySbyniXW7o,CDR_CALLED_ID=>$FGow7Px5BJ,CDR_AC=>$EyF6kxm2Qu,CDR_DURATION=>$LRGsSmvDlC,CDR_DATA=>$JJXfg5ALa9,FROM_TIME=>$n28gwTVaft,TO_TIME=>$O0b21OUPC6,SMART_TIME=>$G3j2qgSd8z,CDR_GROUP=>$dEtYXI52zb,GROUPS=>$N7NZLK3Ms8,PARTNER=>$SQyZgd0HUO,EXTRA_OPTIONS=>$zZYJ13RsEB->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"},@KdnQkwHGlm,$FvaYR8d3Tu->cqGL29RrWo(1,$JgkeKfMZLN,$xJElBtxmzL)});}sub LCDjcZKP8E{my($FvaYR8d3Tu,$zZYJ13RsEB,$SQyZgd0HUO)=@_;my($DqNtEgbxeF,$ySjLWAmw8E,$TiDdM9B73N)=$FvaYR8d3Tu->FVFE1uXA0t([qw(node ip mode)]);if($TiDdM9B73N eq "\x77\x6c\x61\x64\x64"){$FvaYR8d3Tu->Wb3CHR9x5W($DqNtEgbxeF,$TiDdM9B73N,$ySjLWAmw8E);}elsif($TiDdM9B73N eq "\x77\x6c\x64\x65\x6c"){$FvaYR8d3Tu->Wb3CHR9x5W($DqNtEgbxeF,$TiDdM9B73N,$ySjLWAmw8E);}elsif($ySjLWAmw8E){my $i8iamlA7r0=$zZYJ13RsEB->{"\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 $IRvHV9Tdpq=$FvaYR8d3Tu->PanqhE4j3m("\x66\x32\x62\x2d\x70\x61\x72\x74\x6e\x65\x72\x2d".$zZYJ13RsEB->{"\x49\x44"}."-$ySjLWAmw8E")||0;if($IRvHV9Tdpq){undef $ySjLWAmw8E;$FvaYR8d3Tu->{"\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{$FvaYR8d3Tu->PanqhE4j3m("\x66\x32\x62\x2d\x70\x61\x72\x74\x6e\x65\x72\x2d".$zZYJ13RsEB->{"\x49\x44"}."-$ySjLWAmw8E",1,$i8iamlA7r0);$FvaYR8d3Tu->nsYZdAFnuC($DqNtEgbxeF,$ySjLWAmw8E);}}my $sbiKw37e6I=$FvaYR8d3Tu->nsYZdAFnuC($DqNtEgbxeF);unless(ref $sbiKw37e6I eq "\x41\x52\x52\x41\x59"){$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $Sk0TbYXfiW=$FvaYR8d3Tu->Wb3CHR9x5W();unless(ref $Sk0TbYXfiW eq "\x41\x52\x52\x41\x59"){$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}dKUouA9SJq($FvaYR8d3Tu,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x66\x32\x62\x2e\x74\x74",{F2B_WL=>$Sk0TbYXfiW,F2B_CNT_WL=>scalar(@$Sk0TbYXfiW),F2B=>$sbiKw37e6I,F2B_CNT=>scalar(@$sbiKw37e6I),PARTNER=>$SQyZgd0HUO,NODE=>$FvaYR8d3Tu->VzAEujaiBr("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x53\x45\x52\x56\x45\x52\x5f\x49\x44"),EXTRA_OPTIONS=>$zZYJ13RsEB->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}});}sub dKUouA9SJq{my($FvaYR8d3Tu,$xW6bwfEDd2,$JJXfg5ALa9)=@_;my $BOHlwEk2ZR=Template::EasyTT->new({});my $txIkobn5w6=$FvaYR8d3Tu->VzAEujaiBr("\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 $Z8RNYCtDbE='';$JJXfg5ALa9->{"\x55\x53\x45\x5f\x42\x49\x4c\x4c\x49\x4e\x47"}=$FvaYR8d3Tu->VzAEujaiBr("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x55\x53\x45\x5f\x42\x49\x4c\x4c\x49\x4e\x47");$JJXfg5ALa9->{"\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}=$FvaYR8d3Tu->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"};$JJXfg5ALa9->{"\x55\x4e\x49\x58\x54\x49\x4d\x45"}=time;my @h85ZYxA329;if(length $ENV{"\x50\x41\x54\x48\x5f\x49\x4e\x46\x4f"}){@h85ZYxA329=split(/\//,substr($ENV{"\x50\x41\x54\x48\x5f\x49\x4e\x46\x4f"},1));}my $TpOZqw4P8J=$FvaYR8d3Tu->VzAEujaiBr("\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 $WoxZPRTi9p=$FvaYR8d3Tu->VzAEujaiBr("\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 $h85ZYxA329[0]){my($CaO7PXe0ZS,$z9hW06O8JI)=split(/:/,$h85ZYxA329[0]);if(length $CaO7PXe0ZS){$TpOZqw4P8J=$CaO7PXe0ZS;$TpOZqw4P8J=~ s#[^\w\d\._-]##g;}$WoxZPRTi9p=$z9hW06O8JI if length $z9hW06O8JI;}my $rMiUXf0kW8=$FvaYR8d3Tu->FVFE1uXA0t("\x64\x66");if($rMiUXf0kW8){my $L0Wt1o3JCP=0;foreach my $zDcOEXKjSL(split(/\s*,\s*/,$FvaYR8d3Tu->VzAEujaiBr("\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"}=~ /^$zDcOEXKjSL$/){$L0Wt1o3JCP=1;last;}}$rMiUXf0kW8='' unless $L0Wt1o3JCP;}unless($rMiUXf0kW8){$BOHlwEk2ZR->operators_add("\x64\x69\x76\x32",sub{return $_[0]% 2});$BOHlwEk2ZR->filters_add("\x62\x69\x6c\x6c\x5f\x66\x6c\x6f\x61\x74",sub{return sprintf("\x25\x2e".($FvaYR8d3Tu->VzAEujaiBr("\x42\x49\x4c\x4c\x49\x4e\x47\x5f\x52\x4f\x55\x4e\x44\x49\x4e\x47\x5f\x34\x47\x55\x49")||2)."\x66",$_[1])});$BOHlwEk2ZR->filters_add("\x6c\x6f\x63\x61\x6c\x65\x5f\x6d\x73\x67",sub{my $Q17jX0WpYc=$FvaYR8d3Tu->jstdEDPBr5($_[1],$WoxZPRTi9p);$Q17jX0WpYc=~ s#&#&amp;#gs;$Q17jX0WpYc=~ s#\x22#&quot;#gs;$Q17jX0WpYc=~ s#<#&lt;#gs;$Q17jX0WpYc=~ s#>#&gt;#gs;$Q17jX0WpYc=~ s#\x27#&apos;#gs;return $Q17jX0WpYc;});if(-e "$txIkobn5w6/$TpOZqw4P8J/$xW6bwfEDd2"){$BOHlwEk2ZR->process("$txIkobn5w6/$TpOZqw4P8J/$xW6bwfEDd2",$JJXfg5ALa9,\$Z8RNYCtDbE);}else{$BOHlwEk2ZR->process("$txIkobn5w6/$xW6bwfEDd2",$JJXfg5ALa9,\$Z8RNYCtDbE);}}unless($rMiUXf0kW8){$FvaYR8d3Tu->j30azARfnj(200,"\x4f\x6b",undef,$Z8RNYCtDbE.$FvaYR8d3Tu->jstdEDPBr5("\x67\x36\x31\x33","\x43"));}elsif($rMiUXf0kW8 eq "\x78\x6d\x6c"){require XML::Simple;$Z8RNYCtDbE=XML::Simple::XMLout($JJXfg5ALa9);$FvaYR8d3Tu->XeSMKRzEf1(200,"\x4f\x6b",undef,$Z8RNYCtDbE);}elsif($rMiUXf0kW8 eq "\x6a\x73\x6f\x6e"){require JSON::XS;my $y2DfJG9NYE=JSON::XS->new();$FvaYR8d3Tu->j30azARfnj(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",$y2DfJG9NYE->encode($JJXfg5ALa9));}}