#! @PERL@
-#$Id: userdb.pl.in,v 1.11 2000/05/07 17:36:31 mrsam Exp $
+#$Id: userdb.pl.in,v 1.13 2007/10/07 02:50:45 mrsam Exp $
#
# Copyright 1998 - 1999 Double Precision, Inc. See COPYING for
# distribution information.
else
{
die "Invalid name: $name\n"
- unless $name =~ /^[\@a-zA-Z0-9\.\-]+$/;
+ unless $name =~ /^[\@a-zA-Z0-9\.\-\_\:\+]+$/;
}
grep( (/[\|\n]/ && die "Invalid field or value.\n"), @ARGV);