class WTForum

# File lib/wtforum.rb, line 13
def self.extract_value key, options
  xml = Nokogiri::XML.parse(options[:from])
  node = xml.css(key.to_s)
  if node.present?
    node.text
  else
    raise WTForumError, xml.css("errormessage, error, .errorMsg").text
  end
end

# File lib/wtforum.rb, line 25
def initialize credentials
  credentials.each do |key, value|
    self.send :"#{key}=", value
  end
end

# File lib/wtforum/admin.rb, line 2
def admin
  Admin.new(username: admin_username, password: admin_password)
end

# File lib/wtforum.rb, line 123
def count_users
  response = agent.get uri(path: "/register/members")
  count = response.body.match(/Members\s+\(([\d,]+)\)/m)[1]
  count.gsub(",", "").to_i
end

# File lib/wtforum.rb, line 31
def create_session user_id
  uri = base_api_uri(userid: user_id)
  uri.path = "/register/setauthtoken"
  response = agent.get uri
  Session.create self, response
end

# File lib/wtforum.rb, line 38
def create_user attributes
  keep_trying = attributes.has_key?(:retry) ? attributes.delete(:retry) : true
  original_name = attributes[:username]

  defaults = { pw: Digest::MD5.hexdigest(attributes.to_s) }
  attributes[:member] ||= attributes.delete(:username)
  attributes[:field276177] ||= attributes.delete(:gender)
  attributes[:field276178] ||= attributes.delete(:location)
  attributes[:field276179] ||= attributes.delete(:about)
  attributes.reverse_merge! defaults

  begin
    uri = base_api_uri(attributes)
    uri.path = "/register/create_account"
    response = agent.get uri
    User.create self, response, attributes

  rescue WTForum::WTForumError => e
    if e.message =~ /^Error: The username "(.+?)" has already been taken\.$/
      if keep_trying
        index = attributes[:member].sub(original_name,"").to_i
        new_username = "#{original_name}#{index+1}"
        attributes[:member] = new_username
        retry
      else
        raise User::UsernameAlreadyTaken.new(e.message)
      end
    elsif e.message =~ /Error: It looks like you are already registered as "(.+?)" with that email address./
      find_user_by_username_and_email($1, attributes[:email])
    else
      raise
    end
  end
end

# File lib/wtforum.rb, line 129
def destroy_user user_id
  authorized_agent.get uri(path: "/register/delete", query: "mem_userid=#{user_id}")
end

# File lib/wtforum.rb, line 111
def edit_user user_id
  response = authorized_agent.get uri(path: "/register/register", query: "edit=1&userid=#{user_id}")
end

# File lib/wtforum.rb, line 119
def edit_user_email user_id
  authorized_agent.get uri(path: "/register/edit_password", query: "userid=#{user_id}")
end

# File lib/wtforum.rb, line 115
def edit_user_username user_id
  authorized_agent.get uri(path: "/register/edit_username", query: "userid=#{user_id}")
end

# File lib/wtforum.rb, line 73
def find_user user_id
  response = authorized_agent.get uri(path: "/register/register", query: "edit=1&userid=#{user_id}")
  raise User::NotFound if response.body.include?("Error: The specified account was not found")

  body = Nokogiri::HTML.parse(response.body)
  attributes = {
    id: user_id,
    member: body.css(".tables td:contains('Username:') + td input").first["value"],
    email: body.css(".tables td:contains('Email Address:') + td").first.text.split(" - ").first,
    name: body.css(".tables td:contains('Full Name:') + td input").first["value"],
    field276177: body.css(".tables select[name='field276177'] option[selected]").first.try(:text).try(:strip),
    field276178: body.css(".tables input[name='field276178']").first.try(:[], "value"),
    field276179: body.css(".tables textarea[name='field276179']").first.try(:text)
  }
  User.new(self, attributes)
end

# File lib/wtforum.rb, line 90
def find_user_by_username username, email=nil
  query = "action=members&search=true&s_username=#{username}"
  query += "&s_email=#{email}" if email
  response = authorized_agent.get uri(path: "/register", query: query)
  body = Nokogiri::HTML.parse(response.body)

  # scrape markup: <a href="/profile/1234567" title="View profile">username\t\n</a>
  # search returns partial matches :( so find the exact match.
  # hopefully there aren't more than 50 matches!
  link = body.css("a[title='View profile']:contains('#{username}')").find do |a|
    a.text.strip == username
  end

  link or raise User::NotFound

  id = link["href"].split("/").last
  find_user(id)
end

# File lib/wtforum.rb, line 143
def agent
  Mechanize.new
end

# File lib/wtforum.rb, line 135
def authorized_agent
  @authorized_agent ||= begin
    a = agent
    a.get(login_uri)
    a
  end
end

# File lib/wtforum.rb, line 151
def base_api_uri attributes={}
  attributes[:apikey] = api_key
  uri = base_uri
  uri.query = attributes.to_param
  uri
end

# File lib/wtforum.rb, line 147
def base_uri
  URI("http://#{domain}")
end

# File lib/wtforum.rb, line 158
def login_uri
  uri path: "/register/dologin", query: "member=#{admin_username}&pw=#{admin_password}&remember=checked"
end

# File lib/wtforum.rb, line 162
def uri attributes
  base_uri.tap do |uri|
    uri.path = attributes[:path]
    uri.query = attributes[:query]
  end
end