use strict;
use BackupPC::CGI::Lib qw(:all);
-use BackupPC::SearchLib;
+use BackupPC::Search;
use Data::Dumper;
-use vars qw($Cgi %In $MyURL $User %Conf $TopDir $BinDir $bpc);
-
-my $dsn = $Conf{SearchDSN};
-my $db_user = $Conf{SearchUser} || '';
+use vars qw($Cgi %In $MyURL $User $TopDir $BinDir $bpc);
sub action() {
my $cont = "";
my $subtitle;
my @files;
- my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 0 } );
+ $bpc->ConfigRead('_search_archive');
+ my %Conf = $bpc->Conf;
+
+ my $dbh = DBI->connect($Conf{SearchDSN}, $Conf{SearchUser}, "", { RaiseError => 1, AutoCommit => 0 } );
BackupPC::CGI::Lib::NewRequest();
# $cont = Dumper(%In);
EOF
$cont .= "Backups that have not been archived:<br>";
- $cont .= BackupPC::SearchLib::displayBackupsGrid( \%In );
+ $cont .= BackupPC::Search::displayBackupsGrid( \%In );
} else {
my ($host_id, $backup_num, $backup_id) = ($1,$2,$3);
push @selected_backup_ids, $backup_id;
- my $currSize = BackupPC::SearchLib::getGzipSizeFromBackupID($backup_id);
+ my $currSize = BackupPC::Search::getGzipSizeFromBackupID($backup_id);
my $sth_size = $dbh->prepare(q{select inc_size from backups where id = ?});
$sth_size -> execute( $backup_id );
my $db_size = $sth_size->fetchrow_hashref()->{inc_size};
}
}
- if ($total_size > ($Conf{MaxArchiveSize} * $parts)) {
- $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.";
+ if ($total_size > ($Conf{ArchiveMediaSize} * $parts)) {
+ $cont .= eval(' ${h2(Error)} ');
+ $cont .= join(' '
+ , "Selected backups size", unit($total_size)
+ , "exceed medium size ", unit($Conf{ArchiveMediaSize})
+ );
} elsif ($total_size == 0) {
$cont .= eval( q{ ${h2(Error)}});
$cont .= "No backups selected.";
Archived following backups:
} . join(", ", @selected_backup_ids) . q{
<br/>with total size of
- <b>} . sprintf("%1.2f Mb", $total_size / 1024 / 1024)
+ <b>} . unit($total_size)
. q{</b>
to media <b>} . $dvd_nr . q{</b>
with following message:
}
}
+ $cont .= join(' '
+ , "ArchiveMediaSize:", unit($Conf{ArchiveMediaSize})
+ , "ArchiveChunkSize:", unit($Conf{ArchiveChunkSize})
+ );
+
Header($Lang->{Burn_media}, "", 1, "", $cont);
Trailer();