--- otvori_nove+db 2000/04/18 12:09:03 1.3 +++ otvori_nove+db 2000/05/17 09:57:22 1.6 @@ -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++; @@ -196,7 +203,7 @@ $full_name=~s/ +:/:/g; $full_name=~s/ +/ /g; $full_name=nuke_chars($full_name); - if ($shell eq "t") { + if ($shell) { $shell="/usr/local/bin/bash"; } else { $shell="/usr/bin/false"; @@ -240,7 +247,7 @@ close(NPASSWD); close(NALIAS); -undef $sth; +undef $sth,$sth2; $dbh->disconnect; system "mv /etc/passwd passwd.orig" if (! $debug);