#!/usr/bin/perl
# helper program to get userstatus for CGI interface
# WARNING: will run as root!!! make changes with care
# Last modified: 7.11.2000 by Thomas Bleher
use User::grent;
my $group = getgrnam(shift);
for my $user (@{$group->members}) {
	$status = (`passwd -S $user` =~ /^[-.\w]+\s+(\w)/)[0];
	($used, $quota) = (join('',`quota -v $user`) =~ m@/dev/md0\s+(\d+)\*?\s+(\d+)@,0,0); #muss noch angepasst werden
	print $user,' ',$status,' ',$used,' ',$quota,"\n";
}
