#!/usr/local/bin/perl
#
# $Header: /cvsroot/arsperl/ARSperl/example/ars_GetListGroup.pl,v 1.2 2008/05/15 18:30:07 tstapff Exp $
#
# NAME
#   ars_GetListGroup.pl
#
# USAGE
#   ars_GetListGroup.pl [server] [username] [password]
#
# DESCRIPTION
#   Demo of said function. See web page for details or ARS Programmers
#   Manual.
#
# AUTHOR
#   Jeff Murphy
#
# $Log: ars_GetListGroup.pl,v $
# Revision 1.2  2008/05/15 18:30:07  tstapff
# arsystem 7.1 port completed, new functions
#
# Revision 1.1  1997/07/23 18:21:29  jcmurphy
# Initial revision
#
#
#

use ARS;

($c = ars_Login(shift, shift, shift)) || die "login: $ars_errstr";


print "Calling GetListGroup..\n";

(@groups = ars_GetListGroup($c)) || die "ERR: $ars_errstr\n";
print "errstr=$ars_errstr\n";

print "GetListGroup returned the following groups:\n";

$num = scalar(@groups);
printf("%4.4s %4.4s %s\n", "ID", "Type", "Names..");
foreach my $h (@groups) {
    printf("%4d %4d [%d]", $h->{groupId}, $h->{groupType}, scalar(@{$h->{groupName}}) );
    foreach my $name ( @{$h->{groupName}} ){
        printf(" <%s>", $name);
    }	  
    print "\n";
}



# use the following block if your ARSperl was compiled with GETLISTGROUP_OLD_STYLE

#$num = $#{$h->{groupId}};
#printf("%4.4s %4.4s %s\n", "ID", "Type", "Names..");
#for($i = 0; $i < $num; $i++) {
#    printf("%4d %4d ", 
#	   @{$h->{groupId}}[$i],
#	   @{$h->{groupType}}[$i]);
#    printf("[%d] ", $#{@{$h->{groupName}}[$i]});
#    for($v=0; $v <= $#{@{$h->{groupName}}[$i]}; $v++) {
#	printf("<%s> ", @{@{$h->{groupName}}[$i]}[$v]);
#    }
#    print "\n";
#}

ars_Logoff($c);