1 |
#!/usr/local/bin/perl |
#!/usr/bin/perl |
2 |
|
|
3 |
use strict; |
use strict; |
4 |
use lib "__INSTALLDIR__/lib"; |
use lib "__INSTALLDIR__/lib"; |
13 |
my $workbook = Spreadsheet::WriteExcel->new($xls_file) || die "can't write to $xls_file: $!"; |
my $workbook = Spreadsheet::WriteExcel->new($xls_file) || die "can't write to $xls_file: $!"; |
14 |
|
|
15 |
my @cols = qw( |
my @cols = qw( |
16 |
|
hostname |
17 |
type |
type |
18 |
num |
num |
19 |
startTime |
startTime |
20 |
endTime |
endTime |
21 |
=D##-C##,duration |
=E##-D##,duration |
22 |
level |
level |
23 |
noFill |
noFill |
24 |
fillFromNum |
fillFromNum |
40 |
|
|
41 |
compress |
compress |
42 |
sizeNewComp |
sizeNewComp |
43 |
=V##/S##,sizeNewRatio |
=W##/T##,sizeNewRatio |
44 |
sizeExistComp |
sizeExistComp |
45 |
=X##/T##,sizeExistRatio |
=Y##/U##,sizeExistRatio |
46 |
); |
); |
47 |
|
|
48 |
my $date_format = $workbook->add_format(num_format => 'yyyy-mm-dd hh:mm:ss'); |
my $date_format = $workbook->add_format(num_format => 'yyyy-mm-dd hh:mm:ss'); |
49 |
my $duration_format = $workbook->add_format(num_format => 'hh:mm:ss'); |
my $duration_format = $workbook->add_format(num_format => 'hh:mm:ss'); |
50 |
my $header_format = $workbook->add_format(color => 'gray'); |
my $header_format = $workbook->add_format(color => 'gray'); |
51 |
my $pcnt_format = $workbook->add_format(num_format => '0.0%'); |
my $pcnt_format = $workbook->add_format(num_format => '0.0%'); |
52 |
|
my $size_format = $workbook->add_format(num_format => '#0'); |
53 |
|
|
54 |
my $formats = { |
my $formats = { |
55 |
duration => $duration_format, |
duration => $duration_format, |
56 |
sizeNewRatio => $pcnt_format, |
sizeNewRatio => $pcnt_format, |
57 |
sizeExistRatio => $pcnt_format, |
sizeExistRatio => $pcnt_format, |
58 |
|
size => $size_format, |
59 |
|
sizeNew => $size_format, |
60 |
|
sizeExist => $size_format, |
61 |
|
sizeNewComp => $size_format, |
62 |
|
sizeExistComp => $size_format, |
63 |
}; |
}; |
64 |
|
|
65 |
my $bpc = BackupPC::Lib->new || die; |
my $bpc = BackupPC::Lib->new || die; |
68 |
|
|
69 |
my $hosts = $bpc->HostInfoRead(); |
my $hosts = $bpc->HostInfoRead(); |
70 |
|
|
71 |
foreach my $host_key (keys %{$hosts}) { |
my $worksheet = $workbook->add_worksheet('BackupPC'); |
72 |
|
my $row = 0; |
73 |
|
|
74 |
|
my $i = 0; |
75 |
|
# insert sheet header (with formatting) |
76 |
|
foreach my $c (@cols) { |
77 |
|
if ($c =~ m/^=.*,(.+)/) { |
78 |
|
$worksheet->write($row, $i++, $1, $header_format); |
79 |
|
} else { |
80 |
|
$worksheet->write($row, $i++, $c, $header_format); |
81 |
|
} |
82 |
|
} |
83 |
|
$row++; |
84 |
|
|
85 |
|
foreach my $host_key (sort keys %{$hosts}) { |
86 |
|
|
87 |
my $hostname = $hosts->{$host_key}->{'host'} || die "can't find host for $host_key"; |
my $hostname = $hosts->{$host_key}->{'host'} || die "can't find host for $host_key"; |
88 |
|
|
89 |
print $hostname, " "; |
print $hostname, " "; |
90 |
|
|
|
my $worksheet = $workbook->add_worksheet($hostname); |
|
|
|
|
91 |
# get backups for a host |
# get backups for a host |
92 |
my @backups = $bpc->BackupInfoRead($hostname); |
my @backups = $bpc->BackupInfoRead($hostname); |
93 |
print scalar @backups, " increments\n"; |
print scalar @backups, " increments\n"; |
94 |
|
|
|
my $row = 0; |
|
|
my $i = 0; |
|
|
|
|
|
foreach my $c (@cols) { |
|
|
if ($c =~ m/^=.*,(.+)/) { |
|
|
$worksheet->write($row, $i++, $1, $header_format); |
|
|
} else { |
|
|
$worksheet->write($row, $i++, $c, $header_format); |
|
|
} |
|
|
} |
|
|
$row++; |
|
|
|
|
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/) { |
107 |
$f =~ s/##/($row+1)/ge; |
$f =~ s/##/($row+1)/ge; |
108 |
$worksheet->write($row, $i, $f, $formats->{$n}); |
$worksheet->write($row, $i, $f, $formats->{$n}); |
109 |
} else { |
} else { |
110 |
$worksheet->write($row, $i, $backup->{ $cols[$i] }); |
$worksheet->write($row, $i, $backup->{$col}, $formats->{$col}); |
111 |
} |
} |
112 |
} |
} |
113 |
$row++; |
$row++; |