sub NickySerch{
my($aaa, $gomi, $fn, $fname, $gfn);
my($find, $startno);
my($pageno, $flaglog);
my($cnt);

$ModeSub=16;
$Mode="MONTH";
#ヘッダを出力
&nickyGetHead();
if( $UseSearchHD eq "Yes" ){
print &put_macro($head2nd);
}else{
print &put_macro($head);
}
print "$br検索キーワード『$SerchWord』$br\n";

$SerchWord=~s/\"/\\\"/g;
$SerchWord=~s/\'/\\\'/g;
$SerchWord=~s/\`/\\\`/g;
$SerchWord=~s/\\/\\\\/g;
$SerchWord=~s/\|/\\\|/g;
$SerchWord=~s/\?/\\\?/g;
$SerchWord=~s/\//\\\//g;
$SerchWord=~s/\-/\\\-/g;
$SerchWord=~s/\*/\\\*/g;
$SerchWord=~s/\=/\\\=/g;
$SerchWord=~s/\&/\\\&/g;
$SerchWord=~s/\,/\\\,/g;
$SerchWord=~s/\(/\\\(/g;
$SerchWord=~s/\)/\\\)/g;
$SerchWord=~s/　/ /g;
$SerchWord=~tr/ / /s;
$SerchWord=~s/^ //;
$SerchWord=~s/ $//;
$SerchWord=~s/ (or|OR|ｏｒ|ＯＲ) /\|/g;
@nli=&GetNickyList("r") if( !@nli );
SLABEL:for $gfn(@nli){
$NickyFname="$vDir/$$gfn[0]";
&GetDateFromFname();
&GetNickyFile($NickyFname);

next if( !$Title && !$Message );
$msg=$SerchWord;
$Tmessage = $Title.$Message;
$Tmessage =~ s/<[^>]*>//g;
@SWord = split(/ /, $SerchWord);
$cword = @SWord;
for($i = 0; $i<$cword; $i++){
next SLABEL if($Tmessage !~ /$SWord[$i]/);
}
&PutNickyOneDay();
print "$br";
}

&NickyReturn();
if( $UseSearchFT eq "Yes" ){
print &put_macro($foot2nd);
}else{
print &put_macro($foot);
}
}