version 1.70, 2011/03/28 13:58:56
|
version 1.71, 2011/06/04 03:55:49
|
Line 822 unless (($protocol eq 'http') || ($proto
|
Line 822 unless (($protocol eq 'http') || ($proto
|
|
|
if (!defined($intdom)) { |
if (!defined($intdom)) { |
push(@error,"No internet domain name designated. Enter something like ustate.edu"); |
push(@error,"No internet domain name designated. Enter something like ustate.edu"); |
} elsif ($intdom !~ /^[^.]+\.\w{2,6}$/) { |
} elsif ($intdom !~ /[^.]+\.\w{2,6}$/) { |
push(@error,"Invalid Internet domain name (must be at least two levels separated by . - e.g., ustate.edu"); |
push(@error,"Invalid Internet domain name (must be at least two levels separated by . - e.g., ustate.edu"); |
} |
} |
|
|