diff options
author | Guilhem Moulin <guilhem.moulin@fripost.org> | 2012-05-03 19:47:20 +0200 |
---|---|---|
committer | Guilhem Moulin <guilhem.moulin@fripost.org> | 2012-05-03 19:47:20 +0200 |
commit | a6bd894f302df904588df739f79f1b17b329a0e4 (patch) | |
tree | 482330ebaed111143282737863fe1db8395465a0 /fripost-newdomain | |
parent | b0460b1b8fb61569d20cbd4ac75ae6976bd34a92 (diff) |
Adding debug messages.
Diffstat (limited to 'fripost-newdomain')
-rwxr-xr-x | fripost-newdomain | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/fripost-newdomain b/fripost-newdomain index 1ce4b02..b9fcecc 100755 --- a/fripost-newdomain +++ b/fripost-newdomain @@ -22,7 +22,7 @@ If I<domain> is not given, the user is prompted for it. By default, B<fripost-newdomain> prompts for the owner of the new domain; Use B<--owner=>I<''> to create a "global" domain, only managed by the administrators. -Several users can manage the same domain together. +Several users can manage the same domain together. If B<fripost-newdomain> warns if it is asked to register an existing domain to a new owner. @@ -169,7 +169,7 @@ else { die "Error: Unknown user `" .$domain{owner}. "'.\n" unless (not defined $domain{owner}) or $ldap->user->search({ username => $domain{owner} })->count; - + # Check that the owner doesn't already own this very domain, or that the # domain isn't an existing "global" domain. if ($ldap->domain->search(\%domain)->count) { @@ -178,7 +178,7 @@ else { say STDERR "."; exit 1; } - + # If the domain exists (but is eg, owned by someone else), produce a # warning. my $res = $ldap->domain->search({ domain => $domain{domain} }); |