#!/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;MStsG8HqbX();sub new{my($ppuZUvE82P,$mqz59tr8NW)=@_;my $AnmzMI3HKg=bless{_CGI=>CGI->new(),_CONF=>{},_CDR=>{CALLED_ID=>"\x77\x65\x62",},_USER_CREDS=>{},_USER_VBOXES=>{},_SESSION=>{},},$ppuZUvE82P;$AnmzMI3HKg->S3UQckeABZ($mqz59tr8NW);$AnmzMI3HKg->gMWzp30G8c();if($AnmzMI3HKg->Y89WXfLe6Q("\x44\x45\x42\x55\x47\x5f\x48\x54\x54\x50\x5f\x41\x55\x44\x49\x54\x5f\x46\x49\x4c\x45")){$AnmzMI3HKg->gMWzp30G8c("\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");}$AnmzMI3HKg->{"\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};$AnmzMI3HKg->{"\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 $IhQXB32WON;$AnmzMI3HKg->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}={};foreach my $z0oRZ8Vz9d(split(/\s*;\s*/,$AnmzMI3HKg->Y89WXfLe6Q("\x43\x47\x49\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"))){my($qdl9RYSM5F,@yYK5G0zpjW)=split(/\s*:\s*/,$z0oRZ8Vz9d);foreach my $TpEKaoSXQG(@yYK5G0zpjW){$AnmzMI3HKg->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$TpEKaoSXQG}=$qdl9RYSM5F;}}my $TpEKaoSXQG=$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"};unless(exists $AnmzMI3HKg->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$TpEKaoSXQG}){$TpEKaoSXQG=~ s#\.\d+$##;}unless(exists $AnmzMI3HKg->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$TpEKaoSXQG}){if($AnmzMI3HKg->Y89WXfLe6Q("\x43\x47\x49\x5f\x41\x4c\x49\x41\x53\x45\x53\x5f\x57\x4f\x5f\x49\x50")){$IhQXB32WON="\x70\x61\x72\x74\x6e\x65\x72";}else{$IhQXB32WON="\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($AnmzMI3HKg->Y89WXfLe6Q("\x43\x47\x49\x5f\x41\x4c\x49\x41\x53\x45\x53\x5f\x57\x4f\x5f\x49\x50")){$IhQXB32WON=$AnmzMI3HKg->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$TpEKaoSXQG};}else{$IhQXB32WON=$AnmzMI3HKg->{"\x5f\x4a\x4f\x55\x52\x4e\x41\x4c\x5f\x41\x4c\x49\x41\x53\x45\x53"}->{$TpEKaoSXQG}."\x20\x28\x20".$ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"}."\x20\x29";}}$AnmzMI3HKg->{"\x5f\x43\x44\x52"}->{"\x43\x41\x4c\x4c\x45\x52\x5f\x49\x44"}=$IhQXB32WON;;$AnmzMI3HKg->{"\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($AnmzMI3HKg->Y89WXfLe6Q("\x50\x41\x54\x48\x5f\x57\x4f\x52\x4b\x5f\x44\x49\x52"));$AnmzMI3HKg->N6HIv3XA7E();return $AnmzMI3HKg;}sub MStsG8HqbX{my $AnmzMI3HKg=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($iVUafl8Tzh,$HOgRBy1AJH,$s2HKOx3iPU);$AnmzMI3HKg->M2lb4OhEsd(1);my($ujWO79LsNr,$mfXDZm6RSL,$oOVEaqU4S3,$S8l9ToNzLi,$Ra5NRMefZF,$cdrZIuAgGi)=$AnmzMI3HKg->Dix6pSQcAZ([qw(partner password action from user_id ac)]);my($VOzsBTUPo5,$T4W9bnigFw);if(my $OvJNn2jlwx=$AnmzMI3HKg->dKarxEVbc1()){unless(length $mfXDZm6RSL){my($Eq03luYojV,$iVUafl8Tzh,$wBmRILQ3wc)=split(/-/,$ujWO79LsNr);foreach my $bKpLaOhv0I(@$OvJNn2jlwx){if($bKpLaOhv0I->{"\x49\x44"}eq $Eq03luYojV){if($AnmzMI3HKg->Y89WXfLe6Q("\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-$wBmRILQ3wc<$AnmzMI3HKg->Y89WXfLe6Q("\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($iVUafl8Tzh eq md5_hex(join("\x2d",$bKpLaOhv0I->{"\x4e\x41\x4d\x45"},$bKpLaOhv0I->{"\x50\x41\x53\x53\x57\x4f\x52\x44"},$wBmRILQ3wc))){$T4W9bnigFw=$bKpLaOhv0I;}}}else{if($iVUafl8Tzh eq md5_hex(join("\x2d",$bKpLaOhv0I->{"\x4e\x41\x4d\x45"},$bKpLaOhv0I->{"\x50\x41\x53\x53\x57\x4f\x52\x44"},$wBmRILQ3wc))){$T4W9bnigFw=$bKpLaOhv0I;}}last;}}}else{foreach my $bKpLaOhv0I(@$OvJNn2jlwx){if($bKpLaOhv0I->{"\x4e\x41\x4d\x45"}eq $ujWO79LsNr){if($bKpLaOhv0I->{"\x50\x41\x53\x53\x57\x4f\x52\x44"}eq $mfXDZm6RSL){$T4W9bnigFw=$bKpLaOhv0I;}last;}}}}if($T4W9bnigFw){my $wBmRILQ3wc=time;$ujWO79LsNr=$T4W9bnigFw->{"\x49\x44"}."\x2d".md5_hex(join("\x2d",$T4W9bnigFw->{"\x4e\x41\x4d\x45"},$T4W9bnigFw->{"\x50\x41\x53\x53\x57\x4f\x52\x44"},$wBmRILQ3wc))."\x2d".$wBmRILQ3wc;$T4W9bnigFw->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}={};if($T4W9bnigFw->{"\x4f\x50\x54\x49\x4f\x4e\x53"}){foreach my $nJVR96d75p(split(/\s*\|\s*/,$T4W9bnigFw->{"\x4f\x50\x54\x49\x4f\x4e\x53"})){my($VqWsVrJuNi,$lzsJmnq6xf)=split(/=/,$nJVR96d75p,2);next unless length $VqWsVrJuNi;$T4W9bnigFw->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{uc($VqWsVrJuNi)}=$lzsJmnq6xf;}}}else{return dwZpvdYCec($AnmzMI3HKg,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x6f\x67\x69\x6e\x2e\x74\x74",{});}if(exists($AnmzMI3HKg->{"\x5f\x55\x53\x45\x52\x5f\x49\x4e\x46\x4f\x5f\x41\x43\x54\x49\x4f\x4e\x53"}->{$oOVEaqU4S3})){if(length($Ra5NRMefZF)){$VOzsBTUPo5=$AnmzMI3HKg->XHI8FNoztq($Ra5NRMefZF);my $sM98HhXpJ7=$AnmzMI3HKg->S0pnQXc96o();%{$sM98HhXpJ7}=%{$VOzsBTUPo5};}elsif(length($cdrZIuAgGi)){$AnmzMI3HKg->x46lsUXHiG(undef,$cdrZIuAgGi);$VOzsBTUPo5=$AnmzMI3HKg->S0pnQXc96o();}}else{$VOzsBTUPo5=$T4W9bnigFw;$VOzsBTUPo5->{"\x50\x41\x52\x54\x4e\x45\x52\x5f\x54\x41\x47"}=$T4W9bnigFw->{"\x54\x41\x47"};}if(! $VOzsBTUPo5 or ! $T4W9bnigFw or index("\x2c".$T4W9bnigFw->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}."\x2c","\x2c".$VOzsBTUPo5->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}."\x2c")<0){return $AnmzMI3HKg->ZyguHA4T9W("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}elsif($AnmzMI3HKg->Y89WXfLe6Q("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x50\x41\x52\x54\x4e\x45\x52\x5f\x4d\x4f\x44\x45")==1){if(index($VOzsBTUPo5->{"\x50\x41\x52\x54\x4e\x45\x52\x5f\x54\x41\x47"},$T4W9bnigFw->{"\x54\x41\x47"})){return $AnmzMI3HKg->ZyguHA4T9W("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}}elsif($AnmzMI3HKg->Y89WXfLe6Q("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x50\x41\x52\x54\x4e\x45\x52\x5f\x4d\x4f\x44\x45")==2){if($VOzsBTUPo5->{"\x50\x41\x52\x54\x4e\x45\x52\x5f\x54\x41\x47"}ne $T4W9bnigFw->{"\x54\x41\x47"}){return $AnmzMI3HKg->ZyguHA4T9W("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}}if($T4W9bnigFw->{"\x52\x45\x41\x44\x5f\x4f\x4e\x4c\x59"}){MwmIuvsYkc($AnmzMI3HKg,$T4W9bnigFw,$S8l9ToNzLi,[split("\x2c",$T4W9bnigFw->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$ujWO79LsNr,"\x72\x6f",$T4W9bnigFw->{"\x54\x41\x47"});}elsif($oOVEaqU4S3 eq "\x62\x61\x6c\x61\x6e\x63\x65\x5f\x75\x70\x64\x61\x74\x65"){my($QkIbCPKxS3,$Z8JIAhzwia)=$AnmzMI3HKg->Dix6pSQcAZ([qw(balance cur_id)]);if($AnmzMI3HKg->zjLaQemfiG($QkIbCPKxS3,$Z8JIAhzwia)){$AnmzMI3HKg->mgpbB7HqPV("\x75\x73\x65\x72\x2d".$AnmzMI3HKg->S0pnQXc96o()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"},undef);$AnmzMI3HKg->ZyguHA4T9W();}else{$AnmzMI3HKg->ZyguHA4T9W(undef,"Internal error : $$ : ".__LINE__);}}elsif($oOVEaqU4S3 eq "\x64\x69\x64\x5f\x61\x64\x64" and $T4W9bnigFw->{"\x44\x49\x44\x5f\x4d\x4e\x47"}){my($mWt5IO0i8D,$CyGOIUeAfQ,$MXEc1Kup02,$VKe8MojfY4)=$AnmzMI3HKg->Dix6pSQcAZ([qw(did channels pn cnam)]);my @WMeQvoN4YX=split(/\s*,\s*/,$mWt5IO0i8D);my $YhPOLSsaVm=0;foreach my $D2jgwhiILk(@WMeQvoN4YX){if($AnmzMI3HKg->DTlmEIARfc($D2jgwhiILk,$MXEc1Kup02,$cdrZIuAgGi,$CyGOIUeAfQ,$VKe8MojfY4)){$AnmzMI3HKg->UWDXfZKHFw("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x61\x64\x64",$D2jgwhiILk);}else{$YhPOLSsaVm++;}}if($YhPOLSsaVm){$AnmzMI3HKg->ZyguHA4T9W(undef,"Internal error : $$ : [ $YhPOLSsaVm / ".(scalar(@WMeQvoN4YX))."\x20\x5d\x20".__LINE__);}else{$AnmzMI3HKg->ZyguHA4T9W();}}elsif($oOVEaqU4S3 eq "\x64\x69\x64\x5f\x64\x65\x6c" and $T4W9bnigFw->{"\x44\x49\x44\x5f\x4d\x4e\x47"}){my($X6Qe4Ec8mp,$Ra5NRMefZF,$mWt5IO0i8D)=$AnmzMI3HKg->Dix6pSQcAZ([qw(did_id user_id did)]);if($AnmzMI3HKg->A57Dhkeidl($X6Qe4Ec8mp,$Ra5NRMefZF,$mWt5IO0i8D)){$AnmzMI3HKg->UWDXfZKHFw("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x64\x72\x6f\x70",$mWt5IO0i8D);$AnmzMI3HKg->ZyguHA4T9W();}else{$AnmzMI3HKg->ZyguHA4T9W(undef,"Internal error : $$ : ".__LINE__);}}elsif($oOVEaqU4S3 eq "\x75\x73\x65\x72\x5f\x75\x70\x64\x61\x74\x65"){my $Ra5NRMefZF=$AnmzMI3HKg->Dix6pSQcAZ("\x75\x73\x65\x72\x5f\x69\x64");my @ok9TFXrE3N=$AnmzMI3HKg->Dix6pSQcAZ();my %DcTlQVShJ0;foreach my $DjdUZkXCEW(@ok9TFXrE3N){if($DjdUZkXCEW=~ /^US_(VOICENUMBER|STATUS|DEMO_MODE|DESCRIPTION|GROUP_ID|PERMIT_WEB|CUSTOM_RULES)/){if($DjdUZkXCEW eq "\x55\x53\x5f\x43\x55\x53\x54\x4f\x4d\x5f\x52\x55\x4c\x45\x53" and ! $T4W9bnigFw->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{"\x43\x52\x5f\x45\x4e\x41\x42\x4c\x45"}){next;}my $VqWsVrJuNi=$1;if($AnmzMI3HKg->Dix6pSQcAZ($DjdUZkXCEW)ne $VOzsBTUPo5->{$VqWsVrJuNi}){my $lzsJmnq6xf=$AnmzMI3HKg->Dix6pSQcAZ($DjdUZkXCEW);if($VqWsVrJuNi eq "\x47\x52\x4f\x55\x50\x5f\x49\x44"){if(index("\x2c".$T4W9bnigFw->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}."\x2c",",$lzsJmnq6xf,")<0){return $AnmzMI3HKg->ZyguHA4T9W("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}}$DcTlQVShJ0{$VqWsVrJuNi}=$lzsJmnq6xf;}}}if($AnmzMI3HKg->zdbts1r9Ic($Ra5NRMefZF,\%DcTlQVShJ0)){$AnmzMI3HKg->UWDXfZKHFw("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65",undef,$Ra5NRMefZF);$AnmzMI3HKg->ZyguHA4T9W();}else{$AnmzMI3HKg->ZyguHA4T9W(undef,"Internal error : $$ : ".__LINE__);}}elsif($oOVEaqU4S3 eq "\x75\x73\x65\x72\x5f\x75\x70\x64\x61\x74\x65\x5f\x70\x69\x6e"){my $Ra5NRMefZF=$AnmzMI3HKg->Dix6pSQcAZ("\x75\x73\x65\x72\x5f\x69\x64");my $n4q1eWQ50h=$AnmzMI3HKg->Dix6pSQcAZ("\x70\x69\x6e");if($AnmzMI3HKg->OgQPtqC3s9($Ra5NRMefZF,$n4q1eWQ50h)){$AnmzMI3HKg->UWDXfZKHFw("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65",undef,$Ra5NRMefZF);$AnmzMI3HKg->ZyguHA4T9W();}else{$AnmzMI3HKg->ZyguHA4T9W(undef,"Internal error : $$ : ".__LINE__);}}elsif($oOVEaqU4S3 eq "\x75\x73\x65\x72\x5f\x61\x64\x64"){my($MXEc1Kup02,$KPir8q3UhO,$iWnu0DC32d)=$AnmzMI3HKg->Dix6pSQcAZ([qw(phone group_id uname)]);if(index("\x2c".$T4W9bnigFw->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}."\x2c",",$KPir8q3UhO,")<0){return $AnmzMI3HKg->ZyguHA4T9W("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x61\x75\x74\x68");}if(my $cdrZIuAgGi=$AnmzMI3HKg->NEr0FDLeCA($MXEc1Kup02,$KPir8q3UhO,$iWnu0DC32d,undef,undef,{PARTNER_TAG=>$T4W9bnigFw->{"\x54\x41\x47"}})){$AnmzMI3HKg->UWDXfZKHFw("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x61\x64\x64",$cdrZIuAgGi);$AnmzMI3HKg->ZyguHA4T9W("?action=user_info&ac=$cdrZIuAgGi&partner=$ujWO79LsNr&df=".$AnmzMI3HKg->Dix6pSQcAZ("\x64\x66"));}else{$AnmzMI3HKg->ZyguHA4T9W(undef,"Internal error : $$ : ".__LINE__);}}elsif($oOVEaqU4S3 eq "\x75\x73\x65\x72\x5f\x64\x65\x6c"){my($mNFYXpWSHg)=$AnmzMI3HKg->Dix6pSQcAZ([qw(single_user)]);if($AnmzMI3HKg->YZ30bkyhHY($Ra5NRMefZF)){if(ref $VOzsBTUPo5 eq "\x48\x41\x53\x48"){$AnmzMI3HKg->UWDXfZKHFw("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x64\x72\x6f\x70",$VOzsBTUPo5->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"});}if($mNFYXpWSHg){$AnmzMI3HKg->ZyguHA4T9W("?action=user_list&partner=$ujWO79LsNr&df=".$AnmzMI3HKg->Dix6pSQcAZ("\x64\x66"));}else{$AnmzMI3HKg->ZyguHA4T9W();}}else{$AnmzMI3HKg->ZyguHA4T9W(undef,"Internal error : $$ : ".__LINE__);}}elsif($oOVEaqU4S3 eq "\x75\x73\x65\x72\x5f\x69\x6e\x66\x6f"){gvJIj8X7Zi($AnmzMI3HKg,$T4W9bnigFw,$ujWO79LsNr,$T4W9bnigFw->{"\x44\x49\x44\x5f\x4d\x4e\x47"},[split("\x2c",$T4W9bnigFw->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})]);}elsif($oOVEaqU4S3 eq "\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74"){ebI8fRy4X9($AnmzMI3HKg,$T4W9bnigFw,$ujWO79LsNr,[split("\x2c",$T4W9bnigFw->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$T4W9bnigFw->{"\x54\x41\x47"});}elsif($oOVEaqU4S3 eq "\x63\x64\x72\x5f\x6c\x69\x73\x74"){gUuGQR6ed5($AnmzMI3HKg,undef,$T4W9bnigFw,$ujWO79LsNr,[split("\x2c",$T4W9bnigFw->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$T4W9bnigFw->{"\x54\x41\x47"});}elsif($oOVEaqU4S3 eq "\x61\x63\x74\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c"){gUuGQR6ed5($AnmzMI3HKg,"\x61\x63\x74\x61\x6c\x6c",$T4W9bnigFw,$ujWO79LsNr,[split("\x2c",$T4W9bnigFw->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$T4W9bnigFw->{"\x54\x41\x47"});}elsif($oOVEaqU4S3 eq "\x64\x69\x64\x5f\x6c\x69\x73\x74"){l4dxl2EJ5i($AnmzMI3HKg,$T4W9bnigFw,$ujWO79LsNr,[split("\x2c",$T4W9bnigFw->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$T4W9bnigFw->{"\x54\x41\x47"});}elsif($oOVEaqU4S3 eq "\x63\x61\x6c\x6c\x73\x5f\x68\x61\x6e\x67\x75\x70"){my($Ra5NRMefZF,$tOduBXHpI9)=$AnmzMI3HKg->Dix6pSQcAZ([qw(user_id call_id)]);if(length($tOduBXHpI9)and length($Ra5NRMefZF)){$AnmzMI3HKg->RB4l89y5Zz($tOduBXHpI9,$Ra5NRMefZF);}$AnmzMI3HKg->ZyguHA4T9W();}elsif($oOVEaqU4S3 eq "\x66\x32\x62" and $T4W9bnigFw->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{"\x46\x32\x42\x5f\x45\x4e\x41\x42\x4c\x45"}){Zs7TI6LYqC($AnmzMI3HKg,$T4W9bnigFw,$ujWO79LsNr);}elsif($oOVEaqU4S3 eq "\x75\x73\x65\x72\x5f\x6c\x69\x73\x74"){MwmIuvsYkc($AnmzMI3HKg,$T4W9bnigFw,$S8l9ToNzLi,[split("\x2c",$T4W9bnigFw->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})],$ujWO79LsNr,undef,$T4W9bnigFw->{"\x54\x41\x47"});}else{$AnmzMI3HKg->ZyguHA4T9W("\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 gvJIj8X7Zi{my($AnmzMI3HKg,$T4W9bnigFw,$ujWO79LsNr,$NOj8ghbone,$lJh81v9maX)=@_;my $KKqHxtvsJn=$AnmzMI3HKg->mTAKPLG8Jc(0,$AnmzMI3HKg->S0pnQXc96o()->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"},undef,undef);my $HOk1iPYfR8=$AnmzMI3HKg->C4SYu9VsUy();unless(ref $HOk1iPYfR8 eq "\x41\x52\x52\x41\x59"){$AnmzMI3HKg->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $yZ8arupSTV=[];foreach my $K0gUz97D8y(@{$lJh81v9maX}){foreach my $tJZLHAh9mb(@{$HOk1iPYfR8}){if($K0gUz97D8y eq $tJZLHAh9mb->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$yZ8arupSTV},$tJZLHAh9mb;last;}}}unless(ref $KKqHxtvsJn eq "\x41\x52\x52\x41\x59"){$AnmzMI3HKg->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}dwZpvdYCec($AnmzMI3HKg,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x75\x73\x65\x72\x5f\x69\x6e\x66\x6f\x2e\x74\x74",{PARTNER=>$ujWO79LsNr,USER=>$KKqHxtvsJn->[0],GROUPS=>$yZ8arupSTV,TARIFF=>$AnmzMI3HKg->Ow4p8xt76I(),DID_MNG=>$NOj8ghbone,EXTRA_OPTIONS=>$T4W9bnigFw->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"},DIDS=>$AnmzMI3HKg->W8Ra9FPOBo(),LIMITS=>$AnmzMI3HKg->QDYnEQmj9o($AnmzMI3HKg->S0pnQXc96o()->{"\x49\x44"})});}sub MwmIuvsYkc{my($AnmzMI3HKg,$T4W9bnigFw,$S8l9ToNzLi,$lJh81v9maX,$ujWO79LsNr,$mz908wyv7o,$medmijI89R)=@_;my($cLcQ98hMdE,$yjmZJ7tA5i,$OHwNo9rPzd,$lXxMtoJzwI)=$AnmzMI3HKg->Dix6pSQcAZ(["\x66\x5f\x61\x63","\x66\x5f\x76\x6e","\x66\x5f\x67\x72\x6f\x75\x70","\x66\x5f\x73\x74\x61\x74\x75\x73"]);my $HOk1iPYfR8=$AnmzMI3HKg->C4SYu9VsUy();unless(ref $HOk1iPYfR8 eq "\x41\x52\x52\x41\x59"){$AnmzMI3HKg->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $yZ8arupSTV=[];my $ukyF5ECaJV=0;foreach my $K0gUz97D8y(@{$lJh81v9maX}){foreach my $tJZLHAh9mb(@{$HOk1iPYfR8}){if($K0gUz97D8y eq $tJZLHAh9mb->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$yZ8arupSTV},$tJZLHAh9mb;if(length($OHwNo9rPzd)and ! $ukyF5ECaJV){if($tJZLHAh9mb->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}eq $OHwNo9rPzd){$ukyF5ECaJV=1;}}last;}}}my($KKqHxtvsJn,$mT8OIQSBZt);if($ukyF5ECaJV){($KKqHxtvsJn,$mT8OIQSBZt)=$AnmzMI3HKg->mTAKPLG8Jc($S8l9ToNzLi,$cLcQ98hMdE,$yjmZJ7tA5i,$OHwNo9rPzd,undef,$lXxMtoJzwI,undef,undef,$medmijI89R);}else{($KKqHxtvsJn,$mT8OIQSBZt)=$AnmzMI3HKg->mTAKPLG8Jc($S8l9ToNzLi,$cLcQ98hMdE,$yjmZJ7tA5i,$lJh81v9maX,undef,$lXxMtoJzwI,undef,undef,$medmijI89R);}unless(ref $KKqHxtvsJn eq "\x41\x52\x52\x41\x59"){$AnmzMI3HKg->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $Dug7cPoFjd=1;foreach my $sM98HhXpJ7(@{$KKqHxtvsJn}){$sM98HhXpJ7->{"\x49\x44\x58"}=$S8l9ToNzLi+$Dug7cPoFjd;$Dug7cPoFjd++;}my $iJyYziqAwF;if($mz908wyv7o){$iJyYziqAwF="\x70\x61\x72\x74\x6e\x65\x72\x5f\x75\x73\x65\x72\x5f\x6c\x69\x73\x74\x5f\x72\x6f\x2e\x74\x74";}else{$iJyYziqAwF="\x70\x61\x72\x74\x6e\x65\x72\x5f\x75\x73\x65\x72\x5f\x6c\x69\x73\x74\x2e\x74\x74";}dwZpvdYCec($AnmzMI3HKg,$iJyYziqAwF,{USERS=>$KKqHxtvsJn,USERS_CNT=>$mT8OIQSBZt,GROUPS=>$yZ8arupSTV,PARTNER=>$ujWO79LsNr,F_AC=>$cLcQ98hMdE,F_VN=>$yjmZJ7tA5i,F_GROUP=>$OHwNo9rPzd,F_STATUS=>$lXxMtoJzwI,EXTRA_OPTIONS=>$T4W9bnigFw->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"},$AnmzMI3HKg->rYQvMDRBum(1,$KKqHxtvsJn,$S8l9ToNzLi)});}sub ebI8fRy4X9{my($AnmzMI3HKg,$T4W9bnigFw,$ujWO79LsNr,$lJh81v9maX,$medmijI89R)=@_;my($S8l9ToNzLi,$dbC50DGgPH,$YQIpsiahC7,$cdrZIuAgGi,$qWoIU9upfn,$YUASHyWjB9,$Tt56HCxMl7,$LARNhM49GZ,$KPir8q3UhO)=$AnmzMI3HKg->Dix6pSQcAZ([[(from=>0)],qw(caller_id called_id ac call_type refresh c2c duration group)]);my $Y5jwUIciVS;if($cdrZIuAgGi=~ /,/){$Y5jwUIciVS=[split(/\s*,\s*/,$cdrZIuAgGi)];}else{$Y5jwUIciVS=$cdrZIuAgGi;}my $HOk1iPYfR8=$AnmzMI3HKg->C4SYu9VsUy();unless(ref $HOk1iPYfR8 eq "\x41\x52\x52\x41\x59"){$AnmzMI3HKg->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $yZ8arupSTV=[];my $ukyF5ECaJV=0;foreach my $K0gUz97D8y(@{$lJh81v9maX}){foreach my $tJZLHAh9mb(@{$HOk1iPYfR8}){if($K0gUz97D8y eq $tJZLHAh9mb->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$yZ8arupSTV},$tJZLHAh9mb;if(length($KPir8q3UhO)and ! $ukyF5ECaJV){if($tJZLHAh9mb->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}eq $KPir8q3UhO){$ukyF5ECaJV=1;}}last;}}}my $pHXQB8k4Pf;if($ukyF5ECaJV){$pHXQB8k4Pf=$AnmzMI3HKg->S5ZDxtzm0n($dbC50DGgPH,$YQIpsiahC7,$Y5jwUIciVS,$qWoIU9upfn,$LARNhM49GZ,$KPir8q3UhO,$medmijI89R,undef,$S8l9ToNzLi);}else{$pHXQB8k4Pf=$AnmzMI3HKg->S5ZDxtzm0n($dbC50DGgPH,$YQIpsiahC7,$Y5jwUIciVS,$qWoIU9upfn,$LARNhM49GZ,$lJh81v9maX,$medmijI89R,undef,$S8l9ToNzLi);}unless(ref $pHXQB8k4Pf eq "\x41\x52\x52\x41\x59"){$pHXQB8k4Pf=[];}if($pHXQB8k4Pf){foreach my $bKpLaOhv0I(@{$pHXQB8k4Pf}){$bKpLaOhv0I->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$AnmzMI3HKg->ZaBlJMdYyE($bKpLaOhv0I->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});$bKpLaOhv0I->{"\x43\x44\x52\x5f\x44\x55\x52\x41\x54\x49\x4f\x4e"}=time-$bKpLaOhv0I->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"};}}if(! length($Tt56HCxMl7)and $T4W9bnigFw->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{"\x43\x32\x43"}){$Tt56HCxMl7=$T4W9bnigFw->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}->{"\x43\x32\x43"};}if($Tt56HCxMl7){$Tt56HCxMl7=~ s#ph=[^&;]+##;$Tt56HCxMl7=~ s#user_vars=([^&;]+)##;if($1){$Tt56HCxMl7=",$1&$Tt56HCxMl7";}elsif($Tt56HCxMl7=~ /&/ and $Tt56HCxMl7 !~ /^[,&]/){$Tt56HCxMl7="&$Tt56HCxMl7";}}return dwZpvdYCec($AnmzMI3HKg,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74",{CALLS_COUNT=>scalar(@$pHXQB8k4Pf),CALLS_LIST=>$pHXQB8k4Pf,CDR_CALLER_ID=>$dbC50DGgPH,CDR_CALLED_ID=>$YQIpsiahC7,CDR_AC=>$cdrZIuAgGi,CDR_CALL_TYPE=>$qWoIU9upfn,CDR_REFRESH_TIME=>$YUASHyWjB9,CDR_C2C=>$Tt56HCxMl7,CDR_DURATION=>$LARNhM49GZ,CDR_GROUP=>$KPir8q3UhO,GROUPS=>$yZ8arupSTV,PARTNER=>$ujWO79LsNr,EXTRA_OPTIONS=>$T4W9bnigFw->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"},$AnmzMI3HKg->rYQvMDRBum(1,$pHXQB8k4Pf,$S8l9ToNzLi)});}sub l4dxl2EJ5i{my($AnmzMI3HKg,$T4W9bnigFw,$ujWO79LsNr,$lJh81v9maX,$medmijI89R)=@_;my($S8l9ToNzLi,$cLcQ98hMdE,$yjmZJ7tA5i)=$AnmzMI3HKg->Dix6pSQcAZ([[(from=>0)],"\x66\x5f\x61\x63","\x66\x5f\x76\x6e"]);my $HOk1iPYfR8=$AnmzMI3HKg->C4SYu9VsUy();unless(ref $HOk1iPYfR8 eq "\x41\x52\x52\x41\x59"){$AnmzMI3HKg->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $yZ8arupSTV=[];foreach my $K0gUz97D8y(@{$lJh81v9maX}){foreach my $tJZLHAh9mb(@{$HOk1iPYfR8}){if($K0gUz97D8y eq $tJZLHAh9mb->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$yZ8arupSTV},$K0gUz97D8y;last;}}}my $rP1DdnXGe4=$AnmzMI3HKg->VMYQTRS9OH($S8l9ToNzLi,$cLcQ98hMdE,$yjmZJ7tA5i,$yZ8arupSTV,$medmijI89R);unless(ref $rP1DdnXGe4 eq "\x41\x52\x52\x41\x59"){$AnmzMI3HKg->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}dwZpvdYCec($AnmzMI3HKg,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x64\x69\x64\x5f\x6c\x69\x73\x74\x2e\x74\x74",{DIDS=>$rP1DdnXGe4,F_AC=>$cLcQ98hMdE,F_VN=>$yjmZJ7tA5i,PARTNER=>$ujWO79LsNr,$AnmzMI3HKg->rYQvMDRBum(1,$rP1DdnXGe4,$S8l9ToNzLi)});}sub gUuGQR6ed5{my($AnmzMI3HKg,$YG2oK5qNug,$T4W9bnigFw,$ujWO79LsNr,$lJh81v9maX,$medmijI89R)=@_;my($S8l9ToNzLi,$XZ4s1aiuhp,$wkRUSzXufK,$CyzqtHa3GI,$tOduBXHpI9,$dbC50DGgPH,$YQIpsiahC7,$cdrZIuAgGi,$qWoIU9upfn,$LARNhM49GZ,$wzWmfNEenp,$T8AGXeyJEW,$tmU5JCl6QK,$KPir8q3UhO)=$AnmzMI3HKg->Dix6pSQcAZ([[(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("$tOduBXHpI9$dbC50DGgPH$YQIpsiahC7$XZ4s1aiuhp$wkRUSzXufK$qWoIU9upfn$cdrZIuAgGi$LARNhM49GZ$tmU5JCl6QK")){my $C1WmHy6Kai=$AnmzMI3HKg->Y89WXfLe6Q("\x44\x42\x5f\x46\x52\x4f\x4d\x5f\x54\x49\x4d\x45\x5f\x41\x49");$XZ4s1aiuhp=$AnmzMI3HKg->ZaBlJMdYyE(time-86400*$C1WmHy6Kai,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x30\x30\x3a\x30\x30");$wkRUSzXufK=$AnmzMI3HKg->ZaBlJMdYyE(time,"\x25\x59\x2f\x25\x6d\x2f\x25\x64\x20\x32\x33\x3a\x35\x39\x3a\x35\x39");}my $HOk1iPYfR8=$AnmzMI3HKg->C4SYu9VsUy();unless(ref $HOk1iPYfR8 eq "\x41\x52\x52\x41\x59"){$AnmzMI3HKg->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $yZ8arupSTV=[];my $ukyF5ECaJV=0;foreach my $K0gUz97D8y(@{$lJh81v9maX}){foreach my $tJZLHAh9mb(@{$HOk1iPYfR8}){if($K0gUz97D8y eq $tJZLHAh9mb->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}){push @{$yZ8arupSTV},$tJZLHAh9mb;if(length($KPir8q3UhO)and ! $ukyF5ECaJV){if($tJZLHAh9mb->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"}eq $KPir8q3UhO){$ukyF5ECaJV=1;}}last;}}}my $Y5jwUIciVS;if($cdrZIuAgGi=~ /,/){$Y5jwUIciVS=[split(/\s*,\s*/,$cdrZIuAgGi)];}else{$Y5jwUIciVS=$cdrZIuAgGi;}my $zpPo6XZes9;if($ukyF5ECaJV){$zpPo6XZes9=$AnmzMI3HKg->A4z7oliwGp($tOduBXHpI9,$dbC50DGgPH,$YQIpsiahC7,$S8l9ToNzLi,$AnmzMI3HKg->HEyv8csKOu($XZ4s1aiuhp),$AnmzMI3HKg->HEyv8csKOu($wkRUSzXufK),$qWoIU9upfn,$Y5jwUIciVS,$LARNhM49GZ,$tmU5JCl6QK,$YG2oK5qNug,$T8AGXeyJEW,$wzWmfNEenp,$KPir8q3UhO,$medmijI89R);}else{$zpPo6XZes9=$AnmzMI3HKg->A4z7oliwGp($tOduBXHpI9,$dbC50DGgPH,$YQIpsiahC7,$S8l9ToNzLi,$AnmzMI3HKg->HEyv8csKOu($XZ4s1aiuhp),$AnmzMI3HKg->HEyv8csKOu($wkRUSzXufK),$qWoIU9upfn,$Y5jwUIciVS,$LARNhM49GZ,$tmU5JCl6QK,$YG2oK5qNug,$T8AGXeyJEW,$wzWmfNEenp,$lJh81v9maX,$medmijI89R);}unless(ref $zpPo6XZes9 eq "\x41\x52\x52\x41\x59"){$AnmzMI3HKg->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my(@ok9TFXrE3N,$ucu7Zeo6gr);if($zpPo6XZes9){my $QagrqUj7vi=$S8l9ToNzLi+1;foreach my $bKpLaOhv0I(@{$zpPo6XZes9}){$bKpLaOhv0I->{"\x43\x44\x52\x5f\x4e\x55\x4d"}=$QagrqUj7vi++;$bKpLaOhv0I->{"\x43\x44\x52\x5f\x44\x41\x54\x45"}=$AnmzMI3HKg->ZaBlJMdYyE($bKpLaOhv0I->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});}if(ref $zpPo6XZes9 and ref $zpPo6XZes9->[0]){my $Smg51snJr0=$AnmzMI3HKg->ZaBlJMdYyE($zpPo6XZes9->[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 @ok9TFXrE3N,(JS_DATE_STR=>$Smg51snJr0);}}my $B3k7aZEqsR;if($tOduBXHpI9){$B3k7aZEqsR="\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($YG2oK5qNug){$B3k7aZEqsR="\x70\x61\x72\x74\x6e\x65\x72\x5f\x61\x63\x74\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c\x2e\x74\x74";push @ok9TFXrE3N,(CDR_ACT_TYPE=>$wzWmfNEenp,CDR_ACT_EXT=>$T8AGXeyJEW);unless($AnmzMI3HKg->fcKSvG6Ye3()->{"\x44\x46"}){push @ok9TFXrE3N,(ACT_TYPES=>$AnmzMI3HKg->{"\x5f\x4c\x49\x53\x54\x53"}->{"\x41\x43\x54\x49\x56\x49\x54\x49\x45\x53"});}}else{$B3k7aZEqsR="\x70\x61\x72\x74\x6e\x65\x72\x5f\x63\x64\x72\x73\x5f\x6c\x69\x73\x74\x2e\x74\x74";push @ok9TFXrE3N,(CDR_CALL_TYPE=>$qWoIU9upfn);}return dwZpvdYCec($AnmzMI3HKg,$B3k7aZEqsR,{CDR_LIST=>$zpPo6XZes9,CDR_CALL_ID=>$tOduBXHpI9,CDR_CALLER_ID=>$dbC50DGgPH,CDR_CALLED_ID=>$YQIpsiahC7,CDR_AC=>$cdrZIuAgGi,CDR_DURATION=>$LARNhM49GZ,CDR_DATA=>$tmU5JCl6QK,FROM_TIME=>$XZ4s1aiuhp,TO_TIME=>$wkRUSzXufK,SMART_TIME=>$CyzqtHa3GI,CDR_GROUP=>$KPir8q3UhO,GROUPS=>$yZ8arupSTV,PARTNER=>$ujWO79LsNr,EXTRA_OPTIONS=>$T4W9bnigFw->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"},@ok9TFXrE3N,$AnmzMI3HKg->rYQvMDRBum(1,$zpPo6XZes9,$S8l9ToNzLi)});}sub Zs7TI6LYqC{my($AnmzMI3HKg,$T4W9bnigFw,$ujWO79LsNr)=@_;my($cHgezwfV3o,$gDLIS9YoCx,$Shie5cISdz)=$AnmzMI3HKg->Dix6pSQcAZ([qw(node ip mode)]);if($Shie5cISdz eq "\x77\x6c\x61\x64\x64"){$AnmzMI3HKg->CG475xI6TK($cHgezwfV3o,$Shie5cISdz,$gDLIS9YoCx);}elsif($Shie5cISdz eq "\x77\x6c\x64\x65\x6c"){$AnmzMI3HKg->CG475xI6TK($cHgezwfV3o,$Shie5cISdz,$gDLIS9YoCx);}elsif($gDLIS9YoCx){my $d8aKqcud2i=$T4W9bnigFw->{"\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 $YT3Oiqw8Kx=$AnmzMI3HKg->FwdCZAK60p("\x66\x32\x62\x2d\x70\x61\x72\x74\x6e\x65\x72\x2d".$T4W9bnigFw->{"\x49\x44"}."-$gDLIS9YoCx")||0;if($YT3Oiqw8Kx){undef $gDLIS9YoCx;$AnmzMI3HKg->{"\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{$AnmzMI3HKg->FwdCZAK60p("\x66\x32\x62\x2d\x70\x61\x72\x74\x6e\x65\x72\x2d".$T4W9bnigFw->{"\x49\x44"}."-$gDLIS9YoCx",1,$d8aKqcud2i);$AnmzMI3HKg->lQmuC2Fbr5($cHgezwfV3o,$gDLIS9YoCx);}}my $PW2obudyKw=$AnmzMI3HKg->lQmuC2Fbr5($cHgezwfV3o);unless(ref $PW2obudyKw eq "\x41\x52\x52\x41\x59"){$AnmzMI3HKg->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $Q9P865LjK7=$AnmzMI3HKg->CG475xI6TK();unless(ref $Q9P865LjK7 eq "\x41\x52\x52\x41\x59"){$AnmzMI3HKg->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}dwZpvdYCec($AnmzMI3HKg,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x66\x32\x62\x2e\x74\x74",{F2B_WL=>$Q9P865LjK7,F2B_CNT_WL=>scalar(@$Q9P865LjK7),F2B=>$PW2obudyKw,F2B_CNT=>scalar(@$PW2obudyKw),PARTNER=>$ujWO79LsNr,NODE=>$AnmzMI3HKg->Y89WXfLe6Q("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x53\x45\x52\x56\x45\x52\x5f\x49\x44"),EXTRA_OPTIONS=>$T4W9bnigFw->{"\x45\x58\x54\x52\x41\x5f\x4f\x50\x54\x49\x4f\x4e\x53"}});}sub dwZpvdYCec{my($AnmzMI3HKg,$KuQ984NhYL,$tmU5JCl6QK)=@_;my $f49PdJ3YjM=Template::EasyTT->new({});my $fgVNP8jtre=$AnmzMI3HKg->Y89WXfLe6Q("\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 $zA1ID7Wrvc='';$tmU5JCl6QK->{"\x55\x53\x45\x5f\x42\x49\x4c\x4c\x49\x4e\x47"}=$AnmzMI3HKg->Y89WXfLe6Q("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x55\x53\x45\x5f\x42\x49\x4c\x4c\x49\x4e\x47");$tmU5JCl6QK->{"\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}=$AnmzMI3HKg->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"};$tmU5JCl6QK->{"\x55\x4e\x49\x58\x54\x49\x4d\x45"}=time;my @Y2BAzTctWd;if(length $ENV{"\x50\x41\x54\x48\x5f\x49\x4e\x46\x4f"}){@Y2BAzTctWd=split(/\//,substr($ENV{"\x50\x41\x54\x48\x5f\x49\x4e\x46\x4f"},1));}my $TR3b7TWf8x=$AnmzMI3HKg->Y89WXfLe6Q("\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 $mVeElLXfky=$AnmzMI3HKg->Y89WXfLe6Q("\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 $Y2BAzTctWd[0]){my($V09nQqkhFo,$mfYgwSt6Kx)=split(/:/,$Y2BAzTctWd[0]);if(length $V09nQqkhFo){$TR3b7TWf8x=$V09nQqkhFo;$TR3b7TWf8x=~ s#[^\w\d\._-]##g;}$mVeElLXfky=$mfYgwSt6Kx if length $mfYgwSt6Kx;}my $w2AEoDmSLn=$AnmzMI3HKg->Dix6pSQcAZ("\x64\x66");if($w2AEoDmSLn){my $z1v6lOxSa0=0;foreach my $i0FYEtlW9h(split(/\s*,\s*/,$AnmzMI3HKg->Y89WXfLe6Q("\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"}=~ /^$i0FYEtlW9h$/){$z1v6lOxSa0=1;last;}}$w2AEoDmSLn='' unless $z1v6lOxSa0;}unless($w2AEoDmSLn){$f49PdJ3YjM->operators_add("\x64\x69\x76\x32",sub{return $_[0]% 2});$f49PdJ3YjM->filters_add("\x62\x69\x6c\x6c\x5f\x66\x6c\x6f\x61\x74",sub{return sprintf("\x25\x2e".($AnmzMI3HKg->Y89WXfLe6Q("\x42\x49\x4c\x4c\x49\x4e\x47\x5f\x52\x4f\x55\x4e\x44\x49\x4e\x47\x5f\x34\x47\x55\x49")||2)."\x66",$_[1])});$f49PdJ3YjM->filters_add("\x6c\x6f\x63\x61\x6c\x65\x5f\x6d\x73\x67",sub{my $Tsoey7ACDW=$AnmzMI3HKg->Sgzw8dc0Vv($_[1],$mVeElLXfky);$Tsoey7ACDW=~ s#&#&amp;#gs;$Tsoey7ACDW=~ s#\x22#&quot;#gs;$Tsoey7ACDW=~ s#<#&lt;#gs;$Tsoey7ACDW=~ s#>#&gt;#gs;$Tsoey7ACDW=~ s#\x27#&apos;#gs;return $Tsoey7ACDW;});if(-e "$fgVNP8jtre/$TR3b7TWf8x/$KuQ984NhYL"){$f49PdJ3YjM->process("$fgVNP8jtre/$TR3b7TWf8x/$KuQ984NhYL",$tmU5JCl6QK,\$zA1ID7Wrvc);}else{$f49PdJ3YjM->process("$fgVNP8jtre/$KuQ984NhYL",$tmU5JCl6QK,\$zA1ID7Wrvc);}}unless($w2AEoDmSLn){$AnmzMI3HKg->au9SnFjUNM(200,"\x4f\x6b",undef,$zA1ID7Wrvc.$AnmzMI3HKg->Sgzw8dc0Vv("\x67\x36\x31\x33","\x43"));}elsif($w2AEoDmSLn eq "\x78\x6d\x6c"){require XML::Simple;$zA1ID7Wrvc=XML::Simple::XMLout($tmU5JCl6QK);$AnmzMI3HKg->sKr7q6P80I(200,"\x4f\x6b",undef,$zA1ID7Wrvc);}elsif($w2AEoDmSLn eq "\x6a\x73\x6f\x6e"){require JSON::XS;my $m9TXZBjeyx=JSON::XS->new();$AnmzMI3HKg->au9SnFjUNM(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",$m9TXZBjeyx->encode($tmU5JCl6QK));}}