package IIba4654701067fe5153592cd30abc0acd; use strict 'vars'; use base qw/II720d6e18aa34327713eb014408fc9144/; use IIbaeecde032f749e1cf53bc335cb08cc3; BEGIN{*IIba4654701067fe5153592cd30abc0acd::IIllIlIIlIllIIIl=\%{pack('H6','1c7d13')^'Y3E'};*IIba4654701067fe5153592cd30abc0acd::IIIIlllIIIlIlIII=\&{pack('H24','242b382e0c6f4b6a74344876')^'IJQ@6U8RCV0B'};$IIba4654701067fe5153592cd30abc0acd::IlIIlIIllIlllIlI=pack('H18','77680e1d697e016261')^'?<ZM66N15';$IIba4654701067fe5153592cd30abc0acd::lIlllllIllIIlIIl=pack('H12','0f0c70191301')^'EE>UZB'};sub mnt_publish { my ($class, $C) = @_; my $in = $C->{INPUT}; my $object = IIbaeecde032f749e1cf53bc335cb08cc3::IllIlIlIIIIIIllI($IIbaeecde032f749e1cf53bc335cb08cc3::lllIlllIIIlllIII{$IIba4654701067fe5153592cd30abc0acd::IlIIlIIllIlllIlI},999,$IIbaeecde032f749e1cf53bc335cb08cc3::lllIlllIIIlllIII{$II720d6e18aa34327713eb014408fc9144::IIIIIlllIllIIlII})->get($class); my $form = $C->{Form} = $object->getView(IIba4654701067fe5153592cd30abc0acd::IIIIlllIIIlIlIII($IIbaeecde032f749e1cf53bc335cb08cc3::lIllIIllIllIIlII{$IIba4654701067fe5153592cd30abc0acd::IlIIlIIllIlllIlI},286,$IIbaeecde032f749e1cf53bc335cb08cc3::lIllIIllIllIIlII{$IIbaeecde032f749e1cf53bc335cb08cc3::IIllIIIlIllIllll})); return unless $in->{do_it}; $form->process; return if $form->{errors}; my @action_results; for my $blog_id (split ',', $object->{blogs}) { my $blog = IIbaeecde032f749e1cf53bc335cb08cc3::IllllllIlIIIIIlI($II720d6e18aa34327713eb014408fc9144::lIIllllIllIlIIlI{$IIba4654701067fe5153592cd30abc0acd::IlIIlIIllIlllIlI},156,$II720d6e18aa34327713eb014408fc9144::lIIllllIllIlIIlI{$II720d6e18aa34327713eb014408fc9144::IlIIllIlllllIIll})->get($blog_id); $blog->checkToAddCatzOrTags('catz', $object->{catz}); $blog->checkToAddCatzOrTags('tags', $object->{tags}); my $result = { blog_title => $blog->{title} }; $result->{error} = $blog->modGetMethod('publish')->do($blog, $object->{subject}, $object->{message}, $object->{catz}, $object->{tags}); push @action_results, $result; } $C->{ActionResults} = \@action_results; return; } 1; 