Magnus Holmberg <[EMAIL PROTECTED]> writes:
> One question.
>
> If I forget to chose md5 and shadow passwords. Can I enable this after the
> install??? And how?
>
use the source :)
sub enableShadow() {
my $p = $::o->{prefix};
run_program::rooted($p, "pwconv") or log::l("pwconv failed");
run_program::rooted($p, "grpconv") or log::l("grpconv failed");
}
sub enableMD5Shadow($$$) {
my ($prefix, $shadow, $md5) = @_;
substInFile {
if (/^password.*pam_pwdb.so/) {
s/\s*shadow//; s/\s*md5//;
s/$/ shadow/ if $shadow;
s/$/ md5/ if $md5;
}
} grep { -r $_ } map { "$prefix/etc/pam.d/$_" } qw(login rlogin passwd);
}