summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-10-22 10:37:37 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-10-22 10:37:37 +0000
commitcc40d0b56dba6d1af838a86d4fbbb14ac90ef97f (patch)
treec74c75b8a1794605816ab2c2650b4fd5ae655b35 /perl-install/install_any.pm
parent21ec7acaaa990d72f79771535985e3c33f17069c (diff)
downloaddrakx-cc40d0b56dba6d1af838a86d4fbbb14ac90ef97f.tar
drakx-cc40d0b56dba6d1af838a86d4fbbb14ac90ef97f.tar.gz
drakx-cc40d0b56dba6d1af838a86d4fbbb14ac90ef97f.tar.bz2
drakx-cc40d0b56dba6d1af838a86d4fbbb14ac90ef97f.tar.xz
drakx-cc40d0b56dba6d1af838a86d4fbbb14ac90ef97f.zip
no_comment
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm13
1 files changed, 13 insertions, 0 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 3d00b7d2b..4d867ab4b 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -259,3 +259,16 @@ sub write_ldsoconf {
print F "/usr/lib\n";
}
}
+
+sub enableMD5 {
+ my ($prefix) = @_;
+ local @ARGV = map { "$prefix/etc/pam.d/$_" } qw(login rlogin passwd);
+ local $^I = '';
+ while (<>) {
+ if (/^password.*pam_pwdb.so/) {
+ /\s*shadow/ or s/$/ shadow/;
+ /\s*md5/ or s/$/ md5/;
+ }
+ print;
+ }
+}