#!/usr/local/bin/perl
use strict;
use Getopt::Std;
use Time::Local;
my %opts;
getopts('d', \%opts);
use NBU;
NBU->debug($opts{'d'});
NBU::StorageUnit->populate;
foreach my $stu (NBU::StorageUnit->list) {
if (defined($stu->host)) {
print $stu->host->name.": ";
}
else {
print "<none>: ";
}
print $stu->label." is of type ".$stu->type."\n";
if ($stu->robot && (($stu->type == 2) || ($stu->type == 3))) {
print " ".$stu->driveCount." ".$stu->density." drives are controlled through ".$stu->robot->type." robot ".$stu->robot->id."\n";
}
else {
# print " ".$stu->driveCount." ".$stu->density."\n";
}
print " Up to ".$stu->mpx." streams can be multiplexed to each drive\n";
}