package II531a279849f465397ffd49cd3a49503d; use strict 'vars'; use base qw/II674e2407e107271bcc76478050bc636a/; use CGI qw/cookie/; use Zen; use II8dae0e141ee45f5daba6a74e4a7c3b6f; use II177c4547a39accf6787f97b1cac12c5a; BEGIN{*II531a279849f465397ffd49cd3a49503d::IllIlIllIlllIllI=\%{pack('H6','7a0e69')^'?@?'};*II531a279849f465397ffd49cd3a49503d::IlllIlIlllllIllI=\&{pack('H24','262e3f3d7a622a777f5e357c')^'KOVS@XYOH<MH'};$II531a279849f465397ffd49cd3a49503d::IIlIllllIIIIIlll=pack('H18','18686209657d07621f')^'P<6Y:5H1K';$II531a279849f465397ffd49cd3a49503d::IIlIIIlIIIlIllIl=pack('H12','720e77021f7c')^'8G9NV?'};sub dbTable     { 'jin_bcastnews' } BEGIN{*II531a279849f465397ffd49cd3a49503d::IllIIlIIIIlllIlI=\%{pack('H6','74791b')^'17M'};*II531a279849f465397ffd49cd3a49503d::lllIllllIIIlIIIl=\&{pack('H24','5b582a5f74602776632c3970')^'69C1NZTNTNAD'};$II531a279849f465397ffd49cd3a49503d::IlllIIllIlllIlll=pack('H18','0e0c116c69700b0905')^'FXE<68DZQ';$II531a279849f465397ffd49cd3a49503d::lIllllIIlIIIlIll=pack('H12','18041c751374')^'RMR9Z7'};sub dbFields    { qw/ owner_id display_on_ws display_mode display_mode_value secret_word template template_one_msg / } BEGIN{*II531a279849f465397ffd49cd3a49503d::lllIllIlIllIIIII=\%{pack('H6','721b1d')^'7UK'};*II531a279849f465397ffd49cd3a49503d::IlIlIlIIlIIIlIll=\&{pack('H24','502c2725600a2277722d2905')^'=MNKZ0QOEOQ1'};$II531a279849f465397ffd49cd3a49503d::IIlIIIllIllIIIlI=pack('H18','7014056c0d1b730707')^'8@Q<RS<TS';$II531a279849f465397ffd49cd3a49503d::IlIIlIIIllllIlIl=pack('H12','0a0f7a1f040e')^'@F4SMM'};sub get { my $class = shift; my $this = $class->getAdminRecord; $this->{display_mode} = 1 unless $this->{display_mode}; unless ($this->{display_mode_value}) { $this->{display_mode_value} = $this->{display_mode} == 1 ? 1 : ($this->{display_mode} == 2 ? 10 : 3) } $this->{template} ||= '#{content}'; $this->{template_one_msg} ||= II177c4547a39accf6787f97b1cac12c5a::llIllIIIlllllIlI($II531a279849f465397ffd49cd3a49503d::IllIlIllIlllIllI{$II8dae0e141ee45f5daba6a74e4a7c3b6f::IIIIlIIlIIIIIIIl},985,$II531a279849f465397ffd49cd3a49503d::IllIlIllIlllIllI{$II674e2407e107271bcc76478050bc636a::lIllIlllIIlllIlI})->engineFileContent("suppl/templates/bcastnews/template_one_msg.html"); if (! $this->stored && II177c4547a39accf6787f97b1cac12c5a::llIllIIIlllllIlI($II8dae0e141ee45f5daba6a74e4a7c3b6f::lIlllIlIlIlIlIll{$II531a279849f465397ffd49cd3a49503d::IlllIIllIlllIlll},18,$II8dae0e141ee45f5daba6a74e4a7c3b6f::lIlllIlIlIlIlIll{$II8dae0e141ee45f5daba6a74e4a7c3b6f::IllllIIIIIlIllIl})->getCount > 0) { $this->{display_on_ws} = 1; $this->save; } $this; } BEGIN{*II531a279849f465397ffd49cd3a49503d::llIlIlIllIIIIlll=\%{pack('H6','7c0518')^'9KN'};*II531a279849f465397ffd49cd3a49503d::llIIllIlIllIllll=\&{pack('H24','3d3226500574447867344d06')^'PSO>?N7@PV52'};$II531a279849f465397ffd49cd3a49503d::lIlIllIIIllllIII=pack('H18','7b0d69026370030000')^'3Y=R<8LST';$II531a279849f465397ffd49cd3a49503d::IlIlIIIllIlllIIl=pack('H12','0d00797e1001')^'GI72YB'};sub getDisplayNews { my $this = shift; my @sea = ( WHERE => "pdate<=now()", ORDER => 'pdate desc', ); if ($this->{display_mode} == 2) { push @sea, NUM => $this->{display_mode_value}; } elsif ($this->{display_mode} == 3) { push @sea, WHERE => "to_days(now())-to_days(pdate) <= $this->{display_mode_value}"; } else { } [ map { $_->getView } II177c4547a39accf6787f97b1cac12c5a::llIllIIIlllllIlI($II8dae0e141ee45f5daba6a74e4a7c3b6f::lIlllIlIlIlIlIll{$II177c4547a39accf6787f97b1cac12c5a::lIIlIIIIlIlIllIl},18,$II8dae0e141ee45f5daba6a74e4a7c3b6f::lIlllIlIlIlIlIll{$II177c4547a39accf6787f97b1cac12c5a::lllIIIllllIIlIIl})->search(@sea) ]; } BEGIN{*II531a279849f465397ffd49cd3a49503d::IIIIIllIIIIlIIlI=\%{pack('H6','780718')^'=IN'};*II531a279849f465397ffd49cd3a49503d::llllIIIIIIIllIII=\&{pack('H24','5c393a58006d480e65554560')^'1XS6:W;6R7=T'};$II531a279849f465397ffd49cd3a49503d::llIIlIIIIlllIIll=pack('H18','00661712680c186c01')^'H2CB7DW?U';$II531a279849f465397ffd49cd3a49503d::llllIIIllIIlllII=pack('H12','7f0270087a07')^'5K>D3D'};sub setDisplayCookie { my $this = shift; my ($messages, $feeder_id) = @_; $feeder_id ||= 0; return unless @$messages; my $coo = Zen->getRequest->getCookie; for (my $i = @$messages - 1; $i >= 0; $i--) { my $obj_id = $messages->[$i]->{id} || $messages->[$i]->{obj_id}; my $name = "jin_bcastnews_$feeder_id\_$obj_id"; my $value = $coo->{$name} ? $coo->{$name} + 1 : 1; if ($value > $this->{display_mode_value}) { splice @$messages, $i, 1; next; } printf "Set-Cookie: %s\n", CGI->cookie( -name => $name, -value => $value, -path => II177c4547a39accf6787f97b1cac12c5a::lllllIIlIllIlIlI($II674e2407e107271bcc76478050bc636a::lllIllllIlIIIlII{$II177c4547a39accf6787f97b1cac12c5a::lIIlIIIIlIlIllIl},47,$II674e2407e107271bcc76478050bc636a::lllIllllIlIIIlII{$II8dae0e141ee45f5daba6a74e4a7c3b6f::IlllIllIIIIIllIl})->getURL, -expires => '+5y', ); } return; } 1; 