#!/usr/bin/perl

use lib qw(/usr/lib/libDrakX);

use common qw(:common :functional :system :file);
use interactive;
use any;

local $_ = join '', @ARGV;

/-h/ and die "usage: adduserdrake [--beginner] [--expert] [<users...>]\n";

$::beginner = /-beginner/;
$::expert = /-expert/;
$::isStandalone = 1;

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 $security = $ENV{SECURE_LEVEL};



if (my @l = grep { ! /^-/ } @ARGV) {
    addusers(map {{ name => $_, realname => $_ }} @l);
    exit 0;
}

my $in = interactive->vnew('su');
my @users; 

new:
$u = { icon => translate('automagic') };
if ($in->ask_from_entries_refH(
        [ _("Add user"), _("Accept user"), _("Done") ],
        _("Enter a user\n%s", $users ? _("(already added %s)", join(", ", map { $_->{realname} || $_->{name} } @users)) : ''),
        [ 
	 _("Real name") => \$u->{realname},
	 _("User name") => \$u->{name},
	   $security < 2 ? () : (
         _("Password") => {val => \$u->{password}, hidden => 1},
         _("Password (again)") => {val => \$u->{password2}, hidden => 1},
	   ), $::beginner ? () : (
         _("Shell") => {val => \$u->{shell}, list => \@shells, not_edit => !$::expert} 
	   ), $security > 3 ? () : (
	 _("Icon") => {val => \$u->{icon}, list => [ any::facesnames() ], icon2f => \&any::face2xpm },
	   ),
        ],
        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,3);
	    $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;
	},
)) {
    push @users, $u;
    goto new;
}

addusers(@users);

sub addusers {
    my @u = map { $_->{name} } my @users = @_;

    foreach (@users) {
	$_->{pw} = any::crypt($_->{password}, $isMD5);
	$_->{shell} ||= "/bin/bash";
    }

    system("adduser $_") foreach @u;
    any::addUsers('', @_);

    substInFile {
	foreach my $u (@users) {
	    if (/^$u->{name}:/) {
		chomp;
		my %l; @l{@etc_pass_fields} = split ':';
		add2hash($u, \%l);
		$_ = join(':', @$u{@etc_pass_fields}) . "\n";
	    }
	}
    } "/etc/passwd";
    system("pwconv") if $isShadow;
}

$in->exit(0);
o?h=topic/newgui&amp;id=b3a7e8c26c9c35539849d9cb71ac6ea2e07ba0c9'>po</a>/<a href='/software/isodumper/commit/po/uk.po?h=topic/newgui&amp;id=b3a7e8c26c9c35539849d9cb71ac6ea2e07ba0c9'>uk.po</a></div><div class='content'><div class='cgit-panel'><b>diff options</b><form method='get'><input type='hidden' name='h' value='topic/newgui'/><input type='hidden' name='id' value='b3a7e8c26c9c35539849d9cb71ac6ea2e07ba0c9'/><table><tr><td colspan='2'/></tr><tr><td class='label'>context:</td><td class='ctrl'><select name='context' onchange='this.form.submit();'><option value='1'>1</option><option value='2'>2</option><option value='3' selected='selected'>3</option><option value='4'>4</option><option value='5'>5</option><option value='6'>6</option><option value='7'>7</option><option value='8'>8</option><option value='9'>9</option><option value='10'>10</option><option value='15'>15</option><option value='20'>20</option><option value='25'>25</option><option value='30'>30</option><option value='35'>35</option><option value='40'>40</option></select></td></tr><tr><td class='label'>space:</td><td class='ctrl'><select name='ignorews' onchange='this.form.submit();'><option value='0' selected='selected'>include</option><option value='1'>ignore</option></select></td></tr><tr><td class='label'>mode:</td><td class='ctrl'><select name='dt' onchange='this.form.submit();'><option value='0' selected='selected'>unified</option><option value='1'>ssdiff</option><option value='2'>stat only</option></select></td></tr><tr><td/><td class='ctrl'><noscript><input type='submit' value='reload'/></noscript></td></tr></table></form></div><table summary='commit info' class='commit-info'>
<tr><th>author</th><td>Papoteur &lt;papoteur@mageialinux-online.org&gt;</td><td class='right'>2015-03-08 09:26:18 +0100</td></tr>
<tr><th>committer</th><td>Papoteur &lt;papoteur@mageialinux-online.org&gt;</td><td class='right'>2015-03-08 09:26:18 +0100</td></tr>
<tr><th>commit</th><td colspan='2' class='sha1'><a href='/software/isodumper/commit/po/uk.po?h=topic/newgui&amp;id=b3a7e8c26c9c35539849d9cb71ac6ea2e07ba0c9'>b3a7e8c26c9c35539849d9cb71ac6ea2e07ba0c9</a> (<a href='/software/isodumper/patch/po/uk.po?id=b3a7e8c26c9c35539849d9cb71ac6ea2e07ba0c9'>patch</a>)</td></tr>
<tr><th>tree</th><td colspan='2' class='sha1'><a href='/software/isodumper/tree/?h=topic/newgui&amp;id=b3a7e8c26c9c35539849d9cb71ac6ea2e07ba0c9'>4c3cea0a42a676ce440b0b175f67cee2e9549ae8</a> /<a href='/software/isodumper/tree/po/uk.po?h=topic/newgui&amp;id=b3a7e8c26c9c35539849d9cb71ac6ea2e07ba0c9'>po/uk.po</a></td></tr>
<tr><th>parent</th><td colspan='2' class='sha1'><a href='/software/isodumper/commit/po/uk.po?h=topic/newgui&amp;id=5e9f15ab850a406663634ba899d9abf1d144db66'>5e9f15ab850a406663634ba899d9abf1d144db66</a> (<a href='/software/isodumper/diff/po/uk.po?h=topic/newgui&amp;id=b3a7e8c26c9c35539849d9cb71ac6ea2e07ba0c9&amp;id2=5e9f15ab850a406663634ba899d9abf1d144db66'>diff</a>)</td></tr><tr><th>download</th><td colspan='2' class='sha1'><a href='/software/isodumper/snapshot/isodumper-b3a7e8c26c9c35539849d9cb71ac6ea2e07ba0c9.tar'>isodumper-b3a7e8c26c9c35539849d9cb71ac6ea2e07ba0c9.tar</a><br/><a href='/software/isodumper/snapshot/isodumper-b3a7e8c26c9c35539849d9cb71ac6ea2e07ba0c9.tar.gz'>isodumper-b3a7e8c26c9c35539849d9cb71ac6ea2e07ba0c9.tar.gz</a><br/><a href='/software/isodumper/snapshot/isodumper-b3a7e8c26c9c35539849d9cb71ac6ea2e07ba0c9.tar.bz2'>isodumper-b3a7e8c26c9c35539849d9cb71ac6ea2e07ba0c9.tar.bz2</a><br/><a href='/software/isodumper/snapshot/isodumper-b3a7e8c26c9c35539849d9cb71ac6ea2e07ba0c9.tar.xz'>isodumper-b3a7e8c26c9c35539849d9cb71ac6ea2e07ba0c9.tar.xz</a><br/><a href='/software/isodumper/snapshot/isodumper-b3a7e8c26c9c35539849d9cb71ac6ea2e07ba0c9.zip'>isodumper-b3a7e8c26c9c35539849d9cb71ac6ea2e07ba0c9.zip</a><br/></td></tr></table>
<div class='commit-subject'>Update isodumper.glade to suppress warning about vbox</div><div class='commit-msg'>