#日本語コード変換ライブラリの場所
require './jcode.pl';
require './mimew.pl'; (Ａ)の場合
require './b64mclib.pl'; (Ｂ)の場合
#
      ・
　　 省略
      ・
sub sendmail{

	&timeget;
	$formco = @SNADATE;
	$formco -= 1;

	&jcode'convert(*subje,'jis'); (Ｂ)の場合削除可
	$subje = &mimeencode($subje); (Ａ)の場合
	b64mc::Bace64Encode(\$subject, 'jis', 1); (Ｂ)の場合
	&jcode'convert(*title,'jis');
	&jcode'convert(*TIME,'jis');

#日本語コード変換ライブラリの場所
require './jcode.pl';
require './mimew.pl'; (Ａ)の場合
require './b64mclib.pl'; (Ｂ)の場合
#
      ・
　　 省略
      ・
sub sendmail{

	&timeget;
	$formco = @SNADATE;
	$formco -= 1;
	$tomail = "佐藤 <$masmail>";

	&jcode'convert(*subje,'jis'); (Ｂ)の場合削除可
        ▼ (Ａ)の場合
	$subje = &mimeencode($subje);
	&jcode'convert(*tomail,'jis');
	$tomail = &mimeencode($tomail);
        ▼ (Ｂ)の場合
	b64mc::Bace64Encode(\$subject, 'jis', 1);
	b64mc::Bace64Encode(\$tomail, 'jis', 1);

	&jcode'convert(*title,'jis');
	&jcode'convert(*TIME,'jis');

-------------- ディフォルト -------------
sub filedisp {

	if (!open(FILE,">$bbsdate")) { &unlock;&massehtml($no = 0); }
	eval 'flock(FILE,2);';
	print FILE @BDATE;
	eval 'flock(FILE,8);';
	close(FILE);
}

--------------  編集後  -----------------
sub filedisp {

	$temp = $bbsdate . "_tmp";

	if (!open(FILE,">$temp")) { &unlock;&massehtml($no = 0); }
	eval 'flock(FILE,2);';
	print FILE @BDATE;
	#eval 'flock(FILE,8);';
	close(FILE);

	if($#BDATE >= 0){ rename($temp,$bbsdate); }

}

• 良くファイルロックが残ってしまうと言う方は以下の方法等を試してみるのも良いでしょう。
  
  

  $SIG{INT} = $SIG{HUP} = $SIG{QUIT} =  $SIG{PIPE} = 
  		$SIG{TERM} = $SIG{KILL} = "unlock";
  
  sub unlock {
  	if (-e $lockfile) { unlink($lockfile); }
  }
  

• アラームシグナルを利用する場合。
  
  

  $SIG{'ALRM'} = "timeout";
  
  alarm(5);
  
  処理文
  
  alarm(0);
  
  sub timeout {
  	print "Content-type: text/plain\n\n";
  	print "タイムアウトになりました。\n"
  	exit;
  }
  

• 当サイト配布 [ Mini Diary ] を使います。
  当ホームページの左下にあるカレンダーのように、下線の付いた日付にマウスをあてると ステータスバー及びポップアップでその日のメモが表示されます。
  
  カスタマイズ ： calender.pl 214行目〜

  open(LOG, "<$url"); while (){ $_ =~ ... 省略 ...
  #$link = '<a class=Ca href="javascript ... 省略 ...
  #		'\',\'' . $log . '\')">'  ... 省略 ...
  $link = '<u><font onmouseover="window.status=\'' . $log . 
  	'\';return true;" style="cursor:pointer;" title="' . 
  		$log . '">' . $lname . '</font></u>' . "\n";
  

  ・	現在のコメントデータがある場合の処理部分をコメントアウトし赤文字の部分を追加し入れ替えをします。( # はコメントアウト )
  ・	title = ポップアップ表示、window.status = ステータスバー表示となります。
  ※	style="cursor:pointer;" はポインターを矢印から指にする為の記述です。