hjp
/
simple
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Added option --miss

This commit is contained in:
hjp 2005-03-23 09:18:24 +00:00
parent a8b5e5243a
commit 4911233973
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
grouptools/groupmatch.pl
View File

@ -36,6 +36,12 @@ specified list. Users which are already in the group are marked (*).
Prints some debug output to stderr. Prints some debug output to stderr.
=item --miss value
Penalty for missing users in a group. Default is 1, i.e., a user missing
is just as bad as a superfluous user. Larger values bias towards groups
with too many users, smaller values bias towards groups with too few users.
=back =back
=head1 AUTHOR =head1 AUTHOR
@ -62,11 +68,12 @@ sub diffsym {
my $cut = undef; my $cut = undef;
my $debug = 0; my $debug = 0;
my $allmembers = 0; my $allmembers = 0;
my $miss = 1;
GetOptions("cut=i" => \$cut, GetOptions("cut=i" => \$cut,
"debug" => \$debug, "debug" => \$debug,
"allmembers" => \$allmembers); "allmembers" => \$allmembers,
"miss=f" => \$miss,
);
my $gr = {}; my $gr = {};
my @gr; my @gr;
@ -87,7 +94,7 @@ while (@pw = getpwent()) {
} }
for my $g (keys %$gr) { for my $g (keys %$gr) {
for my $u (@ARGV) { for my $u (@ARGV) {
$gr->{$g}->{Members}->{$u}--; $gr->{$g}->{Members}->{$u} = (($gr->{$g}->{Members}->{$u} || 0) - 1) * $miss;
} }
my $score = 0; my $score = 0;
for my $u (keys(%{$gr->{$g}->{Members}})) { for my $u (keys(%{$gr->{$g}->{Members}})) {