require 'pg'

require 'common/postfixadmin_plugin'
require 'mv/mv_plugin'

class PostfixadminMv

  include PostfixadminPlugin
  include MvPlugin

  def mv_user(user_from, user_to)
    if not user_exists(user_from)
      raise NonexistentUserError.new("source user #{user_from} does not exist")
    end

    user_to_parts = user_to.split('@')
    localpart_to = user_to_parts[0]
    domain_to = user_to_parts[1]

    if not domain_exists(domain_to)
      msg = "destination domain #{domain_to} does not exist"
      raise NonexistentDomainError.new(msg)
    end

    mailbox_query  = 'UPDATE mailbox SET '
    mailbox_query += '  username=$1,'
    mailbox_query += '  domain=$2,'
    mailbox_query += "  maildir=CONCAT($2, '/', $3, '/'),"
    mailbox_query += '  local_part=$3 '
    mailbox_query += 'WHERE username=$4;'

    alias_query1  = 'UPDATE alias SET '
    alias_query1 += '  address=$1,'
    alias_query1 += '  domain=$2,'
    alias_query1 += '  goto=REPLACE(goto, $4, $1) '
    alias_query1 += 'WHERE address=$4;'

    alias_query2  = 'UPDATE alias SET '
    alias_query2 += 'goto=REPLACE(goto, $4, $1);'

    sql_queries = [mailbox_query, alias_query1, alias_query2]

    begin
      connection = PGconn.connect(@db_host,
                                  @db_port,
                                  @db_opts,
                                  @db_tty,
                                  @db_name,
                                  @db_user,
                                  @db_pass)

      sql_queries.each do |sql_query|
          varchar = 1043 # from pg_type.h
          params = [{:value => user_to, :type => varchar},
                    {:value => domain_to, :type => varchar},
                    {:value => localpart_to, :type => varchar},
                    {:value => user_from, :type => varchar}]
        connection.query(sql_query, params)
      end

      connection.close()

    rescue PGError => e
      # Pretend like we're database-agnostic in case we ever are.
      raise DatabaseError.new(e)
    end
  end


end