#!/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;KicWIKJ9sR();sub new{my($Y913V678sh,$mEW3pzeGYB)=@_;my $iIcdnGV59h=bless{_CGI=>CGI->new(),_CONF=>{},_CDR=>{CALLED_ID=>"\x77\x65\x62",},_USER_CREDS=>{},_USER_VBOXES=>{},_SESSION=>{},},$Y913V678sh;$iIcdnGV59h->TZR6aS18KG($mEW3pzeGYB);$iIcdnGV59h->XvLKd8uXrN();if($iIcdnGV59h->HjVJUqtEFu("\x44\x45\x42\x55\x47\x5f\x48\x54\x54\x50\x5f\x41\x55\x44\x49\x54\x5f\x46\x49\x4c\x45")){$iIcdnGV59h->XvLKd8uXrN("\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");}$iIcdnGV59h->{"\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};$iIcdnGV59h->{"\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 $iWKGxuM7VH;$iIcdnGV59h->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}={};foreach my $Y3oM8lXSym(split(/\s*;\s*/,$iIcdnGV59h->HjVJUqtEFu("\x43\x47\x49\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"))){my($tRX3uoxHIF,@Zknr9iwpq5)=split(/\s*:\s*/,$Y3oM8lXSym);foreach my $X8k9RfhXSy(@Zknr9iwpq5){$iIcdnGV59h->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$X8k9RfhXSy}=$tRX3uoxHIF;}}my $X8k9RfhXSy=$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"};unless(exists $iIcdnGV59h->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$X8k9RfhXSy}){$X8k9RfhXSy=~ s#\.\d+$##;}unless(exists $iIcdnGV59h->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$X8k9RfhXSy}){if($iIcdnGV59h->HjVJUqtEFu("\x43\x47\x49\x5f\x41\x4c\x49\x41\x53\x45\x53\x5f\x57\x4f\x5f\x49\x50")){$iWKGxuM7VH="\x70\x61\x72\x74\x6e\x65\x72";}else{$iWKGxuM7VH="\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($iIcdnGV59h->HjVJUqtEFu("\x43\x47\x49\x5f\x41\x4c\x49\x41\x53\x45\x53\x5f\x57\x4f\x5f\x49\x50")){$iWKGxuM7VH=$iIcdnGV59h->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$X8k9RfhXSy};}else{$iWKGxuM7VH=$iIcdnGV59h->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$X8k9RfhXSy}."\x20\x28\x20".$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"}."\x20\x29";}}$iIcdnGV59h->{"\x5f\x43\x44\x52"}->{"\x43\x41\x4c\x4c\x45\x52\x5f\x49\x44"}=$iWKGxuM7VH;;$iIcdnGV59h->{"\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($iIcdnGV59h->HjVJUqtEFu("\x50\x41\x54\x48\x5f\x57\x4f\x52\x4b\x5f\x44\x49\x52"));$iIcdnGV59h->UTQoBp9qGm();return $iIcdnGV59h;}sub KicWIKJ9sR{my $iIcdnGV59h=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($zkGzFR1H9S,$Z07Zcz3tAl,$QSGhmZwoXn);$iIcdnGV59h->t1KZpdWmDc(1);my($mHvhr9Z8Dw,$ljJARBs1O4,$ajJ9vMbs6Z,$md6Ee2wxca,$KOPr9TG7nt,$ZGAYmTzBXU)=$iIcdnGV59h->qTOFl06qrL([qw(partner password action from user_id ac)]);my($c91a6Q2oSB,$fa5WhgTe9f);if(my $QUY9lsejLH=$iIcdnGV59h->mjCyzAsi4B()){unless(length $ljJARBs1O4){my($r8XMxNycgz,$zkGzFR1H9S,$BnxNQmwjkg)=split(/-/,$mHvhr9Z8Dw);foreach my $jMO896X7zT(@$QUY9lsejLH){if($jMO896X7zT->{"\x49\x44"}eq $r8XMxNycgz){if($iIcdnGV59h->HjVJUqtEFu("\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-$BnxNQmwjkg<$iIcdnGV59h->HjVJUqtEFu("\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($zkGzFR1H9S eq md5_hex(join("\x2d",$jMO896X7zT->{"\x4e\x41\x4d\x45"},$jMO896X7zT->{"\x50\x41\x53\x53\x57\x4f\x52\x44"},$BnxNQmwjkg))){$fa5WhgTe9f=$jMO896X7zT;}}}else{if($zkGzFR1H9S eq md5_hex(join("\x2d",$jMO896X7zT->{"\x4e\x41\x4d\x45"},$jMO896X7zT->{"\x50\x41\x53\x53\x57\x4f\x52\x44"},$BnxNQmwjkg))){$fa5WhgTe9f=$jMO896X7zT;}}last;}}}else{foreach my $jMO896X7zT(@$QUY9lsejLH){if($jMO896X7zT->{"\x4e\x41\x4d\x45"}eq $mHvhr9Z8Dw){if($jMO896X7zT->{"\x50\x41\x53\x53\x57\x4f\x52\x44"}eq $ljJARBs1O4){$fa5WhgTe9f=$jMO896X7zT;}last;}}}}if($fa5WhgTe9f){my $BnxNQmwjkg=time;$mHvhr9Z8Dw=$fa5WhgTe9f->{"\x49\x44"}."\x2d".md5_hex(join("\x2d",$fa5WhgTe9f->{"\x4e\x41\x4d\x45"},$fa5WhgTe9f->{"\x50\x41\x53\x53\x57\x4f\x52\x44"},$BnxNQmwjkg))."\x2d".$BnxNQmwjkg;$fa5WhgTe9f->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}={};if($fa5WhgTe9f->{"\x4f\x50\x54\x49\x4f\x4e\x53"}){foreach my $G7yzGJ03hk(split(/\s*\|\s*/,$fa5WhgTe9f->{"\x4f\x50\x54\x49\x4f\x4e\x53"})){my($hPp7Dx60V8,$Ux6RTv3hwf)=split(/=/,$G7yzGJ03hk,2);next unless length $hPp7Dx60V8;$fa5WhgTe9f->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{uc($hPp7Dx60V8)}=$Ux6RTv3hwf;}}}else{return mTHs1Pwm9i($iIcdnGV59h,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x6f\x67\x69\x6e\x2e\x74\x74",{});}if(exists($iIcdnGV59h->{"\x5f\x55\x53\x45\x52\x5f\x49\x4e\x46\x4f\x5f\x41\x43\x54\x49\x4f\x4e\x53"}->{$ajJ9vMbs6Z})){if(length($KOPr9TG7nt)){$c91a6Q2oSB=$iIcdnGV59h->YMkfpi8LPe($KOPr9TG7nt);my $JXNPRI1vOK=$iIcdnGV59h->ecsJZ9UvIP();%{$JXNPRI1vOK}=%{$c91a6Q2oSB};}elsif(length($ZGAYmTzBXU)){$iIcdnGV59h->Wc43CEi25W(undef,$ZGAYmTzBXU);$c91a6Q2oSB=$iIcdnGV59h->ecsJZ9UvIP();}}else{$c91a6Q2oSB=$fa5WhgTe9f;$c91a6Q2oSB->{"\x50\x41\x52\x54\x4e\x45\x52\x5f\x54\x41\x47"}=$fa5WhgTe9f->{"\x54\x41\x47"};}if(! $c91a6Q2oSB or ! $fa5WhgTe9f or index("\x2c".$fa5WhgTe9f->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}."\x2c","\x2c".$c91a6Q2oSB->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}."\x2c")<0){return $iIcdnGV59h->YE1ankzU4F("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}elsif($iIcdnGV59h->HjVJUqtEFu("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x50\x41\x52\x54\x4e\x45\x52\x5f\x4d\x4f\x44\x45")==1){if(index($c91a6Q2oSB->{"\x50\x41\x52\x54\x4e\x45\x52\x5f\x54\x41\x47"},$fa5WhgTe9f->{"\x54\x41\x47"})){return $iIcdnGV59h->YE1ankzU4F("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}}elsif($iIcdnGV59h->HjVJUqtEFu("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x50\x41\x52\x54\x4e\x45\x52\x5f\x4d\x4f\x44\x45")==2){if($c91a6Q2oSB->{"\x50\x41\x52\x54\x4e\x45\x52\x5f\x54\x41\x47"}ne $fa5WhgTe9f->{"\x54\x41\x47"}){return $iIcdnGV59h->YE1ankzU4F("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}}if($fa5WhgTe9f->{"\x52\x45\x41\x44\x5f\x4f\x4e\x4c\x59"}){te46hZ8YUa($iIcdnGV59h,$fa5WhgTe9f,$md6Ee2wxca,[split("\x2c",$fa5WhgTe9f->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$mHvhr9Z8Dw,"\x72\x6f",$fa5WhgTe9f->{"\x54\x41\x47"});}elsif($ajJ9vMbs6Z eq "\x62\x61\x6c\x61\x6e\x63\x65\x5f\x75\x70\x64\x61\x74\x65"){my($joY0vGxB5r,$cmulr9IYAk)=$iIcdnGV59h->qTOFl06qrL([qw(balance cur_id)]);if($iIcdnGV59h->giWhB6rPg7($joY0vGxB5r,$cmulr9IYAk)){$iIcdnGV59h->GHe934cy2N("\x75\x73\x65\x72\x2d".$iIcdnGV59h->ecsJZ9UvIP()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"},undef);$iIcdnGV59h->YE1ankzU4F();}else{$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x64\x69\x64\x5f\x61\x64\x64" and $fa5WhgTe9f->{"\x44\x49\x44\x5f\x4d\x4e\x47"}){my($YSdX4D5unh,$ZFZSkws1na,$MXi7NcFvQV,$sDJ6pboTmV)=$iIcdnGV59h->qTOFl06qrL([qw(did channels pn cnam)]);my @hUliHwjg9Q=split(/\s*,\s*/,$YSdX4D5unh);my $Ifqdo0QeRg=0;foreach my $zHDmo6ZpkY(@hUliHwjg9Q){if($iIcdnGV59h->EKznWy6upt($zHDmo6ZpkY,$MXi7NcFvQV,$ZGAYmTzBXU,$ZFZSkws1na,$sDJ6pboTmV)){$iIcdnGV59h->nv34VYjlZy("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x61\x64\x64",$zHDmo6ZpkY);}else{$Ifqdo0QeRg++;}}if($Ifqdo0QeRg){$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : [ $Ifqdo0QeRg / ".(scalar(@hUliHwjg9Q))."\x20\x5d\x20".__LINE__);}else{$iIcdnGV59h->YE1ankzU4F();}}elsif($ajJ9vMbs6Z eq "\x64\x69\x64\x5f\x64\x65\x6c" and $fa5WhgTe9f->{"\x44\x49\x44\x5f\x4d\x4e\x47"}){my($t85L9DAih4,$KOPr9TG7nt,$YSdX4D5unh)=$iIcdnGV59h->qTOFl06qrL([qw(did_id user_id did)]);if($iIcdnGV59h->FlPhkNHKiq($t85L9DAih4,$KOPr9TG7nt,$YSdX4D5unh)){$iIcdnGV59h->nv34VYjlZy("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x64\x72\x6f\x70",$YSdX4D5unh);$iIcdnGV59h->YE1ankzU4F();}else{$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x75\x73\x65\x72\x5f\x75\x70\x64\x61\x74\x65"){my $KOPr9TG7nt=$iIcdnGV59h->qTOFl06qrL("\x75\x73\x65\x72\x5f\x69\x64");my @m9aKkt20Oj=$iIcdnGV59h->qTOFl06qrL();my %PUgJfV7ml2;foreach my $OAbuhZeGgK(@m9aKkt20Oj){if($OAbuhZeGgK=~ /^US_(VOICENUMBER|STATUS|DEMO_MODE|DESCRIPTION|GROUP_ID|PERMIT_WEB|CUSTOM_RULES)/){if($OAbuhZeGgK eq "\x55\x53\x5f\x43\x55\x53\x54\x4f\x4d\x5f\x52\x55\x4c\x45\x53" and ! $fa5WhgTe9f->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{"\x43\x52\x5f\x45\x4e\x41\x42\x4c\x45"}){next;}my $hPp7Dx60V8=$1;if($iIcdnGV59h->qTOFl06qrL($OAbuhZeGgK)ne $c91a6Q2oSB->{$hPp7Dx60V8}){my $Ux6RTv3hwf=$iIcdnGV59h->qTOFl06qrL($OAbuhZeGgK);if($hPp7Dx60V8 eq "\x47\x52\x4f\x55\x50\x5f\x49\x44"){if(index("\x2c".$fa5WhgTe9f->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}."\x2c",",$Ux6RTv3hwf,")<0){return $iIcdnGV59h->YE1ankzU4F("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}}$PUgJfV7ml2{$hPp7Dx60V8}=$Ux6RTv3hwf;}}}if($iIcdnGV59h->zZMfABUtWx($KOPr9TG7nt,\%PUgJfV7ml2)){$iIcdnGV59h->nv34VYjlZy("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65",undef,$KOPr9TG7nt);$iIcdnGV59h->YE1ankzU4F();}else{$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x75\x73\x65\x72\x5f\x75\x70\x64\x61\x74\x65\x5f\x70\x69\x6e"){my $KOPr9TG7nt=$iIcdnGV59h->qTOFl06qrL("\x75\x73\x65\x72\x5f\x69\x64");my $PsNDu9G8KA=$iIcdnGV59h->qTOFl06qrL("\x70\x69\x6e");if($iIcdnGV59h->Sr6Tjpn8Zq($KOPr9TG7nt,$PsNDu9G8KA)){$iIcdnGV59h->nv34VYjlZy("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65",undef,$KOPr9TG7nt);$iIcdnGV59h->YE1ankzU4F();}else{$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x75\x73\x65\x72\x5f\x61\x64\x64"){my($MXi7NcFvQV,$ZwFdP5437E,$zXenG10bES)=$iIcdnGV59h->qTOFl06qrL([qw(phone group_id uname)]);if(index("\x2c".$fa5WhgTe9f->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}."\x2c",",$ZwFdP5437E,")<0){return $iIcdnGV59h->YE1ankzU4F("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}if(my $ZGAYmTzBXU=$iIcdnGV59h->feIpMwiZVL($MXi7NcFvQV,$ZwFdP5437E,$zXenG10bES,undef,undef,{PARTNER_TAG=>$fa5WhgTe9f->{"\x54\x41\x47"}})){$iIcdnGV59h->nv34VYjlZy("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x61\x64\x64",$ZGAYmTzBXU);$iIcdnGV59h->YE1ankzU4F("?action=user_info&ac=$ZGAYmTzBXU&partner=$mHvhr9Z8Dw&df=".$iIcdnGV59h->qTOFl06qrL("\x64\x66"));}else{$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x75\x73\x65\x72\x5f\x64\x65\x6c"){my($h7PZ9NijGa)=$iIcdnGV59h->qTOFl06qrL([qw(single_user)]);if($iIcdnGV59h->UEaX2xCkNq($KOPr9TG7nt)){if(ref $c91a6Q2oSB eq "\x48\x41\x53\x48"){$iIcdnGV59h->nv34VYjlZy("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x64\x72\x6f\x70",$c91a6Q2oSB->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"});}if($h7PZ9NijGa){$iIcdnGV59h->YE1ankzU4F("?action=user_list&partner=$mHvhr9Z8Dw&df=".$iIcdnGV59h->qTOFl06qrL("\x64\x66"));}else{$iIcdnGV59h->YE1ankzU4F();}}else{$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x75\x73\x65\x72\x5f\x69\x6e\x66\x6f"){tMyuUT0BNi($iIcdnGV59h,$fa5WhgTe9f,$mHvhr9Z8Dw,$fa5WhgTe9f->{"\x44\x49\x44\x5f\x4d\x4e\x47"},[split("\x2c",$fa5WhgTe9f->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})]);}elsif($ajJ9vMbs6Z eq "\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74"){K9jkRUg8Ts($iIcdnGV59h,$fa5WhgTe9f,$mHvhr9Z8Dw,[split("\x2c",$fa5WhgTe9f->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$fa5WhgTe9f->{"\x54\x41\x47"});}elsif($ajJ9vMbs6Z eq "\x63\x64\x72\x5f\x6c\x69\x73\x74"){uD7gPhk8wQ($iIcdnGV59h,undef,$fa5WhgTe9f,$mHvhr9Z8Dw,[split("\x2c",$fa5WhgTe9f->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$fa5WhgTe9f->{"\x54\x41\x47"});}elsif($ajJ9vMbs6Z eq "\x61\x63\x74\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c"){uD7gPhk8wQ($iIcdnGV59h,"\x61\x63\x74\x61\x6c\x6c",$fa5WhgTe9f,$mHvhr9Z8Dw,[split("\x2c",$fa5WhgTe9f->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$fa5WhgTe9f->{"\x54\x41\x47"});}elsif($ajJ9vMbs6Z eq "\x64\x69\x64\x5f\x6c\x69\x73\x74"){SrYGbwfLoi($iIcdnGV59h,$fa5WhgTe9f,$mHvhr9Z8Dw,[split("\x2c",$fa5WhgTe9f->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$fa5WhgTe9f->{"\x54\x41\x47"});}elsif($ajJ9vMbs6Z eq "\x63\x61\x6c\x6c\x73\x5f\x68\x61\x6e\x67\x75\x70"){my($KOPr9TG7nt,$UTrzpmnA2F)=$iIcdnGV59h->qTOFl06qrL([qw(user_id call_id)]);if(length($UTrzpmnA2F)and length($KOPr9TG7nt)){$iIcdnGV59h->vdLqc18iXz($UTrzpmnA2F,$KOPr9TG7nt);}$iIcdnGV59h->YE1ankzU4F();}elsif($ajJ9vMbs6Z eq "\x66\x32\x62" and $fa5WhgTe9f->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{"\x46\x32\x42\x5f\x45\x4e\x41\x42\x4c\x45"}){mV5TWzY4OU($iIcdnGV59h,$fa5WhgTe9f,$mHvhr9Z8Dw);}elsif($ajJ9vMbs6Z eq "\x75\x73\x65\x72\x5f\x6c\x69\x73\x74"){te46hZ8YUa($iIcdnGV59h,$fa5WhgTe9f,$md6Ee2wxca,[split("\x2c",$fa5WhgTe9f->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$mHvhr9Z8Dw,undef,$fa5WhgTe9f->{"\x54\x41\x47"});}else{$iIcdnGV59h->YE1ankzU4F("\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 tMyuUT0BNi{my($iIcdnGV59h,$fa5WhgTe9f,$mHvhr9Z8Dw,$H3ce589Rv2,$tjJvVuczCp)=@_;my $gM4RTK1H2V=$iIcdnGV59h->YCrA8exPFq(0,$iIcdnGV59h->ecsJZ9UvIP()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"},undef,undef);my $TpJWz9e1S7=$iIcdnGV59h->krPH8GR90T();unless(ref $TpJWz9e1S7 eq "\x41\x52\x52\x41\x59"){$iIcdnGV59h->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $HP4IkpYZtR=[];foreach my $ZXs1KtJgi9(@{$tjJvVuczCp}){foreach my $mDfCt2nq6B(@{$TpJWz9e1S7}){if($ZXs1KtJgi9 eq $mDfCt2nq6B->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$HP4IkpYZtR},$mDfCt2nq6B;last;}}}unless(ref $gM4RTK1H2V eq "\x41\x52\x52\x41\x59"){$iIcdnGV59h->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}mTHs1Pwm9i($iIcdnGV59h,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x75\x73\x65\x72\x5f\x69\x6e\x66\x6f\x2e\x74\x74",{PARTNER=>$mHvhr9Z8Dw,USER=>$gM4RTK1H2V->[0],GROUPS=>$HP4IkpYZtR,TARIFF=>$iIcdnGV59h->V49kuHgxbJ(),DID_MNG=>$H3ce589Rv2,EXTRA_OPTIONS=>$fa5WhgTe9f->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"},DIDS=>$iIcdnGV59h->tjv18JoU9R(),LIMITS=>$iIcdnGV59h->bCE3GNjwAF($iIcdnGV59h->ecsJZ9UvIP()->{"\x49\x44"})});}sub te46hZ8YUa{my($iIcdnGV59h,$fa5WhgTe9f,$md6Ee2wxca,$tjJvVuczCp,$mHvhr9Z8Dw,$zKt08LTv1O,$UsmjiyTDKu)=@_;my($LsuvGkKSlO,$NRpQmd2WgF,$hGpoJamn6C,$TDr1KOC2n9)=$iIcdnGV59h->qTOFl06qrL(["\x66\x5f\x61\x63","\x66\x5f\x76\x6e","\x66\x5f\x67\x72\x6f\x75\x70","\x66\x5f\x73\x74\x61\x74\x75\x73"]);my $TpJWz9e1S7=$iIcdnGV59h->krPH8GR90T();unless(ref $TpJWz9e1S7 eq "\x41\x52\x52\x41\x59"){$iIcdnGV59h->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $HP4IkpYZtR=[];my $zYHpbiasw8=0;foreach my $ZXs1KtJgi9(@{$tjJvVuczCp}){foreach my $mDfCt2nq6B(@{$TpJWz9e1S7}){if($ZXs1KtJgi9 eq $mDfCt2nq6B->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$HP4IkpYZtR},$mDfCt2nq6B;if(length($hGpoJamn6C)and ! $zYHpbiasw8){if($mDfCt2nq6B->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}eq $hGpoJamn6C){$zYHpbiasw8=1;}}last;}}}my($gM4RTK1H2V,$ms29gC3GiD);if($zYHpbiasw8){($gM4RTK1H2V,$ms29gC3GiD)=$iIcdnGV59h->YCrA8exPFq($md6Ee2wxca,$LsuvGkKSlO,$NRpQmd2WgF,$hGpoJamn6C,undef,$TDr1KOC2n9,undef,undef,$UsmjiyTDKu);}else{($gM4RTK1H2V,$ms29gC3GiD)=$iIcdnGV59h->YCrA8exPFq($md6Ee2wxca,$LsuvGkKSlO,$NRpQmd2WgF,$tjJvVuczCp,undef,$TDr1KOC2n9,undef,undef,$UsmjiyTDKu);}unless(ref $gM4RTK1H2V eq "\x41\x52\x52\x41\x59"){$iIcdnGV59h->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $iei3xPz8w9=1;foreach my $JXNPRI1vOK(@{$gM4RTK1H2V}){$JXNPRI1vOK->{"\x49\x44\x58"}=$md6Ee2wxca+$iei3xPz8w9;$iei3xPz8w9++;}my $bA7tLIeqjB;if($zKt08LTv1O){$bA7tLIeqjB="\x70\x61\x72\x74\x6e\x65\x72\x5f\x75\x73\x65\x72\x5f\x6c\x69\x73\x74\x5f\x72\x6f\x2e\x74\x74";}else{$bA7tLIeqjB="\x70\x61\x72\x74\x6e\x65\x72\x5f\x75\x73\x65\x72\x5f\x6c\x69\x73\x74\x2e\x74\x74";}mTHs1Pwm9i($iIcdnGV59h,$bA7tLIeqjB,{USERS=>$gM4RTK1H2V,USERS_CNT=>$ms29gC3GiD,GROUPS=>$HP4IkpYZtR,PARTNER=>$mHvhr9Z8Dw,F_AC=>$LsuvGkKSlO,F_VN=>$NRpQmd2WgF,F_GROUP=>$hGpoJamn6C,F_STATUS=>$TDr1KOC2n9,EXTRA_OPTIONS=>$fa5WhgTe9f->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"},$iIcdnGV59h->cH1IwGlB98(1,$gM4RTK1H2V,$md6Ee2wxca)});}sub K9jkRUg8Ts{my($iIcdnGV59h,$fa5WhgTe9f,$mHvhr9Z8Dw,$tjJvVuczCp,$UsmjiyTDKu)=@_;my($md6Ee2wxca,$fbhpgSYozW,$N280nmwrFp,$ZGAYmTzBXU,$yl0qD1kitr,$RepDf9E73o,$N54InhmlU6,$XVJre0sXw9,$ZwFdP5437E)=$iIcdnGV59h->qTOFl06qrL([[(from=>0)],qw(caller_id called_id ac call_type refresh c2c duration group)]);my $AbVey6haI2;if($ZGAYmTzBXU=~ /,/){$AbVey6haI2=[split(/\s*,\s*/,$ZGAYmTzBXU)];}else{$AbVey6haI2=$ZGAYmTzBXU;}my $TpJWz9e1S7=$iIcdnGV59h->krPH8GR90T();unless(ref $TpJWz9e1S7 eq "\x41\x52\x52\x41\x59"){$iIcdnGV59h->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $HP4IkpYZtR=[];my $zYHpbiasw8=0;foreach my $ZXs1KtJgi9(@{$tjJvVuczCp}){foreach my $mDfCt2nq6B(@{$TpJWz9e1S7}){if($ZXs1KtJgi9 eq $mDfCt2nq6B->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$HP4IkpYZtR},$mDfCt2nq6B;if(length($ZwFdP5437E)and ! $zYHpbiasw8){if($mDfCt2nq6B->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}eq $ZwFdP5437E){$zYHpbiasw8=1;}}last;}}}my $rpnNzc7TqD;if($zYHpbiasw8){$rpnNzc7TqD=$iIcdnGV59h->aF3DjovaMe($fbhpgSYozW,$N280nmwrFp,$AbVey6haI2,$yl0qD1kitr,$XVJre0sXw9,$ZwFdP5437E,$UsmjiyTDKu,undef,$md6Ee2wxca);}else{$rpnNzc7TqD=$iIcdnGV59h->aF3DjovaMe($fbhpgSYozW,$N280nmwrFp,$AbVey6haI2,$yl0qD1kitr,$XVJre0sXw9,$tjJvVuczCp,$UsmjiyTDKu,undef,$md6Ee2wxca);}unless(ref $rpnNzc7TqD eq "\x41\x52\x52\x41\x59"){$rpnNzc7TqD=[];}if($rpnNzc7TqD){foreach my $jMO896X7zT(@{$rpnNzc7TqD}){$jMO896X7zT->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$iIcdnGV59h->FzbeXHJgMB($jMO896X7zT->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});$jMO896X7zT->{"\x43\x44\x52\x5f\x44\x55\x52\x41\x54\x49\x4f\x4e"}=time-$jMO896X7zT->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"};}}if(! length($N54InhmlU6)and $fa5WhgTe9f->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{"\x43\x32\x43"}){$N54InhmlU6=$fa5WhgTe9f->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{"\x43\x32\x43"};}if($N54InhmlU6){$N54InhmlU6=~ s#ph=[^&;]+##;$N54InhmlU6=~ s#user_vars=([^&;]+)##;if($1){$N54InhmlU6=",$1&$N54InhmlU6";}elsif($N54InhmlU6=~ /&/ and $N54InhmlU6 !~ /^[,&]/){$N54InhmlU6="&$N54InhmlU6";}}return mTHs1Pwm9i($iIcdnGV59h,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74",{CALLS_COUNT=>scalar(@$rpnNzc7TqD),CALLS_LIST=>$rpnNzc7TqD,CDR_CALLER_ID=>$fbhpgSYozW,CDR_CALLED_ID=>$N280nmwrFp,CDR_AC=>$ZGAYmTzBXU,CDR_CALL_TYPE=>$yl0qD1kitr,CDR_REFRESH_TIME=>$RepDf9E73o,CDR_C2C=>$N54InhmlU6,CDR_DURATION=>$XVJre0sXw9,CDR_GROUP=>$ZwFdP5437E,GROUPS=>$HP4IkpYZtR,PARTNER=>$mHvhr9Z8Dw,EXTRA_OPTIONS=>$fa5WhgTe9f->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"},$iIcdnGV59h->cH1IwGlB98(1,$rpnNzc7TqD,$md6Ee2wxca)});}sub SrYGbwfLoi{my($iIcdnGV59h,$fa5WhgTe9f,$mHvhr9Z8Dw,$tjJvVuczCp,$UsmjiyTDKu)=@_;my($md6Ee2wxca,$LsuvGkKSlO,$NRpQmd2WgF)=$iIcdnGV59h->qTOFl06qrL([[(from=>0)],"\x66\x5f\x61\x63","\x66\x5f\x76\x6e"]);my $TpJWz9e1S7=$iIcdnGV59h->krPH8GR90T();unless(ref $TpJWz9e1S7 eq "\x41\x52\x52\x41\x59"){$iIcdnGV59h->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $HP4IkpYZtR=[];foreach my $ZXs1KtJgi9(@{$tjJvVuczCp}){foreach my $mDfCt2nq6B(@{$TpJWz9e1S7}){if($ZXs1KtJgi9 eq $mDfCt2nq6B->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$HP4IkpYZtR},$ZXs1KtJgi9;last;}}}my $Pg5aY4QhmI=$iIcdnGV59h->BwI1Bz8xol($md6Ee2wxca,$LsuvGkKSlO,$NRpQmd2WgF,$HP4IkpYZtR,$UsmjiyTDKu);unless(ref $Pg5aY4QhmI eq "\x41\x52\x52\x41\x59"){$iIcdnGV59h->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}mTHs1Pwm9i($iIcdnGV59h,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x64\x69\x64\x5f\x6c\x69\x73\x74\x2e\x74\x74",{DIDS=>$Pg5aY4QhmI,F_AC=>$LsuvGkKSlO,F_VN=>$NRpQmd2WgF,PARTNER=>$mHvhr9Z8Dw,$iIcdnGV59h->cH1IwGlB98(1,$Pg5aY4QhmI,$md6Ee2wxca)});}sub uD7gPhk8wQ{my($iIcdnGV59h,$J2I0V47YW3,$fa5WhgTe9f,$mHvhr9Z8Dw,$tjJvVuczCp,$UsmjiyTDKu)=@_;my($md6Ee2wxca,$yc8sd7qhkD,$ORwoFtC329,$OSEK34W8Qy,$UTrzpmnA2F,$fbhpgSYozW,$N280nmwrFp,$ZGAYmTzBXU,$yl0qD1kitr,$XVJre0sXw9,$TDgwLkFCh8,$oveqpGdKX8,$rJazqo1IZY,$ZwFdP5437E)=$iIcdnGV59h->qTOFl06qrL([[(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("$UTrzpmnA2F$fbhpgSYozW$N280nmwrFp$yc8sd7qhkD$ORwoFtC329$yl0qD1kitr$ZGAYmTzBXU$XVJre0sXw9$rJazqo1IZY")){my $SusjvywmFr=$iIcdnGV59h->HjVJUqtEFu("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x41\x49");$yc8sd7qhkD=$iIcdnGV59h->FzbeXHJgMB(time-86400*$SusjvywmFr,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$ORwoFtC329=$iIcdnGV59h->FzbeXHJgMB(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my $TpJWz9e1S7=$iIcdnGV59h->krPH8GR90T();unless(ref $TpJWz9e1S7 eq "\x41\x52\x52\x41\x59"){$iIcdnGV59h->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $HP4IkpYZtR=[];my $zYHpbiasw8=0;foreach my $ZXs1KtJgi9(@{$tjJvVuczCp}){foreach my $mDfCt2nq6B(@{$TpJWz9e1S7}){if($ZXs1KtJgi9 eq $mDfCt2nq6B->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$HP4IkpYZtR},$mDfCt2nq6B;if(length($ZwFdP5437E)and ! $zYHpbiasw8){if($mDfCt2nq6B->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}eq $ZwFdP5437E){$zYHpbiasw8=1;}}last;}}}my $AbVey6haI2;if($ZGAYmTzBXU=~ /,/){$AbVey6haI2=[split(/\s*,\s*/,$ZGAYmTzBXU)];}else{$AbVey6haI2=$ZGAYmTzBXU;}my $HW981upGvr;if($zYHpbiasw8){$HW981upGvr=$iIcdnGV59h->Bm98y1fO5a($UTrzpmnA2F,$fbhpgSYozW,$N280nmwrFp,$md6Ee2wxca,$iIcdnGV59h->l5e0jTkJvu($yc8sd7qhkD),$iIcdnGV59h->l5e0jTkJvu($ORwoFtC329),$yl0qD1kitr,$AbVey6haI2,$XVJre0sXw9,$rJazqo1IZY,$J2I0V47YW3,$oveqpGdKX8,$TDgwLkFCh8,$ZwFdP5437E,$UsmjiyTDKu);}else{$HW981upGvr=$iIcdnGV59h->Bm98y1fO5a($UTrzpmnA2F,$fbhpgSYozW,$N280nmwrFp,$md6Ee2wxca,$iIcdnGV59h->l5e0jTkJvu($yc8sd7qhkD),$iIcdnGV59h->l5e0jTkJvu($ORwoFtC329),$yl0qD1kitr,$AbVey6haI2,$XVJre0sXw9,$rJazqo1IZY,$J2I0V47YW3,$oveqpGdKX8,$TDgwLkFCh8,$tjJvVuczCp,$UsmjiyTDKu);}unless(ref $HW981upGvr eq "\x41\x52\x52\x41\x59"){$iIcdnGV59h->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my(@m9aKkt20Oj,$tpsQNLzohU);if($HW981upGvr){my $idBtAnV7Fk=$md6Ee2wxca+1;foreach my $jMO896X7zT(@{$HW981upGvr}){$jMO896X7zT->{"\x43\x44\x52\x5f\x4e\x55\x4d"}=$idBtAnV7Fk++;$jMO896X7zT->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$iIcdnGV59h->FzbeXHJgMB($jMO896X7zT->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});}if(ref $HW981upGvr and ref $HW981upGvr->[0]){my $OUXdOEWMlL=$iIcdnGV59h->FzbeXHJgMB($HW981upGvr->[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 @m9aKkt20Oj,(JS_DATE_STR=>$OUXdOEWMlL);}}my $YAc5w64iKd;if($UTrzpmnA2F){$YAc5w64iKd="\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($J2I0V47YW3){$YAc5w64iKd="\x70\x61\x72\x74\x6e\x65\x72\x5f\x61\x63\x74\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c\x2e\x74\x74";push @m9aKkt20Oj,(CDR_ACT_TYPE=>$TDgwLkFCh8,CDR_ACT_EXT=>$oveqpGdKX8);unless($iIcdnGV59h->K9yp2bmtnZ()->{"\x44\x46"}){push @m9aKkt20Oj,(ACT_TYPES=>$iIcdnGV59h->{"\x5f\x4c\x49\x53\x54\x53"}->{"\x41\x43\x54\x49\x56\x49\x54\x49\x45\x53"});}}else{$YAc5w64iKd="\x70\x61\x72\x74\x6e\x65\x72\x5f\x63\x64\x72\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74";push @m9aKkt20Oj,(CDR_CALL_TYPE=>$yl0qD1kitr);}return mTHs1Pwm9i($iIcdnGV59h,$YAc5w64iKd,{CDR_LIST=>$HW981upGvr,CDR_CALL_ID=>$UTrzpmnA2F,CDR_CALLER_ID=>$fbhpgSYozW,CDR_CALLED_ID=>$N280nmwrFp,CDR_AC=>$ZGAYmTzBXU,CDR_DURATION=>$XVJre0sXw9,CDR_DATA=>$rJazqo1IZY,FROM_TIME=>$yc8sd7qhkD,TO_TIME=>$ORwoFtC329,SMART_TIME=>$OSEK34W8Qy,CDR_GROUP=>$ZwFdP5437E,GROUPS=>$HP4IkpYZtR,PARTNER=>$mHvhr9Z8Dw,EXTRA_OPTIONS=>$fa5WhgTe9f->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"},@m9aKkt20Oj,$iIcdnGV59h->cH1IwGlB98(1,$HW981upGvr,$md6Ee2wxca)});}sub mV5TWzY4OU{my($iIcdnGV59h,$fa5WhgTe9f,$mHvhr9Z8Dw)=@_;my($onxIE15Dok,$m80YF3jsK2,$szZ7fHstA0)=$iIcdnGV59h->qTOFl06qrL([qw(node ip mode)]);if($szZ7fHstA0 eq "\x77\x6c\x61\x64\x64"){$iIcdnGV59h->muzOAXt58m($onxIE15Dok,$szZ7fHstA0,$m80YF3jsK2);}elsif($szZ7fHstA0 eq "\x77\x6c\x64\x65\x6c"){$iIcdnGV59h->muzOAXt58m($onxIE15Dok,$szZ7fHstA0,$m80YF3jsK2);}elsif($m80YF3jsK2){my $Snak1zYeRb=$fa5WhgTe9f->{"\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 $HJ6mFQnUj1=$iIcdnGV59h->pV0Rwk87qv("\x66\x32\x62\x2d\x70\x61\x72\x74\x6e\x65\x72\x2d".$fa5WhgTe9f->{"\x49\x44"}."-$m80YF3jsK2")||0;if($HJ6mFQnUj1){undef $m80YF3jsK2;$iIcdnGV59h->{"\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{$iIcdnGV59h->pV0Rwk87qv("\x66\x32\x62\x2d\x70\x61\x72\x74\x6e\x65\x72\x2d".$fa5WhgTe9f->{"\x49\x44"}."-$m80YF3jsK2",1,$Snak1zYeRb);$iIcdnGV59h->kt8mUKfnV3($onxIE15Dok,$m80YF3jsK2);}}my $J50aikG9Hw=$iIcdnGV59h->kt8mUKfnV3($onxIE15Dok);unless(ref $J50aikG9Hw eq "\x41\x52\x52\x41\x59"){$iIcdnGV59h->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $jXp76cvzDJ=$iIcdnGV59h->muzOAXt58m();unless(ref $jXp76cvzDJ eq "\x41\x52\x52\x41\x59"){$iIcdnGV59h->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}mTHs1Pwm9i($iIcdnGV59h,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x66\x32\x62\x2e\x74\x74",{F2B_WL=>$jXp76cvzDJ,F2B_CNT_WL=>scalar(@$jXp76cvzDJ),F2B=>$J50aikG9Hw,F2B_CNT=>scalar(@$J50aikG9Hw),PARTNER=>$mHvhr9Z8Dw,NODE=>$iIcdnGV59h->HjVJUqtEFu("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x53\x45\x52\x56\x45\x52\x5f\x49\x44"),EXTRA_OPTIONS=>$fa5WhgTe9f->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}});}sub mTHs1Pwm9i{my($iIcdnGV59h,$OfQkAuWdL0,$rJazqo1IZY)=@_;my $EC4ch9bgqF=Template::EasyTT->new({});my $Vf9XV3iOwH=$iIcdnGV59h->HjVJUqtEFu("\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 $gVxg6p9LFJ='';$rJazqo1IZY->{"\x55\x53\x45\x5f\x42\x49\x4c\x4c\x49\x4e\x47"}=$iIcdnGV59h->HjVJUqtEFu("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x55\x53\x45\x5f\x42\x49\x4c\x4c\x49\x4e\x47");$rJazqo1IZY->{"\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}=$iIcdnGV59h->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"};$rJazqo1IZY->{"\x55\x4e\x49\x58\x54\x49\x4d\x45"}=time;my @HZYIfJNHmw;if(length $ENV{"\x50\x41\x54\x48\x5f\x49\x4e\x46\x4f"}){@HZYIfJNHmw=split(/\//,substr($ENV{"\x50\x41\x54\x48\x5f\x49\x4e\x46\x4f"},1));}my $BzB2okVyng=$iIcdnGV59h->HjVJUqtEFu("\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 $yIqlrg8sRj=$iIcdnGV59h->HjVJUqtEFu("\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 $HZYIfJNHmw[0]){my($WKaEF9TXjL,$qTacGB48gm)=split(/:/,$HZYIfJNHmw[0]);if(length $WKaEF9TXjL){$BzB2okVyng=$WKaEF9TXjL;$BzB2okVyng=~ s#[^\w\d\._-]##g;}$yIqlrg8sRj=$qTacGB48gm if length $qTacGB48gm;}my $uakgbJ27KF=$iIcdnGV59h->qTOFl06qrL("\x64\x66");if($uakgbJ27KF){my $gCADqBvLH8=0;foreach my $T9X8T3PRu5(split(/\s*,\s*/,$iIcdnGV59h->HjVJUqtEFu("\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"}=~ /^$T9X8T3PRu5$/){$gCADqBvLH8=1;last;}}$uakgbJ27KF='' unless $gCADqBvLH8;}unless($uakgbJ27KF){$EC4ch9bgqF->operators_add("\x64\x69\x76\x32",sub{return $_[0]% 2});$EC4ch9bgqF->filters_add("\x62\x69\x6c\x6c\x5f\x66\x6c\x6f\x61\x74",sub{return sprintf("\x25\x2e".($iIcdnGV59h->HjVJUqtEFu("\x42\x49\x4c\x4c\x49\x4e\x47\x5f\x52\x4f\x55\x4e\x44\x49\x4e\x47\x5f\x34\x47\x55\x49")||2)."\x66",$_[1])});$EC4ch9bgqF->filters_add("\x6c\x6f\x63\x61\x6c\x65\x5f\x6d\x73\x67",sub{my $mn0kfhmU9V=$iIcdnGV59h->Si6SRTFdoE($_[1],$yIqlrg8sRj);$mn0kfhmU9V=~ s#&#&amp;#gs;$mn0kfhmU9V=~ s#\x22#&quot;#gs;$mn0kfhmU9V=~ s#<#&lt;#gs;$mn0kfhmU9V=~ s#>#&gt;#gs;$mn0kfhmU9V=~ s#\x27#&apos;#gs;return $mn0kfhmU9V;});if(-e "$Vf9XV3iOwH/$BzB2okVyng/$OfQkAuWdL0"){$EC4ch9bgqF->process("$Vf9XV3iOwH/$BzB2okVyng/$OfQkAuWdL0",$rJazqo1IZY,\$gVxg6p9LFJ);}else{$EC4ch9bgqF->process("$Vf9XV3iOwH/$OfQkAuWdL0",$rJazqo1IZY,\$gVxg6p9LFJ);}}unless($uakgbJ27KF){$iIcdnGV59h->KGLk27Q1Hl(200,"\x4f\x6b",undef,$gVxg6p9LFJ.$iIcdnGV59h->Si6SRTFdoE("\x67\x36\x31\x33","\x43"));}elsif($uakgbJ27KF eq "\x78\x6d\x6c"){require XML::Simple;$gVxg6p9LFJ=XML::Simple::XMLout($rJazqo1IZY);$iIcdnGV59h->mxcmE1MOLC(200,"\x4f\x6b",undef,$gVxg6p9LFJ);}elsif($uakgbJ27KF eq "\x6a\x73\x6f\x6e"){require JSON::XS;my $J9ES8X7yfj=JSON::XS->new();$iIcdnGV59h->KGLk27Q1Hl(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",$J9ES8X7yfj->encode($rJazqo1IZY));}}