git.cworth.org Git - sup/blob - lib/sup/draft.rb

   1 module Redwood
   2
   3 class DraftManager
   4   include Singleton
   5
   6   attr_accessor :source
   7   def initialize dir
   8     @dir = dir
   9     @source = nil
  10     self.class.i_am_the_instance self
  11   end
  12
  13   def self.source_name; "drafts://"; end
  14   def self.source_id; 9999; end
  15   def new_source; @source = DraftLoader.new; end
  16
  17   def write_draft
  18     offset = @source.gen_offset
  19     fn = @source.fn_for_offset offset
  20     File.open(fn, "w") { |f| yield f }
  21
  22     @source.each do |offset, labels|
  23       m = Message.new :source => @source, :source_info => offset, :labels => labels
  24       Index.add_message m
  25       UpdateManager.relay :add, m
  26     end
  27   end
  28
  29   def discard mid
  30     docid, entry = Index.load_entry_for_id mid
  31     raise ArgumentError, "can't find entry for draft: #{mid.inspect}" unless entry
  32     raise ArgumentError, "not a draft: source id #{entry[:source_id].inspect}, should be #{DraftManager.source_id.inspect} for #{mid.inspect} / docno #{docid}" unless entry[:source_id].to_i == DraftManager.source_id
  33     Index.drop_entry docid
  34     File.delete @source.fn_for_offset(entry[:source_info])
  35     UpdateManager.relay :delete, mid
  36   end
  37 end
  38
  39 class DraftLoader < Source
  40   attr_accessor :dir
  41
  42   def initialize cur_offset=0
  43     dir = Redwood::DRAFT_DIR
  44     Dir.mkdir dir unless File.exists? dir
  45     super "draft://#{dir}", cur_offset, true, false
  46     @dir = dir
  47   end
  48
  49   def id; DraftManager.source_id; end
  50   def to_s; DraftManager.source_name; end
  51
  52   def each
  53     Dir.entries(@dir).select { |x| x =~ /^\d+$/ }.sort_by { |x| x.to_i }.each { |id| yield [id, [:draft]] }
  54   end
  55
  56   def gen_offset
  57     i = cur_offset
  58     while File.exists? fn_for_offset(i)
  59       i += 1
  60     end
  61     i
  62   end
  63
  64   def fn_for_offset o; File.join(@dir, o.to_s); end
  65
  66   def load_header offset
  67     File.open fn_for_offset(offset) do |f|
  68       return MBox::read_header(f)
  69     end
  70   end
  71
  72   def load_message offset
  73     File.open fn_for_offset(offset) do |f|
  74       RMail::Mailbox::MBoxReader.new(f).each_message do |input|
  75         return RMail::Parser.read(input)
  76       end
  77     end
  78   end
  79
  80   def raw_header offset
  81     ret = ""
  82     File.open fn_for_offset(offset) do |f|
  83       until f.eof? || (l = f.gets) =~ /^$/
  84         ret += l
  85       end
  86     end
  87     ret
  88   end
  89
  90   def raw_full_message offset
  91     ret = ""
  92     File.open fn_for_offset(offset) do |f|
  93       ret += l until f.eof?
  94     end
  95     ret
  96   end
  97
  98   def start_offset; 0; end
  99   def end_offset; Dir.new(@dir).entries.sort.last.to_i; end
 100 end
 101
 102 Redwood::register_yaml(DraftLoader, %w(cur_offset))
 103
 104 end