summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-01-11 11:51:08 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-01-11 11:51:08 +0000
commit561a053f725b1a1ecaee093ef07a1dfea1309c28 (patch)
tree8dba1b97b36c3e57c21fe264178acff6c6f999c5 /perl-install/any.pm
parent735035f3cfbc395a1249ee3b82d766c7d22d0e52 (diff)
downloaddrakx-561a053f725b1a1ecaee093ef07a1dfea1309c28.tar
drakx-561a053f725b1a1ecaee093ef07a1dfea1309c28.tar.gz
drakx-561a053f725b1a1ecaee093ef07a1dfea1309c28.tar.bz2
drakx-561a053f725b1a1ecaee093ef07a1dfea1309c28.tar.xz
drakx-561a053f725b1a1ecaee093ef07a1dfea1309c28.zip
(write_passwd_user): add or update an entry in /etc/passwd
(ask_users): created, interactively ask users to add (used in adduserdrake and install) (allocUsers, addUsers): changed the prototype (setupBootloader): grep out fat partitions for the "Boot device" propositions (people are too stupid)
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm100
1 files changed, 92 insertions, 8 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 676b6feac..157f697f2 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -2,7 +2,6 @@ package any; # $Id$
use diagnostics;
use strict;
-use vars qw(@users);
#-######################################################################################
#- misc imports
@@ -42,9 +41,9 @@ sub addKdmIcon {
}
sub allocUsers {
- my ($prefix, @users) = @_;
+ my ($prefix, $users) = @_;
my @m = my @l = facesnames($prefix);
- foreach (grep { !$_->{icon} || $_->{icon} eq "automagic" } @users) {
+ foreach (grep { !$_->{icon} || $_->{icon} eq "automagic" } @$users) {
$_->{auto_icon} = splice(@m, rand(@m), 1); #- known biased (see cookbook for better)
log::l("auto_icon is $_->{auto_icon}");
@m = @l unless @m;
@@ -52,16 +51,15 @@ sub allocUsers {
}
sub addUsers {
- my ($prefix, @users) = @_;
+ my ($prefix, $users) = @_;
my $msec = "$prefix/etc/security/msec";
- allocUsers($prefix, @users);
- foreach my $u (@users) {
+ allocUsers($prefix, $users);
+ foreach my $u (@$users) {
substInFile { s/^$u->{name}\n//; $_ .= "$u->{name}\n" if eof } "$msec/user.conf" if -d $msec;
addKdmIcon($prefix, $u->{name}, delete $u->{auto_icon} || $u->{icon});
}
run_program::rooted($prefix, "/usr/share/msec/grpuser.sh --refresh >/dev/null");
-# addKdmIcon($prefix, 'root', 'root');
}
sub crypt {
@@ -128,7 +126,7 @@ sub setupBootloader {
arch() =~ /sparc/ ? (
{ label => _("Bootloader installation"), val => \$silo_install_lang, list => \@silo_install_lang },
) : (
-{ label => _("Boot device"), val => \$b->{boot}, list => [ map { "/dev/$_" } (map { $_->{device} } @$hds, @$fstab), detect_devices::floppies() ], not_edit => !$::expert },
+{ label => _("Boot device"), val => \$b->{boot}, list => [ map { "/dev/$_" } (map { $_->{device} } (@$hds, grep { !isFat($_) } @$fstab)), detect_devices::floppies() ], not_edit => !$::expert },
{ label => _("LBA (doesn't work on old BIOSes)"), val => \$b->{lba32}, type => "bool", text => "lba" },
{ label => _("Compact"), val => \$b->{compact}, type => "bool", text => _("compact") },
{ label => _("Video mode"), val => \$b->{vga}, list => [ keys %bootloader::vga_modes ], not_edit => $::beginner },
@@ -612,5 +610,91 @@ Do you want to try again with other parameters?", $l), 1) or return;
$l;
}
+sub ask_users {
+ my ($prefix, $in, $users, $security) = @_;
+
+ my $u if 0; $u ||= {};
+
+ my @shells = map { chomp; $_ } cat_("$prefix/etc/shells");
+
+ while (1) {
+ $u->{password2} ||= $u->{password} ||= '';
+ $u->{shell} ||= '/bin/bash';
+ my $names = @$users ? _("(already added %s)", join(", ", map { $_->{realname} || $_->{name} } @$users)) : '';
+
+ $in->ask_from_entries_refH_powered(
+ { title => _("Add user"),
+ messages => _("Enter a user\n%s", $names),
+ ok => _("Accept user"),
+ cancel => $security < 4 || @$users ? _("Done") : '',
+ callbacks => {
+ focus_out => sub {
+ if ($_[0] eq 0) {
+ $u->{name} ||= lc first($u->{realname} =~ /((\w|-)+)/);
+ }
+ },
+ complete => sub {
+ $u->{password} eq $u->{password2} or $in->ask_warn('', [ _("The passwords do not match"), _("Please try again") ]), return (1,2);
+ $security > 3 && length($u->{password}) < 6 and $in->ask_warn('', _("This password is too simple")), return (1,2);
+ $u->{name} or $in->ask_warn('', _("Please give a user name")), return (1,0);
+ $u->{name} =~ /^[a-z0-9_-]+$/ or $in->ask_warn('', _("The user name must contain only lower cased letters, numbers, `-' and `_'")), return (1,0);
+ member($u->{name}, map { $_->{name} } @$users) and $in->ask_warn('', _("This user name is already added")), return (1,0);
+ return 0;
+ },
+ } }, [
+ { label => _("Real name"), val => \$u->{realname} },
+ { label => _("User name"), val => \$u->{name} },
+ { label => _("Password"),val => \$u->{password}, hidden => 1 },
+ { label => _("Password (again)"), val => \$u->{password2}, hidden => 1 },
+ { label => _("Shell"), val => \$u->{shell}, list => [ shells($prefix) ], not_edit => !$::expert, advanced => 1 },
+ if_($security <= 3,
+ { label => _("Icon"), val => \$u->{icon}, list => [ facesnames($prefix) ], icon2f => sub { face2xpm($_[0], $prefix) }, format => \&translate },
+ ),
+ ],
+ ) or return;
+
+ push @$users, $u;
+ $u = {};
+ }
+}
+
+#sub autologin {
+# my ($prefix, $o, $in, $install) = @_;
+#
+# my $cmd = $prefix ? "chroot $prefix" : "";
+# my @wm = (split (' ', `$cmd /usr/sbin/chksession -l`));
+#
+# if (@wm && @users && !$o->{authentication}{NIS} && $ENV{SECURE_LEVEL} <= 3) {
+# my %l = getVarsFromSh("$prefix/etc/sysconfig/autologin");
+# $o->{autologin} ||= $l{USER};
+# $in->ask_from_entries_refH(_("Autologin"),
+# _("I can set up your computer to automatically log on one user.
+#If you don't want to use this feature, click on the cancel button."),
+# [ { label => _("Choose the default user:"), val => \$o->{autologin}, list => [ '', @users ] },
+# { label => _("Choose the window manager to run:"), val => \$o->{desktop}, list => \@wm }, ]) or delete $o->{autologin};
+# }
+#
+# $o->{autologin} and $install->("autologin");
+# setAutologin($prefix, $o->{autologin}, $o->{desktop});
+#}
+
+sub write_passwd_user {
+ my ($prefix, $u, $isMD5) = @_;
+
+ local $u->{pw} ||= $u->{password} && &crypt($u->{password}, $isMD5);
+ $u->{shell} ||= '/bin/bash';
+
+ substInFile {
+ my $l = unpack_passwd($_);
+ if ($l->{name} eq $u->{name}) {
+ add2hash_($u, $l);
+ $_ = pack_passwd($u);
+ $u = {};
+ }
+ if (eof && $u->{name}) {
+ $_ .= pack_passwd($u);
+ }
+ } "$prefix/etc/passwd";
+}
1;