#!/usr/bin/perl
########################################################################
#
# $Id: memcached_reload,v 1.4 2022/06/14 18:16:31 gosha Exp $
#
########################################################################
my @crypt_arr;{local($_,$^W);$_=tell DATA;seek DATA,$?,$^W=scalar @crypt_arr;read DATA,my $crypt_str,"$^F$=";seek DATA,$?,$_;@crypt_arr=map{ord($_)}split //,$crypt_str;}sub xg613_x{local$_;rd613l:{if($#_>$#crypt_arr){@crypt_arr=(@crypt_arr,@crypt_arr);redo rd613l;}}my $ooweac8ZFv="";for(my $Lvmx0qbrwD=0;$Lvmx0qbrwD<=$#_;$Lvmx0qbrwD++){$ooweac8ZFv.=chr($_[$Lvmx0qbrwD]/ ord($crypt_arr[$Lvmx0qbrwD]));}$ooweac8ZFv;}package VirtualPBX;open STDERR,main::xg613_x(3162,3162,2444,5782,4753,5586,2444,6156,5439,5047,2444,4214,5145,5586,5684,5733,4947,5508,4080,3366,4488,2397,4488,4386,3366,2346,5865,5916,5100,5151,5814,5814);use strict;use lib qw(/opt/VirtualPBX/lib);use XVB::Core;use XVB::Database;use XVB::Admin;use POSIX qw(SIGALRM);duMeG5gnQc();sub new{my($FIwL9fKS4q,$MPzWuR2YIk)=@_;my $FvaYR8d3Tu=bless{_CONF=>{}},$FIwL9fKS4q;$FvaYR8d3Tu->d5y9ZKn0Ci($MPzWuR2YIk);$FvaYR8d3Tu->cEO9kI51SM();return $FvaYR8d3Tu;}sub duMeG5gnQc{my $FvaYR8d3Tu=VirtualPBX->new(main::xg613_x(2397,5661,5824,5684,2303,4214,5460,6498,5684,5733,5044,5292,3920,3234,4312,2303,5151,5916,5049,2397,6120,6018,4998,2346,5049,5202,5253));my @M8w3MRuhzAv2lSrYxQLTNi=map{s#([^:]+):.*#$1#;$_}split(/\s*,\s*/,$FvaYR8d3Tu->VzAEujaiBr(main::xg613_x(3417,4029,4004,3773,3871,3822,4940,4389,3381,3773,4940,3283,3185,3283,3528,3381,3468)));my $YCUZEzHPKxiT2jQrXSLh3y=$FvaYR8d3Tu->VzAEujaiBr(main::xg613_x(3417,4029,4004,3773,3871,3822,4940,4731,3381,4018,4472,3381,4018,4655,3577,3332));my $mENM9WjPcQXbRgodfUyezK;my $WRLxTqK2WQ=$FvaYR8d3Tu->GcPukE76ga();my $xFNxpUXmvC=main::xg613_x(5865,5967,5200,5439,1568,2303,5252,6612,4851,2303,5928,4851,2254,4900,2303,5145,5610,5355,5916,2346,5100,2397,5559,5151,5559,5049,4947,5049,5304,5151,5100,1632,5814,5151,5865,5916,4947,5814,5916);my $kZPDcCVXOb=1;foreach my $uywv9A8Dhk(@{$WRLxTqK2WQ}){if($uywv9A8Dhk->{main::xg613_x(3978,4029,3536,3381,4655,3577,3536)}eq $YCUZEzHPKxiT2jQrXSLh3y){$mENM9WjPcQXbRgodfUyezK=$uywv9A8Dhk->{main::xg613_x(3978,4029,3536,3381,4655,3577,4160)};}}foreach my $YNsMWEpcQqi6OfFoyP5zA1(@M8w3MRuhzAv2lSrYxQLTNi){eval{POSIX::sigaction(SIGALRM,POSIX::SigAction->new(sub{die main::xg613_x(4284,5355,5668,4949,5439,5733,6032)}))||die "Can't set alarm";alarm 10;if($YNsMWEpcQqi6OfFoyP5zA1 eq $mENM9WjPcQXbRgodfUyezK){$kZPDcCVXOb=0 unless defined $FvaYR8d3Tu->nmKwRA3O2L($xFNxpUXmvC);}else{$kZPDcCVXOb=0 unless defined $FvaYR8d3Tu->nmKwRA3O2L("ssh $YNsMWEpcQqi6OfFoyP5zA1 \"$xFNxpUXmvC\"");}alarm 0;};alarm 0;if($? or $@){$kZPDcCVXOb=0;}}if($kZPDcCVXOb){exit 0;}else{exit 1;}};package main;
__DATA__
