--- otvori_nove+db 2000/04/18 12:09:03 1.3 +++ otvori_nove+db 2000/04/18 12:19:24 1.4 @@ -137,19 +137,25 @@ $ime=nuke_chars($ime); $prezime=nuke_chars($prezime); - my $prezime_za_login; + my $prezime_za_login,$ime_za_login; - if ($prezime =~ /-/) { # dva prezimena prezime1-prezime2 - ($prezime_za_login,undef) = split(/-/,$prezime,2); + if ($prezime =~ /[- ]/) { # dva prezimena prezime1-prezime2 + ($prezime_za_login,undef) = split(/[- ]/,$prezime,2); } else { $prezime_za_login = $prezime; } + if ($ime =~ /[- ]/) { # dva imena ime1-ime2 + ($ime_za_login,undef) = split(/[- ]/,$ime,2); + } else { + $ime_za_login = $ime; + } + my $add=""; my $login; do { - $login=substr($ime,0,1).substr($prezime_za_login,0,7-length($add)).$add; + $login=substr($ime_za_login,0,1).substr($prezime_za_login,0,7-length($add)).$add; $login =~ tr [A-Z] [a-z]; xdebug "$ime, $prezime login: $login\n"; $add++; @@ -160,6 +166,7 @@ $add=""; do { $email_alias="$ime.$prezime$add"; + $email_alias =~ s/ /./g; # space -> dot $email_alias =~ tr [A-Z] [a-z]; xdebug "\t$email_alias\n"; $add++;