Lines Matching refs:Options
25 my %Options;
27 my $ok = getopts('M:P:S:vn?hd:a', \%Options);
29 if ( (!$ok) || ($Options{'?'}) || ($Options{'h'}) || (!keys(%Options)) ) {
45 if ( $Options{'M'} ) {
46 open($INFILE,$Options{'M'}) or
47 die "I cannot open file: " . $Options{'M'} . "\n";
48 } elsif ( $Options{'P'} ) {
49 open($INFILE,$Options{'P'}) or
50 die "I cannot open file: " . $Options{'P'} . "\n";
52 if ( $Options{'S'} ) {
53 %shadowUsers = read_shadow_file($Options{'S'});
55 die "I cannot open file: " . $Options{'S'} . "\n" );
57 } elsif ( $Options{'S'} ) {
58 open($INFILE,$Options{'S'}) or
59 die "I cannot open file: " . $Options{'S'} . "\n";
70 if ($Options{'M'}) {
80 } elsif ($Options{'P'}) {
88 if ($Options{'S'} and $shadowUsers{$user}) {
92 } elsif ($Options{'S'}) {
100 # objectClass $Options{'d'} will be removed
102 if ($Options{'d'}) {
104 $entry->replace( 'objectClass' => [del_from_tab(\@objectClass,$Options{'d'})] );
105 #$entry->delete( 'objectClass' => [ $Options{'d'} ] );
108 if ( $Options{'a'} and !exist_in_tab([$entry->get_value('objectClass')],'sambaSamAccount') ) {
132 if ($Options{'v'}) {
135 if (!$Options{'n'}) {
137 if ( $Options{'d'} ) {