137 |
$ime=nuke_chars($ime); |
$ime=nuke_chars($ime); |
138 |
$prezime=nuke_chars($prezime); |
$prezime=nuke_chars($prezime); |
139 |
|
|
140 |
my $prezime_za_login; |
my ($prezime_za_login,$ime_za_login); |
141 |
|
|
142 |
if ($prezime =~ /-/) { # dva prezimena prezime1-prezime2 |
if ($prezime =~ /[- ]/) { # dva prezimena prezime1-prezime2 |
143 |
($prezime_za_login,undef) = split(/-/,$prezime,2); |
($prezime_za_login,undef) = split(/[- ]/,$prezime,2); |
144 |
} else { |
} else { |
145 |
$prezime_za_login = $prezime; |
$prezime_za_login = $prezime; |
146 |
} |
} |
147 |
|
|
148 |
|
if ($ime =~ /[- ]/) { # dva imena ime1-ime2 |
149 |
|
($ime_za_login,undef) = split(/[- ]/,$ime,2); |
150 |
|
} else { |
151 |
|
$ime_za_login = $ime; |
152 |
|
} |
153 |
|
|
154 |
my $add=""; |
my $add=""; |
155 |
my $login; |
my $login; |
156 |
|
|
157 |
do { |
do { |
158 |
$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; |
159 |
$login =~ tr [A-Z] [a-z]; |
$login =~ tr [A-Z] [a-z]; |
160 |
xdebug "$ime, $prezime login: $login\n"; |
xdebug "$ime, $prezime login: $login\n"; |
161 |
$add++; |
$add++; |
166 |
$add=""; |
$add=""; |
167 |
do { |
do { |
168 |
$email_alias="$ime.$prezime$add"; |
$email_alias="$ime.$prezime$add"; |
169 |
|
$email_alias =~ s/ /./g; # space -> dot |
170 |
$email_alias =~ tr [A-Z] [a-z]; |
$email_alias =~ tr [A-Z] [a-z]; |
171 |
xdebug "\t$email_alias\n"; |
xdebug "\t$email_alias\n"; |
172 |
$add++; |
$add++; |
247 |
close(NPASSWD); |
close(NPASSWD); |
248 |
close(NALIAS); |
close(NALIAS); |
249 |
|
|
250 |
undef $sth; |
undef $sth,$sth2; |
251 |
$dbh->disconnect; |
$dbh->disconnect; |
252 |
|
|
253 |
system "mv /etc/passwd passwd.orig" if (! $debug); |
system "mv /etc/passwd passwd.orig" if (! $debug); |