#!/usr/bin/ruby

#
# Copyright (c) 2004, 2006 Peter Palfrader <peter@palfrader.org>
#
# All rights reserved.
#

require "ldap"
require "getoptlong"
require "myldap"
require "yaml"
require 'optparse'

config = YAML::load( File.open( '/etc/noreply/config' ) )

@local = []
@hosts = []
@password = [File.new("/dev/urandom").read(config['module']['mail']['pwlen'])].pack("m").chomp.delete('=')

def show_help(parser, code=0, io=STDOUT)
  io.puts parser
  exit(code)
end
ARGV.options do |opts|
  opts.on_tail("-h", "--help", "Display this help screen") { show_help(opts) }
  opts.on("-c", "--client=CLIENT"      , String, "Client Identifier")                            { |@clientname| }
  opts.on("-n", "--name=Real Name"     , String, "Person's full name")                           { |@realname| }
  opts.on("-l", "--local=addr"         , String, "Local Email Address (on this host)")           { |val| @local << val }
  opts.on("-a", "--accountname=name"   , String, "Accountname (client.<name>)")                  { |@accountname| }
  opts.on("-H", "--host=HOST"          , String, "active host")                                  { |val| @hosts << val }
  opts.on("-p", "--password=PASSWORD"  , String, "Password")                                     { |@password| }
  opts.on("-D", "--description=BLA"    , String, "description")                                  { |@description| }
  opts.parse!
end

show_help(ARGV.options, 1, STDERR) if ARGV.length > 0
show_help(ARGV.options, 1, STDERR) unless @clientname
show_help(ARGV.options, 1, STDERR) unless @realname
show_help(ARGV.options, 1, STDERR) unless @local.length > 0
show_help(ARGV.options, 1, STDERR) unless @accountname
@hosts.push(config['defaulthost']) unless @hosts.length > 0

ldap = MyLDAP.new(config)
client = ldap.verify_client(@clientname)
ldap.verify_local_domains_exist(@local)

data = {
	'objectclass'			=> ['top', 'tnMailPerson', 'tnMailAccount'],
	'cn'				=> [ @realname ],
	'tnMailLocalAddress'		=> @local,
	'tnHost'			=> @hosts,

	'tnMailMailboxAccountname'	=> [ "mail." + @clientname +"." +@accountname ],
	'tnMailVirtualAddress'		=> [ "mail." + @clientname +"." +@accountname +'@' + config['module']['mail']['virtualdomain'] ],
	'tnMailMailboxHomedir'		=> [ config['module']['mail']['basedir'] ],
	'tnMailMailboxLocation'		=> [ @clientname + '/' + @accountname + '/' ],
	'tnMailMailboxUID'		=> client['uidNumber'],
	'tnMailMailboxGID'		=> client['gidNumber'],
	'userPassword'			=> [ @password ]
}
data['description'] = [@description] if @description

dn = "cn=%s,ou=people,ou=mail,o=%s,ou=hosting,%s"%[@realname, @clientname, config['basedn']]

puts dn
puts data.to_yaml
puts

ldap.add(dn, data)