#!/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/passwd") =~ /md5/; my $isShadow = cat_("/etc/pam.d/passwd") =~ /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::addUsers('', $users); any::write_passwd_user('', $_, $isMD5) foreach @$users; system("pwconv") if $isShadow; #$in->do_pkgs->install("autologin") if $o->{autologin}; #any::set_autologin('', $o->{autologin}, $o->{desktop}); $in->exit(0) if $in; user/bcornec/DKIM Mageia Infrastructure Configurationgit
aboutsummaryrefslogtreecommitdiffstats
path: root/modules/ssmtp/manifests
diff options
context:
space:
mode:
authorDan Fandrich <dan@coneharvesters.com>2023-12-16 16:36:05 -0800
committerDan Fandrich <dan@coneharvesters.com>2023-12-20 00:54:05 -0800
commitb4fa54f1aeda82458a77a25c3b68ad9baa55c25e (patch)
tree56840d0be488b1dfb1868cf3020a3c74cb2942e4 /modules/ssmtp/manifests
parenta27358df41c5740e61f22c03ab77c347ffeb2a0a (diff)
downloadpuppet-b4fa54f1aeda82458a77a25c3b68ad9baa55c25e.tar
puppet-b4fa54f1aeda82458a77a25c3b68ad9baa55c25e.tar.gz
puppet-b4fa54f1aeda82458a77a25c3b68ad9baa55c25e.tar.bz2
puppet-b4fa54f1aeda82458a77a25c3b68ad9baa55c25e.tar.xz
puppet-b4fa54f1aeda82458a77a25c3b68ad9baa55c25e.zip
Allow members of mga-sysadmin to run sudo on all servers