映画とネットのDIARY(tDiary版）

■ Yahooメールは削除

Spam Mail Killerでそう設定してみた。フリーメール（yahoo.co.jp）を利用したSpamが多すぎるのだ。といっても、MLなどでYahooメールを使っている人もいるので（@niftyのWebメールで検索してみたら、約1100件中60件余りあった）、もちろん、知人やMLのアドレスは削除しないように設定。初めてのメールでYahooメールを使う人もいるだろうから、サーバーから削除しても本文はログに保存することにした。本文を全文保存すると、ウィルスソフトが反応するし、無駄にも思えるのだが、まあ仕方がない。

Spam Mail Killerはヘッダー情報だけの削除設定ではすり抜けるメールが多いので、本文の禁止語なども登録していく必要がある。複合リストを作って３つ以上の禁止語が含まれている場合は削除するようにしているが、それでもすり抜けるメールは出てくる。Yahooメールの一括削除はそれを防ぐため。禁止アドレスを登録していくだけでは、きりがない。

■ キーワード・リストアップ秀丸マクロ

　Spamに絡んで、どれぐらいYahooメールがあるかをSpam Mail Killerのログからチェックするために書いた。キーワードのある行を新規ファイルにすべてリストアップする。けど、Spam Mail Killerのログにはメールアドレスがfromとreply-toの２カ所にあるので、一度実行した後、リストアップされたファイル上でもう一度、fromを対象にマクロを実行する必要がある。もちろん、他のログでも使えます。

//listup.mac
copy2;
beginclipboardread;
$clip = getclipboard;
question "クリップボードに「" + $clip + "」があります。
          \nこのキーワードのある行をリストアップしますか？";
   if(result==yes){
   $key=$clip;
   call chksub;
   }else{
   $key=input("リストアップしたい行のキーワードを入力してください");
   call chksub;}
endmacro;
 
chksub:
if(imestate == 1){
    if(strlen($key) == 2){
    question "「" + $key+"」は全角１文字です。\nそれでも実行しますか？";
        if(result==yes){call keysub;}
      else{endmacro;}
    }
}
if(strlen($key) ==1){
   question "「"+$key+"」は半角1文字です。\nそれでも実行しますか？";}
          if(result==yes){
	message "「" + $key + "」のある行をリストアップします。\n中止する場合はESCキーを押してください。";
	call keysub;}
          else{endmacro;}
return;
 
keysub:
  if($key==""){
  message "何もせずにマクロを終了します。";
  endmacro;
  }else{
  title "リストアップ中...中止する場合はESCキーを押してください";
  #count=0;
  gofileend;
  #lineno=lineno;
  gofiletop;
  #lineno2=lineno;
  golinetop;
  #i = 0;
    while(#lineno2 < #lineno){
    searchdown $key;
      if(result==yes){
      copyline;
      beginclipboardread;
      $word[#i] = getclipboard;
      #i = #i+1;
      #count=#count + 1;
      }else{break;}
   }
if(#count==0){
message "キーワード「"+$key+"」は見つかりませんでした。";
}else{
   openfile "";
   #i2 = 0;
   while(#i2 < #i){
   insert $word[#i2];
   #i2 = #i2+1;
   }
$count=str(#count);
message  "「" + $key + "」のある行を\n" + $count + "行リストアップしました";
	}
}
return;

■ 文字化け

xyzzyで更新したページをアップしたら、ページが文字化けした。うーん、バイナリモードだからなあ。これまでに転送したページも化けている可能性がある。で、「シネマ１９８７online」のページをいくつか見直したら、あるある。これはxyzzyだけでなく他のFTPソフトで転送する時に文字コードか改行コードを間違った可能性がある。特に映画評のページに文字化けが多い。仕方がないので全ページをチェックしてみた。

といっても文字化けを確認するのに速い方法はない。リンクをクリックしていくだけ。やっているうちにクリックよりもキーボードの方が速いのに気づいた。タブでリンクを選んでエンターキーを押し、戻る時はバックスペース。これが一番速いな。といってもファイルが多いので１時間はかかった。

その結果、ざっと20ページは文字化けしていた。うーん、サーバーを移転した時に化けた可能性もあるな。