-// Copyright 2007 - Paul Seamons - $Revision: 1.73 $
+// Copyright 2007 - Paul Seamons - $Revision: 1.74 $
// Distributed under the Perl Artistic License without warranty
// See perldoc CGI::Ex::Validate for usage
if (value.match(/^[.\-]/)) return 0;
if (value.match(/(\.-|-\.|\.\.)/)) return 0;
if (! (m = value.match(/^(.+\.)([a-z]{2,10})$/))) return 0;
- if (m[2] == 'name') {
- if (! m[1].match(/^([a-z0-9\-]{1,62}\.){2}$/)) return 0;
- } else
- if (! m[1].match(/^([a-z0-9\-]{1,62}\.)+$/)) return 0;
+ if (! m[1].match(/^([a-z0-9\-]{1,62}\.)+$/)) return 0;
} else if (type == 'URL') {
if (! value) return 0;