| Line 1... |
Line 1... |
| 1 |
|
1 |
|
| 2 |
use Getopt::Long;
|
2 |
use Getopt::Long;
|
| 3 |
|
3 |
|
| 4 |
use constant { OK => 0,
|
4 |
use constant OK => 0; # User or group exists and are valid
|
| 5 |
NOUSER => 1, # user $opt_user does not exist
|
5 |
use constant NOUSER => 1; # user $opt_user does not exist
|
| 6 |
NOGROUP => 2, # group $opt_group does not exist
|
6 |
use constant NOGROUP => 2; # group $opt_group does not exist
|
| 7 |
PRIMARYGROUP => 3, # Primary group of user $opt_user is not $opt_group
|
7 |
use constant PRIMARYGROUP => 3; # Primary group of user $opt_user is not $opt_group
|
| 8 |
SECONDARYGROUP => 4, # user $opt_user is not a member of one of the elements in $opt_Groups
|
8 |
use constant SECONDARYGROUP => 4; # user $opt_user is not a member of one of the elements in $opt_Groups
|
| 9 |
HOMEDIR => 5, # user $opt_user home dir is not $opt_home
|
9 |
use constant HOMEDIR => 5; # user $opt_user home dir is not $opt_home
|
| 10 |
INVALIDPARAMETERS => 6, # GetOpt Errors
|
10 |
use constant INVALIDPARAMETERS => 6; # GetOpt Errors
|
| 11 |
MISSINGPARAMETERS => 7 # user or group options missing
|
11 |
use constant MISSINGPARAMETERS => 7; # user or group options missing
|
| 12 |
};
|
12 |
|
| 13 |
|
- |
|
| 14 |
our ( $opt_user, $opt_group, @opt_Groups, $opt_home );
|
13 |
our ( $opt_user, $opt_group, @opt_Groups, $opt_home );
|
| 15 |
my $retval;
|
14 |
my $retval;
|
| 16 |
|
15 |
|
| 17 |
Getopt::Long::Configure("no_ignore_case");
|
16 |
Getopt::Long::Configure("no_ignore_case");
|
| 18 |
|
17 |
|