sub get_tgz_size_by_name($) {
my $name = shift;
- my $tgz = $Conf{InstallDir}.'/'.$Conf{GzipTempDir}.'/'.$name;
+ my $tgz = $Conf{GzipTempDir}.'/'.$name;
my $size = -1;
- my $Dir = $Conf{InstallDir}."/data/log";
$|=1;
if (-f "${tgz}.tar.gz") {
$size = (stat("${tgz}.tar.gz"))[7];
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
$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});
}
my $param = shift;
- my $max_archive_size = $Conf{MaxArchiveSize} || die "no MaxArchiveSize";
- my $max_archive_file_size = $Conf{MaxArchiveFileSize} || die "no MaxFileInSize";
+ my $max_archive_size = $Conf{ArchiveMediaSize} || die "no ArchiveMediaSize";
+ my $max_archive_file_size = $Conf{ArchiveChunkSize} || die "no MaxFileInSize";
my $retHTML .= q{
<form id="forma" method="POST" action="}.$MyURL.q{?action=burn">