" unless LJ::did_post(); my $ret; my $remote = LJ::get_remote(); my $styleid; my $stylesys = 1; my $username = $POST{user} || $POST{username}; my $altlogin = $GET{altlogin} || $POST{post_as_other}; my $usejournal = $altlogin ? $POST{postas_usejournal} : $POST{usejournal}; ### Figure out poster/journal my ( $u, $up ); if ( $usejournal ) { $u = LJ::load_user( $usejournal ); $up = $username ? LJ::load_user( $username ) : $remote; } elsif ( $username && $altlogin ) { $u = LJ::load_user( $username ); } else { $u = $remote; } $up = $u unless $up; ### Set up preview variables my ($ditemid, $anum, $itemid); my %req = ( 'usejournal' => $POST{'usejournal'}, ); LJ::entry_form_decode(\%req, \%POST); my ($event, $subject) = ($req{'event'}, $req{'subject'}); LJ::CleanHTML::clean_subject(\$subject); # preview poll if ( LJ::Poll->contains_new_poll( \$event ) ) { my $error; my @polls = LJ::Poll->new_from_html( \$event, \$error, { 'journalid' => $u->userid, 'posterid' => $up->userid, }); my $can_create_poll = $up->can_create_polls || ( $u->is_community && $u->can_create_polls ); my $poll_preview = sub { my $poll = shift @polls; return '' unless $poll; return $can_create_poll ? $poll->preview : qq{
} . LJ::Lang::ml( '/poll/create.bml.error.accttype2' ) . qq{
}; }; $event =~ s//$poll_preview->()/eg; } # existing polls LJ::Poll->expand_entry( \$event ); # parse out embed tags from the RTE $event = LJ::EmbedModule->transform_rte_post($event); # do first expand_embedded pass with the preview flag to extract # embedded content before cleaning and replace with tags # the cleaner won't eat LJ::EmbedModule->parse_module_embed($u, \$event, preview => 1,); # clean content normally LJ::CleanHTML::clean_event(\$event, { preformatted => $req{'prop_opt_preformatted'}, }); # expand the embedded content for reals LJ::EmbedModule->expand_entry($u, \$event, preview => 1,); my $apache_r = BML::get_request(); my $ctx; # Get the preview message to hand to S2 or use in $ret. my $preview_warn_text = $ML{".entry.preview_warn_text"}; if ($u && $up) { $apache_r->notes->{_journal} = $u->{user}; $apache_r->notes->{journalid} = $u->{userid}; ### Load necessary props my @needed_props = qw( stylesys s2_style url urlname opt_usesharedpic journaltitle journalsubtitle ); $u->preload_props( @needed_props ); ### Determine style system to preview with my $get_styleinfo = sub { if ( $u->{'stylesys'} == 2 ) { my $forceflag = 0; LJ::Hooks::run_hooks("force_s1", $u, \$forceflag); # check whether to use custom comment pages $ctx = LJ::S2::s2_context( $u->{s2_style} ); my $view_entry_disabled = ! LJ::S2::use_journalstyle_entry_page( $u ); return (2, $u->{'s2_style'}) unless $forceflag || $view_entry_disabled; } # no special case and not s2, fall through to s1 return (1, 0); }; ($stylesys, $styleid) = $get_styleinfo->(); } else { $stylesys = 1; $styleid = 0; } # TODO: clean up this codepath/logic # "stylesys == 1" in here means that you're viewing a BML page, not customized comemnts if ($stylesys == 1) { # pre-load common strings for little speed and less typing later # (we're doing this *after* set_language_scope is called, because # two below are relative strings) my %T = qw(postcomments talk.commentpost readcomments talk.commentsread link talk.commentpermlink nosubject .nosubject ); foreach (keys %T) { $T{$_} = $ML{$T{$_}}; } # make the title { my $subject = $req{'subject'} || $req{'event'}; LJ::CleanHTML::clean_subject_all(\$subject); $subject =~ s/\n.*//s; # yes, the 3 param to text_trim is chars, and length returns bytes, but # it works, as bytes >= chars: $subject = LJ::text_trim($subject, 0, length($req{'subject'}) || 40); } LJ::need_res( qw( stc/talkpage.css ) ); $ret .= "" . BML::ml( ".title", { sitenameshort => $LJ::SITENAMESHORT } ) . "\n"; $ret .= "body<=\n"; $ret .= "

"; if ($u) { $ret .= ""; my $pic = LJ::Userpic->new_from_keyword( $up, $req{prop_picture_keyword} ); my $imgtag = $pic ? $pic->imgtag : undef; $ret .= "" if $imgtag; $ret .= "
$imgtag"; if ( $u->is_community ) { $ret .= BML::ml("talk.somebodywrote_comm", { 'realname' => LJ::ehtml($up->{'name'}), 'userlink' => LJ::ljuser($up), 'commlink' => LJ::ljuser($u) }); } else { $ret .= BML::ml("talk.somebodywrote", { 'realname' => LJ::ehtml($up->{'name'}), 'userlink' => LJ::ljuser($up) }); } my $etime = LJ::date_to_view_links($u, "$req{'year'}-$req{'mon'}-$req{'day'}"); $req{'hour'} = int($req{'hour'}); $req{'min'} = int($req{'min'}); $ret .= "
@ $etime $req{'hour'}:$req{'min'}:00"; $ret .= "
"; } ## dump the log entry, unless we're browsing a thread. my %current = LJ::currents( \%req, $up, { key => 'prop_' } ); # custom friend groups if ( $u ) { $current{Groups} = $u->security_group_display( $req{allowmask} ); delete $current{Groups} unless $current{Groups}; } my @taglist = (); LJ::Tags::is_valid_tagstring( $POST{prop_taglist}, \@taglist ); if ( @taglist ) { my $base = $u ? $u->journal_base : ""; $current{Tags} = join( ', ', map { "" . LJ::ehtml( $_ ) . "" } @taglist ); } $ret .= "

