aboutsummaryrefslogtreecommitdiffstats
path: root/fripost-newdomain
diff options
context:
space:
mode:
Diffstat (limited to 'fripost-newdomain')
-rwxr-xr-xfripost-newdomain6
1 files changed, 5 insertions, 1 deletions
diff --git a/fripost-newdomain b/fripost-newdomain
index b9fcecc..5c4c2fb 100755
--- a/fripost-newdomain
+++ b/fripost-newdomain
@@ -147,8 +147,12 @@ my $ldap = Fripost::Schema->new( $conf );
my %domain;
$domain{domain} = $ARGV[0];
$domain{domain} //= prompt "Domain name: ";
-# TODO: Ensure that the domain is valid.
$domain{isActive} = 'TRUE';
+
+# Ensure that the domain is valid.
+Email::Valid->address('test@'.$domain{domain})
+ or die "Error: Invalid domain `$domain{domain}'.\n";
+
if (defined $conf->{owner}) {
if ($conf->{owner} eq '') {
$domain{owner} = undef