|
Lines 309-315
Link Here
|
| 309 |
local($name); |
309 |
local($name); |
| 310 |
|
310 |
|
| 311 |
while(1) { |
311 |
while(1) { |
| 312 |
$name = &confirm_list("Enter username", 1, "a-z0-9_-", ""); |
312 |
$name = &confirm_list("Enter username", 1, "a-z0-9_-.", ""); |
| 313 |
if (length($name) > 16) { |
313 |
if (length($name) > 16) { |
| 314 |
warn "Username is longer than 16 chars\a\n"; |
314 |
warn "Username is longer than 16 chars\a\n"; |
| 315 |
next; |
315 |
next; |
|
Lines 322-328
Link Here
|
| 322 |
sub new_users_name_valid { |
322 |
sub new_users_name_valid { |
| 323 |
local($name) = @_; |
323 |
local($name) = @_; |
| 324 |
|
324 |
|
| 325 |
if ($name !~ /^[a-z0-9_][a-z0-9_\-]*$/ || $name eq "a-z0-9_-") { |
325 |
if ($name !~ /^[a-z0-9_][a-z0-9_\-\.]*$/ || $name eq "a-z0-9_-.") { |
| 326 |
warn "Wrong username. " . |
326 |
warn "Wrong username. " . |
| 327 |
"Please use only lowercase characters or digits\a\n"; |
327 |
"Please use only lowercase characters or digits\a\n"; |
| 328 |
return 0; |
328 |
return 0; |