summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
7cc35df)
grep -rl MaxArchiveSize . | xargs -i sh -cv "perl -p -i -n -e 's/MaxArchiveSize/ArchiveMediaSize/' {}"
my $size = (stat( $path ))[7] || die "can't stat $path: $!";
my $size = (stat( $path ))[7] || die "can't stat $path: $!";
- if ($size > $Conf{MaxArchiveSize}) {
- print ", part bigger than media $size > $Conf{MaxArchiveSize}\n";
+ if ($size > $Conf{ArchiveMediaSize}) {
+ print ", part bigger than media $size > $Conf{ArchiveMediaSize}\n";
my $v; # emtpy volume
my $v_size = 0;
my $v; # emtpy volume
my $v_size = 0;
- my $max_archive_size = $Conf{MaxArchiveSize} || die "no MaxArchiveSize";
+ my $max_archive_size = $Conf{ArchiveMediaSize} || die "no ArchiveMediaSize";
while (my $row = $sth_archive_backup_parts->fetchrow_hashref) {
if (($v->{size} || 0) + $row->{part_size} > $max_archive_size) {
push @volumes, $v;
while (my $row = $sth_archive_backup_parts->fetchrow_hashref) {
if (($v->{size} || 0) + $row->{part_size} > $max_archive_size) {
push @volumes, $v;
# archive media size (in bytes)
# default: 4.2Gb for DVD
#
# archive media size (in bytes)
# default: 4.2Gb for DVD
#
-#$Conf{MaxArchiveSize} = 4200 * 1024 * 1024;
-$Conf{MaxArchiveSize} = 4404019200;
+#$Conf{ArchiveMediaSize} = 4200 * 1024 * 1024;
+$Conf{ArchiveMediaSize} = 4404019200;
#
# maximum size of one (uncompressed) file on archive medium (in bytes)
#
# maximum size of one (uncompressed) file on archive medium (in bytes)
- if ($total_size > ($Conf{MaxArchiveSize} * $parts)) {
+ if ($total_size > ($Conf{ArchiveMediaSize} * $parts)) {
$cont .= eval( q{ ${h2(Error)}});
$cont .= eval( q{ ${h2(Error)}});
- $cont .= "Selected backups size " . sprintf("%1.2f", $total_size / 1024) ." Kb exceed max archive size " . sprintf("%1.2f", $Conf{MaxArchiveSize} / 1024) ." Kb.";
+ $cont .= "Selected backups size " . sprintf("%1.2f", $total_size / 1024) ." Kb exceed max archive size " . sprintf("%1.2f", $Conf{ArchiveMediaSize} / 1024) ." Kb.";
} elsif ($total_size == 0) {
$cont .= eval( q{ ${h2(Error)}});
$cont .= "No backups selected.";
} elsif ($total_size == 0) {
$cont .= eval( q{ ${h2(Error)}});
$cont .= "No backups selected.";
sub getVolumes($) {
my $id = shift;
sub getVolumes($) {
my $id = shift;
- my $max_archive_size = $Conf{MaxArchiveSize} || die "no MaxArchiveSize";
+ my $max_archive_size = $Conf{ArchiveMediaSize} || die "no ArchiveMediaSize";
my $sth = $dbh->prepare(qq{
select
my $sth = $dbh->prepare(qq{
select
$row->{'age'} = sprintf("%0.1f", ( $row->{'age'} / 86400 ) );
#$row->{'age'} = sprintf("%0.1f", ( (time() - $row->{'date'}) / 86400 ) );
$row->{'age'} = sprintf("%0.1f", ( $row->{'age'} / 86400 ) );
#$row->{'age'} = sprintf("%0.1f", ( (time() - $row->{'date'}) / 86400 ) );
- my $max_archive_size = $Conf{MaxArchiveSize} || die "no MaxArchiveSize";
+ my $max_archive_size = $Conf{ArchiveMediaSize} || die "no ArchiveMediaSize";
if ($row->{size} > $max_archive_size) {
($row->{volumes}, $row->{inc_size_calc}) = getVolumes($row->{id});
}
if ($row->{size} > $max_archive_size) {
($row->{volumes}, $row->{inc_size_calc}) = getVolumes($row->{id});
}
- my $max_archive_size = $Conf{MaxArchiveSize} || die "no MaxArchiveSize";
+ my $max_archive_size = $Conf{ArchiveMediaSize} || die "no ArchiveMediaSize";
my $max_archive_file_size = $Conf{MaxArchiveFileSize} || die "no MaxFileInSize";
my $retHTML .= q{
my $max_archive_file_size = $Conf{MaxArchiveFileSize} || die "no MaxFileInSize";
my $retHTML .= q{