8 |
use DateTime; |
use DateTime; |
9 |
use vars qw(%In $MyURL); |
use vars qw(%In $MyURL); |
10 |
use Time::HiRes qw/time/; |
use Time::HiRes qw/time/; |
11 |
|
use XML::Writer; |
12 |
|
use IO::File; |
13 |
|
|
14 |
my $on_page = 100; |
my $on_page = 100; |
15 |
my $pager_pages = 10; |
my $pager_pages = 10; |
307 |
|
|
308 |
} |
} |
309 |
|
|
310 |
|
sub get_tgz_size_by_name($) { |
311 |
|
my $name = shift; |
312 |
|
|
313 |
|
my $tgz = $Conf{InstallDir}.'/'.$Conf{GzipTempDir}.'/'.$name; |
314 |
|
|
315 |
|
my $size = -1; |
316 |
|
|
317 |
|
if (-f $tgz) { |
318 |
|
$size = (stat($tgz))[7]; |
319 |
|
} elsif (-d $tgz) { |
320 |
|
opendir(my $dir, $tgz) || die "can't opendir $tgz: $!"; |
321 |
|
my @parts = grep { !/^\./ && -f "$tgz/$_" } readdir($dir); |
322 |
|
$size = 0; |
323 |
|
foreach my $part (@parts) { |
324 |
|
$size += (stat("$tgz/$part"))[7] || die "can't stat $tgz/$part: $!"; |
325 |
|
} |
326 |
|
closedir $dir; |
327 |
|
} |
328 |
|
|
329 |
|
return $size; |
330 |
|
} |
331 |
|
|
332 |
sub getGzipSize($$) |
sub getGzipSize($$) |
333 |
{ |
{ |
334 |
my ($hostID, $backupNum) = @_; |
my ($hostID, $backupNum) = @_; |
|
my $ret; |
|
335 |
my $sql; |
my $sql; |
336 |
my $dbh = get_dbh(); |
my $dbh = get_dbh(); |
337 |
|
|
349 |
$sth->execute($hostID, $backupNum); |
$sth->execute($hostID, $backupNum); |
350 |
|
|
351 |
my $row = $sth->fetchrow_hashref(); |
my $row = $sth->fetchrow_hashref(); |
352 |
|
|
353 |
my (undef,undef,undef,undef,undef,undef,undef,$ret,undef,undef,undef,undef,undef) = |
return get_tgz_size_by_name( |
354 |
stat( $Conf{InstallDir}.'/'.$Conf{GzipTempDir}.'/'. |
getGzipName($row->{'host'}, $row->{share}, $row->{'backupnum'}) |
355 |
getGzipName($row->{'host'}, $row->{share}, $row->{'backupnum'})); |
); |
|
|
|
|
return $ret; |
|
356 |
} |
} |
357 |
|
|
358 |
sub getBackupsNotBurned() { |
sub getBackupsNotBurned() { |