From 21ac651a4d40472515f5f7d0dd0cd7d27682ee50 Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem.moulin@fripost.org>
Date: Sat, 28 Apr 2012 17:51:04 +0200
Subject: wibble

---
 fripost-passwd | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'fripost-passwd')

diff --git a/fripost-passwd b/fripost-passwd
index e03deb5..8fad371 100755
--- a/fripost-passwd
+++ b/fripost-passwd
@@ -153,6 +153,9 @@ $password    //= hash( undef, undef, prompt_password() );
 
 
 # Ensure that the user exists.
+my $domain = (split /\@/, $username, 2)[1];
+die "Error: Unknown domain `" .$domain. "'.\n"
+    unless $ldap->domain->search({ domain => $domain })->count;
 die "Error: Unknown user `" .$username. "'.\n"
     unless $ldap->user->search({ username => $username })->count;
 
-- 
cgit v1.2.3