92 |
my @backups = $bpc->BackupInfoRead($hostname); |
my @backups = $bpc->BackupInfoRead($hostname); |
93 |
print scalar @backups, " increments\n"; |
print scalar @backups, " increments\n"; |
94 |
|
|
|
my $i = 0; |
|
|
$worksheet->write($row, $i++, $hostname); |
|
|
|
|
95 |
foreach my $backup (@backups) { |
foreach my $backup (@backups) { |
96 |
|
$worksheet->write($row, 0, $hostname); |
97 |
|
|
98 |
for (my $i = 0; $i <= $#cols; $i++) { |
for (my $i = 0; $i <= $#cols; $i++) { |
99 |
my $col = $cols[$i]; |
my $col = $cols[$i]; |
100 |
if ($col =~ m/Time/) { |
if ($col =~ m/Time/) { |