From 37840927cc9d8066c59cce7de5c3880c5d335310 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Aur=C3=A9lien=20Lefebvre?= <alefebvre@mandriva.com>
Date: Mon, 17 Aug 2009 12:44:21 +0000
Subject: - added password weakness display feature in interactive -
 adduserdrake   o now use password weakness display

---
 perl-install/interactive/gtk.pm | 21 ++++++++++++++++++++-
 1 file changed, 20 insertions(+), 1 deletion(-)

(limited to 'perl-install/interactive')

diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 4a93934e1..e6ad4aaff 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -545,7 +545,14 @@ sub create_widget {
 	    };
 	} else {
 	    $w = Gtk2::Entry->new;
-	    $w->signal_connect(changed => $onchange->(sub { $w->get_text }));
+	    $w->signal_connect(changed => $onchange->(sub { 
+	       if ($e->{weakness_check}) {
+		 require authentication;
+		 my $password_weakness = authentication::compute_password_weakness($w->get_text);
+		 $w->modify_base('GTK_STATE_NORMAL', get_weakness_color($password_weakness));
+	       }
+	       $w->get_text;
+	      }));
 	    $w->signal_connect(focus_in_event => sub { $w->select_region(0, -1) });
 	    $w->signal_connect(focus_out_event => sub { $w->select_region(0, 0) });
 	    $set = sub { $w->set_text($_[0]) if $_[0] ne $w->get_text };
@@ -958,4 +965,16 @@ sub kill {
     @tempory::objects = ();
 }
 
+sub get_weakness_color {
+    my ($password_weakness) = @_;
+    my %weakness_color = (
+        1 => '#fd3434', 
+        2 => '#fd6c34',
+        3 => '#f7871a',
+        4 => '#2ae000', 
+        5 => '#30ff00');
+    my $weakness_color = $weakness_color{$password_weakness} || '#ffffff';
+    Gtk2::Gdk::Color->parse($weakness_color);
+}
+
 1;
-- 
cgit v1.2.1