From 0066ee6905c314da4c258bde140a6dcdb6db5587 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 29 Nov 2004 19:37:01 +0000
Subject: minimal authentication get() function

---
 perl-install/authentication.pm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'perl-install')

diff --git a/perl-install/authentication.pm b/perl-install/authentication.pm
index 2eb032f65..911c11f84 100644
--- a/perl-install/authentication.pm
+++ b/perl-install/authentication.pm
@@ -146,6 +146,11 @@ The command 'wbinfo -t' will test whether your authentication secrets are good."
     1;
 }
 
+sub get() {
+    my $system_auth = cat_("/etc/pam.d/system-auth");
+    { md5 => $system_auth =~ /md5/, shadow => $system_auth =~ /shadow/ };
+}
+
 sub set {
     my ($in, $netc, $authentication, $when_network_is_up) = @_;
 
-- 
cgit v1.2.1