/[BackupPC]/trunk/bin/BackupPC_xls_report
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/bin/BackupPC_xls_report

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 41 by dpavlin, Fri Aug 19 21:52:43 2005 UTC revision 42 by dpavlin, Fri Aug 19 22:07:01 2005 UTC
# Line 48  my $date_format = $workbook->add_format( Line 48  my $date_format = $workbook->add_format(
48  my $duration_format = $workbook->add_format(num_format => 'hh:mm:ss');  my $duration_format = $workbook->add_format(num_format => 'hh:mm:ss');
49  my $header_format = $workbook->add_format(color => 'gray');  my $header_format = $workbook->add_format(color => 'gray');
50  my $pcnt_format = $workbook->add_format(num_format => '0.0%');  my $pcnt_format = $workbook->add_format(num_format => '0.0%');
51    my $size_format = $workbook->add_format(num_format => '0');
52    
53  my $formats = {  my $formats = {
54          duration => $duration_format,          duration => $duration_format,
55          sizeNewRatio => $pcnt_format,          sizeNewRatio => $pcnt_format,
56          sizeExistRatio => $pcnt_format,          sizeExistRatio => $pcnt_format,
57            size => $size_format,
58            sizeNew => $size_format,
59            sizeExist => $size_format,
60            sizeNewComp => $size_format,
61            sizeExistComp => $size_format,
62  };  };
63    
64  my $bpc = BackupPC::Lib->new || die;  my $bpc = BackupPC::Lib->new || die;
# Line 98  foreach my $host_key (keys %{$hosts}) { Line 104  foreach my $host_key (keys %{$hosts}) {
104                                  $f =~ s/##/($row+1)/ge;                                  $f =~ s/##/($row+1)/ge;
105                                  $worksheet->write($row, $i, $f, $formats->{$n});                                  $worksheet->write($row, $i, $f, $formats->{$n});
106                          } else {                          } else {
107                                  $worksheet->write($row, $i, $backup->{ $cols[$i] });                                  $worksheet->write($row, $i, $backup->{$col}, $formats->{$col});
108                          }                          }
109                  }                  }
110                  $row++;                  $row++;
Legend:
Removed from v.41  
changed lines
  Added in v.42
  ViewVC Help
Powered by ViewVC 1.1.26