class DocomoWebMailer

# File lib/docomo_web_mailer.rb, line 29
def initialize()
  @agent = Mechanize.new
  @id = 0
  @agent.user_agent_alias = 'Mac Safari'
end

# File lib/docomo_web_mailer.rb, line 104
def append_client_flag(uid,flag="flagged")
  rcp( "mail_label", [ [ T( A(:append), T( A(:client_flag), A(flag) ), null, [ to_uid(uid) ] ) ], 10000 ] )
end

# File lib/docomo_web_mailer.rb, line 79
def attachment(mimepart)
  url = "/pc/attachment.php?url=#{u(mimepart.attache_info)}"
  url += "&df=#{u(mimepart.filename.to_s)}" if mimepart.filename
  @agent.get_file(url)
end

# File lib/docomo_web_mailer/convert_mail.rb, line 2
def convert_mail(header)
  text = headers.to_s
  text += "\n\n"
  if parts.parts.size == 1
    data = mail_get_attache( parts.parts[0] )
    text +="#{data}"
  else
    h = nil
    raise "unknown type header #{text}" unless headers.find{|k,v| k == "content-type" and v =~ /boundary=(.*)$/}
    boundary = $1.dup.strip.gsub(/^"(.*)"$/,'\1').gsub(/^'(.*)'$/,'\1')
    for part in parts.parts
      body = mail_get_attache( part )
      header = []
      header << "--#{boundary}"
      content_type = part.content_type
      if part.inline_head and part.inline_head.find{|n,v| n == 'content-type'}
        content_type = part.inline_head.find{|n,v| n == 'content-type'}[1]
      end
      puts "content_type=#{content_type}"
      header << "Content-Type: #{content_type}"
      is_text = content_type =~ /^text\//
      if is_text
        header << "Content-Transfer-Encoding: 8bit"
      else
        header << "Content-Transfer-Encoding: base64"
      end
      header << "Content-ID: #{part.contentid}" if part.contentid
      if part.disposition
        if part.filename
          header << "Content-Disposition: #{part.disposition}; filename=#{part.filename}"
        else
          header << "Content-Disposition: #{part.disposition}"
        end
      end
      header << ""
      if is_text
        header << body
      else
        header << Base64.encode64(body)
      end
      header << ""
      text += header.join("\n")
    end
    text +="--#{boundary}--\n"
  end
  text
end

# File lib/docomo_web_mailer.rb, line 35
def login(id,password)
  page = @agent.get("http://dwmail.jp/")
  form = page.form_with(:name => "f1")
  raise "login error: cant find login form" unless form
  form.field_with(:name => "uname").value = id
  form.field_with(:name => "pass").value = password
  res = @agent.submit(form)
  raise "login error (id/pass illegal) " if res.form_with(:name => "f1")
end

# File lib/docomo_web_mailer.rb, line 94
def mail_get_headers(maillistitem)
  AllMailHeaders.new *rcp( "mail_get_headers", [ to_uid(maillistitem), A(:infinity) ] )
end

# File lib/docomo_web_mailer.rb, line 74
def mail_get_parts(uid)
  Mailparts.new *rcp("mail_get_parts", [ to_uid(uid), [ T( A(:bodypref), [ "*/*" ] ), T( A(:bodyparse), A(:off) ) ], MAX_SIZE ])
end

# File lib/docomo_web_mailer.rb, line 85
def mail_label_list
  MailLabelList.new( *rcp( "mail_label", [ [
    T( A(:list), [ A(:server_folder) ], A(:ascending) ),
    T( A(:list), [ A(:user_folder) ], A(:ascending) ),
    T( A(:list), [ A(:user_flag) ], A(:ascending) )
  ], 10000 ] ) )
end

# File lib/docomo_web_mailer.rb, line 69
def mail_list_get(maillist, start,limit )
  Maillist.new( *rcp( "mail_list_get", [ maillist.sign, T( T( A(:plain), A(:uid) ), A(:descending), start, limit ), MAX_SIZE ] ) )
end

# File lib/docomo_web_mailer.rb, line 46
def mail_list_start(maillabel,limit)
  place = [ A(:server_folder), A(maillabel) ]
  if maillabel.is_a? MailLabel
    place = [ A(maillabel.place), A(maillabel.index) ]
  elsif maillabel.is_a? String
    place[0]['$A']="user_folder"
  end
  Maillist.new( *rcp("mail_list_start",[ 1, T( nil, T(
      # 得たいフォルダの場所
      [ T(*place) ],
      # 不明
      [ ],
      # 不明
      [ T( A(:client_flag), A(:recent) ) ],
      # 得たい付加情報？
      [ A(:server_flag), A(:client_flag), A(:server_folder), A(:user_folder), A(:user_flag) ]
      ) ),
    # 並び順と数？
    T( T( A(:plain), A(:uid) ), A(:descending), nil, limit ),
    # 不明
    nil, MAX_SIZE, MAX_SIZE ]) )
end

# File lib/docomo_web_mailer.rb, line 99
def make_mail_to_smtp(uid)
  Builder.new(self).build( uid )
end

# File lib/docomo_web_mailer.rb, line 173
def rcp( method,params )
  @id += 1
  result = Parser.rcp_to_ruby(JSON.parse(@agent.post("http://pc.dwmail.jp/api/base/rpc/1.0", {
    :id => @id.to_s,
    :method => method.to_s,
    :params => params,
    :version=>"1.1"
  }.to_json ).body))
  unless result["error"]
    return result["result"]
  else
    require 'pp'
    pp result['error']
    pp params
    raise "error ! #{result['error']}"
  end
end

# File lib/docomo_web_mailer.rb, line 109
def remove_client_flag(uid,flag="flagged")
  rcp( "mail_label", [ [ T( A(:remove), T( A(:client_flag), A(flag) ), null, [ to_uid(uid) ] ) ], 10000 ] )
end

# File lib/docomo_web_mailer.rb, line 113
def to_uid( maillistitem )
  maillistitem = maillistitem.to_i if maillistitem.is_a? String
  maillistitem = maillistitem.uid unless maillistitem.is_a? Numeric
  maillistitem
end