|
Lines 108-114
Link Here
|
| 108 |
# Username was given as a parameter |
108 |
# Username was given as a parameter |
| 109 |
$login_name = pop(@ARGV); |
109 |
$login_name = pop(@ARGV); |
| 110 |
die "Sorry, login name must contain alphanumeric characters only.\n" |
110 |
die "Sorry, login name must contain alphanumeric characters only.\n" |
| 111 |
if ($login_name !~ /^[a-zA-Z0-9_]\w*$/); |
111 |
if ($login_name !~ /^[a-zA-Z0-9_][a-zA-Z0-9_\-]*$/); |
| 112 |
} else { |
112 |
} else { |
| 113 |
if ($affirm) { |
113 |
if ($affirm) { |
| 114 |
print STDERR "${whoami}: Error: -y option given without username!\n"; |
114 |
print STDERR "${whoami}: Error: -y option given without username!\n"; |