allow user=xxx on /proc/cmdline to skip ask_user name

1 files changed, 7 insertions, 3 deletions

diff --git a/move/move.pm b/move/move.pm
index 5ef8282c6..3d4f5e905 100644
--- a/move/move.pm
+++ b/move/move.pm
@@ -61,9 +61,13 @@ drakx_stuff:
 sub install2::startMove {
     my $o = $::o;
     
-    require any;
-    any::ask_user_one($o, $o->{users} ||= [], $o->{security},
-                      additional_msg => N("BLA BLA user for move, password for screensaver"), noaccept => 1, needauser => 1, noicons => 1);
+    if (cat_('/proc/cmdline') =~ /\buser=(\w+)/) {
+	$o->{users} = [ { name => $1 } ];
+    } else {
+	require any;
+	any::ask_user_one($o, $o->{users} ||= [], $o->{security},
+			  additional_msg => N("BLA BLA user for move, password for screensaver"), noaccept => 1, needauser => 1, noicons => 1);
+    }
     require install_steps;
     install_steps::addUser($o);