#!/usr/bin/perl
########################################################################
#
# $Id: VirtualPBX-PI.cgi,v 1.59 2026/07/11 20:42:52 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;YKuVINAz9m();sub new{my($NOrC5HZaLc,$MnYgEKqIQx)=@_;my $scrqlZeB3C=bless{_CGI=>CGI->new(),_CONF=>{},_CDR=>{CALLED_ID=>"\x77\x65\x62",},_USER_CREDS=>{},_USER_VBOXES=>{},_SESSION=>{},},$NOrC5HZaLc;$scrqlZeB3C->ngcsI2dwf4($MnYgEKqIQx);$scrqlZeB3C->sqmH4s9ih2();if($scrqlZeB3C->XUp8KtvxSh("\x44\x45\x42\x55\x47\x5f\x48\x54\x54\x50\x5f\x41\x55\x44\x49\x54\x5f\x46\x49\x4c\x45")){$scrqlZeB3C->sqmH4s9ih2("\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");}$scrqlZeB3C->{"\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};$scrqlZeB3C->{"\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 GoogleCalendarExplorer)]};my $rdJu0jGQ2R;$scrqlZeB3C->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}={};foreach my $JHMJ45SCtG(split(/\s*;\s*/,$scrqlZeB3C->XUp8KtvxSh("\x43\x47\x49\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"))){my($nKx28PS6Io,@hO72kYRDvj)=split(/\s*:\s*/,$JHMJ45SCtG);foreach my $fDOezbZLUf(@hO72kYRDvj){$scrqlZeB3C->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$fDOezbZLUf}=$nKx28PS6Io;}}my $fDOezbZLUf=$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"};unless(exists $scrqlZeB3C->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$fDOezbZLUf}){$fDOezbZLUf=~ s#\.\d+$##;}unless(exists $scrqlZeB3C->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$fDOezbZLUf}){if($scrqlZeB3C->XUp8KtvxSh("\x43\x47\x49\x5f\x41\x4c\x49\x41\x53\x45\x53\x5f\x57\x4f\x5f\x49\x50")){$rdJu0jGQ2R="\x70\x61\x72\x74\x6e\x65\x72";}else{$rdJu0jGQ2R="\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($scrqlZeB3C->XUp8KtvxSh("\x43\x47\x49\x5f\x41\x4c\x49\x41\x53\x45\x53\x5f\x57\x4f\x5f\x49\x50")){$rdJu0jGQ2R=$scrqlZeB3C->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$fDOezbZLUf};}else{$rdJu0jGQ2R=$scrqlZeB3C->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$fDOezbZLUf}."\x20\x28\x20".$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"}."\x20\x29";}}$scrqlZeB3C->{"\x5f\x43\x44\x52"}->{"\x43\x41\x4c\x4c\x45\x52\x5f\x49\x44"}=$rdJu0jGQ2R;;$scrqlZeB3C->{"\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($scrqlZeB3C->XUp8KtvxSh("\x50\x41\x54\x48\x5f\x57\x4f\x52\x4b\x5f\x44\x49\x52"));$scrqlZeB3C->SHm2fXKeVr();return $scrqlZeB3C;}sub YKuVINAz9m{my $scrqlZeB3C=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($KywDLaZWfM,$Kza0lnNokv,$rMIy1LVZPd);$scrqlZeB3C->telYofRnEJ(1);my($TeP29OFJD8,$z9X84W7gIf,$ttaEwbuMUZ,$jdW9ZHgIRA,$s3254ZAy80,$C1KxN90s87)=$scrqlZeB3C->TH8vcZTGhW([qw(partner password action from user_id ac)]);my($TCJALuI8B5,$vtAKBFyzqQ);if(my $IUKHmLW9D0=$scrqlZeB3C->kyLi9F7tzB()){unless(length $z9X84W7gIf){my($tJHbAnVlme,$KywDLaZWfM,$nEWzFKGpL1)=split(/-/,$TeP29OFJD8);foreach my $VJl1O7oyw5(@$IUKHmLW9D0){if($VJl1O7oyw5->{"\x49\x44"}eq $tJHbAnVlme){if($scrqlZeB3C->XUp8KtvxSh("\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-$nEWzFKGpL1<$scrqlZeB3C->XUp8KtvxSh("\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($KywDLaZWfM eq md5_hex(join("\x2d",$VJl1O7oyw5->{"\x4e\x41\x4d\x45"},$VJl1O7oyw5->{"\x50\x41\x53\x53\x57\x4f\x52\x44"},$nEWzFKGpL1))){$vtAKBFyzqQ=$VJl1O7oyw5;}}}else{if($KywDLaZWfM eq md5_hex(join("\x2d",$VJl1O7oyw5->{"\x4e\x41\x4d\x45"},$VJl1O7oyw5->{"\x50\x41\x53\x53\x57\x4f\x52\x44"},$nEWzFKGpL1))){$vtAKBFyzqQ=$VJl1O7oyw5;}}last;}}}else{foreach my $VJl1O7oyw5(@$IUKHmLW9D0){if($VJl1O7oyw5->{"\x4e\x41\x4d\x45"}eq $TeP29OFJD8){if($VJl1O7oyw5->{"\x50\x41\x53\x53\x57\x4f\x52\x44"}eq $z9X84W7gIf){$vtAKBFyzqQ=$VJl1O7oyw5;}last;}}}}if($vtAKBFyzqQ){my $nEWzFKGpL1=time;$TeP29OFJD8=$vtAKBFyzqQ->{"\x49\x44"}."\x2d".md5_hex(join("\x2d",$vtAKBFyzqQ->{"\x4e\x41\x4d\x45"},$vtAKBFyzqQ->{"\x50\x41\x53\x53\x57\x4f\x52\x44"},$nEWzFKGpL1))."\x2d".$nEWzFKGpL1;$vtAKBFyzqQ->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}={};if($vtAKBFyzqQ->{"\x4f\x50\x54\x49\x4f\x4e\x53"}){foreach my $yY93keg2bT(split(/\s*\|\s*/,$vtAKBFyzqQ->{"\x4f\x50\x54\x49\x4f\x4e\x53"})){my($M7iumb3g2t,$x81dSVAnYe)=split(/=/,$yY93keg2bT,2);next unless length $M7iumb3g2t;$vtAKBFyzqQ->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{uc($M7iumb3g2t)}=$x81dSVAnYe;}}}else{return kNcPgbROm2($scrqlZeB3C,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x6f\x67\x69\x6e\x2e\x74\x74",{});}if(exists($scrqlZeB3C->{"\x5f\x55\x53\x45\x52\x5f\x49\x4e\x46\x4f\x5f\x41\x43\x54\x49\x4f\x4e\x53"}->{$ttaEwbuMUZ})){if(length($s3254ZAy80)){$TCJALuI8B5=$scrqlZeB3C->ys6lbfVRgd($s3254ZAy80);my $NWjScVG2U1=$scrqlZeB3C->T0fMjaKi97();%{$NWjScVG2U1}=%{$TCJALuI8B5};}elsif(length($C1KxN90s87)){$scrqlZeB3C->mOl9DTLZQg(undef,$C1KxN90s87);$TCJALuI8B5=$scrqlZeB3C->T0fMjaKi97();}}else{$TCJALuI8B5=$vtAKBFyzqQ;$TCJALuI8B5->{"\x50\x41\x52\x54\x4e\x45\x52\x5f\x54\x41\x47"}=$vtAKBFyzqQ->{"\x54\x41\x47"};}if(! $TCJALuI8B5 or ! $vtAKBFyzqQ or index("\x2c".$vtAKBFyzqQ->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}."\x2c","\x2c".$TCJALuI8B5->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}."\x2c")<0){return $scrqlZeB3C->CsbkvtiHqf("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}elsif($scrqlZeB3C->XUp8KtvxSh("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x50\x41\x52\x54\x4e\x45\x52\x5f\x4d\x4f\x44\x45")==1){if(index($TCJALuI8B5->{"\x50\x41\x52\x54\x4e\x45\x52\x5f\x54\x41\x47"},$vtAKBFyzqQ->{"\x54\x41\x47"})){return $scrqlZeB3C->CsbkvtiHqf("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}}elsif($scrqlZeB3C->XUp8KtvxSh("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x50\x41\x52\x54\x4e\x45\x52\x5f\x4d\x4f\x44\x45")==2){if($TCJALuI8B5->{"\x50\x41\x52\x54\x4e\x45\x52\x5f\x54\x41\x47"}ne $vtAKBFyzqQ->{"\x54\x41\x47"}){return $scrqlZeB3C->CsbkvtiHqf("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}}if($vtAKBFyzqQ->{"\x52\x45\x41\x44\x5f\x4f\x4e\x4c\x59"}){SNASJViW3m($scrqlZeB3C,$vtAKBFyzqQ,$jdW9ZHgIRA,[split("\x2c",$vtAKBFyzqQ->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$TeP29OFJD8,"\x72\x6f",$vtAKBFyzqQ->{"\x54\x41\x47"});}elsif($ttaEwbuMUZ eq "\x62\x61\x6c\x61\x6e\x63\x65\x5f\x75\x70\x64\x61\x74\x65"){my($ajnuxTSMtU,$sEA57eSU4V)=$scrqlZeB3C->TH8vcZTGhW([qw(balance cur_id)]);if($scrqlZeB3C->tAQVN8RFCO($ajnuxTSMtU,$sEA57eSU4V)){$scrqlZeB3C->fRsVtSrFYK("\x75\x73\x65\x72\x2d".$scrqlZeB3C->T0fMjaKi97()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"},undef);$scrqlZeB3C->CsbkvtiHqf();}else{$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x64\x69\x64\x5f\x61\x64\x64" and $vtAKBFyzqQ->{"\x44\x49\x44\x5f\x4d\x4e\x47"}){my($ZdpY7gFCoO,$UmRt5CFK02,$G5omxup9Uh,$tvo971Rgmu)=$scrqlZeB3C->TH8vcZTGhW([qw(did channels pn cnam)]);my @YvpRW8mzZQ=split(/\s*,\s*/,$ZdpY7gFCoO);my $NGIDEWe0Hw=0;foreach my $ZMhN8US9YF(@YvpRW8mzZQ){if($scrqlZeB3C->DyvxtwuDsC($ZMhN8US9YF,$G5omxup9Uh,$C1KxN90s87,$UmRt5CFK02,$tvo971Rgmu)){$scrqlZeB3C->WGbu9T3SEw("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x61\x64\x64",$ZMhN8US9YF);}else{$NGIDEWe0Hw++;}}if($NGIDEWe0Hw){$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : [ $NGIDEWe0Hw / ".(scalar(@YvpRW8mzZQ))."\x20\x5d\x20".__LINE__);}else{$scrqlZeB3C->CsbkvtiHqf();}}elsif($ttaEwbuMUZ eq "\x64\x69\x64\x5f\x64\x65\x6c" and $vtAKBFyzqQ->{"\x44\x49\x44\x5f\x4d\x4e\x47"}){my($VDjVPUTC6l,$s3254ZAy80,$ZdpY7gFCoO)=$scrqlZeB3C->TH8vcZTGhW([qw(did_id user_id did)]);if($scrqlZeB3C->v0gB8FjShl($VDjVPUTC6l,$s3254ZAy80,$ZdpY7gFCoO)){$scrqlZeB3C->WGbu9T3SEw("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x64\x72\x6f\x70",$ZdpY7gFCoO);$scrqlZeB3C->CsbkvtiHqf();}else{$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x75\x73\x65\x72\x5f\x75\x70\x64\x61\x74\x65"){my $s3254ZAy80=$scrqlZeB3C->TH8vcZTGhW("\x75\x73\x65\x72\x5f\x69\x64");my @Z39w8rqSPb=$scrqlZeB3C->TH8vcZTGhW();my %I9bu6toP7v;foreach my $is2oB3IjkL(@Z39w8rqSPb){if($is2oB3IjkL=~ /^US_(VOICENUMBER|STATUS|DEMO_MODE|DESCRIPTION|GROUP_ID|PERMIT_WEB|CUSTOM_RULES)/){if($is2oB3IjkL eq "\x55\x53\x5f\x43\x55\x53\x54\x4f\x4d\x5f\x52\x55\x4c\x45\x53" and ! $vtAKBFyzqQ->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{"\x43\x52\x5f\x45\x4e\x41\x42\x4c\x45"}){next;}my $M7iumb3g2t=$1;if($scrqlZeB3C->TH8vcZTGhW($is2oB3IjkL)ne $TCJALuI8B5->{$M7iumb3g2t}){my $x81dSVAnYe=$scrqlZeB3C->TH8vcZTGhW($is2oB3IjkL);if($M7iumb3g2t eq "\x47\x52\x4f\x55\x50\x5f\x49\x44"){if(index("\x2c".$vtAKBFyzqQ->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}."\x2c",",$x81dSVAnYe,")<0){return $scrqlZeB3C->CsbkvtiHqf("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}}$I9bu6toP7v{$M7iumb3g2t}=$x81dSVAnYe;}}}if($scrqlZeB3C->VdhHwrq0M5($s3254ZAy80,\%I9bu6toP7v)){$scrqlZeB3C->WGbu9T3SEw("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65",undef,$s3254ZAy80);$scrqlZeB3C->CsbkvtiHqf();}else{$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x75\x73\x65\x72\x5f\x75\x70\x64\x61\x74\x65\x5f\x70\x69\x6e"){my $s3254ZAy80=$scrqlZeB3C->TH8vcZTGhW("\x75\x73\x65\x72\x5f\x69\x64");my $v1DG8t9slw=$scrqlZeB3C->TH8vcZTGhW("\x70\x69\x6e");if($scrqlZeB3C->xBlZipc6mf($s3254ZAy80,$v1DG8t9slw)){$scrqlZeB3C->WGbu9T3SEw("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65",undef,$s3254ZAy80);$scrqlZeB3C->CsbkvtiHqf();}else{$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x75\x73\x65\x72\x5f\x61\x64\x64"){my($G5omxup9Uh,$ElNMDs6GxZ,$ABO3wSy5ZF)=$scrqlZeB3C->TH8vcZTGhW([qw(phone group_id uname)]);if(index("\x2c".$vtAKBFyzqQ->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}."\x2c",",$ElNMDs6GxZ,")<0){return $scrqlZeB3C->CsbkvtiHqf("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}if(my $C1KxN90s87=$scrqlZeB3C->fGSNrDchQ7($G5omxup9Uh,$ElNMDs6GxZ,$ABO3wSy5ZF,undef,undef,{PARTNER_TAG=>$vtAKBFyzqQ->{"\x54\x41\x47"}})){$scrqlZeB3C->WGbu9T3SEw("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x61\x64\x64",$C1KxN90s87);$scrqlZeB3C->CsbkvtiHqf("?action=user_info&ac=$C1KxN90s87&partner=$TeP29OFJD8&df=".$scrqlZeB3C->TH8vcZTGhW("\x64\x66"));}else{$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x75\x73\x65\x72\x5f\x64\x65\x6c"){my($HWyKhLA9qH)=$scrqlZeB3C->TH8vcZTGhW([qw(single_user)]);if($scrqlZeB3C->vqUbNC18DF($s3254ZAy80)){if(ref $TCJALuI8B5 eq "\x48\x41\x53\x48"){$scrqlZeB3C->WGbu9T3SEw("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x64\x72\x6f\x70",$TCJALuI8B5->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"});}if($HWyKhLA9qH){$scrqlZeB3C->CsbkvtiHqf("?action=user_list&partner=$TeP29OFJD8&df=".$scrqlZeB3C->TH8vcZTGhW("\x64\x66"));}else{$scrqlZeB3C->CsbkvtiHqf();}}else{$scrqlZeB3C->CsbkvtiHqf(undef,"Internal error : $$ : ".__LINE__);}}elsif($ttaEwbuMUZ eq "\x75\x73\x65\x72\x5f\x69\x6e\x66\x6f"){sc7UmL8X2k($scrqlZeB3C,$vtAKBFyzqQ,$TeP29OFJD8,$vtAKBFyzqQ->{"\x44\x49\x44\x5f\x4d\x4e\x47"},[split("\x2c",$vtAKBFyzqQ->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})]);}elsif($ttaEwbuMUZ eq "\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74"){LgwQ31ankl($scrqlZeB3C,$vtAKBFyzqQ,$TeP29OFJD8,[split("\x2c",$vtAKBFyzqQ->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$vtAKBFyzqQ->{"\x54\x41\x47"});}elsif($ttaEwbuMUZ eq "\x63\x64\x72\x5f\x6c\x69\x73\x74"){JqTtoNsx09($scrqlZeB3C,undef,$vtAKBFyzqQ,$TeP29OFJD8,[split("\x2c",$vtAKBFyzqQ->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$vtAKBFyzqQ->{"\x54\x41\x47"});}elsif($ttaEwbuMUZ eq "\x61\x63\x74\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c"){JqTtoNsx09($scrqlZeB3C,"\x61\x63\x74\x61\x6c\x6c",$vtAKBFyzqQ,$TeP29OFJD8,[split("\x2c",$vtAKBFyzqQ->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$vtAKBFyzqQ->{"\x54\x41\x47"});}elsif($ttaEwbuMUZ eq "\x64\x69\x64\x5f\x6c\x69\x73\x74"){NhGqUpgCbx($scrqlZeB3C,$vtAKBFyzqQ,$TeP29OFJD8,[split("\x2c",$vtAKBFyzqQ->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$vtAKBFyzqQ->{"\x54\x41\x47"});}elsif($ttaEwbuMUZ eq "\x63\x61\x6c\x6c\x73\x5f\x68\x61\x6e\x67\x75\x70"){my($s3254ZAy80,$a480YLZwE2)=$scrqlZeB3C->TH8vcZTGhW([qw(user_id call_id)]);if(length($a480YLZwE2)and length($s3254ZAy80)){$scrqlZeB3C->dR3CD7KoML($a480YLZwE2,$s3254ZAy80);}$scrqlZeB3C->CsbkvtiHqf();}elsif($ttaEwbuMUZ eq "\x66\x32\x62" and $vtAKBFyzqQ->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{"\x46\x32\x42\x5f\x45\x4e\x41\x42\x4c\x45"}){vg9pGtqhKj($scrqlZeB3C,$vtAKBFyzqQ,$TeP29OFJD8);}elsif($ttaEwbuMUZ eq "\x75\x73\x65\x72\x5f\x6c\x69\x73\x74"){SNASJViW3m($scrqlZeB3C,$vtAKBFyzqQ,$jdW9ZHgIRA,[split("\x2c",$vtAKBFyzqQ->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$TeP29OFJD8,undef,$vtAKBFyzqQ->{"\x54\x41\x47"});}else{$scrqlZeB3C->CsbkvtiHqf("\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 sc7UmL8X2k{my($scrqlZeB3C,$vtAKBFyzqQ,$TeP29OFJD8,$zuhgqrmxtb,$Zi3JHa7zur)=@_;my $SsiJCbOtag=$scrqlZeB3C->A8Z3kibrsa(0,$scrqlZeB3C->T0fMjaKi97()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"},undef,undef);my $X24Vk0aXqM=$scrqlZeB3C->UNj5BIlcs8();unless(ref $X24Vk0aXqM eq "\x41\x52\x52\x41\x59"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $p96Hui87c4=[];foreach my $bx9J8HcCIs(@{$Zi3JHa7zur}){foreach my $YKj6v7g4ci(@{$X24Vk0aXqM}){if($bx9J8HcCIs eq $YKj6v7g4ci->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$p96Hui87c4},$YKj6v7g4ci;last;}}}unless(ref $SsiJCbOtag eq "\x41\x52\x52\x41\x59"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}kNcPgbROm2($scrqlZeB3C,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x75\x73\x65\x72\x5f\x69\x6e\x66\x6f\x2e\x74\x74",{PARTNER=>$TeP29OFJD8,USER=>$SsiJCbOtag->[0],GROUPS=>$p96Hui87c4,TARIFF=>$scrqlZeB3C->ae29XlMUTK(),DID_MNG=>$zuhgqrmxtb,EXTRA_OPTIONS=>$vtAKBFyzqQ->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"},DIDS=>$scrqlZeB3C->rPzKJZrW3L(),LIMITS=>$scrqlZeB3C->mI9OSJg4ub($scrqlZeB3C->T0fMjaKi97()->{"\x49\x44"})});}sub SNASJViW3m{my($scrqlZeB3C,$vtAKBFyzqQ,$jdW9ZHgIRA,$Zi3JHa7zur,$TeP29OFJD8,$sN5xwAqc8X,$jEJ8daWXI9)=@_;my($Rx8UoaIGOM,$SWl9y8HT5K,$leIH6N1qPE,$T0gqJkEnrM)=$scrqlZeB3C->TH8vcZTGhW(["\x66\x5f\x61\x63","\x66\x5f\x76\x6e","\x66\x5f\x67\x72\x6f\x75\x70","\x66\x5f\x73\x74\x61\x74\x75\x73"]);my $X24Vk0aXqM=$scrqlZeB3C->UNj5BIlcs8();unless(ref $X24Vk0aXqM eq "\x41\x52\x52\x41\x59"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $p96Hui87c4=[];my $gNZWhgA2zb=0;foreach my $bx9J8HcCIs(@{$Zi3JHa7zur}){foreach my $YKj6v7g4ci(@{$X24Vk0aXqM}){if($bx9J8HcCIs eq $YKj6v7g4ci->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$p96Hui87c4},$YKj6v7g4ci;if(length($leIH6N1qPE)and ! $gNZWhgA2zb){if($YKj6v7g4ci->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}eq $leIH6N1qPE){$gNZWhgA2zb=1;}}last;}}}my($SsiJCbOtag,$bt0U4m6p9S);if($gNZWhgA2zb){($SsiJCbOtag,$bt0U4m6p9S)=$scrqlZeB3C->A8Z3kibrsa($jdW9ZHgIRA,$Rx8UoaIGOM,$SWl9y8HT5K,$leIH6N1qPE,undef,$T0gqJkEnrM,undef,undef,$jEJ8daWXI9);}else{($SsiJCbOtag,$bt0U4m6p9S)=$scrqlZeB3C->A8Z3kibrsa($jdW9ZHgIRA,$Rx8UoaIGOM,$SWl9y8HT5K,$Zi3JHa7zur,undef,$T0gqJkEnrM,undef,undef,$jEJ8daWXI9);}unless(ref $SsiJCbOtag eq "\x41\x52\x52\x41\x59"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $Cg0opnAHDm=1;foreach my $NWjScVG2U1(@{$SsiJCbOtag}){$NWjScVG2U1->{"\x49\x44\x58"}=$jdW9ZHgIRA+$Cg0opnAHDm;$Cg0opnAHDm++;}my $IVsEk6SUtJ;if($sN5xwAqc8X){$IVsEk6SUtJ="\x70\x61\x72\x74\x6e\x65\x72\x5f\x75\x73\x65\x72\x5f\x6c\x69\x73\x74\x5f\x72\x6f\x2e\x74\x74";}else{$IVsEk6SUtJ="\x70\x61\x72\x74\x6e\x65\x72\x5f\x75\x73\x65\x72\x5f\x6c\x69\x73\x74\x2e\x74\x74";}kNcPgbROm2($scrqlZeB3C,$IVsEk6SUtJ,{USERS=>$SsiJCbOtag,USERS_CNT=>$bt0U4m6p9S,GROUPS=>$p96Hui87c4,PARTNER=>$TeP29OFJD8,F_AC=>$Rx8UoaIGOM,F_VN=>$SWl9y8HT5K,F_GROUP=>$leIH6N1qPE,F_STATUS=>$T0gqJkEnrM,EXTRA_OPTIONS=>$vtAKBFyzqQ->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"},$scrqlZeB3C->NHvhUgMaw6(1,$SsiJCbOtag,$jdW9ZHgIRA)});}sub LgwQ31ankl{my($scrqlZeB3C,$vtAKBFyzqQ,$TeP29OFJD8,$Zi3JHa7zur,$jEJ8daWXI9)=@_;my($jdW9ZHgIRA,$ZJFKQc3NIv,$DXDc6xzHrB,$C1KxN90s87,$ud1BRQ0X9l,$i7P6o0E8ac,$plUVODXPzB,$qGX158jrDJ,$ElNMDs6GxZ)=$scrqlZeB3C->TH8vcZTGhW([[(from=>0)],qw(caller_id called_id ac call_type refresh c2c duration group)]);my $vM9kju8JR1;if($C1KxN90s87=~ /,/){$vM9kju8JR1=[split(/\s*,\s*/,$C1KxN90s87)];}else{$vM9kju8JR1=$C1KxN90s87;}my $X24Vk0aXqM=$scrqlZeB3C->UNj5BIlcs8();unless(ref $X24Vk0aXqM eq "\x41\x52\x52\x41\x59"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $p96Hui87c4=[];my $gNZWhgA2zb=0;foreach my $bx9J8HcCIs(@{$Zi3JHa7zur}){foreach my $YKj6v7g4ci(@{$X24Vk0aXqM}){if($bx9J8HcCIs eq $YKj6v7g4ci->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$p96Hui87c4},$YKj6v7g4ci;if(length($ElNMDs6GxZ)and ! $gNZWhgA2zb){if($YKj6v7g4ci->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}eq $ElNMDs6GxZ){$gNZWhgA2zb=1;}}last;}}}my $lrf4leuzLm;if($gNZWhgA2zb){$lrf4leuzLm=$scrqlZeB3C->EAChg3VyoO($ZJFKQc3NIv,$DXDc6xzHrB,$vM9kju8JR1,$ud1BRQ0X9l,$qGX158jrDJ,$ElNMDs6GxZ,$jEJ8daWXI9,undef,$jdW9ZHgIRA);}else{$lrf4leuzLm=$scrqlZeB3C->EAChg3VyoO($ZJFKQc3NIv,$DXDc6xzHrB,$vM9kju8JR1,$ud1BRQ0X9l,$qGX158jrDJ,$Zi3JHa7zur,$jEJ8daWXI9,undef,$jdW9ZHgIRA);}unless(ref $lrf4leuzLm eq "\x41\x52\x52\x41\x59"){$lrf4leuzLm=[];}if($lrf4leuzLm){foreach my $VJl1O7oyw5(@{$lrf4leuzLm}){$VJl1O7oyw5->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$scrqlZeB3C->YPbw2qFVnY($VJl1O7oyw5->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});$VJl1O7oyw5->{"\x43\x44\x52\x5f\x44\x55\x52\x41\x54\x49\x4f\x4e"}=time-$VJl1O7oyw5->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"};}}if(! length($plUVODXPzB)and $vtAKBFyzqQ->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{"\x43\x32\x43"}){$plUVODXPzB=$vtAKBFyzqQ->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{"\x43\x32\x43"};}if($plUVODXPzB){$plUVODXPzB=~ s#ph=[^&;]+##;$plUVODXPzB=~ s#user_vars=([^&;]+)##;if($1){$plUVODXPzB=",$1&$plUVODXPzB";}elsif($plUVODXPzB=~ /&/ and $plUVODXPzB !~ /^[,&]/){$plUVODXPzB="&$plUVODXPzB";}}return kNcPgbROm2($scrqlZeB3C,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74",{CALLS_COUNT=>scalar(@$lrf4leuzLm),CALLS_LIST=>$lrf4leuzLm,CDR_CALLER_ID=>$ZJFKQc3NIv,CDR_CALLED_ID=>$DXDc6xzHrB,CDR_AC=>$C1KxN90s87,CDR_CALL_TYPE=>$ud1BRQ0X9l,CDR_REFRESH_TIME=>$i7P6o0E8ac,CDR_C2C=>$plUVODXPzB,CDR_DURATION=>$qGX158jrDJ,CDR_GROUP=>$ElNMDs6GxZ,GROUPS=>$p96Hui87c4,PARTNER=>$TeP29OFJD8,EXTRA_OPTIONS=>$vtAKBFyzqQ->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"},$scrqlZeB3C->NHvhUgMaw6(1,$lrf4leuzLm,$jdW9ZHgIRA)});}sub NhGqUpgCbx{my($scrqlZeB3C,$vtAKBFyzqQ,$TeP29OFJD8,$Zi3JHa7zur,$jEJ8daWXI9)=@_;my($jdW9ZHgIRA,$Rx8UoaIGOM,$SWl9y8HT5K)=$scrqlZeB3C->TH8vcZTGhW([[(from=>0)],"\x66\x5f\x61\x63","\x66\x5f\x76\x6e"]);my $X24Vk0aXqM=$scrqlZeB3C->UNj5BIlcs8();unless(ref $X24Vk0aXqM eq "\x41\x52\x52\x41\x59"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $p96Hui87c4=[];foreach my $bx9J8HcCIs(@{$Zi3JHa7zur}){foreach my $YKj6v7g4ci(@{$X24Vk0aXqM}){if($bx9J8HcCIs eq $YKj6v7g4ci->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$p96Hui87c4},$bx9J8HcCIs;last;}}}my $ysx7tykd01=$scrqlZeB3C->ynKq9i8bYv($jdW9ZHgIRA,$Rx8UoaIGOM,$SWl9y8HT5K,$p96Hui87c4,$jEJ8daWXI9);unless(ref $ysx7tykd01 eq "\x41\x52\x52\x41\x59"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}kNcPgbROm2($scrqlZeB3C,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x64\x69\x64\x5f\x6c\x69\x73\x74\x2e\x74\x74",{DIDS=>$ysx7tykd01,F_AC=>$Rx8UoaIGOM,F_VN=>$SWl9y8HT5K,PARTNER=>$TeP29OFJD8,$scrqlZeB3C->NHvhUgMaw6(1,$ysx7tykd01,$jdW9ZHgIRA)});}sub JqTtoNsx09{my($scrqlZeB3C,$zJafvruX8H,$vtAKBFyzqQ,$TeP29OFJD8,$Zi3JHa7zur,$jEJ8daWXI9)=@_;my($jdW9ZHgIRA,$tBOxm9Vf5H,$irhALTt8Hq,$RODWMGdR0B,$a480YLZwE2,$ZJFKQc3NIv,$DXDc6xzHrB,$C1KxN90s87,$ud1BRQ0X9l,$qGX158jrDJ,$ZB0MGXt9LI,$qsCje9mpcg,$dPuU3a7WG8,$ElNMDs6GxZ)=$scrqlZeB3C->TH8vcZTGhW([[(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("$a480YLZwE2$ZJFKQc3NIv$DXDc6xzHrB$tBOxm9Vf5H$irhALTt8Hq$ud1BRQ0X9l$C1KxN90s87$qGX158jrDJ$dPuU3a7WG8")){my $mpJES5Rlk0=$scrqlZeB3C->XUp8KtvxSh("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x41\x49");$tBOxm9Vf5H=$scrqlZeB3C->YPbw2qFVnY(time-86400*$mpJES5Rlk0,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$irhALTt8Hq=$scrqlZeB3C->YPbw2qFVnY(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my $X24Vk0aXqM=$scrqlZeB3C->UNj5BIlcs8();unless(ref $X24Vk0aXqM eq "\x41\x52\x52\x41\x59"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $p96Hui87c4=[];my $gNZWhgA2zb=0;foreach my $bx9J8HcCIs(@{$Zi3JHa7zur}){foreach my $YKj6v7g4ci(@{$X24Vk0aXqM}){if($bx9J8HcCIs eq $YKj6v7g4ci->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$p96Hui87c4},$YKj6v7g4ci;if(length($ElNMDs6GxZ)and ! $gNZWhgA2zb){if($YKj6v7g4ci->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}eq $ElNMDs6GxZ){$gNZWhgA2zb=1;}}last;}}}my $vM9kju8JR1;if($C1KxN90s87=~ /,/){$vM9kju8JR1=[split(/\s*,\s*/,$C1KxN90s87)];}else{$vM9kju8JR1=$C1KxN90s87;}my $Ik9YoaH2DU;if($gNZWhgA2zb){$Ik9YoaH2DU=$scrqlZeB3C->sTAcyVvaKb($a480YLZwE2,$ZJFKQc3NIv,$DXDc6xzHrB,$jdW9ZHgIRA,$scrqlZeB3C->q4wf1vd9KY($tBOxm9Vf5H),$scrqlZeB3C->q4wf1vd9KY($irhALTt8Hq),$ud1BRQ0X9l,$vM9kju8JR1,$qGX158jrDJ,$dPuU3a7WG8,$zJafvruX8H,$qsCje9mpcg,$ZB0MGXt9LI,$ElNMDs6GxZ,$jEJ8daWXI9);}else{$Ik9YoaH2DU=$scrqlZeB3C->sTAcyVvaKb($a480YLZwE2,$ZJFKQc3NIv,$DXDc6xzHrB,$jdW9ZHgIRA,$scrqlZeB3C->q4wf1vd9KY($tBOxm9Vf5H),$scrqlZeB3C->q4wf1vd9KY($irhALTt8Hq),$ud1BRQ0X9l,$vM9kju8JR1,$qGX158jrDJ,$dPuU3a7WG8,$zJafvruX8H,$qsCje9mpcg,$ZB0MGXt9LI,$Zi3JHa7zur,$jEJ8daWXI9);}unless(ref $Ik9YoaH2DU eq "\x41\x52\x52\x41\x59"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my(@Z39w8rqSPb,$se89mjtgv0);if($Ik9YoaH2DU){my $WyKdnao6be=$jdW9ZHgIRA+1;foreach my $VJl1O7oyw5(@{$Ik9YoaH2DU}){$VJl1O7oyw5->{"\x43\x44\x52\x5f\x4e\x55\x4d"}=$WyKdnao6be++;$VJl1O7oyw5->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$scrqlZeB3C->YPbw2qFVnY($VJl1O7oyw5->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});}if(ref $Ik9YoaH2DU and ref $Ik9YoaH2DU->[0]){my $oBtgsTQi9y=$scrqlZeB3C->YPbw2qFVnY($Ik9YoaH2DU->[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 @Z39w8rqSPb,(JS_DATE_STR=>$oBtgsTQi9y);}}my $ybM9rCwqIe;if($a480YLZwE2){$ybM9rCwqIe="\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($zJafvruX8H){$ybM9rCwqIe="\x70\x61\x72\x74\x6e\x65\x72\x5f\x61\x63\x74\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c\x2e\x74\x74";push @Z39w8rqSPb,(CDR_ACT_TYPE=>$ZB0MGXt9LI,CDR_ACT_EXT=>$qsCje9mpcg);unless($scrqlZeB3C->JFEGSlp8HB()->{"\x44\x46"}){push @Z39w8rqSPb,(ACT_TYPES=>$scrqlZeB3C->{"\x5f\x4c\x49\x53\x54\x53"}->{"\x41\x43\x54\x49\x56\x49\x54\x49\x45\x53"});}}else{$ybM9rCwqIe="\x70\x61\x72\x74\x6e\x65\x72\x5f\x63\x64\x72\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74";push @Z39w8rqSPb,(CDR_CALL_TYPE=>$ud1BRQ0X9l);}return kNcPgbROm2($scrqlZeB3C,$ybM9rCwqIe,{CDR_LIST=>$Ik9YoaH2DU,CDR_CALL_ID=>$a480YLZwE2,CDR_CALLER_ID=>$ZJFKQc3NIv,CDR_CALLED_ID=>$DXDc6xzHrB,CDR_AC=>$C1KxN90s87,CDR_DURATION=>$qGX158jrDJ,CDR_DATA=>$dPuU3a7WG8,FROM_TIME=>$tBOxm9Vf5H,TO_TIME=>$irhALTt8Hq,SMART_TIME=>$RODWMGdR0B,CDR_GROUP=>$ElNMDs6GxZ,GROUPS=>$p96Hui87c4,PARTNER=>$TeP29OFJD8,EXTRA_OPTIONS=>$vtAKBFyzqQ->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"},@Z39w8rqSPb,$scrqlZeB3C->NHvhUgMaw6(1,$Ik9YoaH2DU,$jdW9ZHgIRA)});}sub vg9pGtqhKj{my($scrqlZeB3C,$vtAKBFyzqQ,$TeP29OFJD8)=@_;my($UVd0ujTb4S,$MokUnKCvSV,$qWIOyvzH9X)=$scrqlZeB3C->TH8vcZTGhW([qw(node ip mode)]);if($qWIOyvzH9X eq "\x77\x6c\x61\x64\x64"){$scrqlZeB3C->xRkGI0FuN6($UVd0ujTb4S,$qWIOyvzH9X,$MokUnKCvSV);}elsif($qWIOyvzH9X eq "\x77\x6c\x64\x65\x6c"){$scrqlZeB3C->xRkGI0FuN6($UVd0ujTb4S,$qWIOyvzH9X,$MokUnKCvSV);}elsif($MokUnKCvSV){my $m6cbR1BQfx=$vtAKBFyzqQ->{"\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 $OlMaHiWBzk=$scrqlZeB3C->zO9VlUrSf1("\x66\x32\x62\x2d\x70\x61\x72\x74\x6e\x65\x72\x2d".$vtAKBFyzqQ->{"\x49\x44"}."-$MokUnKCvSV")||0;if($OlMaHiWBzk){undef $MokUnKCvSV;$scrqlZeB3C->{"\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{$scrqlZeB3C->zO9VlUrSf1("\x66\x32\x62\x2d\x70\x61\x72\x74\x6e\x65\x72\x2d".$vtAKBFyzqQ->{"\x49\x44"}."-$MokUnKCvSV",1,$m6cbR1BQfx);$scrqlZeB3C->t67SNHsCYT($UVd0ujTb4S,$MokUnKCvSV);}}my $VkVz9XPKv8=$scrqlZeB3C->t67SNHsCYT($UVd0ujTb4S);unless(ref $VkVz9XPKv8 eq "\x41\x52\x52\x41\x59"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $RBwTvapeSk=$scrqlZeB3C->xRkGI0FuN6();unless(ref $RBwTvapeSk eq "\x41\x52\x52\x41\x59"){$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}kNcPgbROm2($scrqlZeB3C,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x66\x32\x62\x2e\x74\x74",{F2B_WL=>$RBwTvapeSk,F2B_CNT_WL=>scalar(@$RBwTvapeSk),F2B=>$VkVz9XPKv8,F2B_CNT=>scalar(@$VkVz9XPKv8),PARTNER=>$TeP29OFJD8,NODE=>$scrqlZeB3C->XUp8KtvxSh("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x53\x45\x52\x56\x45\x52\x5f\x49\x44"),EXTRA_OPTIONS=>$vtAKBFyzqQ->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}});}sub kNcPgbROm2{my($scrqlZeB3C,$h9HMqKGxSZ,$dPuU3a7WG8)=@_;my $Cj4oZQklhY=Template::EasyTT->new({});my $qz5hYyVsfR=$scrqlZeB3C->XUp8KtvxSh("\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 $LpXRuCzZM6='';$dPuU3a7WG8->{"\x55\x53\x45\x5f\x42\x49\x4c\x4c\x49\x4e\x47"}=$scrqlZeB3C->XUp8KtvxSh("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x55\x53\x45\x5f\x42\x49\x4c\x4c\x49\x4e\x47");$dPuU3a7WG8->{"\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}=$scrqlZeB3C->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"};$dPuU3a7WG8->{"\x55\x4e\x49\x58\x54\x49\x4d\x45"}=time;my @Nu85BhwGSy;if(length $ENV{"\x50\x41\x54\x48\x5f\x49\x4e\x46\x4f"}){@Nu85BhwGSy=split(/\//,substr($ENV{"\x50\x41\x54\x48\x5f\x49\x4e\x46\x4f"},1));}my $kjfLI5vGbH=$scrqlZeB3C->XUp8KtvxSh("\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 $fNSxmH31Qf=$scrqlZeB3C->XUp8KtvxSh("\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 $Nu85BhwGSy[0]){my($RdDNsTcU3a,$N9iRT8YZPf)=split(/:/,$Nu85BhwGSy[0]);if(length $RdDNsTcU3a){$kjfLI5vGbH=$RdDNsTcU3a;$kjfLI5vGbH=~ s#[^\w\d\._-]##g;}$fNSxmH31Qf=$N9iRT8YZPf if length $N9iRT8YZPf;}my $CstK9mSrFo=$scrqlZeB3C->TH8vcZTGhW("\x64\x66");if($CstK9mSrFo){my $UuiJTjaEHS=0;foreach my $mGcF5IHi8N(split(/\s*,\s*/,$scrqlZeB3C->XUp8KtvxSh("\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"}=~ /^$mGcF5IHi8N$/){$UuiJTjaEHS=1;last;}}$CstK9mSrFo='' unless $UuiJTjaEHS;}unless($CstK9mSrFo){$Cj4oZQklhY->operators_add("\x64\x69\x76\x32",sub{return $_[0]% 2});$Cj4oZQklhY->filters_add("\x62\x69\x6c\x6c\x5f\x66\x6c\x6f\x61\x74",sub{return sprintf("\x25\x2e".($scrqlZeB3C->XUp8KtvxSh("\x42\x49\x4c\x4c\x49\x4e\x47\x5f\x52\x4f\x55\x4e\x44\x49\x4e\x47\x5f\x34\x47\x55\x49")||2)."\x66",$_[1])});$Cj4oZQklhY->filters_add("\x6c\x6f\x63\x61\x6c\x65\x5f\x6d\x73\x67",sub{my $sOrM4oPeUW=$scrqlZeB3C->x98mXV5nID($_[1],$fNSxmH31Qf);$sOrM4oPeUW=~ s#&#&amp;#gs;$sOrM4oPeUW=~ s#\x22#&quot;#gs;$sOrM4oPeUW=~ s#<#&lt;#gs;$sOrM4oPeUW=~ s#>#&gt;#gs;$sOrM4oPeUW=~ s#\x27#&apos;#gs;return $sOrM4oPeUW;});if(-e "$qz5hYyVsfR/$kjfLI5vGbH/$h9HMqKGxSZ"){$Cj4oZQklhY->process("$qz5hYyVsfR/$kjfLI5vGbH/$h9HMqKGxSZ",$dPuU3a7WG8,\$LpXRuCzZM6);}else{$Cj4oZQklhY->process("$qz5hYyVsfR/$h9HMqKGxSZ",$dPuU3a7WG8,\$LpXRuCzZM6);}}unless($CstK9mSrFo){$scrqlZeB3C->Ng5UVDpLIM(200,"\x4f\x6b",undef,$LpXRuCzZM6.$scrqlZeB3C->x98mXV5nID("\x67\x36\x31\x33","\x43"));}elsif($CstK9mSrFo eq "\x78\x6d\x6c"){require XML::Simple;$LpXRuCzZM6=XML::Simple::XMLout($dPuU3a7WG8);$scrqlZeB3C->hdFsb6T8Jk(200,"\x4f\x6b",undef,$LpXRuCzZM6);}elsif($CstK9mSrFo eq "\x6a\x73\x6f\x6e"){require JSON::XS;my $m9Cn8ySqJl=JSON::XS->new();$scrqlZeB3C->Ng5UVDpLIM(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",$m9Cn8ySqJl->encode($dPuU3a7WG8));}}