|
Lines 121-126
Link Here
|
| 121 |
# |
121 |
# |
| 122 |
use vars qw/ %opt /; |
122 |
use vars qw/ %opt /; |
| 123 |
|
123 |
|
|
|
124 |
my $user; |
| 125 |
my $group; |
| 126 |
my @groups; |
| 127 |
my $ans; |
| 128 |
|
| 124 |
# Disable output buffering |
129 |
# Disable output buffering |
| 125 |
$|=1; |
130 |
$|=1; |
| 126 |
|
131 |
|
|
Lines 132-138
Link Here
|
| 132 |
# Check if a user belongs to a group |
137 |
# Check if a user belongs to a group |
| 133 |
# |
138 |
# |
| 134 |
sub check { |
139 |
sub check { |
| 135 |
local($user, $group) = @_; |
140 |
my $groupSID; |
|
|
141 |
my $groupGID; |
| 142 |
my @tmpuser; |
| 143 |
|
| 144 |
our($user, $group) = @_; |
| 136 |
if ($opt{K} && ($user =~ m/\@/)) { |
145 |
if ($opt{K} && ($user =~ m/\@/)) { |
| 137 |
@tmpuser = split(/\@/, $user); |
146 |
@tmpuser = split(/\@/, $user); |
| 138 |
$user = "$tmpuser[1]\\$tmpuser[0]"; |
147 |
$user = "$tmpuser[1]\\$tmpuser[0]"; |
