まさおのChangeLogメモ / 2007-03-06

- 所蔵図書館マップ: 9 users
by NACSIS-CAT
- Database of Web Robots, Overview: 48 users
- Valgrind Home: 1586 users
- ＠IT：Windows TIPS -- Tips：ディスク・クリーンアップをバッチ実行する: users
- News | 国立情報学研究所: users
「Web 2.0に向けた新たな情報検索技術の研究を開始― 「Yahoo!知恵袋」の研究利用による情報アクセスの新展開 ―」報道発表・プレスリリース資料

cf.[2006-05-23]

またQuota制限に近付いているようなので、スパムだけ消してみる。

#!/usr/bin/env ruby
# $Id$

require 'net/imap'
require 'ftools'
require "tempfile"
require "kconv"
require "time"

require "bsfilter"

HOST = "mp.nii.ac.jp"
UID = "masao"
PASSWORD = "XXXXXXXX"

bsfilter = Bsfilter.new
bsfilter.setup( ARGV + [ "-q" ])

delete_list = []

imap = Net::IMAP.new(HOST)
imap.login(UID, PASSWORD)
imap.select("INBOX")
# 90日(約3ヶ月)以上前のものに限定
before90days = ( Time.now - 60*60*24*90 ).strftime( "%d-%b-%Y" )
p before90days
uid_list = imap.uid_search( [ "BEFORE", before90days ] )
puts "loading #{ uid_list.size } mails..."

uid_list.each do |uid|
   m = imap.uid_fetch( uid, ["RFC822","ENVELOPE","INTERNALDATE"])[0]
   tmpf = Tempfile.open( File.basename( $0 ) )
   tmpf.puts m.attr["RFC822"].gsub(/\r$/, "")
   if bsfilter.run( tmpf.path )
      puts Time.parse( m.attr["INTERNALDATE"] )
      puts "Subject: " << NKF.nkf("-me", m.attr["ENVELOPE"].subject.to_s ).gsub(/\s+/, " ")
      delete_list << uid
   end
end

puts "deleting #{ delete_list.size } mails ..."
imap.uid_store( delete_list, "+FLAGS", [:Deleted] )
imap.expunge
imap.disconnect

→ だいたい8000通消えました。

90日以前に限定しているのは念のためというだけで、あまり意味はありま
せんが。

bsfilter のインタフェースがよく分からなくて Tempfile かましていた
り、fetch が遅かったため、毎回ネットワークアクセスしたりで、相当遅
くなってますが…。