From 65ab17af2563458446fa32c83ccf80de9ad6c456 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 25 Feb 2002 10:41:02 +0000 Subject: (addUser): add users in group usb if SECURE_LEVEL <= 3 --- perl-install/install_steps.pm | 2 ++ 1 file changed, 2 insertions(+) (limited to 'perl-install/install_steps.pm') diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index 76bd0e08f..155900821 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -696,6 +696,8 @@ sub addUser { $_->{uid} = $u; $uids{$u} = 1; $_->{gid} = $g; $gids{$g} = 1; + + push @{$_->{groups} ||= []}, 'usb' if $o->{security} <= 3; } any::write_passwd_user($p, $_, $o->{authentication}{md5}) foreach @$users; -- cgit v1.2.1