137 |
$ime=nuke_chars($ime); |
$ime=nuke_chars($ime); |
138 |
$prezime=nuke_chars($prezime); |
$prezime=nuke_chars($prezime); |
139 |
|
|
140 |
my $prezime_za_login,$ime_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); |
203 |
$full_name=~s/ +:/:/g; |
$full_name=~s/ +:/:/g; |
204 |
$full_name=~s/ +/ /g; |
$full_name=~s/ +/ /g; |
205 |
$full_name=nuke_chars($full_name); |
$full_name=nuke_chars($full_name); |
206 |
if ($shell eq "t") { |
if ($shell) { |
207 |
$shell="/usr/local/bin/bash"; |
$shell="/usr/local/bin/bash"; |
208 |
} else { |
} else { |
209 |
$shell="/usr/bin/false"; |
$shell="/usr/bin/false"; |
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); |