package II183fa29ab4cf9920df1494dde918ef87; use strict 'vars'; use base qw/IIc0dddbcc5525420e139003092ae80eb6/; use IIef11385558db207cf8b1321ea6156940; use II8c53c8f903d1ac9e95724345f8d56b85; BEGIN{*II183fa29ab4cf9920df1494dde918ef87::IlIlllIllIIIIIll=\%{pack('H6','111f19')^'TQO'};*II183fa29ab4cf9920df1494dde918ef87::IlIIllIIIllllllI=\&{pack('H24','34355d380f704a0d60553300')^'YT4V5J95W7K4'};$II183fa29ab4cf9920df1494dde918ef87::IIIlIllIIlIIIIIl=pack('H18','02036f07630a770617')^'JW;W<B8UC';$II183fa29ab4cf9920df1494dde918ef87::lllllllllIlllIlI=pack('H12','707773060b07')^':>=JBD'};sub act_clean { my $class = shift; my $request = Zen->getRequest; my $in = $request->getInput; my $funnel = $in->{funnel_id} ? IIef11385558db207cf8b1321ea6156940::IIlllIIlllIIIIII($II8c53c8f903d1ac9e95724345f8d56b85::IlIIIIIIllIIIlIl{$II183fa29ab4cf9920df1494dde918ef87::IIIlIllIIlIIIIIl},126,$II8c53c8f903d1ac9e95724345f8d56b85::IlIIIIIIllIIIlIl{$IIc0dddbcc5525420e139003092ae80eb6::IIlIllIIlIlIllIl})->get($in->{funnel_id}) : undef; II8c53c8f903d1ac9e95724345f8d56b85::llllllIlIlIIIlll($IIc0dddbcc5525420e139003092ae80eb6::IIllllIlIIlIlIll{$IIef11385558db207cf8b1321ea6156940::IlllIlIIlllIIlII},130,$IIc0dddbcc5525420e139003092ae80eb6::IIllllIlIIlIlIll{$II183fa29ab4cf9920df1494dde918ef87::lllllllllIlllIlI})->true($funnel && $funnel->stored, 'invalid link'); my @step_ids = grep { /^\d+$/ } split ',', $in->{step_ids}; my $dbc = $funnel->dbc; for my $step_id (@step_ids) { my $iter = $dbc->getRecordsIterator("select code from jin_funnel_visit where funnel_id=? and step_id=?", [$funnel->id, $step_id]); while ($iter->hasNext) { my $r = $iter->next; $dbc->do("delete from jin_funnel_visit where code=?", [$r->{code}]); } } $request->redirect($ENV{HTTP_REFERER}); return; } 1; 