5 $members{$who} = $members{$who} . $_;
9 ($f,$f,$who,$own) = split(/\s+/, $_);
13 # Do system:authuser@cell groups
15 next unless ($data{$_} =~ /^system:authuser@/);
16 ($name, $attr, $id, $oid, $cid) = split(/\s+/, $data{$_});
17 ($flags, $mcount) = split(/\//, $attr);
18 $mcount += $mcount{$_};
19 print "$name $flags/$mcount $id $oid $cid\n";
30 # Now do all the lists
32 while ((@keys = keys %data)+0 && $x) {
34 for $key (keys %data) {
35 ($f,$f,$who,$own) = split(/\s+/, $data{$key});
36 next if ($who!=$own && $data{$own});
39 print $members{$key} if ($members{$key});
41 delete $members{$key} if ($members{$key});
45 print STDERR "Unprocessed:\n";
47 $f = split(/\s+/, $data{$_});
48 print STDERR "\t$f ($_)\n";