#!/usr/bin/perl
########################################################################
#
# $Id: VirtualPBX-AI.cgi,v 1.222 2026/05/21 07:12:35 gosha Exp $
#
# Copyright (c) Igor Okunev <igor[at]prv.mts-nn.ru>  2008 - 2026
#
########################################################################
package VirtualPBXAI;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::Messages;use XVB::Journal;use XVB::Users;use XVB::Billing;use XVB::MC;use XVB::Locale;use XVB::Routes;use Template::EasyTT;use XVB::UI::CGI;use XVB::UI::CGI::Reports;use XVB::UI::CGI::Mailboxes;use XVB::UI::CGI::Users;use XVB::UI::CGI::CDR;use XVB::UI::CGI::Journal;use XVB::UI::CGI::CallsTrack;use XVB::UI::CGI::Routes;use XVB::UI::DATA::CSV;use XVB::UI::AGI::CallsGeoLocation;use XVB::UI::CGI::ExtStat::Dashboard;use XVB::DIDs;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\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="\x61\x64\x6d\x69\x6e";}else{$iWKGxuM7VH="\x61\x64\x6d\x69\x6e\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->{"\x5f\x43\x4f\x4e\x46"}->{"\x74\x61\x62\x6c\x65\x73\x5f\x63\x64\x72\x73"}=$iIcdnGV59h->{"\x5f\x43\x4f\x4e\x46"}->{"\x74\x61\x62\x6c\x65\x73\x5f\x63\x64\x72\x73\x5f\x61\x6c\x6c"};$iIcdnGV59h->{"\x5f\x43\x4f\x4e\x46"}->{"\x74\x61\x62\x6c\x65\x73\x5f\x63\x64\x72\x73\x5f\x61"}=$iIcdnGV59h->{"\x5f\x43\x4f\x4e\x46"}->{"\x74\x61\x62\x6c\x65\x73\x5f\x63\x64\x72\x73\x5f\x61\x5f\x61\x6c\x6c"};$iIcdnGV59h->UTQoBp9qGm();return $iIcdnGV59h;}sub KicWIKJ9sR{my $iIcdnGV59h=VirtualPBXAI->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($ZGAYmTzBXU,$zkGzFR1H9S,$KIWZEG8XOJ,$Z07Zcz3tAl,$QSGhmZwoXn);$iIcdnGV59h->t1KZpdWmDc(1);my($ajJ9vMbs6Z,$md6Ee2wxca)=$iIcdnGV59h->qTOFl06qrL([qw(action from)]);if($ajJ9vMbs6Z eq "\x62\x61\x6c\x61\x6e\x63\x65\x5f\x75\x70\x64\x61\x74\x65"){my($joY0vGxB5r,$KOPr9TG7nt,$cmulr9IYAk)=$iIcdnGV59h->qTOFl06qrL([qw(balance user_id cur_id)]);my $c91a6Q2oSB=$iIcdnGV59h->YMkfpi8LPe($KOPr9TG7nt);unless(ref $c91a6Q2oSB eq "\x48\x41\x53\x48"){$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);return;}else{my $JXNPRI1vOK=$iIcdnGV59h->ecsJZ9UvIP();%{$JXNPRI1vOK}=%{$c91a6Q2oSB};}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 "\x63\x64\x72\x5f\x6c\x69\x73\x74"){if($iIcdnGV59h->qTOFl06qrL("\x6e\x65\x65\x64\x5f\x63\x68\x61\x72\x74")){OahrtVqlFy($iIcdnGV59h);}else{uD7gPhk8wQ($iIcdnGV59h);}}elsif($ajJ9vMbs6Z eq "\x61\x63\x74\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c"){uD7gPhk8wQ($iIcdnGV59h,"\x61\x63\x74\x61\x6c\x6c");}elsif($ajJ9vMbs6Z eq "\x6a\x5f\x6c\x69\x73\x74"){XSWkX2QRGU($iIcdnGV59h);}elsif($ajJ9vMbs6Z eq "\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x6c\x69\x73\x74"){ARTwiOaMgm($iIcdnGV59h);}elsif($ajJ9vMbs6Z eq "\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x64\x65\x6c"){if($iIcdnGV59h->MGhRHyIj2r($iIcdnGV59h->qTOFl06qrL("\x64\x69\x64"))){$iIcdnGV59h->YE1ankzU4F("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$iIcdnGV59h->qTOFl06qrL("\x64\x66"));$iIcdnGV59h->nv34VYjlZy("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x64\x72\x6f\x70",$iIcdnGV59h->qTOFl06qrL("\x64\x69\x64"));}else{$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x61\x64\x64"){my @m9aKkt20Oj=$iIcdnGV59h->qTOFl06qrL();my %PUgJfV7ml2;foreach my $OAbuhZeGgK(@m9aKkt20Oj){if($OAbuhZeGgK=~ /^T_(.*)/){my $hPp7Dx60V8=$1;$hPp7Dx60V8=~ s#[^\d\w._-]##g;$PUgJfV7ml2{$hPp7Dx60V8}=$iIcdnGV59h->qTOFl06qrL($OAbuhZeGgK);}}if($iIcdnGV59h->ibZYF4JlL8(\%PUgJfV7ml2)){$iIcdnGV59h->nv34VYjlZy("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x61\x64\x64",$PUgJfV7ml2{"\x44\x49\x44"});$iIcdnGV59h->YE1ankzU4F();}else{$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x75\x70\x64\x61\x74\x65"){my $YSdX4D5unh=$iIcdnGV59h->qTOFl06qrL("\x64\x61\x74\x61\x5f\x69\x64");my @m9aKkt20Oj=$iIcdnGV59h->qTOFl06qrL();my %PUgJfV7ml2;foreach my $OAbuhZeGgK(@m9aKkt20Oj){if($OAbuhZeGgK=~ /^T_(.*)/){my $hPp7Dx60V8=$1;$hPp7Dx60V8=~ s#[^\d\w._-]##g;next if $hPp7Dx60V8 eq "\x49\x44";$PUgJfV7ml2{$hPp7Dx60V8}=$iIcdnGV59h->qTOFl06qrL($OAbuhZeGgK);}}if($iIcdnGV59h->FKB1uovxbr($YSdX4D5unh,\%PUgJfV7ml2)){$iIcdnGV59h->YE1ankzU4F();}else{$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x74\x61\x72\x69\x66\x66\x5f\x6c\x69\x73\x74"){MlW2HY3AE0($iIcdnGV59h);}elsif($ajJ9vMbs6Z eq "\x74\x61\x72\x69\x66\x66\x5f\x69\x6e\x66\x6f"){oizCw689PZ($iIcdnGV59h,$iIcdnGV59h->qTOFl06qrL("\x74\x61\x72\x69\x66\x66\x5f\x69\x64"));}elsif($ajJ9vMbs6Z eq "\x74\x61\x72\x69\x66\x66\x5f\x64\x65\x6c"){if($iIcdnGV59h->zJyzosBE8R($iIcdnGV59h->qTOFl06qrL("\x74\x61\x72\x69\x66\x66\x5f\x69\x64"))){$iIcdnGV59h->YE1ankzU4F("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x74\x61\x72\x69\x66\x66\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$iIcdnGV59h->qTOFl06qrL("\x64\x66"));}else{$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x74\x61\x72\x69\x66\x66\x5f\x61\x64\x64"){my @m9aKkt20Oj=$iIcdnGV59h->qTOFl06qrL();my %PUgJfV7ml2;foreach my $OAbuhZeGgK(@m9aKkt20Oj){if($OAbuhZeGgK=~ /^T_(.*)/){my $hPp7Dx60V8=$1;$hPp7Dx60V8=~ s#[^\d\w._-]##g;$PUgJfV7ml2{$hPp7Dx60V8}=$iIcdnGV59h->qTOFl06qrL($OAbuhZeGgK);}}if($iIcdnGV59h->zWJBvFtVMy(\%PUgJfV7ml2)){$iIcdnGV59h->YE1ankzU4F();}else{$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x74\x61\x72\x69\x66\x66\x5f\x75\x70\x64\x61\x74\x65"){my $mHqz6RrYCt=$iIcdnGV59h->qTOFl06qrL("\x74\x61\x72\x69\x66\x66\x5f\x69\x64");my @m9aKkt20Oj=$iIcdnGV59h->qTOFl06qrL();my %PUgJfV7ml2;foreach my $OAbuhZeGgK(@m9aKkt20Oj){if($OAbuhZeGgK=~ /^T_(.*)/){my $hPp7Dx60V8=$1;$hPp7Dx60V8=~ s#[^\d\w._-]##g;next if $hPp7Dx60V8 eq "\x49\x44";$PUgJfV7ml2{$hPp7Dx60V8}=$iIcdnGV59h->qTOFl06qrL($OAbuhZeGgK);}}if($iIcdnGV59h->HWXUvh2yVS($mHqz6RrYCt,\%PUgJfV7ml2)){$iIcdnGV59h->YE1ankzU4F();}else{$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x72\x65\x70\x6f\x72\x74\x5f\x6c\x69\x73\x74"){Eo3IENw2fs($iIcdnGV59h);}elsif($ajJ9vMbs6Z eq "\x72\x65\x70\x6f\x72\x74\x5f\x64\x65\x6c"){my $vx3LYpsKcf=$iIcdnGV59h->qTOFl06qrL("\x72\x65\x70\x6f\x72\x74\x5f\x69\x64");unless($vx3LYpsKcf){$iIcdnGV59h->YE1ankzU4F(undef,"\x4e\x6f\x20\x73\x65\x61\x72\x63\x68\x20\x72\x65\x70\x6f\x72\x74");}elsif(! $iIcdnGV59h->C6OPkhsDEQ($vx3LYpsKcf)){$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}else{if($ENV{"\x48\x54\x54\x50\x5f\x52\x45\x46\x45\x52\x45\x52"}=~ /report_list/){$iIcdnGV59h->YE1ankzU4F();}else{$iIcdnGV59h->YE1ankzU4F("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x72\x65\x70\x6f\x72\x74\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$iIcdnGV59h->qTOFl06qrL("\x64\x66"));}}}elsif($ajJ9vMbs6Z eq "\x72\x65\x70\x6f\x72\x74\x5f\x61\x64\x64"){if(my $aauH1QL5D4=$iIcdnGV59h->x0AXhdvn4g($iIcdnGV59h->qTOFl06qrL("\x52\x5f\x4e\x41\x4d\x45"),1)){$iIcdnGV59h->YE1ankzU4F("?action=report_info&report_id=$aauH1QL5D4&df=".$iIcdnGV59h->qTOFl06qrL("\x64\x66"));}else{$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x72\x65\x70\x6f\x72\x74\x5f\x69\x6e\x66\x6f"){my $vx3LYpsKcf=$iIcdnGV59h->qTOFl06qrL("\x72\x65\x70\x6f\x72\x74\x5f\x69\x64")||1;my $a9UVKAv8mS=$iIcdnGV59h->VIF92JpEka($vx3LYpsKcf)||[];my(%wbVQ5ehWK4,@sOr8HAqo7p);if(ref $a9UVKAv8mS eq "\x41\x52\x52\x41\x59" and $a9UVKAv8mS->[0]->{"\x45\x58\x54\x52\x41\x5f\x50\x41\x52\x41\x4d\x53"}){foreach my $zHzSJT8u5c(split(/\s*\|\s*/,$a9UVKAv8mS->[0]->{"\x45\x58\x54\x52\x41\x5f\x50\x41\x52\x41\x4d\x53"})){my($UEMv0JOI9K,$c9yQKmpS7R,$YUByXqN3rD)=split(/\s*:\s*/,$zHzSJT8u5c,3);$wbVQ5ehWK4{$UEMv0JOI9K}=$iIcdnGV59h->qTOFl06qrL($UEMv0JOI9K);push @sOr8HAqo7p,{name=>$UEMv0JOI9K,label=>$c9yQKmpS7R,value=>$wbVQ5ehWK4{$UEMv0JOI9K}};}}mTHs1Pwm9i($iIcdnGV59h,"\x72\x65\x70\x6f\x72\x74\x5f\x69\x6e\x66\x6f\x2e\x74\x74",{REPORT_DATA=>$a9UVKAv8mS->[0],EXTRA_PARAMS=>\@sOr8HAqo7p});}elsif($ajJ9vMbs6Z eq "\x72\x65\x70\x6f\x72\x74\x5f\x75\x70\x64\x61\x74\x65"){my($Bq8A0B21TL,$QE3FeknsbR,$mXeuVP2gnk,$ZDrdoTnMuV,$vx3LYpsKcf)=$iIcdnGV59h->qTOFl06qrL([qw(R_FILE R_QUERY R_FILTER_FILE R_POST_FILTER report_id)]);unless($vx3LYpsKcf){return $iIcdnGV59h->YE1ankzU4F(undef,"\x4e\x6f\x20\x73\x65\x61\x72\x63\x68\x20\x72\x65\x70\x6f\x72\x74");}if($Bq8A0B21TL){$QE3FeknsbR='';while(<$Bq8A0B21TL>){$QE3FeknsbR.=$_;}}if($mXeuVP2gnk){$ZDrdoTnMuV='';while(<$mXeuVP2gnk>){$ZDrdoTnMuV.=$_;}}if($iIcdnGV59h->Wn3fL94yRj($vx3LYpsKcf,$iIcdnGV59h->qTOFl06qrL([qw(R_NAME R_TYPE R_TTL R_DATE_START R_DATE_STOP R_ACCESS_GROUPS R_ACCESS_ACCOUNTS R_EXTRA_PARAMS)]),$QE3FeknsbR,$ZDrdoTnMuV)){$iIcdnGV59h->YE1ankzU4F();}else{$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x72\x65\x70\x6f\x72\x74\x5f\x72\x75\x6e"){htT0YjkLDW($iIcdnGV59h);}elsif($ajJ9vMbs6Z eq "\x6e\x6f\x64\x65\x5f\x6c\x69\x73\x74"){m71Nli6FZ5($iIcdnGV59h);}elsif($ajJ9vMbs6Z eq "\x6e\x6f\x64\x65\x5f\x64\x65\x6c"){if($iIcdnGV59h->qJGtP1xYIk($iIcdnGV59h->qTOFl06qrL("\x6e\x6f\x64\x65\x5f\x69\x64"))){$iIcdnGV59h->YE1ankzU4F("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x6e\x6f\x64\x65\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$iIcdnGV59h->qTOFl06qrL("\x64\x66"));}else{$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x6e\x6f\x64\x65\x5f\x61\x64\x64"){if($iIcdnGV59h->Scx15ghw9q($iIcdnGV59h->qTOFl06qrL([qw(N_NODE_ID N_NODE_IP N_DOWNLOAD_IP N_AMI_CREDS N_NODE_DESC N_NODE_LIMITS N_NODE_STAT_URL)]))){$iIcdnGV59h->YE1ankzU4F();}else{$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x6e\x6f\x64\x65\x5f\x75\x70\x64\x61\x74\x65"){my $NNanGjlSpk=$iIcdnGV59h->qTOFl06qrL("\x6e\x6f\x64\x65\x5f\x69\x64");my @m9aKkt20Oj=$iIcdnGV59h->qTOFl06qrL();my %PUgJfV7ml2;foreach my $OAbuhZeGgK(@m9aKkt20Oj){if($OAbuhZeGgK=~ /^N_(.*)/){my $hPp7Dx60V8=$1;$hPp7Dx60V8=~ s#[^\d\w._-]##g;next if $hPp7Dx60V8 eq "\x49\x44";$PUgJfV7ml2{$hPp7Dx60V8}=$iIcdnGV59h->qTOFl06qrL($OAbuhZeGgK);}}if($iIcdnGV59h->rg8SDN9feT($NNanGjlSpk,\%PUgJfV7ml2)){$iIcdnGV59h->nv34VYjlZy("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65");$iIcdnGV59h->YE1ankzU4F();}else{$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x67\x72\x6f\x75\x70\x5f\x6c\x69\x73\x74"){dj2fVhsp05($iIcdnGV59h);}elsif($ajJ9vMbs6Z eq "\x67\x72\x6f\x75\x70\x5f\x64\x65\x6c"){if($iIcdnGV59h->OpG9RyOfIm($iIcdnGV59h->qTOFl06qrL("\x67\x72\x6f\x75\x70\x5f\x69\x64"))){$iIcdnGV59h->YE1ankzU4F("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x67\x72\x6f\x75\x70\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$iIcdnGV59h->qTOFl06qrL("\x64\x66"));}else{$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x67\x72\x6f\x75\x70\x5f\x61\x64\x64"){my($kOjprXJUF8,$gix7Vct3yN)=$iIcdnGV59h->qTOFl06qrL([qw(group_name node_name)]);if($iIcdnGV59h->oUHTZPRob2($kOjprXJUF8,$gix7Vct3yN)){my $yCVogD91tT=$iIcdnGV59h->krPH8GR90T(undef,$kOjprXJUF8);$iIcdnGV59h->YE1ankzU4F("\x3f".join("\x26","\x61\x63\x74\x69\x6f\x6e\x3d\x67\x72\x6f\x75\x70\x5f\x69\x6e\x66\x6f","\x67\x72\x6f\x75\x70\x5f\x69\x64\x3d".$yCVogD91tT->[0]->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"},"\x64\x66\x3d".$iIcdnGV59h->qTOFl06qrL("\x64\x66")));}else{$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x67\x72\x6f\x75\x70\x5f\x69\x6e\x66\x6f"){zEtzsU0gJV($iIcdnGV59h,$iIcdnGV59h->qTOFl06qrL("\x67\x72\x6f\x75\x70\x5f\x69\x64"));}elsif($ajJ9vMbs6Z eq "\x67\x72\x6f\x75\x70\x5f\x75\x70\x64\x61\x74\x65"){my $tjJvVuczCp=$iIcdnGV59h->qTOFl06qrL("\x67\x72\x6f\x75\x70\x5f\x69\x64");my @m9aKkt20Oj=$iIcdnGV59h->qTOFl06qrL();my %PUgJfV7ml2;foreach my $OAbuhZeGgK(@m9aKkt20Oj){if($OAbuhZeGgK=~ /^GR_(.*)/){my $hPp7Dx60V8=$1;$hPp7Dx60V8=~ s#[^\d\w._-]##g;next if $hPp7Dx60V8 eq "\x49\x44";$PUgJfV7ml2{$hPp7Dx60V8}=$iIcdnGV59h->qTOFl06qrL($OAbuhZeGgK);}}if($iIcdnGV59h->ZErHYcdZRW($tjJvVuczCp,\%PUgJfV7ml2)){$iIcdnGV59h->nv34VYjlZy("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x75\x70\x64\x61\x74\x65");$iIcdnGV59h->YE1ankzU4F();}else{$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x64\x69\x64\x5f\x61\x64\x64"){my($YSdX4D5unh,$MXi7NcFvQV,$ZGAYmTzBXU,$ZFZSkws1na,$sDJ6pboTmV)=$iIcdnGV59h->qTOFl06qrL([qw(did pn ac channels 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"){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 "\x64\x69\x64\x5f\x6c\x69\x73\x74"){SrYGbwfLoi($iIcdnGV59h);}elsif($ajJ9vMbs6Z eq "\x64\x69\x64\x5f\x61\x64\x64\x5f\x73\x69\x70\x64\x6f\x6d\x61\x69\x6e"){my($EIpFrAsEya,$MXi7NcFvQV,$ZGAYmTzBXU)=$iIcdnGV59h->qTOFl06qrL([qw(domain pn ac)]);if($iIcdnGV59h->rle54hDRFI(lc($EIpFrAsEya),$MXi7NcFvQV,$ZGAYmTzBXU)){$iIcdnGV59h->nv34VYjlZy("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x61\x64\x64","\x40".lc($EIpFrAsEya));$iIcdnGV59h->YE1ankzU4F();}else{$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x64\x69\x64\x5f\x64\x65\x6c\x5f\x73\x69\x70\x64\x6f\x6d\x61\x69\x6e"){my($Z3L28aOZQC,$KOPr9TG7nt,$EIpFrAsEya)=$iIcdnGV59h->qTOFl06qrL([qw(domain_id user_id domain)]);if($iIcdnGV59h->IaDJXAqU0s($Z3L28aOZQC,$KOPr9TG7nt,lc($EIpFrAsEya))){$iIcdnGV59h->nv34VYjlZy("\x73\x68\x6f\x72\x74\x2d\x64\x69\x64","\x64\x72\x6f\x70","\x40".lc($EIpFrAsEya));$iIcdnGV59h->YE1ankzU4F();}else{$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x64\x69\x64\x5f\x6c\x69\x73\x74\x5f\x73\x69\x70\x64\x6f\x6d\x61\x69\x6e"){tawJUz7PWI($iIcdnGV59h);}elsif($ajJ9vMbs6Z eq "\x72\x6f\x75\x74\x65\x5f\x6c\x69\x73\x74"){if($iIcdnGV59h->qTOFl06qrL("\x6e\x65\x65\x64\x5f\x6c\x6f\x6f\x6b\x75\x70")and $iIcdnGV59h->qTOFl06qrL("\x63\x61\x6c\x6c\x65\x64\x5f\x69\x64")){return RtQm6CWnkK($iIcdnGV59h);}mTHs1Pwm9i($iIcdnGV59h,"\x72\x6f\x75\x74\x65\x5f\x6c\x69\x73\x74\x2e\x74\x74",{ROUTES=>$iIcdnGV59h->U8LMJsIXwY("\x69\x73\x5f\x61\x69")});}elsif($ajJ9vMbs6Z eq "\x72\x6f\x75\x74\x65\x5f\x61\x64\x64"){my @lF7HNB5iS2;if(my $NqH9C3zgDK=$iIcdnGV59h->qTOFl06qrL("\x63\x6c\x6f\x6e\x65\x5f\x69\x64")){my $slrvTDJ8CE=$iIcdnGV59h->U8LMJsIXwY("\x69\x73\x5f\x61\x69");if(ref($slrvTDJ8CE)eq "\x41\x52\x52\x41\x59"){foreach my $dN7SFBlAhr(@{$slrvTDJ8CE}){if($dN7SFBlAhr->{"\x44\x41\x54\x41\x5f\x49\x44"}eq $NqH9C3zgDK){foreach my $i5p8JgV0Ld(qw(PATTERN PEER PRIORITY SUBSTR EXT_NUMBER DESCRIPTION DEFCID LAST_ROUTE)){push @lF7HNB5iS2,$dN7SFBlAhr->{$i5p8JgV0Ld};}last;}}}}else{@lF7HNB5iS2=$iIcdnGV59h->qTOFl06qrL([qw(r_PATTERN r_PEER r_PRIORITY r_SUBSTR r_EXT_NUMBER r_DESCRIPTION r_DEFCID r_LAST_ROUTE)]);}if(scalar(@lF7HNB5iS2)and defined($iIcdnGV59h->jzmW8vGqNC(@lF7HNB5iS2))){return $iIcdnGV59h->YE1ankzU4F();}else{return $iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x72\x6f\x75\x74\x65\x5f\x75\x70\x64\x61\x74\x65"){if($iIcdnGV59h->nRfomLpn4h($iIcdnGV59h->qTOFl06qrL([qw(data_id r_PATTERN r_PEER r_PRIORITY r_SUBSTR r_EXT_NUMBER r_DESCRIPTION r_DEFCID r_LAST_ROUTE)]))){return $iIcdnGV59h->YE1ankzU4F();}else{return $iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x72\x6f\x75\x74\x65\x5f\x64\x65\x6c"){my $qxcweiCJ7g;$qxcweiCJ7g="\x61\x6c\x6c" if $iIcdnGV59h->qTOFl06qrL("\x64\x61\x74\x61\x5f\x69\x64")eq "\x61\x6c\x6c";if($iIcdnGV59h->ojtNcOmsqA($iIcdnGV59h->qTOFl06qrL("\x64\x61\x74\x61\x5f\x69\x64"),$qxcweiCJ7g)){return $iIcdnGV59h->YE1ankzU4F();}else{return $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;my $c91a6Q2oSB=$iIcdnGV59h->YMkfpi8LPe($KOPr9TG7nt);unless(ref $c91a6Q2oSB eq "\x48\x41\x53\x48"){$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);return;}my $JXNPRI1vOK=$iIcdnGV59h->ecsJZ9UvIP();%{$JXNPRI1vOK}=%{$c91a6Q2oSB};foreach my $OAbuhZeGgK(@m9aKkt20Oj){if($OAbuhZeGgK=~ /^US_(.*)/){my $hPp7Dx60V8=$1;$hPp7Dx60V8=~ s#[^\d\w._-]##g;next if $hPp7Dx60V8 eq "\x49\x44";if($iIcdnGV59h->qTOFl06qrL($OAbuhZeGgK)ne $c91a6Q2oSB->{$hPp7Dx60V8}){$PUgJfV7ml2{$hPp7Dx60V8}=$iIcdnGV59h->qTOFl06qrL($OAbuhZeGgK);}}}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,$tjJvVuczCp,$Xmd7f1spTw,$zXenG10bES,$ZGAYmTzBXU,$KOPr9TG7nt)=$iIcdnGV59h->qTOFl06qrL([qw(phone group_id conf_file uname user_ac user_id)]);my $npP7TjtUS6={};foreach my $Ho5u82zHa9(split(/\s*,\s*/,$iIcdnGV59h->HjVJUqtEFu("\x43\x55\x53\x54\x4f\x4d\x5f\x45\x58\x54\x52\x41\x5f\x55\x53\x45\x52\x5f\x46\x49\x45\x4c\x44\x53\x5f\x34\x5f\x41\x49"))){my($hPp7Dx60V8,$IS8hKBOs1v)=split(/:/,$Ho5u82zHa9);$npP7TjtUS6->{$IS8hKBOs1v||$hPp7Dx60V8}=$iIcdnGV59h->qTOFl06qrL($hPp7Dx60V8);$npP7TjtUS6->{$IS8hKBOs1v||$hPp7Dx60V8}='' unless defined $npP7TjtUS6->{$IS8hKBOs1v||$hPp7Dx60V8};}if(my $ZGAYmTzBXU=$iIcdnGV59h->feIpMwiZVL($MXi7NcFvQV,$tjJvVuczCp,$zXenG10bES,$ZGAYmTzBXU,$KOPr9TG7nt,$npP7TjtUS6)){$iIcdnGV59h->nv34VYjlZy("\x73\x68\x6f\x72\x74\x2d\x75\x73\x65\x72","\x61\x64\x64",$ZGAYmTzBXU);if($Xmd7f1spTw and-e $Xmd7f1spTw){system "\x2f\x6f\x70\x74\x2f\x56\x69\x72\x74\x75\x61\x6c\x50\x42\x58\x2f\x63\x6f\x6e\x74\x72\x69\x62\x2f\x75\x74\x69\x6c\x73\x2f\x62\x61\x63\x6b\x75\x70\x5f\x72\x65\x73\x74\x6f\x72\x65\x2e\x70\x6c\x20"."$MXi7NcFvQV $ZGAYmTzBXU $Xmd7f1spTw &>/dev/null";}$iIcdnGV59h->YE1ankzU4F("?action=user_info&ac=$ZGAYmTzBXU&df=".$iIcdnGV59h->qTOFl06qrL("\x64\x66"));}else{$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x75\x73\x65\x72\x5f\x64\x65\x6c"){my($KOPr9TG7nt,$h7PZ9NijGa)=$iIcdnGV59h->qTOFl06qrL([qw(user_id single_user)]);if($iIcdnGV59h->UEaX2xCkNq($KOPr9TG7nt)){my $c91a6Q2oSB=$iIcdnGV59h->YMkfpi8LPe($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("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x75\x73\x65\x72\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$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);}elsif($ajJ9vMbs6Z eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x69\x73\x74"){F25XJFvGxQ($iIcdnGV59h);}elsif($ajJ9vMbs6Z eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x64\x65\x6c"){if($iIcdnGV59h->T981Ve6DMG($iIcdnGV59h->qTOFl06qrL("\x70\x61\x72\x74\x6e\x65\x72\x5f\x69\x64"))){$iIcdnGV59h->YE1ankzU4F("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$iIcdnGV59h->qTOFl06qrL("\x64\x66"));}else{$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x61\x64\x64"){my @m9aKkt20Oj=$iIcdnGV59h->qTOFl06qrL();my %PUgJfV7ml2;foreach my $OAbuhZeGgK(@m9aKkt20Oj){if($OAbuhZeGgK=~ /^P_(.*)/){my $hPp7Dx60V8=$1;$hPp7Dx60V8=~ s#[^\d\w._-]##g;$PUgJfV7ml2{$hPp7Dx60V8}=$iIcdnGV59h->qTOFl06qrL($OAbuhZeGgK);}}if($iIcdnGV59h->TC6eGvODQE(\%PUgJfV7ml2,$iIcdnGV59h->qTOFl06qrL("\x47\x52\x4f\x55\x50\x5f\x49\x44"))){$iIcdnGV59h->YE1ankzU4F();}else{$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x75\x70\x64\x61\x74\x65"){my $r8XMxNycgz=$iIcdnGV59h->qTOFl06qrL("\x70\x61\x72\x74\x6e\x65\x72\x5f\x69\x64");my @m9aKkt20Oj=$iIcdnGV59h->qTOFl06qrL();my %PUgJfV7ml2;foreach my $OAbuhZeGgK(@m9aKkt20Oj){if($OAbuhZeGgK=~ /^P_(.*)/){my $hPp7Dx60V8=$1;$hPp7Dx60V8=~ s#[^\d\w._-]##g;next if $hPp7Dx60V8 eq "\x49\x44";$PUgJfV7ml2{$hPp7Dx60V8}=$iIcdnGV59h->qTOFl06qrL($OAbuhZeGgK);if($hPp7Dx60V8 eq "\x54\x41\x47" and length($PUgJfV7ml2{$hPp7Dx60V8})==0){$PUgJfV7ml2{$hPp7Dx60V8}=undef;}}}if($iIcdnGV59h->ZFCHJ2zrRc($r8XMxNycgz,\%PUgJfV7ml2)){$iIcdnGV59h->YE1ankzU4F();}else{$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x67\x72\x6f\x75\x70\x5f\x64\x65\x6c"){if($iIcdnGV59h->uzP0FNB1eE($iIcdnGV59h->qTOFl06qrL("\x70\x61\x72\x74\x6e\x65\x72\x5f\x69\x64"),$iIcdnGV59h->qTOFl06qrL("\x67\x72\x6f\x75\x70\x5f\x69\x64"))){$iIcdnGV59h->YE1ankzU4F("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$iIcdnGV59h->qTOFl06qrL("\x64\x66"));}else{$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x70\x61\x72\x74\x6e\x65\x72\x5f\x67\x72\x6f\x75\x70\x5f\x61\x64\x64"){if($iIcdnGV59h->s84dy1bExz($iIcdnGV59h->qTOFl06qrL("\x70\x61\x72\x74\x6e\x65\x72\x5f\x69\x64"),$iIcdnGV59h->qTOFl06qrL("\x67\x72\x6f\x75\x70\x5f\x69\x64"))){$iIcdnGV59h->YE1ankzU4F("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x69\x73\x74\x26\x64\x66\x3d".$iIcdnGV59h->qTOFl06qrL("\x64\x66"));}else{$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x70\x68\x6f\x6e\x65\x5f\x6c\x69\x73\x74"){MZ8TYiq5z0($iIcdnGV59h);}elsif($ajJ9vMbs6Z eq "\x70\x65\x65\x72\x5f\x6c\x69\x73\x74"){cOqjgH9B5R($iIcdnGV59h);}elsif($ajJ9vMbs6Z eq "\x61\x75\x74\x68\x5f\x6e\x61\x6d\x65\x5f\x72\x65\x73\x65\x74"){if(my $VRX8iNxHr7=$iIcdnGV59h->sz38KlRYCJ($iIcdnGV59h->qTOFl06qrL("\x69\x64"),$iIcdnGV59h->qTOFl06qrL("\x70\x61\x63"),$iIcdnGV59h->qTOFl06qrL("\x6e\x65\x77\x69\x64"),$iIcdnGV59h->qTOFl06qrL("\x6e\x65\x77\x70\x77"))){my $szZ7fHstA0=$iIcdnGV59h->qTOFl06qrL("\x6d\x6f\x64\x65");if($szZ7fHstA0 eq "\x72\x65\x64\x69\x72"){return $iIcdnGV59h->YE1ankzU4F();}else{my $Y1tqDVlObM=$iIcdnGV59h->qTOFl06qrL("\x64\x74\x79\x70\x65");if($Y1tqDVlObM eq "\x70\x68\x6f\x6e\x65"){MZ8TYiq5z0($iIcdnGV59h);}else{cOqjgH9B5R($iIcdnGV59h);}}}else{$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x73\x69\x70\x5f\x63\x61\x6c\x6c\x5f\x6c\x69\x6d\x69\x74"){if($iIcdnGV59h->S89FHEJAGU($iIcdnGV59h->qTOFl06qrL([qw(data_id user_id phone limit)]))){return $iIcdnGV59h->YE1ankzU4F();}else{$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x70\x62\x78\x5f\x6d\x6f\x64\x65\x5f\x75\x70\x64\x61\x74\x65"){if($iIcdnGV59h->d9PKeLbcyD($iIcdnGV59h->qTOFl06qrL([qw(data_id need_reg user_id host PBXMODE)]))){return $iIcdnGV59h->YE1ankzU4F();}else{return $iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x63\x6c\x6f\x6e\x65"){my($W9yQY1qJvt,$aauH1QL5D4,$rM7s1q5PL6,$Zrk7GUxiaA,$ajJ9vMbs6Z,$YPh89gNtjs)=$iIcdnGV59h->qTOFl06qrL([qw(tname id fname fid newaction noauto)]);my $VRX8iNxHr7=$iIcdnGV59h->tnEKgFcM9W($W9yQY1qJvt,$aauH1QL5D4,$rM7s1q5PL6,$Zrk7GUxiaA,$YPh89gNtjs);if(defined $VRX8iNxHr7){$iIcdnGV59h->YE1ankzU4F("\x3f\x61\x63\x74\x69\x6f\x6e\x3d".$ajJ9vMbs6Z."\x3d".$VRX8iNxHr7);}else{$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}}elsif($ajJ9vMbs6Z eq "\x63\x6f\x75\x6e\x74\x65\x72\x73\x5f\x63\x6c\x65\x61\x6e"){my $jl2YCP3MHs=$iIcdnGV59h->qTOFl06qrL("\x61\x63");if($jl2YCP3MHs){my $tpTLsPfaod="\x2f\x6f\x70\x74\x2f\x56\x69\x72\x74\x75\x61\x6c\x50\x42\x58\x2f\x63\x6f\x6e\x74\x72\x69\x62\x2f\x75\x74\x69\x6c\x73\x2f\x75\x73\x65\x72\x5f\x63\x6f\x75\x6e\x74\x65\x72\x73\x2e\x70\x6c\x20".$jl2YCP3MHs."\x20\x63\x6c\x65\x61\x6e";my $tRL5cSWZq8=`$tpTLsPfaod`;}$iIcdnGV59h->YE1ankzU4F();}elsif($ajJ9vMbs6Z eq "\x73\x79\x73\x73\x74\x61\x74\x75\x73"){iMRxeVWQS6($iIcdnGV59h);}elsif($ajJ9vMbs6Z eq "\x72\x65\x70\x6f\x72\x74"){$iIcdnGV59h->KGLk27Q1Hl(200,"\x4f\x6b","\x43\x6f\x6e\x74\x65\x6e\x74\x2d\x74\x79\x70\x65\x3a\x20\x74\x65\x78\x74\x2f\x70\x6c\x61\x69\x6e",'');my $OkB5lGJsOb=$iIcdnGV59h->qTOFl06qrL("\x74\x79\x70\x65");if($OkB5lGJsOb eq "\x73\x79\x73\x73\x74\x61\x74\x65"){my $YRdZ8KWUNx=$iIcdnGV59h->opo2mVUOTS("\x73\x75\x64\x6f\x20\x2f\x6f\x70\x74\x2f\x56\x69\x72\x74\x75\x61\x6c\x50\x42\x58\x2f\x63\x6f\x6e\x74\x72\x69\x62\x2f\x75\x74\x69\x6c\x73\x2f\x73\x79\x73\x73\x74\x61\x74\x75\x73\x2e\x70\x6c\x20\x72\x65\x70\x6f\x72\x74");print $YRdZ8KWUNx;}elsif($OkB5lGJsOb eq "\x78\x76\x62\x6c\x6f\x67"){system("\x74\x61\x69\x6c\x20\x2d\x31\x30\x30\x30\x30\x30\x20\x2f\x76\x61\x72\x2f\x6c\x6f\x67\x2f\x56\x69\x72\x74\x75\x61\x6c\x50\x42\x58\x2f\x58\x56\x42\x2e\x6c\x6f\x67");}elsif($OkB5lGJsOb eq "\x78\x76\x62\x65\x72\x72"){system("\x74\x61\x69\x6c\x20\x2d\x31\x30\x30\x30\x30\x30\x20\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");}elsif($OkB5lGJsOb eq "\x78\x76\x62\x63\x72\x6d"){system("\x74\x61\x69\x6c\x20\x2d\x31\x30\x30\x30\x30\x30\x20\x2f\x76\x61\x72\x2f\x6c\x6f\x67\x2f\x56\x69\x72\x74\x75\x61\x6c\x50\x42\x58\x2f\x58\x56\x42\x2d\x43\x52\x4d\x2e\x6c\x6f\x67");}elsif($OkB5lGJsOb eq "\x78\x76\x62\x68\x74\x74\x70\x61\x75\x64\x69\x74"){system("\x74\x61\x69\x6c\x20\x2d\x31\x30\x30\x30\x30\x30\x20\x2f\x76\x61\x72\x2f\x6c\x6f\x67\x2f\x56\x69\x72\x74\x75\x61\x6c\x50\x42\x58\x2f\x58\x56\x42\x2d\x48\x54\x54\x50\x2e\x6c\x6f\x67");}elsif($OkB5lGJsOb eq "\x61\x73\x74\x65\x72\x69\x73\x6b"){system("\x74\x61\x69\x6c\x20\x2d\x31\x30\x30\x30\x30\x30\x20\x2f\x76\x61\x72\x2f\x6c\x6f\x67\x2f\x61\x73\x74\x65\x72\x69\x73\x6b\x2f\x6d\x65\x73\x73\x61\x67\x65\x73");}}elsif($ajJ9vMbs6Z eq "\x63\x61\x6c\x6c\x5f\x6c\x6f\x67"){my $UTrzpmnA2F=$iIcdnGV59h->qTOFl06qrL("\x63\x61\x6c\x6c\x5f\x69\x64");my $tpTLsPfaod="find /var/log/VirtualPBX/backup/ -name 'XVB.log*.gz'";my @hrBzIylL4K=`$tpTLsPfaod`;push @hrBzIylL4K,"\x2f\x76\x61\x72\x2f\x6c\x6f\x67\x2f\x56\x69\x72\x74\x75\x61\x6c\x50\x42\x58\x2f\x58\x56\x42\x2e\x6c\x6f\x67";chomp @hrBzIylL4K;@hrBzIylL4K=sort{(stat($b))[9]<=>(stat($a))[9]}@hrBzIylL4K;my $cclhHKikS9='';local $|=1;$iIcdnGV59h->KGLk27Q1Hl(200,"\x4f\x6b","\x43\x6f\x6e\x74\x65\x6e\x74\x2d\x74\x79\x70\x65\x3a\x20\x74\x65\x78\x74\x2f\x70\x6c\x61\x69\x6e","#=== Call-ID $UTrzpmnA2F ");my $ZYVuEFLkWT=time;my $N4d87E1Iny=$iIcdnGV59h->qTOFl06qrL("\x6d\x6c")||$iIcdnGV59h->HjVJUqtEFu("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x4d\x41\x58\x5f\x4c\x4f\x47\x53")||3;my $OpmgjkNd5D=$iIcdnGV59h->qTOFl06qrL("\x6d\x6c\x74")||$iIcdnGV59h->HjVJUqtEFu("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x4d\x41\x58\x5f\x4c\x4f\x47\x53\x5f\x54\x4f")||20;$#hrBzIylL4K=$N4d87E1Iny-1 if $#hrBzIylL4K>$N4d87E1Iny-1;foreach my $IBNQbKcx9M(@hrBzIylL4K){my $DZGEwDfRQ8='';$tpTLsPfaod="grep '$UTrzpmnA2F' $IBNQbKcx9M | tac";if($IBNQbKcx9M=~ /gz$/){$tpTLsPfaod="z$tpTLsPfaod";}$DZGEwDfRQ8=`$tpTLsPfaod`;$cclhHKikS9.=$DZGEwDfRQ8;print "=";if(time>$ZYVuEFLkWT+$OpmgjkNd5D){last;}}unless(length($cclhHKikS9)){print "\n\nCannot found data, the call is too old or log-files is too huge, try to grep in console\n";}else{my @LNK5L692O8=split(/[\r\n]+/,$cclhHKikS9);print "\n\n".join("\n",reverse(@LNK5L692O8));}}elsif($ajJ9vMbs6Z eq "\x63\x61\x6c\x6c\x73\x5f\x6c\x69\x73\x74"){K9jkRUg8Ts($iIcdnGV59h);}elsif($ajJ9vMbs6Z eq "\x6d\x73\x67\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c"){my($sdWGQq90jR,$iEbIR0a1OP)=split("\x2c",$iIcdnGV59h->qTOFl06qrL("\x6d\x73\x67\x5f\x74\x79\x70\x65"),2);my @zGg8jkzu9t=map{int($_)}split("\x3a",$sdWGQq90jR,10);if(scalar(@zGg8jkzu9t)){twT8aDxAEh($iIcdnGV59h,\@zGg8jkzu9t,$iEbIR0a1OP);}else{twT8aDxAEh($iIcdnGV59h,undef,$iEbIR0a1OP);}}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 "\x73\x69\x70\x5f\x6c\x6f\x67"){TsnzBEvPM3($iIcdnGV59h);}elsif($ajJ9vMbs6Z eq "\x66\x32\x62"){my $m80YF3jsK2=oeI9Yz5w87($iIcdnGV59h);iMRxeVWQS6($iIcdnGV59h);}elsif($ajJ9vMbs6Z eq "\x75\x73\x65\x72\x5f\x6c\x69\x73\x74"){d9IwX4SdnK($iIcdnGV59h);}elsif($ajJ9vMbs6Z eq "\x62\x61\x63\x6b\x75\x70"){mCScfiHmeh($iIcdnGV59h);}elsif($ajJ9vMbs6Z eq "\x78\x76\x62\x73\x61\x6e\x64\x62\x6f\x78"){SJmfDgq9eU($iIcdnGV59h);$iIcdnGV59h->YE1ankzU4F("\x3f\x61\x63\x74\x69\x6f\x6e\x3d\x73\x79\x73\x73\x74\x61\x74\x75\x73");exit;}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=shift;my($ZGAYmTzBXU)=$iIcdnGV59h->qTOFl06qrL("\x61\x63");my $gM4RTK1H2V=$iIcdnGV59h->YCrA8exPFq(0,$ZGAYmTzBXU,undef,undef);unless(ref $gM4RTK1H2V eq "\x41\x52\x52\x41\x59"){$iIcdnGV59h->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}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 $JXNPRI1vOK=$iIcdnGV59h->ecsJZ9UvIP();%{$JXNPRI1vOK}=(ID=>$gM4RTK1H2V->[0]->{"\x49\x44"},TARIFF_ID=>$gM4RTK1H2V->[0]->{"\x54\x41\x52\x49\x46\x46\x5f\x49\x44"});$gM4RTK1H2V->[0]->{"\x43\x55\x52\x5f\x43\x41\x4c\x4c\x53"}=$iIcdnGV59h->pV0Rwk87qv("\x73\x68\x2d\x61\x63\x2d\x69\x6e\x2d".$gM4RTK1H2V->[0]->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"})||0;my @b9xMwNvzQ1;foreach my $Ho5u82zHa9(split(/\s*,\s*/,$iIcdnGV59h->HjVJUqtEFu("\x43\x55\x53\x54\x4f\x4d\x5f\x45\x58\x54\x52\x41\x5f\x55\x53\x45\x52\x5f\x46\x49\x45\x4c\x44\x53\x5f\x34\x5f\x41\x49"))){my($hPp7Dx60V8,$IS8hKBOs1v,$BPS7kTEFUV)=split(/:/,$Ho5u82zHa9);next unless $BPS7kTEFUV;push @b9xMwNvzQ1,{NAME=>$BPS7kTEFUV,VAL=>$gM4RTK1H2V->[0]->{$hPp7Dx60V8},KEY=>$hPp7Dx60V8};}my $tpTLsPfaod="\x2f\x6f\x70\x74\x2f\x56\x69\x72\x74\x75\x61\x6c\x50\x42\x58\x2f\x63\x6f\x6e\x74\x72\x69\x62\x2f\x75\x74\x69\x6c\x73\x2f\x75\x73\x65\x72\x5f\x63\x6f\x75\x6e\x74\x65\x72\x73\x2e\x70\x6c\x20".($gM4RTK1H2V->[0]->{"\x41\x43\x43\x45\x53\x53\x5f\x43\x4f\x44\x45"}||0);my $tRL5cSWZq8=`$tpTLsPfaod`;my $qGAH8V0gjd;mTHs1Pwm9i($iIcdnGV59h,"\x75\x73\x65\x72\x5f\x69\x6e\x66\x6f\x2e\x74\x74",{USER=>$gM4RTK1H2V->[0],USER_COUNTERS=>$tRL5cSWZq8,DIDS=>$iIcdnGV59h->tjv18JoU9R(),DOMAINS=>$iIcdnGV59h->julxq7Mkj4(),TARIFF=>$iIcdnGV59h->V49kuHgxbJ(),ADMIN_KEY=>$iIcdnGV59h->HjVJUqtEFu("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x4b\x45\x59"),CUSTOM_FIELDS=>\@b9xMwNvzQ1,GROUPS=>$TpJWz9e1S7,IS_SB=>$qGAH8V0gjd,LIMITS=>$iIcdnGV59h->bCE3GNjwAF($gM4RTK1H2V->[0]->{"\x49\x44"})});}sub d9IwX4SdnK{my $iIcdnGV59h=shift;my($md6Ee2wxca,$LsuvGkKSlO,$NRpQmd2WgF,$hGpoJamn6C,$R1nRrZQL9B,$TDr1KOC2n9,$R8L9aeDSAl,$QLtFPSKRMd,$mPjmH4vwYT)=$iIcdnGV59h->qTOFl06qrL([[(from=>0)],"\x66\x5f\x61\x63","\x66\x5f\x76\x6e","\x66\x5f\x67\x72\x6f\x75\x70","\x66\x5f\x75\x6e\x61\x6d\x65","\x66\x5f\x73\x74\x61\x74\x75\x73","\x66\x5f\x74\x61\x72\x69\x66\x66","\x66\x5f\x64\x65\x73\x63","\x66\x5f\x69\x64"]);my($gM4RTK1H2V,$ms29gC3GiD)=$iIcdnGV59h->YCrA8exPFq($md6Ee2wxca,$LsuvGkKSlO,$NRpQmd2WgF,$hGpoJamn6C,$R1nRrZQL9B,$TDr1KOC2n9,$R8L9aeDSAl,$QLtFPSKRMd,undef,$mPjmH4vwYT);unless(ref $gM4RTK1H2V eq "\x41\x52\x52\x41\x59"){$iIcdnGV59h->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}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 $YL7osE1yQ9=[];foreach my $EC4ch9bgqF(split(/\s*;\s*/,$iIcdnGV59h->HjVJUqtEFu("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x54\x45\x4e\x41\x4e\x54\x53\x5f\x54\x45\x4d\x50\x4c\x41\x54\x45\x53"))){my($IBNQbKcx9M,$mFLvbHu218)=split(/:/,$EC4ch9bgqF,2);unless($mFLvbHu218){$mFLvbHu218=$IBNQbKcx9M;$mFLvbHu218=~ s{.*/([^/]+)$}{$1};}push @$YL7osE1yQ9,{FILE=>$IBNQbKcx9M,DESC=>$mFLvbHu218};}my $iei3xPz8w9=1;foreach my $JXNPRI1vOK(@{$gM4RTK1H2V}){$JXNPRI1vOK->{"\x49\x44\x58"}=$md6Ee2wxca+$iei3xPz8w9;$iei3xPz8w9++;}mTHs1Pwm9i($iIcdnGV59h,"\x75\x73\x65\x72\x5f\x6c\x69\x73\x74\x2e\x74\x74",{USERS=>$gM4RTK1H2V,USERS_CNT=>$ms29gC3GiD,GROUPS=>$TpJWz9e1S7,TEMPLATES=>$YL7osE1yQ9,F_AC=>$LsuvGkKSlO,F_VN=>$NRpQmd2WgF,F_GROUP=>$hGpoJamn6C,F_UNAME=>$R1nRrZQL9B,F_STATUS=>$TDr1KOC2n9,F_TARIFF=>$R8L9aeDSAl,F_DESC=>$QLtFPSKRMd,F_ID=>$mPjmH4vwYT,TARIFFS=>$iIcdnGV59h->ng5orO4Pky("\x54\x41\x52\x49\x46\x46"),DEF_SH_DID=>$iIcdnGV59h->HjVJUqtEFu("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x44\x45\x46\x5f\x53\x48\x5f\x44\x49\x44"),$iIcdnGV59h->cH1IwGlB98(1,$gM4RTK1H2V,$md6Ee2wxca)});}sub SrYGbwfLoi{my $iIcdnGV59h=shift;my($md6Ee2wxca,$LsuvGkKSlO,$NRpQmd2WgF)=$iIcdnGV59h->qTOFl06qrL([[(from=>0)],"\x66\x5f\x61\x63","\x66\x5f\x76\x6e"]);my $Pg5aY4QhmI=$iIcdnGV59h->BwI1Bz8xol($md6Ee2wxca,$LsuvGkKSlO,$NRpQmd2WgF);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,"\x64\x69\x64\x5f\x6c\x69\x73\x74\x2e\x74\x74",{DIDS=>$Pg5aY4QhmI,F_AC=>$LsuvGkKSlO,F_VN=>$NRpQmd2WgF,$iIcdnGV59h->cH1IwGlB98(1,$Pg5aY4QhmI,$md6Ee2wxca)});}sub tawJUz7PWI{my $iIcdnGV59h=shift;my($md6Ee2wxca,$LsuvGkKSlO,$NRpQmd2WgF)=$iIcdnGV59h->qTOFl06qrL([[(from=>0)],"\x66\x5f\x61\x63","\x66\x5f\x76\x6e"]);my $FQiEf8GelH=$iIcdnGV59h->Rwu1ptRcmZ($md6Ee2wxca,$LsuvGkKSlO,$NRpQmd2WgF);unless(ref $FQiEf8GelH eq "\x41\x52\x52\x41\x59"){$iIcdnGV59h->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}mTHs1Pwm9i($iIcdnGV59h,"\x73\x69\x70\x64\x6f\x6d\x61\x69\x6e\x5f\x6c\x69\x73\x74\x2e\x74\x74",{DOMAINS=>$FQiEf8GelH,F_AC=>$LsuvGkKSlO,F_VN=>$NRpQmd2WgF,$iIcdnGV59h->cH1IwGlB98(1,$FQiEf8GelH,$md6Ee2wxca)});}sub dj2fVhsp05{my $iIcdnGV59h=shift;my($md6Ee2wxca,$hGpoJamn6C)=$iIcdnGV59h->qTOFl06qrL([[(from=>0)],"\x66\x5f\x67\x72\x6f\x75\x70"]);my $TpJWz9e1S7=$iIcdnGV59h->krPH8GR90T(undef,$hGpoJamn6C,$md6Ee2wxca);unless(ref $TpJWz9e1S7 eq "\x41\x52\x52\x41\x59"){$iIcdnGV59h->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}mTHs1Pwm9i($iIcdnGV59h,"\x67\x72\x6f\x75\x70\x5f\x6c\x69\x73\x74\x2e\x74\x74",{GROUPS=>$TpJWz9e1S7,NODES=>$iIcdnGV59h->IqH3GvUJjQ(),F_GROUP=>$hGpoJamn6C,$iIcdnGV59h->cH1IwGlB98(1,$TpJWz9e1S7,$md6Ee2wxca)});}sub zEtzsU0gJV{my($iIcdnGV59h,$tjJvVuczCp,$kOjprXJUF8)=@_;my $yCVogD91tT=$iIcdnGV59h->krPH8GR90T($tjJvVuczCp,$kOjprXJUF8);unless(ref $yCVogD91tT eq "\x41\x52\x52\x41\x59"){$iIcdnGV59h->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;dj2fVhsp05($iIcdnGV59h);}else{my $AYSWNA9zXa=$iIcdnGV59h->ng5orO4Pky("\x56\x42\x54\x59\x50\x45\x53");foreach my $jMO896X7zT(@$AYSWNA9zXa){$jMO896X7zT->{"\x4c\x49\x4d\x49\x54\x5f\x56\x41\x4c\x55\x45"}=$yCVogD91tT->[0]->{"\x56\x42\x4c\x5f".$jMO896X7zT->{"\x49\x44"}};}mTHs1Pwm9i($iIcdnGV59h,"\x67\x72\x6f\x75\x70\x5f\x69\x6e\x66\x6f\x2e\x74\x74",{GROUP=>$yCVogD91tT->[0],NODES=>$iIcdnGV59h->ng5orO4Pky("\x4e\x4f\x44\x45","\x4e\x4f\x44\x45\x5f\x49\x44"),TARIFFS=>$iIcdnGV59h->ng5orO4Pky("\x54\x41\x52\x49\x46\x46"),LANG=>$iIcdnGV59h->ng5orO4Pky("\x4c\x41\x4e\x47",undef,{STATUS=>1}),VB_TYPES=>$AYSWNA9zXa});}}sub oizCw689PZ{my($iIcdnGV59h,$aauH1QL5D4)=@_;my $FPomOv0UCT=$iIcdnGV59h->ELj8MIXw9D(undef,$aauH1QL5D4);if(ref $FPomOv0UCT ne "\x41\x52\x52\x41\x59" or ref $FPomOv0UCT->[0]ne "\x48\x41\x53\x48"){$iIcdnGV59h->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}mTHs1Pwm9i($iIcdnGV59h,"\x74\x61\x72\x69\x66\x66\x5f\x69\x6e\x66\x6f\x2e\x74\x74",{%{$FPomOv0UCT->[0]},CURRENCY=>$iIcdnGV59h->ng5orO4Pky("\x43\x55\x52\x52\x45\x4e\x43\x59","\x43\x55\x52\x5f\x49\x44"),});}sub uD7gPhk8wQ{my($iIcdnGV59h,$J2I0V47YW3)=@_;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 $AbVey6haI2;if($ZGAYmTzBXU=~ /,/){$AbVey6haI2=[split(/\s*,\s*/,$ZGAYmTzBXU)];}else{$AbVey6haI2=$ZGAYmTzBXU;}my $HW981upGvr=$iIcdnGV59h->Bm98y1fO5a($UTrzpmnA2F,$fbhpgSYozW,$N280nmwrFp,$md6Ee2wxca,$iIcdnGV59h->l5e0jTkJvu($yc8sd7qhkD),$iIcdnGV59h->l5e0jTkJvu($ORwoFtC329),$yl0qD1kitr,$AbVey6haI2,$XVJre0sXw9,$rJazqo1IZY,$J2I0V47YW3,$oveqpGdKX8,$TDgwLkFCh8,$ZwFdP5437E);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,$g8234MHoAm);my $TpJWz9e1S7=$iIcdnGV59h->krPH8GR90T();if($HW981upGvr){my $idBtAnV7Fk=$md6Ee2wxca+1;unless($UTrzpmnA2F){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"});}}else{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($jMO896X7zT->{"\x54\x59\x50\x45"}eq "\x43\x61\x6c\x6c"){$tpsQNLzohU=$jMO896X7zT->{"\x45\x58\x54\x5f\x4e\x55\x4d\x42\x45\x52"};$g8234MHoAm=$jMO896X7zT->{"\x44\x4f\x57\x4e\x4c\x4f\x41\x44\x5f\x49\x50"};}}$tpsQNLzohU=$UTrzpmnA2F unless length($tpsQNLzohU);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);push @m9aKkt20Oj,(SIP_CALL_ID=>$tpsQNLzohU,SIP_CALL_START=>$HW981upGvr->[0]->{"\x53\x54\x41\x52\x54\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"},SIP_CALL_STOP=>$HW981upGvr->[$#{$HW981upGvr}]->{"\x53\x54\x4f\x50\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"},SIP_NODE_IP=>$g8234MHoAm);}}}my $YAc5w64iKd;if($UTrzpmnA2F){$YAc5w64iKd="\x63\x64\x72\x73\x5f\x61\x63\x74\x5f\x6c\x69\x73\x74\x2e\x74\x74";}elsif($J2I0V47YW3){$YAc5w64iKd="\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="\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,CDR_GROUP=>$ZwFdP5437E,GROUPS=>$TpJWz9e1S7,FROM_TIME=>$yc8sd7qhkD,TO_TIME=>$ORwoFtC329,SMART_TIME=>$OSEK34W8Qy,@m9aKkt20Oj,$iIcdnGV59h->cH1IwGlB98(1,$HW981upGvr,$md6Ee2wxca)});}sub XSWkX2QRGU{my $iIcdnGV59h=shift;my($md6Ee2wxca,$ZGAYmTzBXU,$yc8sd7qhkD,$ORwoFtC329,$OSEK34W8Qy,$ysXr37oBQv,$sj9KxmA5H8,$rJazqo1IZY,$X45ndYJ7qe)=$iIcdnGV59h->qTOFl06qrL([[(from=>0)],qw(ac from_time to_time smart_time ext_num action_type data cid)]);unless(length("$ZGAYmTzBXU$yc8sd7qhkD$ORwoFtC329$ysXr37oBQv$sj9KxmA5H8$rJazqo1IZY$X45ndYJ7qe")){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 $AbVey6haI2;if($ZGAYmTzBXU=~ /,/){$AbVey6haI2=[split(/\s*,\s*/,$ZGAYmTzBXU)];}else{$AbVey6haI2=$ZGAYmTzBXU;}my $We9xfVD4bR=$iIcdnGV59h->hPNa8ABhp4($AbVey6haI2,$ysXr37oBQv,$rJazqo1IZY,$md6Ee2wxca,$sj9KxmA5H8,$iIcdnGV59h->l5e0jTkJvu($yc8sd7qhkD),$iIcdnGV59h->l5e0jTkJvu($ORwoFtC329),$X45ndYJ7qe);if(ref $We9xfVD4bR ne "\x41\x52\x52\x41\x59"){$iIcdnGV59h->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}elsif($We9xfVD4bR){my $idBtAnV7Fk=$md6Ee2wxca+1;foreach my $jMO896X7zT(@{$We9xfVD4bR}){$jMO896X7zT->{"\x4a\x5f\x4e\x55\x4d"}=$idBtAnV7Fk++;$jMO896X7zT->{"\x4a\x5f\x44\x41\x54\x45"}=$iIcdnGV59h->FzbeXHJgMB($jMO896X7zT->{"\x43\x52\x45\x41\x54\x45\x5f\x54\x49\x4d\x45\x53\x54\x41\x4d\x50"});}}return mTHs1Pwm9i($iIcdnGV59h,"\x6a\x6f\x75\x72\x6e\x61\x6c\x5f\x6c\x69\x73\x74\x2e\x74\x74",{J_LIST=>$We9xfVD4bR,J_DATA=>$rJazqo1IZY,J_EXT_NUM=>$ysXr37oBQv,J_ACTION=>$sj9KxmA5H8,J_AC=>$ZGAYmTzBXU,J_CID=>$X45ndYJ7qe,ACTIONS=>$iIcdnGV59h->Ic1AHQUvjo(),FROM_TIME=>$yc8sd7qhkD,TO_TIME=>$ORwoFtC329,SMART_TIME=>$OSEK34W8Qy,$iIcdnGV59h->cH1IwGlB98(1,$We9xfVD4bR,$md6Ee2wxca)});}sub ARTwiOaMgm{my $iIcdnGV59h=shift;my($md6Ee2wxca,$NRpQmd2WgF)=$iIcdnGV59h->qTOFl06qrL([[(from=>0)],"\x66\x5f\x76\x6e"]);my $kfI2EonzuN=$iIcdnGV59h->uhb6SzTtsr($md6Ee2wxca,$NRpQmd2WgF);unless(ref $kfI2EonzuN eq "\x41\x52\x52\x41\x59"){$iIcdnGV59h->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}mTHs1Pwm9i($iIcdnGV59h,"\x64\x69\x64\x5f\x61\x74\x74\x72\x5f\x6c\x69\x73\x74\x2e\x74\x74",{DIDS=>$kfI2EonzuN,LANG=>$iIcdnGV59h->ng5orO4Pky("\x4c\x41\x4e\x47",undef,{STATUS=>1}),F_VN=>$NRpQmd2WgF,$iIcdnGV59h->cH1IwGlB98(1,$kfI2EonzuN,$md6Ee2wxca)});}sub MlW2HY3AE0{my $iIcdnGV59h=shift;my $md6Ee2wxca=$iIcdnGV59h->qTOFl06qrL("\x66\x72\x6f\x6d")||0;my $FPomOv0UCT=$iIcdnGV59h->ELj8MIXw9D($md6Ee2wxca);unless(ref $FPomOv0UCT eq "\x41\x52\x52\x41\x59"){$iIcdnGV59h->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}mTHs1Pwm9i($iIcdnGV59h,"\x74\x61\x72\x69\x66\x66\x5f\x6c\x69\x73\x74\x2e\x74\x74",{TARIFFS=>$FPomOv0UCT,CURRENCY=>$iIcdnGV59h->ng5orO4Pky("\x43\x55\x52\x52\x45\x4e\x43\x59","\x43\x55\x52\x5f\x49\x44"),$iIcdnGV59h->cH1IwGlB98(1,$FPomOv0UCT,$md6Ee2wxca)});}sub m71Nli6FZ5{my $iIcdnGV59h=shift;my $md6Ee2wxca=$iIcdnGV59h->qTOFl06qrL("\x66\x72\x6f\x6d")||0;my $MUxeKgWOTB=$iIcdnGV59h->IqH3GvUJjQ($md6Ee2wxca);unless(ref $MUxeKgWOTB eq "\x41\x52\x52\x41\x59"){$iIcdnGV59h->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}else{foreach my $Z0rUFXqPyC(@{$MUxeKgWOTB}){$Z0rUFXqPyC->{"\x73\x74\x61\x74"}=$iIcdnGV59h->pV0Rwk87qv("\x73\x68\x2d\x73\x74\x61\x74\x2d".$Z0rUFXqPyC->{"\x4e\x4f\x44\x45\x5f\x49\x44"})||{};$Z0rUFXqPyC->{"\x73\x74\x61\x74"}->{"\x63\x61\x6c\x6c\x73"}=$iIcdnGV59h->pV0Rwk87qv("\x73\x68\x2d\x63\x61\x6c\x6c\x73\x2d".$Z0rUFXqPyC->{"\x4e\x4f\x44\x45\x5f\x49\x44"})||0;}}mTHs1Pwm9i($iIcdnGV59h,"\x6e\x6f\x64\x65\x5f\x6c\x69\x73\x74\x2e\x74\x74",{NODES=>$MUxeKgWOTB,$iIcdnGV59h->cH1IwGlB98(1,$MUxeKgWOTB,$md6Ee2wxca)});}sub Eo3IENw2fs{my $iIcdnGV59h=shift;my($md6Ee2wxca,$NV4vMFpsWe,$Y1tqDVlObM)=$iIcdnGV59h->qTOFl06qrL([[(from=>0)],"\x6e\x61\x6d\x65","\x74\x79\x70\x65"]);my $ycaN1oMfer=$iIcdnGV59h->VIF92JpEka(undef,$Y1tqDVlObM,$NV4vMFpsWe,$md6Ee2wxca);unless(ref $ycaN1oMfer eq "\x41\x52\x52\x41\x59"){$iIcdnGV59h->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;return 0;}mTHs1Pwm9i($iIcdnGV59h,"\x72\x65\x70\x6f\x72\x74\x5f\x6c\x69\x73\x74\x2e\x74\x74",{REPORTS=>$ycaN1oMfer,SEARCH_NAME=>$NV4vMFpsWe,SEARCH_TYPE=>$Y1tqDVlObM,$iIcdnGV59h->cH1IwGlB98(1,$ycaN1oMfer,$md6Ee2wxca)});}sub htT0YjkLDW{my $iIcdnGV59h=shift;my($vx3LYpsKcf,$HmT8StJfYM,$SBNHrbwGEg,$RpUI3DzVSr,$OSEK34W8Qy,$Y1tqDVlObM)=$iIcdnGV59h->qTOFl06qrL([qw(report_id need_excel from_time to_time smart_time type)]);my $ZDfGip78an=$iIcdnGV59h->l5e0jTkJvu($SBNHrbwGEg);my $SwVCdR6qNh=$iIcdnGV59h->l5e0jTkJvu($RpUI3DzVSr);my(%wbVQ5ehWK4,@sOr8HAqo7p);my $a9UVKAv8mS=$iIcdnGV59h->VIF92JpEka($vx3LYpsKcf);if(ref $a9UVKAv8mS eq "\x41\x52\x52\x41\x59" and $a9UVKAv8mS->[0]->{"\x45\x58\x54\x52\x41\x5f\x50\x41\x52\x41\x4d\x53"}){foreach my $zHzSJT8u5c(split(/\s*\|\s*/,$a9UVKAv8mS->[0]->{"\x45\x58\x54\x52\x41\x5f\x50\x41\x52\x41\x4d\x53"})){my($UEMv0JOI9K,$c9yQKmpS7R,$YUByXqN3rD)=split(/\s*:\s*/,$zHzSJT8u5c,3);$wbVQ5ehWK4{$UEMv0JOI9K}=$iIcdnGV59h->qTOFl06qrL($UEMv0JOI9K);push @sOr8HAqo7p,{name=>$UEMv0JOI9K,label=>$c9yQKmpS7R,value=>$wbVQ5ehWK4{$UEMv0JOI9K}};}}my $dN7SFBlAhr=$iIcdnGV59h->u01cQI35DJ($vx3LYpsKcf,$Y1tqDVlObM,$HmT8StJfYM,$ZDfGip78an,$SwVCdR6qNh,\%wbVQ5ehWK4);if($HmT8StJfYM){if($dN7SFBlAhr){if($dN7SFBlAhr=~ /xlsx$/){return $iIcdnGV59h->UjiQak1bsx($dN7SFBlAhr,"\x61\x70\x70\x6c\x69\x63\x61\x74\x69\x6f\x6e\x2f\x78\x6c\x73\x78");}else{return $iIcdnGV59h->UjiQak1bsx($dN7SFBlAhr,"\x74\x65\x78\x74\x2f\x63\x73\x76");}}}unless(ref $dN7SFBlAhr eq "\x41\x52\x52\x41\x59"){$iIcdnGV59h->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="\x52\x65\x70\x6f\x72\x74\x20\x4e\x6f\x74\x20\x66\x6f\x75\x6e\x64";$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);return 0;}my $G8m92ajPOS=[];my $ft5g1Ti0PU=[];foreach my $yC93c6hlPr(@{$dN7SFBlAhr->[1]}){my $OAbuhZeGgK=$yC93c6hlPr;if($OAbuhZeGgK=~ s/^=//){push @{$ft5g1Ti0PU},{name=>$OAbuhZeGgK,align=>"\x6c\x65\x66\x74"};}elsif($OAbuhZeGgK=~ s/=$//){push @{$ft5g1Ti0PU},{name=>$OAbuhZeGgK,align=>"\x72\x69\x67\x68\x74"};}else{push @{$ft5g1Ti0PU},{name=>$OAbuhZeGgK,align=>"\x63\x65\x6e\x74\x65\x72"};}}for(0..$#{$dN7SFBlAhr->[0]}){$G8m92ajPOS->[$_]=[];foreach my $OAbuhZeGgK(@{$dN7SFBlAhr->[1]}){my $cWbU4yoCpw=$dN7SFBlAhr->[0]->[$_]->{$OAbuhZeGgK};my $NMrjVTstwD=0;if($OAbuhZeGgK=~ /^=?ACCESS_CODE=?$/){$cWbU4yoCpw="<a href='/ai?ac=$cWbU4yoCpw&action=user_info'>$cWbU4yoCpw</a>";$NMrjVTstwD=1;}if($OAbuhZeGgK=~ /^=/){push @{$G8m92ajPOS->[$_]},{value=>$cWbU4yoCpw,align=>"\x6c\x65\x66\x74",is_raw=>$NMrjVTstwD};}elsif($OAbuhZeGgK=~ /=$/){push @{$G8m92ajPOS->[$_]},{value=>$cWbU4yoCpw,align=>"\x72\x69\x67\x68\x74",is_raw=>$NMrjVTstwD};}else{push @{$G8m92ajPOS->[$_]},{value=>$cWbU4yoCpw,align=>"\x63\x65\x6e\x74\x65\x72",is_raw=>$NMrjVTstwD};}}}mTHs1Pwm9i($iIcdnGV59h,"\x72\x65\x70\x6f\x72\x74\x5f\x72\x65\x73\x75\x6c\x74\x2e\x74\x74",{FROM_TIME=>($SBNHrbwGEg||$dN7SFBlAhr->[3]),TO_TIME=>($RpUI3DzVSr||$dN7SFBlAhr->[4]),SMART_TIME=>$OSEK34W8Qy,REPORT_RAW_DATA=>$dN7SFBlAhr->[5],REPORT_RESULT=>$G8m92ajPOS,REPORT_HDR=>$ft5g1Ti0PU,REPORT_DATA=>$dN7SFBlAhr->[2],EXTRA_PARAMS=>\@sOr8HAqo7p});}sub F25XJFvGxQ{my $iIcdnGV59h=shift;my $md6Ee2wxca=$iIcdnGV59h->qTOFl06qrL("\x66\x72\x6f\x6d")||0;my($QUY9lsejLH,$KoCkUaPOx7)=$iIcdnGV59h->mjCyzAsi4B($md6Ee2wxca);my $TpJWz9e1S7;foreach my $fa5WhgTe9f(@{$QUY9lsejLH}){$fa5WhgTe9f->{"\x47\x52\x4f\x55\x50\x5f\x49\x44\x5f\x42\x49\x4e"}=[split(/,/,$fa5WhgTe9f->{"\x47\x52\x4f\x55\x50\x5f\x49\x44"})];}unless(ref $QUY9lsejLH eq "\x41\x52\x52\x41\x59"){$iIcdnGV59h->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}else{$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 $iei3xPz8w9=1;foreach my $fa5WhgTe9f(@{$QUY9lsejLH}){$fa5WhgTe9f->{"\x49\x44\x58"}=$md6Ee2wxca+$iei3xPz8w9;$iei3xPz8w9++;}mTHs1Pwm9i($iIcdnGV59h,"\x70\x61\x72\x74\x6e\x65\x72\x5f\x6c\x69\x73\x74\x2e\x74\x74",{PARTNERS=>$QUY9lsejLH,PARTNERS_CNT=>$KoCkUaPOx7,GROUPS=>$TpJWz9e1S7,$iIcdnGV59h->cH1IwGlB98(1,$QUY9lsejLH,$md6Ee2wxca)});}sub MZ8TYiq5z0{my $iIcdnGV59h=shift;my($md6Ee2wxca,$KIWZEG8XOJ,$YQxonHPubk,$m80YF3jsK2,$ZGAYmTzBXU,$Cg0b8JT1D4,$xuVqTLS47a)=$iIcdnGV59h->qTOFl06qrL([[(from=>0)],"\x70\x68\x6f\x6e\x65","\x61\x75\x74\x68\x6e\x61\x6d\x65","\x69\x70","\x61\x63","\x75\x61","\x72\x73\x74"]);my $AbVey6haI2;if($ZGAYmTzBXU=~ /,/){$AbVey6haI2=[split(/\s*,\s*/,$ZGAYmTzBXU)];}else{$AbVey6haI2=$ZGAYmTzBXU;}my($lGKwetzy4q,$pz0t9LXxcm)=$iIcdnGV59h->bAZkbzCL9M($md6Ee2wxca,0,$KIWZEG8XOJ,$YQxonHPubk,undef,$m80YF3jsK2,$AbVey6haI2,$Cg0b8JT1D4,undef,undef,$xuVqTLS47a);unless(ref $lGKwetzy4q eq "\x41\x52\x52\x41\x59"){$iIcdnGV59h->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $AVwJ4EH1zp=time;my $iei3xPz8w9=1;foreach my $MXi7NcFvQV(@$lGKwetzy4q){if($AVwJ4EH1zp<$MXi7NcFvQV->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}){$MXi7NcFvQV->{"\x52\x45\x47\x5f\x53\x54\x41\x54\x55\x53"}="\x52\x65\x67\x69\x73\x74\x65\x72\x65\x64";}else{$MXi7NcFvQV->{"\x52\x45\x47\x5f\x53\x54\x41\x54\x55\x53"}="\x55\x6e\x72\x65\x67\x69\x73\x74\x65\x72\x65\x64";}$MXi7NcFvQV->{"\x52\x45\x47\x5f\x45\x58\x50\x49\x52\x45\x44"}=$MXi7NcFvQV->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}? $iIcdnGV59h->FzbeXHJgMB($MXi7NcFvQV->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}):"\x2d";$MXi7NcFvQV->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}=$MXi7NcFvQV->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}? $iIcdnGV59h->FzbeXHJgMB($MXi7NcFvQV->{"\x52\x45\x47\x5f\x54\x49\x4d\x45"}):"\x2d";$MXi7NcFvQV->{"\x49\x44\x58"}=$md6Ee2wxca+$iei3xPz8w9;$iei3xPz8w9++;}mTHs1Pwm9i($iIcdnGV59h,"\x70\x68\x6f\x6e\x65\x5f\x6c\x69\x73\x74\x2e\x74\x74",{SIPDEV=>$lGKwetzy4q,SIPDEV_CNT=>$pz0t9LXxcm,AUTHNAME=>$YQxonHPubk,PHONE=>$KIWZEG8XOJ,IP=>$m80YF3jsK2,AC=>$ZGAYmTzBXU,UA=>$Cg0b8JT1D4,RST=>$xuVqTLS47a,FROM=>$md6Ee2wxca,ALLOW_RESET=>($iIcdnGV59h->HjVJUqtEFu("\x53\x49\x50\x5f\x4e\x41\x4d\x45\x5f\x54\x59\x50\x45")eq "\x73\x69\x6d\x70\x6c\x65" ? 0:1),ALLOW_AUTH_EDIT=>$iIcdnGV59h->HjVJUqtEFu("\x53\x49\x50\x5f\x41\x49\x5f\x41\x55\x54\x48\x5f\x45\x44\x49\x54"),$iIcdnGV59h->cH1IwGlB98(1,$lGKwetzy4q,$md6Ee2wxca)});}sub K9jkRUg8Ts{my $iIcdnGV59h=shift;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 $rpnNzc7TqD=$iIcdnGV59h->aF3DjovaMe($fbhpgSYozW,$N280nmwrFp,$AbVey6haI2,$yl0qD1kitr,$XVJre0sXw9,$ZwFdP5437E,undef,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"};}}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__;}$N54InhmlU6||=$iIcdnGV59h->HjVJUqtEFu("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x44\x45\x46\x5f\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,"\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=>$TpJWz9e1S7,$iIcdnGV59h->cH1IwGlB98(1,$rpnNzc7TqD,$md6Ee2wxca)});}sub cOqjgH9B5R{my $iIcdnGV59h=shift;my($md6Ee2wxca,$YQxonHPubk,$k052Mivwtu,$ZGAYmTzBXU,$X5GXdkilAs,$zaIJ9mc4Fs)=$iIcdnGV59h->qTOFl06qrL([[(from=>0)],"\x61\x75\x74\x68\x6e\x61\x6d\x65","\x68\x6f\x73\x74","\x61\x63","\x6e\x65\x65\x64\x5f\x72\x65\x67","\x70\x62\x78\x6d\x6f\x64\x65"]);my $AbVey6haI2;if($ZGAYmTzBXU=~ /,/){$AbVey6haI2=[split(/\s*,\s*/,$ZGAYmTzBXU)];}else{$AbVey6haI2=$ZGAYmTzBXU;}my($XLSt3ycoiN,$NMkNaLKGHv)=$iIcdnGV59h->bAZkbzCL9M($md6Ee2wxca,1,undef,$YQxonHPubk,$k052Mivwtu,undef,$AbVey6haI2,undef,$X5GXdkilAs,$zaIJ9mc4Fs);unless(ref $XLSt3ycoiN 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 $fa5WhgTe9f(@{$XLSt3ycoiN}){if($fa5WhgTe9f->{"\x4e\x45\x45\x44\x5f\x52\x45\x47"}and length($fa5WhgTe9f->{"\x75\x73\x65\x72\x6e\x61\x6d\x65"})){if($fa5WhgTe9f->{"\x68\x6f\x73\x74"}eq "\x64\x79\x6e\x61\x6d\x69\x63"){my $AVwJ4EH1zp=time;if($AVwJ4EH1zp<$fa5WhgTe9f->{"\x72\x65\x67\x73\x65\x63\x6f\x6e\x64\x73"}){$fa5WhgTe9f->{"\x52\x45\x47\x5f\x44\x41\x54\x41"}={state=>"\x52\x65\x67\x69\x73\x74\x65\x72\x65\x64"};}else{$fa5WhgTe9f->{"\x52\x45\x47\x5f\x44\x41\x54\x41"}={state=>"\x55\x6e\x72\x65\x67\x69\x73\x74\x65\x72\x65\x64"};}}elsif($fa5WhgTe9f->{"\x70\x6f\x72\x74"}eq "\x35\x30\x36\x30"){$fa5WhgTe9f->{"\x52\x45\x47\x5f\x44\x41\x54\x41"}=$iIcdnGV59h->pV0Rwk87qv("\x73\x68\x2d\x73\x69\x70\x2d\x72\x65\x67\x73\x2d".$fa5WhgTe9f->{"\x6e\x61\x6d\x65"});}else{$fa5WhgTe9f->{"\x52\x45\x47\x5f\x44\x41\x54\x41"}=$iIcdnGV59h->pV0Rwk87qv("\x73\x68\x2d\x73\x69\x70\x2d\x72\x65\x67\x73\x2d".$fa5WhgTe9f->{"\x68\x6f\x73\x74"}."\x3a".$fa5WhgTe9f->{"\x70\x6f\x72\x74"}."\x3a".$fa5WhgTe9f->{"\x75\x73\x65\x72\x6e\x61\x6d\x65"});}}$fa5WhgTe9f->{"\x49\x44\x58"}=$md6Ee2wxca+$iei3xPz8w9;$iei3xPz8w9++;}mTHs1Pwm9i($iIcdnGV59h,"\x70\x65\x65\x72\x5f\x6c\x69\x73\x74\x2e\x74\x74",{SIPDEV=>$XLSt3ycoiN,SIPDEV_CNT=>$NMkNaLKGHv,AUTHNAME=>$YQxonHPubk,HOST=>$k052Mivwtu,NEED_REG=>$X5GXdkilAs,PBXMODE=>$zaIJ9mc4Fs,AC=>$ZGAYmTzBXU,FROM=>$md6Ee2wxca,$iIcdnGV59h->cH1IwGlB98(1,$XLSt3ycoiN,$md6Ee2wxca)});}sub OahrtVqlFy{my($iIcdnGV59h)=@_;my($yc8sd7qhkD,$ORwoFtC329,$OSEK34W8Qy,$fbhpgSYozW,$yl0qD1kitr,$N280nmwrFp,$XVJre0sXw9,$hWSIiaCGoJ,$D8Qc9VKaqF)=$iIcdnGV59h->qTOFl06qrL([qw(from_time to_time smart_time caller_id call_type called_id duration data raw_chart_data)]);unless(length("$yc8sd7qhkD$ORwoFtC329$fbhpgSYozW$yl0qD1kitr$N280nmwrFp$XVJre0sXw9$hWSIiaCGoJ")){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 $rJazqo1IZY=$iIcdnGV59h->mfHPZ3BM2X($fbhpgSYozW,$iIcdnGV59h->l5e0jTkJvu(($yc8sd7qhkD||"\x30\x30\x3a\x30\x30")),$iIcdnGV59h->l5e0jTkJvu($ORwoFtC329),($iIcdnGV59h->qTOFl06qrL("\x63\x68\x61\x72\x74\x5f\x67\x72\x6f\x75\x70\x5f\x70\x65\x72\x69\x6f\x64")||"\x64"),$yl0qD1kitr,$N280nmwrFp,$XVJre0sXw9,$hWSIiaCGoJ,$D8Qc9VKaqF,undef,"\x69\x73\x5f\x61\x69");if($D8Qc9VKaqF){unless($rJazqo1IZY){$iIcdnGV59h->YE1ankzU4F(undef,"Internal error : $$ : ".__LINE__);}else{if($rJazqo1IZY=~ /xlsx$/){return $iIcdnGV59h->UjiQak1bsx($rJazqo1IZY,"\x61\x70\x70\x6c\x69\x63\x61\x74\x69\x6f\x6e\x2f\x78\x6c\x73\x78");}else{return $iIcdnGV59h->UjiQak1bsx($rJazqo1IZY,"\x74\x65\x78\x74\x2f\x63\x73\x76");}}}my $FslQKoLt7e;unless(ref $rJazqo1IZY eq "\x41\x52\x52\x41\x59"){$iIcdnGV59h->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}else{$FslQKoLt7e=$iIcdnGV59h->FzbeXHJgMB($rJazqo1IZY->[2])."\x20\x2d\x20".$iIcdnGV59h->FzbeXHJgMB($rJazqo1IZY->[3]||time);}return mTHs1Pwm9i($iIcdnGV59h,"\x63\x64\x72\x73\x5f\x63\x68\x61\x72\x74\x2e\x74\x74",{CDR_LIST=>$rJazqo1IZY->[0],CDR_HEADER=>$FslQKoLt7e,CDR_PERIOD=>$rJazqo1IZY->[1],CDR_CALLER_ID=>$fbhpgSYozW,CDR_CALLED_ID=>$N280nmwrFp,CDR_CALL_TYPE=>$yl0qD1kitr,CDR_DURATION=>$XVJre0sXw9,CDR_DATA=>$hWSIiaCGoJ,CDR_WITH_ASR=>$iIcdnGV59h->HjVJUqtEFu("\x43\x47\x49\x5f\x53\x54\x41\x54\x5f\x57\x49\x54\x48\x5f\x41\x53\x52"),EXCEL_MODE=>$iIcdnGV59h->HjVJUqtEFu("\x43\x47\x49\x5f\x45\x58\x43\x45\x4c\x5f\x4d\x4f\x44\x45"),SMART_TIME=>$OSEK34W8Qy,FROM_TIME=>$yc8sd7qhkD,TO_TIME=>$ORwoFtC329});}sub twT8aDxAEh{my($iIcdnGV59h,$zAITNt6hnM,$iEbIR0a1OP)=@_;my($md6Ee2wxca,$yc8sd7qhkD,$ORwoFtC329,$OSEK34W8Qy,$fbhpgSYozW,$N280nmwrFp,$XVJre0sXw9,$Z9jvloNh26,$ZGAYmTzBXU)=$iIcdnGV59h->qTOFl06qrL([[(from=>0)],qw(from_time to_time smart_time caller_id called_id duration any_did ac)]);$iIcdnGV59h->{"\x5f\x55\x53\x45\x52\x5f\x43\x52\x45\x44\x53"}->{MSG_IN_PAGE}=$iIcdnGV59h->HjVJUqtEFu("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x4d\x53\x47\x5f\x49\x4e\x5f\x50\x41\x47\x45");unless(length("$yc8sd7qhkD$ORwoFtC329$fbhpgSYozW$N280nmwrFp$XVJre0sXw9$Z9jvloNh26$ZGAYmTzBXU")){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 $AbVey6haI2;if($ZGAYmTzBXU=~ /,/){$AbVey6haI2=[split(/\s*,\s*/,$ZGAYmTzBXU)];}else{$AbVey6haI2=$ZGAYmTzBXU;}my $rK2qz4ypgr=$iIcdnGV59h->Y8O6LFfZ5T(0,$md6Ee2wxca,undef,$zAITNt6hnM,$iIcdnGV59h->l5e0jTkJvu($yc8sd7qhkD),$iIcdnGV59h->l5e0jTkJvu($ORwoFtC329),$fbhpgSYozW,$N280nmwrFp,$iEbIR0a1OP,$XVJre0sXw9,$Z9jvloNh26,"\x69\x73\x5f\x61\x69",$AbVey6haI2);unless(ref $rK2qz4ypgr eq "\x41\x52\x52\x41\x59"){$iIcdnGV59h->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}elsif($rK2qz4ypgr){my $idBtAnV7Fk=$md6Ee2wxca+1;foreach my $Q0nPNexruw(@{$rK2qz4ypgr}){$Q0nPNexruw->{"\x4d\x53\x47\x5f\x4e\x55\x4d"}=$idBtAnV7Fk++;$Q0nPNexruw->{"\x4d\x53\x47\x5f\x44\x41\x54\x45"}=$iIcdnGV59h->FzbeXHJgMB($Q0nPNexruw->{"\x43\x52\x45\x41\x54\x45\x5f\x54\x49\x4d\x45"});}}return mTHs1Pwm9i($iIcdnGV59h,"\x6d\x65\x73\x73\x61\x67\x65\x73\x5f\x6c\x69\x73\x74\x5f\x61\x6c\x6c\x2e\x74\x74",{CGI_URL=>$iIcdnGV59h->HjVJUqtEFu("\x43\x47\x49\x5f\x55\x52\x4c"),MSG_LIST=>$rK2qz4ypgr,FROM_TIME=>$yc8sd7qhkD,TO_TIME=>$ORwoFtC329,SMART_TIME=>$OSEK34W8Qy,CALLER_ID=>$fbhpgSYozW,CALLED_ID=>$N280nmwrFp,ANY_DID=>$Z9jvloNh26,DURATION=>$XVJre0sXw9,ACCESS_CODE=>$ZGAYmTzBXU,MSG_TYPE=>(ref $zAITNt6hnM ? join("\x3a",@$zAITNt6hnM):'').(defined $iEbIR0a1OP ? ",$iEbIR0a1OP":''),$iIcdnGV59h->cH1IwGlB98(0,$rK2qz4ypgr,$md6Ee2wxca)});}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->{"\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}=$iIcdnGV59h->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"};$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->{"\x44\x59\x4e\x41\x4d\x49\x43\x5f\x44\x49\x41\x4c\x4f\x55\x54"}=$iIcdnGV59h->HjVJUqtEFu("\x53\x49\x50\x5f\x44\x59\x4e\x41\x4d\x49\x43\x5f\x44\x49\x41\x4c\x4f\x55\x54");$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]);$BzB2okVyng=$WKaEF9TXjL if length $WKaEF9TXjL;$yIqlrg8sRj=$qTacGB48gm if length $qTacGB48gm;}my $uakgbJ27KF=$iIcdnGV59h->qTOFl06qrL("\x64\x66");if($uakgbJ27KF){my $gCADqBvLH8=0;if(length($iIcdnGV59h->HjVJUqtEFu("\x43\x47\x49\x5f\x54\x52\x55\x53\x54\x45\x44\x5f\x34\x5f\x41\x49\x5f\x44\x46"))){my $yWw9Fx7Hl1=($ENV{"\x52\x45\x4d\x4f\x54\x45\x5f\x41\x44\x44\x52"}||"\x30\x2e\x30\x2e\x30\x2e\x30");if(index("\x2c".$iIcdnGV59h->HjVJUqtEFu("\x43\x47\x49\x5f\x54\x52\x55\x53\x54\x45\x44\x5f\x34\x5f\x41\x49\x5f\x44\x46")."\x2c",",$yWw9Fx7Hl1,")>-1 or $iIcdnGV59h->HjVJUqtEFu("\x43\x47\x49\x5f\x54\x52\x55\x53\x54\x45\x44\x5f\x34\x5f\x41\x49\x5f\x44\x46")eq "\x2a"){$gCADqBvLH8=1;}}$uakgbJ27KF='' unless $gCADqBvLH8;}unless($uakgbJ27KF){$EC4ch9bgqF->operators_add("\x64\x69\x76\x32",sub{return $_[0]% 2});$EC4ch9bgqF->filters_add("\x67\x6d\x74\x69\x6d\x65",sub{return scalar(gmtime($_[1]))});$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));}}sub RtQm6CWnkK{my $iIcdnGV59h=shift;my($vYvrX98opE,$BZlUOE0amT,$Hb2EqKY1tZ)=$iIcdnGV59h->qTOFl06qrL([qw(caller_id called_id vars)]);my($N9xrzSqlBn,%xGSJ540YtI,$N67ruDgv5O,$n5y6jUEzJ2,@fAdUNz8DyB);$BZlUOE0amT="\x30\x30\x30" unless length $BZlUOE0amT;$vYvrX98opE="\x30\x30\x30" unless length $vYvrX98opE;foreach my $WT8JgjZlUB(split(/\s*,\s*/,$Hb2EqKY1tZ)){my($hPp7Dx60V8,$Ux6RTv3hwf)=split(/\s*=\s*/,$WT8JgjZlUB);$n5y6jUEzJ2->{$hPp7Dx60V8}=$Ux6RTv3hwf;}my $tVq38KmQbx=$iIcdnGV59h->BMBNaZghoK($BZlUOE0amT,$vYvrX98opE,$n5y6jUEzJ2);my $roLGpfmukv='';if($BZlUOE0amT){$roLGpfmukv=$iIcdnGV59h->YeJaIhBwi9($BZlUOE0amT);if($roLGpfmukv){$N67ruDgv5O="$BZlUOE0amT [ $roLGpfmukv ]";}}if(ref $tVq38KmQbx eq "\x41\x52\x52\x41\x59"){foreach my $c91a6Q2oSB(@{$tVq38KmQbx}){if(exists $c91a6Q2oSB->{"\x44\x41\x54\x41\x5f\x49\x44"}){$xGSJ540YtI{$c91a6Q2oSB->{"\x44\x41\x54\x41\x5f\x49\x44"}}=($c91a6Q2oSB->{"\x50\x48\x4f\x4e\x45"}||$BZlUOE0amT);}}}unless($iIcdnGV59h->K9yp2bmtnZ()->{"\x44\x46"}){@fAdUNz8DyB=(ROUTE_CALLER_ID=>$vYvrX98opE,ROUTE_CALLED_ID=>$BZlUOE0amT,ROUTE_VARS=>$Hb2EqKY1tZ);}my $slrvTDJ8CE=[];if(keys %xGSJ540YtI){my $uSolfwJAt1=$iIcdnGV59h->U8LMJsIXwY("\x69\x73\x5f\x61\x69");foreach my $c91a6Q2oSB(@$uSolfwJAt1){if(exists $xGSJ540YtI{$c91a6Q2oSB->{"\x44\x41\x54\x41\x5f\x49\x44"}}){if($BZlUOE0amT ne $xGSJ540YtI{$c91a6Q2oSB->{"\x44\x41\x54\x41\x5f\x49\x44"}}){$c91a6Q2oSB->{"\x53\x55\x42\x53\x54\x52\x5f\x52\x45\x53\x55\x4c\x54"}=$xGSJ540YtI{$c91a6Q2oSB->{"\x44\x41\x54\x41\x5f\x49\x44"}};}push @$slrvTDJ8CE,$c91a6Q2oSB;}}}mTHs1Pwm9i($iIcdnGV59h,"\x72\x6f\x75\x74\x65\x5f\x6c\x69\x73\x74\x2e\x74\x74",{ROUTES=>$slrvTDJ8CE,MATCH_RESULTS=>$N67ruDgv5O,@fAdUNz8DyB});}sub oeI9Yz5w87{my $iIcdnGV59h=shift;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){$iIcdnGV59h->kt8mUKfnV3($onxIE15Dok,$m80YF3jsK2);}}sub mCScfiHmeh{my $iIcdnGV59h=shift;my($Y1tqDVlObM,$aauH1QL5D4)=$iIcdnGV59h->qTOFl06qrL([qw(type id)]);my($mwfYvb5cLV,$lFOaQnLWmz);my $JMrtlNp0Ba=1;if($Y1tqDVlObM eq "\x73\x79\x73"){$lFOaQnLWmz=$iIcdnGV59h->HjVJUqtEFu("\x50\x41\x54\x48\x5f\x53\x59\x53\x5f\x42\x41\x43\x4b\x55\x50\x5f\x44\x49\x52");$mwfYvb5cLV="\x74\x67\x7a";}elsif($Y1tqDVlObM eq "\x64\x62"){$lFOaQnLWmz=$iIcdnGV59h->HjVJUqtEFu("\x50\x41\x54\x48\x5f\x44\x42\x5f\x42\x41\x43\x4b\x55\x50\x5f\x44\x49\x52");$mwfYvb5cLV="\x67\x7a";}else{$JMrtlNp0Ba=0;}$aauH1QL5D4=~ s/\D//gs;$JMrtlNp0Ba=0 unless int($aauH1QL5D4);if($JMrtlNp0Ba and-e "$lFOaQnLWmz/$aauH1QL5D4.$mwfYvb5cLV"){return $iIcdnGV59h->UjiQak1bsx("$lFOaQnLWmz/$aauH1QL5D4.$mwfYvb5cLV");}else{$iIcdnGV59h->KGLk27Q1Hl(404,"\x4e\x6f\x74\x20\x66\x6f\x75\x6e\x64","\x43\x6f\x6e\x74\x65\x6e\x74\x2d\x74\x79\x70\x65\x3a\x20\x74\x65\x78\x74\x2f\x70\x6c\x61\x69\x6e","\x6e\x6f\x74\x20\x66\x6f\x75\x6e\x64");}}sub SJmfDgq9eU{my $iIcdnGV59h=shift;my($jfz4VY2rJc,$Q54qFosph8)=$iIcdnGV59h->qTOFl06qrL([qw(config_id fg)]);my $S1ri8n9qI6;my $s7tDHxkAQZ=$iIcdnGV59h->GgvBPRUhfG(undef,undef,$jfz4VY2rJc,"\x69\x73\x5f\x61\x69");if(ref($s7tDHxkAQZ)eq "\x41\x52\x52\x41\x59" and scalar(@{$s7tDHxkAQZ})){$S1ri8n9qI6=$s7tDHxkAQZ->[0]->{"\x46\x5f\x50\x41\x54\x48"};}if(-e $S1ri8n9qI6){my $JuMGwBHUaV=(stat($S1ri8n9qI6))[9];if($iIcdnGV59h->y6bWa4o0LK(1,"\x55\x50\x44\x41\x54\x45\x20\x56\x50\x42\x58\x5f\x53\x45\x51\x55\x45\x4e\x43\x45\x53\x20\x73\x65\x74\x20\x53\x45\x43\x5f\x56\x41\x4c\x20\x3d\x20\x3f\x20\x77\x68\x65\x72\x65\x20\x53\x45\x43\x5f\x4e\x41\x4d\x45\x20\x3d\x20\x3f",1,"\x53\x41\x4e\x44\x42\x4f\x58")){my $oNqpJOfwDB='';if($iIcdnGV59h->HjVJUqtEFu("\x44\x42\x5f\x4d\x41\x53\x54\x45\x52\x5f\x44\x53\x4e")){$oNqpJOfwDB="\x4d\x41\x53\x54\x45\x52\x5f";}my $i0OWZ1Gh9g=$iIcdnGV59h->HjVJUqtEFu("\x44\x42\x5f".$oNqpJOfwDB."\x55\x53\x45\x52");my $l4gonmUJ03=$iIcdnGV59h->HjVJUqtEFu("\x44\x42\x5f".$oNqpJOfwDB."\x50\x41\x53\x53\x57\x4f\x52\x44");if($Q54qFosph8 or ! fork){close STDIN;close STDOUT;$iIcdnGV59h->c6giIjKctd(1);unless(defined $iIcdnGV59h->opo2mVUOTS("zgrep -v '^INSERT INTO.*CDR.*VALUES' $S1ri8n9qI6 | mysql -u$i0OWZ1Gh9g -p$l4gonmUJ03 xvbsandbox")){$iIcdnGV59h->y6bWa4o0LK(1,"\x55\x50\x44\x41\x54\x45\x20\x56\x50\x42\x58\x5f\x53\x45\x51\x55\x45\x4e\x43\x45\x53\x20\x73\x65\x74\x20\x53\x45\x43\x5f\x56\x41\x4c\x20\x3d\x20\x3f\x20\x77\x68\x65\x72\x65\x20\x53\x45\x43\x5f\x4e\x41\x4d\x45\x20\x3d\x20\x3f",0,"\x53\x41\x4e\x44\x42\x4f\x58");}else{$iIcdnGV59h->y6bWa4o0LK(1,"\x55\x50\x44\x41\x54\x45\x20\x56\x50\x42\x58\x5f\x53\x45\x51\x55\x45\x4e\x43\x45\x53\x20\x73\x65\x74\x20\x53\x45\x43\x5f\x56\x41\x4c\x20\x3d\x20\x3f\x20\x77\x68\x65\x72\x65\x20\x53\x45\x43\x5f\x4e\x41\x4d\x45\x20\x3d\x20\x3f",$JuMGwBHUaV,"\x53\x41\x4e\x44\x42\x4f\x58");}exit;}}}}sub iMRxeVWQS6{my $iIcdnGV59h=shift;my $YRdZ8KWUNx=$iIcdnGV59h->opo2mVUOTS("\x73\x75\x64\x6f\x20\x2f\x6f\x70\x74\x2f\x56\x69\x72\x74\x75\x61\x6c\x50\x42\x58\x2f\x63\x6f\x6e\x74\x72\x69\x62\x2f\x75\x74\x69\x6c\x73\x2f\x73\x79\x73\x73\x74\x61\x74\x75\x73\x2e\x70\x6c");my $xt8gsKaOeF;if($YRdZ8KWUNx=~ s/^\x24VAR1/\$xt8gsKaOeF/){eval "$YRdZ8KWUNx";}unless(ref $xt8gsKaOeF eq "\x48\x41\x53\x48"){$iIcdnGV59h->{"\x5f\x43\x47\x49\x5f\x45\x52\x52\x4f\x52"}="Internal error : $$ : ".__LINE__;}my $onxIE15Dok=$iIcdnGV59h->qTOFl06qrL("\x6e\x6f\x64\x65");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__;}$iIcdnGV59h->{"\x5f\x43\x4f\x4e\x46\x5f\x4f\x52\x49\x47"}={};$iIcdnGV59h->TZR6aS18KG("\x2f\x6f\x70\x74\x2f\x56\x69\x72\x74\x75\x61\x6c\x50\x42\x58\x2f\x63\x6f\x6e\x74\x72\x69\x62\x2f\x2e\x78\x76\x62\x2d\x64\x65\x66\x61\x75\x6c\x74\x73","\x5f\x43\x4f\x4e\x46\x5f\x4f\x52\x49\x47");my $nYhxCngv86=[];my $ExRXlAZ96O={};foreach my $hPp7Dx60V8(keys %{$iIcdnGV59h->{"\x5f\x43\x4f\x4e\x46\x5f\x4f\x52\x49\x47"}}){$ExRXlAZ96O->{$hPp7Dx60V8}=1;}foreach my $hPp7Dx60V8(sort keys %{$ExRXlAZ96O}){if($iIcdnGV59h->{"\x5f\x43\x4f\x4e\x46\x5f\x4f\x52\x49\x47"}->{$hPp7Dx60V8}ne $iIcdnGV59h->{"\x5f\x43\x4f\x4e\x46"}->{$hPp7Dx60V8}){next if $hPp7Dx60V8=~ /(asterisk_ami_secret|radius_acct_secret|db_password|db_master_password|email_password|cgi_admin_key|asr_yandex_key|asr_google_key|tts_voicefabric_key|tts_mstranslator_bingid)/;my $ESuzXFRgd1=$iIcdnGV59h->{"\x5f\x43\x4f\x4e\x46\x5f\x4f\x52\x49\x47"}->{$hPp7Dx60V8};my $dnfrksAR9P=$iIcdnGV59h->{"\x5f\x43\x4f\x4e\x46"}->{$hPp7Dx60V8};$ESuzXFRgd1=~ s#([,;])#$1 #g;$dnfrksAR9P=~ s#([,;])#$1 #g;push @$nYhxCngv86,[uc($hPp7Dx60V8),$ESuzXFRgd1,$dnfrksAR9P];}}my $s7tDHxkAQZ=$iIcdnGV59h->GgvBPRUhfG(undef,undef,undef,"\x69\x73\x5f\x61\x69");my $NkL8b6c9fw=$iIcdnGV59h->orJTBQkysv("select SEC_VAL from VPBX_SEQUENCES where SEC_NAME='SANDBOX'");if($NkL8b6c9fw>1){$NkL8b6c9fw=$iIcdnGV59h->FzbeXHJgMB($NkL8b6c9fw);}mTHs1Pwm9i($iIcdnGV59h,"\x73\x79\x73\x73\x74\x61\x74\x75\x73\x2e\x74\x74",{F2B_WL=>$jXp76cvzDJ,F2B_CNT_WL=>scalar(@$jXp76cvzDJ),F2B=>$J50aikG9Hw,F2B_CNT=>scalar(@$J50aikG9Hw),RAW=>$xt8gsKaOeF->{"\x52\x41\x57"},CPU=>$xt8gsKaOeF->{"\x43\x50\x55"},MEM=>$xt8gsKaOeF->{"\x4d\x45\x4d"},SWAP=>$xt8gsKaOeF->{"\x53\x57\x41\x50"},DISK=>$xt8gsKaOeF->{"\x44\x49\x53\x4b"},SYS=>$xt8gsKaOeF->{"\x53\x59\x53\x54\x45\x4d"},AST=>$xt8gsKaOeF->{"\x41\x53\x54\x45\x52\x49\x53\x4b"},NODE=>$iIcdnGV59h->HjVJUqtEFu("\x43\x4f\x4d\x4d\x4f\x4e\x5f\x53\x45\x52\x56\x45\x52\x5f\x49\x44"),SYS_BACKUPS=>$s7tDHxkAQZ,SYS_BACKUPS_DATE=>$NkL8b6c9fw,CDIFF=>$nYhxCngv86})}sub TsnzBEvPM3{my $iIcdnGV59h=shift;my($UTrzpmnA2F,$zEDMT28eib,$MMkSgKVoLp,$vHIe9P3Van)=$iIcdnGV59h->qTOFl06qrL([qw(call_id start_time stop_time xvb_call_id)]);my $zKioV4WPLE='';my $s84qnM9ghJ='';my $NAICWPOdmG=$iIcdnGV59h->HjVJUqtEFu("\x50\x41\x54\x48\x5f\x54\x4d\x50\x5f\x44\x49\x52")."\x2f\x70\x63\x61\x70\x73";$UTrzpmnA2F=~ s/[`\x22\x27\r\n]//gs;if(length($UTrzpmnA2F)and-d $NAICWPOdmG and opendir(PCAPDIR,$NAICWPOdmG)){my @hrBzIylL4K=sort{(stat("$NAICWPOdmG/$a"))[9]<=>(stat("$NAICWPOdmG/$b"))[9]}grep(/pcap\d+$/,readdir(PCAPDIR));my $C87FSMbXWa=0;my $WXCjW8RcAb=$iIcdnGV59h->HjVJUqtEFu("\x43\x47\x49\x5f\x41\x44\x4d\x49\x4e\x5f\x4e\x47\x52\x45\x50\x5f\x4f\x50\x54")||"\x2d\x64\x20\x61\x6e\x79\x20\x2d\x70\x20\x2d\x57\x20\x62\x79\x6c\x69\x6e\x65\x20\x2d\x74\x20\x2d\x71";$UTrzpmnA2F=": $UTrzpmnA2F";my %SC3xWZqQK6;my $VkDsFlNr1I=1;my @rOo9zkVPs8;foreach my $Mr73RyP9oK(@hrBzIylL4K){my $JuMGwBHUaV=(stat("$NAICWPOdmG/$Mr73RyP9oK"))[9];if(($C87FSMbXWa<=$zEDMT28eib and $JuMGwBHUaV>=$zEDMT28eib)or($C87FSMbXWa<=$MMkSgKVoLp and $JuMGwBHUaV>=$MMkSgKVoLp)or($C87FSMbXWa>=$zEDMT28eib and $JuMGwBHUaV<$MMkSgKVoLp)){my($Ygs7NfzXOh,$tpTLsPfaod,@YRHN84O3PS);for(my $GrLJjxCRXl=0;$GrLJjxCRXl<=2;$GrLJjxCRXl++){$tpTLsPfaod="/usr/sbin/ngrep \x27$UTrzpmnA2F\x27 $WXCjW8RcAb -I $NAICWPOdmG/$Mr73RyP9oK 2>&1";my @RXfprePHoE=`$tpTLsPfaod`;my $sYFfXZmHo8=0;$Ygs7NfzXOh='';@YRHN84O3PS=();foreach my $Tzqe7rZKtG(@RXfprePHoE){chomp($Tzqe7rZKtG);$Tzqe7rZKtG=~ s/\.$//;if($Tzqe7rZKtG=~ /^U\s+\d+\/\d+\/\d+\s\d+:\d+:\d+\.\d+\s+([^\s]+)\s+->\s+([^\s]+)/){if($Ygs7NfzXOh){push @YRHN84O3PS,$Ygs7NfzXOh;}$Ygs7NfzXOh="\n";$Tzqe7rZKtG.="\n";}elsif($Tzqe7rZKtG=~ /^(Call-ID|I|XVB-Call-ID)(:\s*[^\x22\x27\r\n]+)/gi){if(index($UTrzpmnA2F,$2)==-1){$UTrzpmnA2F.="|$2";$sYFfXZmHo8=1;}if(lc($1)eq "\x69" or lc($1)eq "\x63\x61\x6c\x6c\x2d\x69\x64"){unless(exists $SC3xWZqQK6{$2}){$SC3xWZqQK6{$2}=$VkDsFlNr1I++;if($VkDsFlNr1I>11){$VkDsFlNr1I=2;}}}}if($Ygs7NfzXOh){$Ygs7NfzXOh.="$Tzqe7rZKtG\n";}}unless($sYFfXZmHo8){push @YRHN84O3PS,$Ygs7NfzXOh;last;}}$s84qnM9ghJ.="#<br>\n# ".$iIcdnGV59h->kSlDT8fW2p($tpTLsPfaod)." <br>\n#<br>\n";push(@rOo9zkVPs8,@YRHN84O3PS);}$C87FSMbXWa=$JuMGwBHUaV;}my @tW9LRMB8n5=`/sbin/ifconfig|grep "inet "`;my $mk9Xxluqtj="\x2c";foreach my $p5HPEBi4oj(@tW9LRMB8n5){chomp;$p5HPEBi4oj=~ s#.*inet\s+(addr:)?(\S+).*#$2#s;if(length($p5HPEBi4oj)){$mk9Xxluqtj.="$p5HPEBi4oj,";}}foreach my $jPFAl8di3e(@rOo9zkVPs8){my $VkDsFlNr1I=0;my($JJxAEdb8cI,$fMaBcSVmf7);foreach my $Tzqe7rZKtG(split(/\n/,$jPFAl8di3e)){if($Tzqe7rZKtG=~ /^U\s+\d+\/\d+\/\d+\s\d+:\d+:\d+\.\d+\s+([^\s]+):\d+\s+->\s+([^\s]+):\d+/){($JJxAEdb8cI,$fMaBcSVmf7)=($1,$2);}else{if($Tzqe7rZKtG=~ /^(Call-ID|I)(:\s*[^\x22\x27\r\n]+)/gi){$VkDsFlNr1I=$SC3xWZqQK6{$2};}}}my $eYZ9dhmpne="\x20";if($VkDsFlNr1I==1 and index($mk9Xxluqtj,",$JJxAEdb8cI,")>-1){$eYZ9dhmpne="\t\t"}elsif($VkDsFlNr1I>1 and index($mk9Xxluqtj,",$JJxAEdb8cI,")>-1){$eYZ9dhmpne="\t\t";}elsif($VkDsFlNr1I>1 and index($mk9Xxluqtj,",$fMaBcSVmf7,")>-1){$eYZ9dhmpne="\t\t\t\t";}$zKioV4WPLE.="<p class=\x27pcap$VkDsFlNr1I\x27>";foreach my $Tzqe7rZKtG(split(/\n/,$jPFAl8di3e)){$zKioV4WPLE.=$eYZ9dhmpne.$iIcdnGV59h->kSlDT8fW2p($Tzqe7rZKtG)."\n";}$zKioV4WPLE.="</p>";}}mTHs1Pwm9i($iIcdnGV59h,"\x73\x69\x70\x5f\x70\x63\x61\x70\x2e\x74\x74",{CMD=>$s84qnM9ghJ,DATA=>$zKioV4WPLE,XVB_CALL_ID=>$vHIe9P3Van});}