package II32ce5153660f92469d3ac91cba50262a; use strict 'vars'; use IIf6c7e28bdd48eb29efc7b9362c0037a2; use IIb02f8d3064e235967de5c537b3e7ce9b; BEGIN{*II32ce5153660f92469d3ac91cba50262a::IllllIIlIlllllIl=\%{pack('H6','75006e')^'0N8'};*II32ce5153660f92469d3ac91cba50262a::lIlllIIIllllIllI=\&{pack('H24','5f39583d74092a74002e4375')^'2X1SN3YL7L;A'};$II32ce5153660f92469d3ac91cba50262a::lllIIIIllIIIlIII=pack('H18','12180c010b7a1a6f67')^'ZLXQT2U<3';$II32ce5153660f92469d3ac91cba50262a::llllllllIllIlIll=pack('H12','727270747d04')^'8;>84G'};sub act_check_or_fix { my $class = shift; my $in = Zen->getRequest->getInput; $| = 1; Zen->getRequest->printHeader("text/html"); my @sea = (); push @sea, WHERE => "id=" . II32ce5153660f92469d3ac91cba50262a::lIlllIIIllllIllI($IIb02f8d3064e235967de5c537b3e7ce9b::lllIlIIlIlIlIllI{$IIf6c7e28bdd48eb29efc7b9362c0037a2::IIIIIIIIIIlIllll},162,$IIb02f8d3064e235967de5c537b3e7ce9b::lllIlIIlIlIlIllI{$IIb02f8d3064e235967de5c537b3e7ce9b::IlIlIIIlllIIllII})->dbc->quote($in->{mem_id}) if $in->{mem_id}; my $iter = IIf6c7e28bdd48eb29efc7b9362c0037a2::llllllIIllIIlIII($II32ce5153660f92469d3ac91cba50262a::IllllIIlIlllllIl{$IIf6c7e28bdd48eb29efc7b9362c0037a2::llllIlIIIIIlIlIl},162,$II32ce5153660f92469d3ac91cba50262a::IllllIIlIlllllIl{$IIb02f8d3064e235967de5c537b3e7ce9b::lIlIIlIlllIIIllI})->iterator(ORDER => "id desc", @sea); while ($iter->hasNext) { my $m = II32ce5153660f92469d3ac91cba50262a::lIlllIIIllllIllI($IIf6c7e28bdd48eb29efc7b9362c0037a2::lIIIIIIllIIIIIIl{$IIf6c7e28bdd48eb29efc7b9362c0037a2::IIIIIIIIIIlIllll},162,$IIf6c7e28bdd48eb29efc7b9362c0037a2::lIIIIIIllIIIIIIl{$IIf6c7e28bdd48eb29efc7b9362c0037a2::IllIIIlIllIIIllI})->get($iter->next->id); my $err = $m->checkDir; my $url = $m->{url}; print "Membership <b>$url</b>" . ($err ? qq(: <b style="color:red">$err</b>) : " OK; users") . "\n"; unless ($err) { if ($m->modHasMethod('refreshAllDlvs')) { $m->modGetMethod('refreshAllDlvs')->do($m); } else { my $iter2 = IIb02f8d3064e235967de5c537b3e7ce9b::llllllIIIIlllIlI($IIb02f8d3064e235967de5c537b3e7ce9b::lIlIIIlIllIlIIII{$IIb02f8d3064e235967de5c537b3e7ce9b::IIIIllIIIllIIIII},7,$IIb02f8d3064e235967de5c537b3e7ce9b::lIlIIIlIllIlIIII{$II32ce5153660f92469d3ac91cba50262a::llllllllIllIlIll})->iterator(type => 'membership', obj_id => $m->id, ORDER => "id desc"); my $c; while ($iter2->hasNext) { my $u = $iter2->next; $u->save; print ' ' x 100; print "<b>.</b>" if $c % 100 == 0; print "\n"; $c++; } } print " OK\n"; } print "<br>\n"; } print "Done.\n"; return; } 1; 