| 1 |
dpavlin |
41 |
#!/usr/local/bin/perl |
| 2 |
|
|
|
| 3 |
|
|
use strict; |
| 4 |
|
|
use lib "__INSTALLDIR__/lib"; |
| 5 |
|
|
use BackupPC::Lib; |
| 6 |
|
|
use BackupPC::View; |
| 7 |
|
|
use Data::Dumper; |
| 8 |
|
|
use Spreadsheet::WriteExcel; |
| 9 |
|
|
use POSIX qw/strftime/; |
| 10 |
|
|
|
| 11 |
|
|
my $xls_file = '/tmp/report.xls'; |
| 12 |
|
|
|
| 13 |
|
|
my $workbook = Spreadsheet::WriteExcel->new($xls_file) || die "can't write to $xls_file: $!"; |
| 14 |
|
|
|
| 15 |
|
|
my @cols = qw( |
| 16 |
|
|
type |
| 17 |
|
|
num |
| 18 |
|
|
startTime |
| 19 |
|
|
endTime |
| 20 |
|
|
=D##-C##,duration |
| 21 |
|
|
level |
| 22 |
|
|
noFill |
| 23 |
|
|
fillFromNum |
| 24 |
|
|
mangle |
| 25 |
|
|
|
| 26 |
|
|
nFiles |
| 27 |
|
|
nFilesNew |
| 28 |
|
|
nFilesExist |
| 29 |
|
|
|
| 30 |
|
|
xferErrs |
| 31 |
|
|
xferMethod |
| 32 |
|
|
xferBadShare |
| 33 |
|
|
xferBadFile |
| 34 |
|
|
tarErrs |
| 35 |
|
|
|
| 36 |
|
|
size |
| 37 |
|
|
sizeNew |
| 38 |
|
|
sizeExist |
| 39 |
|
|
|
| 40 |
|
|
compress |
| 41 |
|
|
sizeNewComp |
| 42 |
|
|
=V##/S##,sizeNewRatio |
| 43 |
|
|
sizeExistComp |
| 44 |
|
|
=X##/T##,sizeExistRatio |
| 45 |
|
|
); |
| 46 |
|
|
|
| 47 |
|
|
my $date_format = $workbook->add_format(num_format => 'yyyy-mm-dd hh:mm:ss'); |
| 48 |
|
|
my $duration_format = $workbook->add_format(num_format => 'hh:mm:ss'); |
| 49 |
|
|
my $header_format = $workbook->add_format(color => 'gray'); |
| 50 |
|
|
my $pcnt_format = $workbook->add_format(num_format => '0.0%'); |
| 51 |
dpavlin |
42 |
my $size_format = $workbook->add_format(num_format => '0'); |
| 52 |
dpavlin |
41 |
|
| 53 |
|
|
my $formats = { |
| 54 |
|
|
duration => $duration_format, |
| 55 |
|
|
sizeNewRatio => $pcnt_format, |
| 56 |
|
|
sizeExistRatio => $pcnt_format, |
| 57 |
dpavlin |
42 |
size => $size_format, |
| 58 |
|
|
sizeNew => $size_format, |
| 59 |
|
|
sizeExist => $size_format, |
| 60 |
|
|
sizeNewComp => $size_format, |
| 61 |
|
|
sizeExistComp => $size_format, |
| 62 |
dpavlin |
41 |
}; |
| 63 |
|
|
|
| 64 |
|
|
my $bpc = BackupPC::Lib->new || die; |
| 65 |
|
|
my %Conf = $bpc->Conf(); |
| 66 |
|
|
my $TopDir = $bpc->TopDir(); |
| 67 |
|
|
|
| 68 |
|
|
my $hosts = $bpc->HostInfoRead(); |
| 69 |
|
|
|
| 70 |
|
|
foreach my $host_key (keys %{$hosts}) { |
| 71 |
|
|
|
| 72 |
|
|
my $hostname = $hosts->{$host_key}->{'host'} || die "can't find host for $host_key"; |
| 73 |
|
|
|
| 74 |
|
|
print $hostname, " "; |
| 75 |
|
|
|
| 76 |
|
|
my $worksheet = $workbook->add_worksheet($hostname); |
| 77 |
|
|
|
| 78 |
|
|
# get backups for a host |
| 79 |
|
|
my @backups = $bpc->BackupInfoRead($hostname); |
| 80 |
|
|
print scalar @backups, " increments\n"; |
| 81 |
|
|
|
| 82 |
|
|
my $row = 0; |
| 83 |
|
|
my $i = 0; |
| 84 |
|
|
|
| 85 |
|
|
foreach my $c (@cols) { |
| 86 |
|
|
if ($c =~ m/^=.*,(.+)/) { |
| 87 |
|
|
$worksheet->write($row, $i++, $1, $header_format); |
| 88 |
|
|
} else { |
| 89 |
|
|
$worksheet->write($row, $i++, $c, $header_format); |
| 90 |
|
|
} |
| 91 |
|
|
} |
| 92 |
|
|
$row++; |
| 93 |
|
|
|
| 94 |
|
|
foreach my $backup (@backups) { |
| 95 |
|
|
for (my $i = 0; $i <= $#cols; $i++) { |
| 96 |
|
|
my $col = $cols[$i]; |
| 97 |
|
|
if ($col =~ m/Time/) { |
| 98 |
|
|
$worksheet->write_date_time($row, $i, |
| 99 |
|
|
strftime("%Y-%m-%dT%H:%M:%S", localtime( $backup->{ $cols[$i] }) ), |
| 100 |
|
|
$date_format |
| 101 |
|
|
); |
| 102 |
|
|
} elsif ($col =~ m/(=[^,]+),*(.*)/) { |
| 103 |
|
|
my ($f,$n) = ($1,$2); |
| 104 |
|
|
$f =~ s/##/($row+1)/ge; |
| 105 |
|
|
$worksheet->write($row, $i, $f, $formats->{$n}); |
| 106 |
|
|
} else { |
| 107 |
dpavlin |
42 |
$worksheet->write($row, $i, $backup->{$col}, $formats->{$col}); |
| 108 |
dpavlin |
41 |
} |
| 109 |
|
|
} |
| 110 |
|
|
$row++; |
| 111 |
|
|
} |
| 112 |
|
|
|
| 113 |
|
|
|
| 114 |
|
|
} |
| 115 |
|
|
|
| 116 |
|
|
$workbook->close(); |
| 117 |
|
|
|
| 118 |
|
|
print "Created $xls_file\n"; |
| 119 |
|
|
|
Parent Directory
| 
Revision Log