#! /usr/local/bin/perl
if
(
scalar
(
@ARGV
) != 1) {
print
"Usage: aggregate.pl <ftserver_name>\n"
;
exit
;
}
my
(
$flserver
,
$status
) = DCE::DFS::flserver;
$status
and
print
"Error creating flserver - $status\n"
and
exit
;
my
(
$ftserver
,
$status
) =
$flserver
->ftserver_by_name(
$ARGV
[0]);
$status
and
print
"Error creating ftserver - $status\n"
and
exit
;
while
(1) {
my
(
$aggr
,
$status
) =
$ftserver
->aggregate;
last
if
$status
==
$ftserver
->status_endoflist;
$status
and
print
"Unable to create aggregate - $status\n"
and
exit
;
printf
(
"(%s, %s, %d, %d, %d, %d)\n"
,
$aggr
->name,
$aggr
->device,
$aggr
->id,
$aggr
->type,
$aggr
->size,
$aggr
->free);
}