#!/usr/local/bin/perl
#
# $Header: /cvs/ARSperl/example/ars_GetListGroup.pl,v 1.1 1997/07/23 18:21:29 jcmurphy 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.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";
($h = ars_GetListGroup($c)) || die "ERR: $ars_errstr\n";
print "errstr=$ars_errstr\n";
print "GetListGroup returned the following groups:\n";
$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);