#! /usr/local/bin/perl

#
#	͂Ղ Rev.0.1 Preview 9 (2000.9.3)
#	 (݌p֐Q)
#

#	ύX@t\Ȃ
#	$FORM{'reverse'}ɒlZbg΋t\ɂȂ

###############################################################################
#  Eʕ\
###############################################################################

sub srcmessage {
	
	my ( @success, $i, );
	
	&prterror ( 'p[^܂B' ) if ( !$FORM{'s'} );
	&loadmessage;
	
	&prthtmlhead ( "$bbstitle e" );
	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">V\\(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">f(K)</A>
 <A href="$cgiurl?m=g&d=$FORM{'d'}&c=$FORM{'c'}" accesskey="O">ߋ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>w肳ꂽbZ[W܂B</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">V\\(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">f(K)</A>
 <A href="$cgiurl?m=g&d=$FORM{'d'}&c=$FORM{'c'}" accesskey="O">ߋO(O)</A>
 </BODY></HTML>
EOF
	exit;
}


1;


__END__