"; $ret .= LJ::currents_table( %current ); ### security indicator my $sec = ""; if ($req{'security'} eq "private") { $sec = BML::fill_template("securityprivate"); } elsif ($req{'security'} eq "usemask") { $sec = BML::fill_template("securityprotected"); } $sec .= "
\n" unless $sec eq "" or $req{'subject'}; $ret .= $sec; ### if ($subject) { BML::ebml( \$subject ); $ret .= "
$subject

\n"; } $ret .= BML::ebml( $event ); $ret .= "
"; $ret .= "

\n"; $ret .= $preview_warn_text . "\n"; $ret .= "

"; $ret .= "
"; $ret .= "\n<=body"; $ret .= "\npage?>"; } else { $LJ::S2::ret_ref = \$ret; my $opts; $opts->{'r'} = $apache_r; $u->{'_s2styleid'} = $styleid + 0; $u->{'_journalbase'} = $u->journal_base; $LJ::S2::CURR_CTX = $ctx; my $p = LJ::S2::Page($u, $opts); $p->{'_type'} = "EntryPreviewPage"; $p->{'view'} = "entry"; $p->{'comment_pages'} = undef; $p->{'comments'} = []; $p->{'comment_pages'} = undef; $p->{'preview_warn_text'} = $preview_warn_text; my $userlite_journal = LJ::S2::UserLite($u); my $userlite_poster = LJ::S2::UserLite($up); my $userpic = LJ::S2::Image_userpic($up, 0, $req{'prop_picture_keyword'}); my $comments = LJ::S2::CommentInfo({ 'read_url' => "#", 'post_url' => "#", 'permalink_url' => "#", 'count' => "0", 'maxcomments' => 0, 'enabled' => ($u->{'opt_showtalklinks'} eq "Y" && ! $req{'prop_opt_nocomments'}) ? 1 : 0, 'screened' => 0, }); # build tag objects, faking kwid as '-1' # * invalid tags will be stripped by is_valid_tagstring() my @taglist = (); LJ::Tags::is_valid_tagstring($POST{prop_taglist}, \@taglist); @taglist = map { LJ::S2::Tag($u, -1, $_) } @taglist; # build metadata props $req{props}->{$_} = $req{"prop_".$_} foreach ( qw( current_music current_location current_coords current_moodid current_mood ) ); # custom friends groups my $group_names = $u ? $u->security_group_display( $req{allowmask} ) : undef; # format it my $raw_subj = $req{'subject'}; my $s2entry = LJ::S2::Entry($u, { 'subject' => $subject, 'text' => $event, 'dateparts' => "$req{'year'} $req{'mon'} $req{'day'} $req{'hour'} $req{'min'} 00 ", 'security' => $req{'security'}, 'allowmask' => $req{'allowmask'}, 'props' => $req{'props'}, 'itemid' => -1, 'comments' => $comments, 'journal' => $userlite_journal, 'poster' => $userlite_poster, 'new_day' => 0, 'end_day' => 0, 'tags' => \@taglist, 'userpic' => $userpic, 'permalink_url' => "#", adult_content_level => $req{prop_adult_content}, group_names => $group_names, }); $p->{'multiform_on'} = 0; if ($u->should_block_robots) { $p->{'head_content'} .= LJ::robot_meta_tags(); } $p->{'head_content'} .= '\n"; # Don't show the navigation strip or invisible content $p->{'head_content'} .= qq{ }; $p->{'entry'} = $s2entry; $p->{'comments'} = []; $p->{'viewing_thread'} = 0; my $copts; $copts->{'out_pages'} = $copts->{'out_page'} = 1; $copts->{'out_items'} = 0; $copts->{'out_itemfirst'} = $copts->{'out_itemlast'} = undef; $p->{'comment_pages'} = LJ::S2::ItemRange({ 'all_subitems_displayed' => ($copts->{'out_pages'} == 1), 'current' => $copts->{'out_page'}, 'from_subitem' => $copts->{'out_itemfirst'}, 'num_subitems_displayed' => 0, 'to_subitem' => $copts->{'out_itemlast'}, 'total' => $copts->{'out_pages'}, 'total_subitems' => $copts->{'out_items'}, '_url_of' => sub { return "#"; }, }); LJ::S2::s2_run($apache_r, $ctx, $opts, "EntryPage::print()", $p); BML::ebml(\$ret); } return $ret; } _code?>