1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
#!/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' ) )
@hosts = []
@alias = []
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("-h", "--hostname=HOSTNAME", String, "vhostname") { |@vhostname| }
opts.on("-a", "--alias=HOSTNAME" , String, "aliasname") { |val| @alias << val }
opts.on("-w", "--webmaster=EMAIL" , String, "email address of webmaster/mistress") { |@webmaster| }
opts.on("-M", "--no-magic-dns" , String, "Turn off Magic DNS") { @no_magic_dns = true }
opts.on("-H", "--host=HOST" , String, "active host") { |val| @hosts << val }
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 @vhostname
show_help(ARGV.options, 1, STDERR) unless @webmaster
@hosts.push(config['defaulthost']) unless @hosts.length > 0
ldap = MyLDAP.new(config)
client = ldap.verify_client(@clientname)
data = {
'objectclass' => ['top', 'tnWebVHost'],
'tnWebVHostServerName' => [ @vhostname ],
'tnWebVHostHomeDirectory' => [ @vhostname ],
'tnMagicDNS' => [ @no_magic_dns ? "no" : "yes" ],
'tnWebVHostWebmaster' => [ @webmaster ],
'tnHost' => @hosts
}
data['tnWebVHostServerAlias'] = @alias if @alias.length > 0
data['description'] = [@description] if @description
dn = "tnWebVHostServerName=%s,ou=vhosts,o=%s,ou=hosting,%s"%[@vhostname, @clientname, config['basedn']]
ldap.add(dn, data)
|
