package II9a82c5ca7a4d4e7a26c0f4e914fa6e33; use strict 'vars'; use base qw/II720d6e18aa34327713eb014408fc9144/; use IIa7e18da9a1870a23e5d1573a274b9cd7; use II2721c94100a15b3ac712b51a22da96ea; BEGIN{*II9a82c5ca7a4d4e7a26c0f4e914fa6e33::IIIllIllllIIIlII=\%{pack('H6','1f0766')^'ZI0'};*II9a82c5ca7a4d4e7a26c0f4e914fa6e33::lIIlIlIlIllIlllI=\&{pack('H24','3857205a680e3f07725e4773')^'U6I4R4L?E<?G'};$II9a82c5ca7a4d4e7a26c0f4e914fa6e33::IlIIllIIlIIlIIlI=pack('H18','740e1405180803696c')^'<Z@UG@L:8';$II9a82c5ca7a4d4e7a26c0f4e914fa6e33::IIIIllIllIllIIlI=pack('H12','77770d007811')^'=>CL1R'};sub act_delete { my $class = shift; my $request = Zen->getRequest; my $in = $request->getInput; my $comment = II720d6e18aa34327713eb014408fc9144::IIllIIIlIIllllII($II2721c94100a15b3ac712b51a22da96ea::IIIIIlIIlIIIIIlI{$IIa7e18da9a1870a23e5d1573a274b9cd7::IlIlIIllIIIlIIIl},67,$II2721c94100a15b3ac712b51a22da96ea::IIIIIlIIlIIIIIlI{$II720d6e18aa34327713eb014408fc9144::llIlIIIIIIlIIIIl})->getOrDummy($in->{comment}); II2721c94100a15b3ac712b51a22da96ea::lIllllIIIIlIIlII($II2721c94100a15b3ac712b51a22da96ea::lIIIIllIIIllllIl{$IIa7e18da9a1870a23e5d1573a274b9cd7::IlIlIIllIIIlIIIl},1005,$II2721c94100a15b3ac712b51a22da96ea::lIIIIllIIIllllIl{$IIa7e18da9a1870a23e5d1573a274b9cd7::lIlIlIIIlIIIIIIl})->true(($comment->stored && $comment->{signature} eq $in->{signature}), 'invalid link'); $comment->delete; $request->printHeader("text/plain"); print __PACKAGE__->message('cloud_comment.msg.comment_deleted', $in->{comment}); return; } 1;