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);
}

Reply via email to