scripts/mgaAddUser


1
2
3
4
5
6
7
8
9
10
11
12
13

#!/usr/bin/perl

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

use common qw(N);

use AdminPanel::Module::Users;

my $userMan = AdminPanel::Module::Users->new({icon => "/usr/share/icons/userdrake.png",
                                              name => N("Mageia Add Users Tool"),});
$userMan->addUserDialog(1);

1;