#!/usr/bin/perl use lib qw(/usr/lib/libDrakX); use standalone; #- warning, standalone must be loaded very first, for 'explanations' use common; use interactive; use any; local $_ = join '', @ARGV; /-h/ and die "usage: adduserdrake [--beginner] [--expert] []\n"; $::beginner = /-beginner/; $::expert = /-expert/; my @etc_pass_fields = qw(name pw uid gid realname home shell); my @shells = grep { -x $_ } map { "/bin/$_" } qw(bash tcsh zsh ash ksh); my $isMD5 = cat_("/etc/pam.d/system-auth") =~ /md5/; my $isShadow = cat_("/etc/pam.d/system-auth") =~ /shadow/; my $users = []; my $in; if (my @l = grep { ! /^-/ } @ARGV) { $users = [ map { { name => $_, realname => $_ } } @l ]; } else { $in = 'interactive'->vnew('su', 'user'); any::ask_users('', $in, $users, $ENV{SECURE_LEVEL}); } system("adduser", $_->{name}) foreach @$users; any::write_passwd_user('', $_, $isMD5) foreach @$users; system("pwconv") if $isShadow; any::addUsers('', $users); #$in->do_pkgs->install("autologin") if $o->{autologin}; #any::set_autologin('', $o->{autologin}, $o->{desktop}); $in->exit(0) if $in; ga3'>distro/mga3 Configuration for drakliveThomas Backlund [tmb]
summaryrefslogtreecommitdiffstats
path: root/files
diff options
context:
space:
mode:
authorThomas Backlund <tmb@mageia.org>2015-04-23 18:21:27 +0200
committerThomas Backlund <tmb@mageia.org>2015-04-23 18:21:27 +0200
commit2c69f9d6794654dce717b30b67c0d8036748dd2d (patch)
tree1c291c4d5c9dc3d4768d6c542bf7ecdef125cf6c /files
parenta941bcf0ccd8d69ffc7396cb97cca7168d2c9fb7 (diff)
downloaddraklive-config-2c69f9d6794654dce717b30b67c0d8036748dd2d.tar
draklive-config-2c69f9d6794654dce717b30b67c0d8036748dd2d.tar.gz
draklive-config-2c69f9d6794654dce717b30b67c0d8036748dd2d.tar.bz2
draklive-config-2c69f9d6794654dce717b30b67c0d8036748dd2d.tar.xz
draklive-config-2c69f9d6794654dce717b30b67c0d8036748dd2d.zip
add splash to kernel command line
Diffstat (limited to 'files')