From 4911233973d57ddc47f8d0d1be5cac9b9a0a9103 Mon Sep 17 00:00:00 2001
From: hjp <hjp>
Date: Wed, 23 Mar 2005 09:18:24 +0000
Subject: [PATCH] Added option --miss

---
 grouptools/groupmatch.pl | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/grouptools/groupmatch.pl b/grouptools/groupmatch.pl
index 25bc58a..bafed30 100755
--- a/grouptools/groupmatch.pl
+++ b/grouptools/groupmatch.pl
@@ -36,6 +36,12 @@ specified list. Users which are already in the group are marked (*).
 
 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
 
 =head1 AUTHOR
@@ -62,11 +68,12 @@ sub diffsym {
 my $cut = undef;
 my $debug = 0;
 my $allmembers = 0;
+my $miss = 1;
 GetOptions("cut=i" => \$cut,
            "debug" => \$debug,
-           "allmembers" => \$allmembers);
-           
-
+           "allmembers" => \$allmembers,
+	   "miss=f" => \$miss,
+          );
 my $gr = {};
 
 my @gr;
@@ -87,7 +94,7 @@ while (@pw = getpwent()) {
 }
 for my $g (keys %$gr) {
     for my $u (@ARGV) {
-	$gr->{$g}->{Members}->{$u}--;
+	$gr->{$g}->{Members}->{$u} = (($gr->{$g}->{Members}->{$u} || 0) - 1) * $miss;
     }
     my $score = 0;
     for my $u (keys(%{$gr->{$g}->{Members}})) {