yabb2/Sources/Post.pm

91     $threadid = $INFO{'num'};
176     if ( $threadid ne q{} ) {
177         if ( !ref $thread_arrayref{$threadid} ) {
178             fopen( FILE, "$datadir/$threadid.txt" )
179               or fatal_error( 'cannot_open', "$datadir/$threadid.txt", 1 );
180             @{ $thread_arrayref{$threadid} } = <FILE>;
187             ) = split /\|/xsm, ${ $thread_arrayref{$threadid} }[$quotemsg];
205 qq~[quote author=$hidename link=$threadid/$quotemsg#$quotemsg date=$mdate\]\[/quote\]\n~
226 qq~[quote author=$hidename link=$threadid/$quotemsg#$quotemsg date=$mdate\]$message\[/quote\]\n~;
233             ) = split /\|/xsm, ${ $thread_arrayref{$threadid} }[0];
325         if ( $iamguest && $threadid ne q{} ) { $settofield = 'name'; }
346             ManageThreadNotify( 'load', $threadid );
389         $nofav = IsFav( $threadid, q{}, 1 );
415         if ($threadid) {
417               qq~<a href="$scripturl?num=$threadid" class="nav">$subtitle</a>~;
601 <input type="hidden" name="threadid" value="$threadid" />
629     if (   $threadid
682             if ( $threadid == <FILE> ) { $scchecked = ' checked="checked"'; }
1411         if ( $threadid ne q{} && $post eq 'post' ) { doshowthread(); }
1464     $threadid = $FORM{'threadid'};
1465     if ( $threadid =~ /\D/xsm ) { fatal_error('only_numbers_allowed'); }
1497     if ( !$threadid ) {
1867     if ( $threadid eq q{} ) {
1984         fopen( UPDATE_CTB, "+<$datadir/$threadid.ctb", 1 )
1985           or fatal_error( 'cannot_open', "$datadir/$threadid.ctb", 1 );
1988                 ${$threadid}{$1} = $2;
1994           qq~### ThreadID: $threadid, LastModified: $newtime ###\n\n~
1998         if ( ${$threadid}{'board'} ne $currentboard ) {
1999             if ( AccessCheck( ${$threadid}{'board'}, 2 ) ne 'granted' ) {
2002                       qq~'$tag[$cnt]',"${$threadid}{$tag[$cnt]}"\n~
2011             $currentboard = ${$threadid}{'board'};
2015         ${$threadid}{'board'} = $currentboard;
2016         ${$threadid}{'replies'}++;
2017         ${$threadid}{'lastposter'}   = $iamguest ? "Guest-$name" : $username;
2018         ${$threadid}{'lastpostdate'} = $date;
2019         ${$threadid}{'threadstatus'} = $mstate;
2022             print {UPDATE_CTB} qq~'$tag[$cnt]',"${$threadid}{$tag[$cnt]}"\n~
2029         $mreplies = ${$threadid}{'replies'};
2035                 print {SCFILE} $threadid or croak "$croak{'print'} SCFILE";
2038             fopen( POLL, ">$datadir/$threadid.poll" );
2059         fopen( THREADFILE, ">>$datadir/$threadid.txt" )
2060           or fatal_error( 'cannot_open', "$datadir/$threadid.txt", 1 );
2080             ReplyNotify( $threadid, $subject, $mreplies );
2117     $thread = $newthreadid || $threadid;
2387     if ( !ref( $thread_arrayref{$threadid} ) && $threadid ) {
2388         fopen( THREADFILE, "$datadir/$threadid.txt" )
2389           or fatal_error( 'cannot_open', "$datadir/$threadid.txt", 1 );
2390         @{ $thread_arrayref{$threadid} } = <THREADFILE>;
2393     my @messages = @{ $thread_arrayref{$threadid} };
2401 qq~ $post_cutts{'3a'} <a href="$scripturl?action=post;num=$threadid;title=PostReply$INFO{'start'};s…
2408 qq~$post_cutts{'3'} $post_cutts{'3a'} <a href="$scripturl?action=post;num=$threadid;title=PostReply…
2467             ( $message, undef ) = Split_Splice_Move( $message, $threadid );
2480 …? qq~&nbsp;&nbsp;<a href="javascript:void(quoteSelection('$quote_mname',$threadid,$quote_msg_id,$m…
2485 …? qq~$menusep<a href="javascript:void(quoteSelection('$quote_mname',$threadid,$quote_msg_id,$messa…
2598     $threadid = $FORM{'threadid'};
2600     if ( $threadid =~ /\D/xsm ) { fatal_error('only_numbers_allowed'); }
2697     $thread = $newthreadid || $threadid;
2717     $threadid = $INFO{'num'};
2777     if ( $threadid ne q{} ) {
2778         if ( !ref $thread_arrayref{$threadid} ) {
2779             fopen( FILE, "$datadir/$threadid.txt" )
2780               or fatal_error( 'cannot_open', "$datadir/$threadid.txt", 1 );
2781             @{ $thread_arrayref{$threadid} } = <FILE>;
2788             ) = split /\|/xsm, ${ $thread_arrayref{$threadid} }[$quotemsg];
2803 qq~[quote author=$hidename link=$threadid/$quotemsg#$quotemsg date=$mdate\]\[/quote\]\n~
2812 qq~[quote author=$hidename link=$threadid/$quotemsg#$quotemsg date=$mdate\]$message\[/quote\]\n~;
2820             ) = split /\|/xsm, ${ $thread_arrayref{$threadid} }[0];
2865     $threadid = $FORM{'threadid'};
2868     if ( $threadid =~ /\D/xsm ) { fatal_error('only_numbers_allowed'); }
3064     $yySetLocation = qq~$scripturl?num=$threadid/$postid#$postid~;