From a6bd894f302df904588df739f79f1b17b329a0e4 Mon Sep 17 00:00:00 2001 From: Guilhem Moulin Date: Thu, 3 May 2012 19:47:20 +0200 Subject: Adding debug messages. --- fripost-newdomain | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'fripost-newdomain') diff --git a/fripost-newdomain b/fripost-newdomain index 1ce4b02..b9fcecc 100755 --- a/fripost-newdomain +++ b/fripost-newdomain @@ -22,7 +22,7 @@ If I is not given, the user is prompted for it. By default, B 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 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} }); -- cgit v1.2.3