#! /usr/local/bin/perl

#
#	くずはすくりぷと Rev.0.1 Preview 9 (2000.9.3)
#	 (書き込み検索用関数群)
#

#	変更　逆順表示など
#	$FORM{'reverse'}に値をセットすれば逆順表示になる

###############################################################################
#  検索・結果表示
###############################################################################

sub srcmessage {
	
	my ( @success, $i, );
	
	&prterror ( 'パラメータがありません。' ) if ( !$FORM{'s'} );
	&loadmessage;
	
	&prthtmlhead ( "$bbstitle 投稿検索" );
	print <<EOF;
<A name="top"><A href="#bottom" accesskey="B">▼</A></A>
 <A href="$cgiurl?m=$FORM{'m'}&s=$FORM{'s'}&d=$FORM{'d'}&c=$FORM{'c'}" accesskey="N">新しい順表\示(N)</A>
 <A href="$cgiurl?m=$FORM{'m'}&s=$FORM{'s'}&reverse=1&d=$FORM{'d'}&c=$FORM{'c'}" accesskey="P">古い順表\示(P)</A>
 <A href="$cgiurl?d=$FORM{'d'}&c=$FORM{'c'}" accesskey="K">掲示板へ(K)</A>
 <A href="$cgiurl?m=g&d=$FORM{'d'}&c=$FORM{'c'}" accesskey="O">過去ログへ(O)</A>
<HR>
EOF
	
	if ( $FORM{'m'} eq 's' ) {
		for ( $i =0 ; $i < $#logdata + 1; $i++ ) {
			&getmessage ( $logdata[$i] );
			if ( $FORM{'s'} eq $user ) {
				$toppostid = $postid;
				push ( @success, &prtmessage ( 3, '' ) );
			}
		}
	}
	
	if ( $FORM{'m'} eq 't' ) {
		for ( $i = 0 ; $i < $#logdata + 1; $i++ ) {
			&getmessage ( $logdata[$i] );
			if ( $FORM{'s'} eq $thread || $FORM{'s'} eq $postid ) {
				$toppostid = $postid;
				if ( $FORM{'ff'} ) {
					push ( @success, &prtmessage ( 1, $FORM{'ff'} ) );
				} else {
					push ( @success, &prtmessage ( 0, '' ) );
				}
			}
		}
	}
	
	if ( !@success ) {
		print "<H3>指定されたメッセージが見つかりません。</H3></BODY></HTML>";
		exit;
	}
	
	if ( $FORM{'reverse'} ) {
		foreach ( reverse ( @success ) ) { print $_; }
	} else {
		foreach ( @success ) { print $_; }
	}
	
	print <<EOF;
<A name="bottom"><A href="#top" accesskey="T">▲</A></A>
 <A href="$cgiurl?m=$FORM{'m'}&s=$FORM{'s'}&d=$FORM{'d'}&c=$FORM{'c'}" accesskey="N">新しい順表\示(N)</A>
 <A href="$cgiurl?m=$FORM{'m'}&s=$FORM{'s'}&reverse=1&d=$FORM{'d'}&c=$FORM{'c'}" accesskey="P">古い順表\示(P)</A>
 <A href="$cgiurl?d=$FORM{'d'}&c=$FORM{'c'}" accesskey="K">掲示板へ(K)</A>
 <A href="$cgiurl?m=g&d=$FORM{'d'}&c=$FORM{'c'}" accesskey="O">過去ログへ(O)</A>
 </BODY></HTML>
EOF
	exit;
}


1;


__END__