#!/usr/bin/perl -w
use strict;

system("clear");
print "Please enter the group name that you're querying: ";
chomp (my $group_name=<STDIN>);

my @servers=`grep "^$group_name:" group/* | cut -d/ -f2 | cut -d. -f1`;
foreach my $server (@servers) {
    chomp $server; 
    my $group_line=`grep "^$group_name:" group/$server.grp`;
    my ($groupName,undef,$gid,$secondaryMembers)=split(/:/,$group_line);
    my @primary_members=`egrep ".*:[^A-Za-z]+:$gid:.*" passwd/$server.passwd`;
    if (@primary_members) {
        print "<@primary_members>\n";
    }
    if (defined $secondaryMembers ) {
        my @users=split(/,/,$secondaryMembers);
        foreach my $user (@users) {
            chomp $user;
            my $userInfo=`grep "^$user:" passwd/$server.passwd`;
            if ($userInfo) {
                print "[$userInfo]\n";
            }
        }
    }
}