minibbs.cgi�������������B
�r�����s���l�������������B�q���g�����������K�������B
���������������������B

�^�C�g���������A�������y�[�W���\ｦ���������������A�����{�^������������
�u���w���������������������������v���\ｦ�����������������B
���A���X�N���v�g�����������������B

1�j minibbs.cgi������������������

if($in{'action'} eq 'Search' ){
			@messages = &ReadFile($message_file);
			&Search ;
		}
if ($in{'action'} eq 'Set_MasterPassword ') {
			&Set_MasterPassword ; 
		}
exit;

�����������������T�u���[�`�� (&Search) ���������B

2�j
sub Search{
		#�y�[�W����	
		$page_control=0;
		$hit=0;####
		$ff=$in{'next_num'};						# �����y�[�W�������������s��
		if($ff eq ""){$ff=1;}
#����������
	foreach $line (@messages) {
		#�y�[�W����
		$line=~s/\n//;
		$page_control++;
		if( $ff > $page_control) { next; }				# �����y�[�W������������

3�j# �����I������
#�y�[�W����	
		$hit++;
		if ( $hit <= $page ) { push ( @NEWS,$line) ; }		#$page���y�[�W�����\ｦ����
		else { $next_num = $page_control; last; }
	}

4�j�m�����y�[�W�n���������������f�[�^���M���X�N���v�g
	if (@NEWS) { 
	#�y�[�W����	
		print "<form action=\"$ENV{'SCRIPT_NAME'}?log=$cmd{'log'}\" method=\"POST\">\n";
�@foreach $message (@NEWS) {

�@�@�r����

		if(@NEWS) {
			#�y�[�W����
			print "<input type=\"hidden\" name=\"next_num\" value=\"$next_num\">\n";
			print "<input type=\"hidden\" name=\"action\" value=\"Search\">\n";
			print "<input type=\"submit\" value=\"�����y�[�W\"></bn>\n";		
		}
	}else { print "�����w��������������������������������.<p>\n"; }
   print "</form>

�@�@�r����
}

���������������B
�����X�N���v�g�����A�m�����y�[�W�n�{�^�������������A
��NWES���f�[�^���������������u�����w��������������������������������.�v
���\ｦ�������������A�����y�[�W���\ｦ�����������B
ｩ���������������������������������A���������������������B
�A�h�o�C�X�����������������K�������B
�������������������������B