Minor changes to lib/BackupPC/Xfer/RsyncDigest.pm and bin/BackupPC_nightly
[BackupPC.git] / lib / BackupPC / CGI / Summary.pm
1 #============================================================= -*-perl-*-
2 #
3 # BackupPC::CGI::Summary package
4 #
5 # DESCRIPTION
6 #
7 #   This module implements the Summary action for the CGI interface.
8 #
9 # AUTHOR
10 #   Craig Barratt  <cbarratt@users.sourceforge.net>
11 #
12 # COPYRIGHT
13 #   Copyright (C) 2003  Craig Barratt
14 #
15 #   This program is free software; you can redistribute it and/or modify
16 #   it under the terms of the GNU General Public License as published by
17 #   the Free Software Foundation; either version 2 of the License, or
18 #   (at your option) any later version.
19 #
20 #   This program is distributed in the hope that it will be useful,
21 #   but WITHOUT ANY WARRANTY; without even the implied warranty of
22 #   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
23 #   GNU General Public License for more details.
24 #
25 #   You should have received a copy of the GNU General Public License
26 #   along with this program; if not, write to the Free Software
27 #   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
28 #
29 #========================================================================
30 #
31 # Version 3.0.0beta2, released 11 Nov 2006.
32 #
33 # See http://backuppc.sourceforge.net.
34 #
35 #========================================================================
36
37 package BackupPC::CGI::Summary;
38
39 use strict;
40 use BackupPC::CGI::Lib qw(:all);
41
42 sub action
43 {
44     my($fullTot, $fullSizeTot, $incrTot, $incrSizeTot, $str,
45        $strNone, $strGood, $hostCntGood, $hostCntNone);
46
47     $hostCntGood = $hostCntNone = 0;
48     GetStatusInfo("hosts");
49     my $Privileged = CheckPermission();
50
51     foreach my $host ( GetUserHosts(1) ) {
52         my($fullDur, $incrCnt, $incrAge, $fullSize, $fullRate, $reasonHilite,
53            $lastAge, $tempState, $tempReason);
54         my($shortErr);
55         my @Backups = $bpc->BackupInfoRead($host);
56         my $fullCnt = $incrCnt = 0;
57         my $fullAge = $incrAge = $lastAge = -1;
58
59         $bpc->ConfigRead($host);
60         %Conf = $bpc->Conf();
61
62         next if ( $Conf{XferMethod} eq "archive" );
63         next if ( !$Privileged && !CheckPermission($host) );
64
65         for ( my $i = 0 ; $i < @Backups ; $i++ ) {
66             if ( $Backups[$i]{type} eq "full" ) {
67                 $fullCnt++;
68                 if ( $fullAge < 0 || $Backups[$i]{startTime} > $fullAge ) {
69                     $fullAge  = $Backups[$i]{startTime};
70                     $fullSize = $Backups[$i]{size} / (1024 * 1024);
71                     $fullDur  = $Backups[$i]{endTime} - $Backups[$i]{startTime};
72                 }
73                 $fullSizeTot += $Backups[$i]{size} / (1024 * 1024);
74             } else {
75                 $incrCnt++;
76                 if ( $incrAge < 0 || $Backups[$i]{startTime} > $incrAge ) {
77                     $incrAge = $Backups[$i]{startTime};
78                 }
79                 $incrSizeTot += $Backups[$i]{size} / (1024 * 1024);
80             }
81         }
82         if ( $fullAge > $incrAge && $fullAge >= 0 )  {
83             $lastAge = $fullAge;
84         } else {
85             $lastAge = $incrAge;
86         }
87         if ( $lastAge < 0 ) {
88             $lastAge = "";
89         } else {
90             $lastAge = sprintf("%.1f", (time - $lastAge) / (24 * 3600));
91         }
92         if ( $fullAge < 0 ) {
93             $fullAge = "";
94             $fullRate = "";
95         } else {
96             $fullAge = sprintf("%.1f", (time - $fullAge) / (24 * 3600));
97             $fullRate = sprintf("%.2f",
98                                 $fullSize / ($fullDur <= 0 ? 1 : $fullDur));
99         }
100         if ( $incrAge < 0 ) {
101             $incrAge = "";
102         } else {
103             $incrAge = sprintf("%.1f", (time - $incrAge) / (24 * 3600));
104         }
105         $fullTot += $fullCnt;
106         $incrTot += $incrCnt;
107         $fullSize = sprintf("%.2f", $fullSize / 1000);
108         $incrAge = "&nbsp;" if ( $incrAge eq "" );
109         $reasonHilite = $Conf{CgiStatusHilightColor}{$Status{$host}{reason}}
110                       || $Conf{CgiStatusHilightColor}{$Status{$host}{state}};
111         if ( $Conf{BackupsDisable} == 1 ) {
112             $reasonHilite = $Conf{CgiStatusHilightColor}{Disabled_OnlyManualBackups};
113             $tempState = "Disabled_OnlyManualBackups";
114             $tempReason = "";
115         } elsif ($Conf{BackupsDisable} == 2 ) {
116             $reasonHilite = $Conf{CgiStatusHilightColor}{Disabled_AllBackupsDisabled};
117             $tempState = "Disabled_AllBackupsDisabled";
118             $tempReason = "";
119         } else {
120             $tempState = $Status{$host}{state};
121             $tempReason = $Status{$host}{reason};
122         }
123         $reasonHilite = " bgcolor=\"$reasonHilite\"" if ( $reasonHilite ne "" );
124         if ( $tempState ne "Status_backup_in_progress"
125                 && $tempState ne "Status_restore_in_progress"
126                 && $Conf{BackupsDisable} == 0
127                 && $Status{$host}{error} ne "" ) {
128             ($shortErr = $Status{$host}{error}) =~ s/(.{48}).*/$1.../;
129             $shortErr = " ($shortErr)";
130         }
131
132         $str = <<EOF;
133 <tr$reasonHilite><td class="border"> ${HostLink($host)} </td>
134     <td align="center" class="border"> ${UserLink(defined($Hosts->{$host})
135                                     ? $Hosts->{$host}{user} : "")} </td>
136     <td align="center" class="border"> $fullCnt </td>
137     <td align="center" class="border"> $fullAge </td>
138     <td align="center" class="border"> $fullSize </td>
139     <td align="center" class="border"> $fullRate </td>
140     <td align="center" class="border"> $incrCnt </td>
141     <td align="center" class="border"> $incrAge </td>
142     <td align="center" class="border"> $lastAge </td> 
143     <td align="center" class="border"> $Lang->{$tempState} </td>
144     <td class="border"> $Lang->{$tempReason}$shortErr </td></tr>
145 EOF
146         if ( @Backups == 0 ) {
147             $hostCntNone++;
148             $strNone .= $str;
149         } else {
150             $hostCntGood++;
151             $strGood .= $str;
152         }
153     }
154     $fullSizeTot = sprintf("%.2f", $fullSizeTot / 1000);
155     $incrSizeTot = sprintf("%.2f", $incrSizeTot / 1000);
156     my $now      = timeStamp2(time);
157
158     my $content = eval ("qq{$Lang->{BackupPC_Summary}}");
159     Header($Lang->{BackupPC__Server_Summary}, $content);
160     Trailer();
161 }
162
163 1;