Subversion Repositories DevTools

Rev

Rev 1572 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1572 Rev 1574
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