241 |
return ($hits, \@res); |
return ($hits, \@res); |
242 |
} |
} |
243 |
|
|
244 |
|
sub getGzipName($$$) |
245 |
|
{ |
246 |
|
my ($host, $share, $backupnum) = @_; |
247 |
|
my $ret = $Conf{GzipSchema}; |
248 |
|
|
249 |
|
$share =~ s/\//_/g; |
250 |
|
$ret =~ s/\\h/$host/ge; |
251 |
|
$ret =~ s/\\s/$share/ge; |
252 |
|
$ret =~ s/\\n/$backupnum/ge; |
253 |
|
|
254 |
|
return $ret; |
255 |
|
|
256 |
|
} |
257 |
|
|
258 |
sub getBackupsNotBurned() { |
sub getBackupsNotBurned() { |
259 |
|
|
260 |
my $dbh = get_dbh(); |
my $dbh = get_dbh(); |
282 |
while ( my $row = $sth->fetchrow_hashref() ) { |
while ( my $row = $sth->fetchrow_hashref() ) { |
283 |
$row->{'age'} = sprintf("%0.1f", ( (time() - $row->{'date'}) / 86400 ) ); |
$row->{'age'} = sprintf("%0.1f", ( (time() - $row->{'date'}) / 86400 ) ); |
284 |
$row->{'size'} = sprintf("%0.2f", $row->{'size'} / 1024 / 1024); |
$row->{'size'} = sprintf("%0.2f", $row->{'size'} / 1024 / 1024); |
285 |
|
my (undef,undef,undef,undef,undef,undef,undef,$fs_size,undef,undef,undef,undef,undef) = |
286 |
|
stat( $Conf{InstallDir}.'/'.$Conf{GzipTempDir}.'/'. |
287 |
|
getGzipName($row->{'host'}, $row->{share}, $row->{'backupnum'})); |
288 |
|
$row->{'fs_size'} = $fs_size; |
289 |
push @ret, $row; |
push @ret, $row; |
290 |
} |
} |
291 |
|
|
332 |
<td align="center">date</td> |
<td align="center">date</td> |
333 |
<td align="center">age/days</td> |
<td align="center">age/days</td> |
334 |
<td align="center">size/MB</td> |
<td align="center">size/MB</td> |
335 |
|
<td align="center">gzip size</td> |
336 |
</tr> |
</tr> |
337 |
|
|
338 |
<tr><td colspan=7 style="tableheader"> |
<tr><td colspan=7 style="tableheader"> |
366 |
'<td align="center">' . epoch_to_iso( $backup->{'date'} ) . '</td>' . |
'<td align="center">' . epoch_to_iso( $backup->{'date'} ) . '</td>' . |
367 |
'<td align="center">' . $backup->{'age'} . '</td>' . |
'<td align="center">' . $backup->{'age'} . '</td>' . |
368 |
'<td align="right">' . $backup->{'size'} . '</td>' . |
'<td align="right">' . $backup->{'size'} . '</td>' . |
369 |
|
'<td align="right">' . $backup->{'fs_size'} .'</td>' . |
370 |
"</tr>\n"; |
"</tr>\n"; |
371 |
|
|
372 |
|
|