|
Lines 842-848
sub Generate_Userid {
Link Here
|
| 842 |
do { |
842 |
do { |
| 843 |
$firstname =~ s/[[:digit:][:space:][:blank:][:punct:][:cntrl:]]//g; |
843 |
$firstname =~ s/[[:digit:][:space:][:blank:][:punct:][:cntrl:]]//g; |
| 844 |
$surname =~ s/[[:digit:][:space:][:blank:][:punct:][:cntrl:]]//g; |
844 |
$surname =~ s/[[:digit:][:space:][:blank:][:punct:][:cntrl:]]//g; |
| 845 |
$newuid = lc("$firstname.$surname"); |
845 |
$newuid = lc(($firstname)? "$firstname.$surname" : $surname); |
| 846 |
$newuid .= $offset unless $offset == 0; |
846 |
$newuid .= $offset unless $offset == 0; |
| 847 |
$offset++; |
847 |
$offset++; |
| 848 |
|
848 |
|
| 849 |
- |
|
|