use DBI;
use BackupPC::Lib;
-use BackupPC::SearchLib;
+use BackupPC::Search;
use Time::HiRes qw/time/;
use POSIX qw/strftime/;
use Term::Menus;
# don't check for user
my $bpc = BackupPC::Lib->new(undef, undef, 1) || die;
my %Conf = $bpc->Conf();
-%BackupPC::SearchLib::Conf = %Conf;
+%BackupPC::Search::Conf = %Conf;
my $conf_bin;
# this part
my $p = {
- filename => BackupPC::SearchLib::getGzipName($row->{'host'}, $row->{'share'}, $row->{'num'}),
+ filename => BackupPC::Search::getGzipName($row->{'host'}, $row->{'share'}, $row->{'num'}),
host => $row->{'host'},
share => $row->{'share'},
num => $row->{'num'}
}
-#my $tar_file = BackupPC::SearchLib::getGzipName($row->{'host'}, $row->{'share'}, $row->{'num'});
+#my $tar_file = BackupPC::Search::getGzipName($row->{'host'}, $row->{'share'}, $row->{'num'});
#print curr_time, sprintf(" %s:%s %-3d ", $row->{'host'}, $row->{'share'}, $row->{'num'}), " -> $tar_file ";
print "Recoding finished, exiting...\n";
my $bpc = BackupPC::Lib->new || die "can't create BackupPC::Lib";
my %Conf = $bpc->Conf();
-use BackupPC::SearchLib;
-%BackupPC::SearchLib::Conf = %Conf;
+use BackupPC::Search;
+%BackupPC::Search::Conf = %Conf;
my $path = abs_path($0);
$path =~ s#/[^/]+$#/#;
$curr_backup++;
- my $tar_file = BackupPC::SearchLib::getGzipName($row->{'host'}, $row->{'share'}, $row->{'num'});
+ my $tar_file = BackupPC::Search::getGzipName($row->{'host'}, $row->{'share'}, $row->{'num'});
# this will return -1 if file doesn't exist
- my $size = BackupPC::SearchLib::get_tgz_size_by_name($tar_file);
+ my $size = BackupPC::Search::get_tgz_size_by_name($tar_file);
print "# host: ".$row->{host}.", share: ".$row->{'share'}.", backup_num:".$row->{num}." size: $size backup.size: ", $row->{inc_size},"\n" if ($opt{d});
use lib "/usr/local/BackupPC/lib";
use DBI;
use BackupPC::Lib;
-use BackupPC::SearchLib;
+use BackupPC::Search;
use Data::Dumper;
my $bpc = BackupPC::Lib->new || die "can't create BackupPC::Lib";
my %Conf = $bpc->Conf();
my $tar_dir = $Conf{InstallDir}."/".$Conf{GzipTempDir};
-%BackupPC::SearchLib::Conf = %Conf;
+%BackupPC::Search::Conf = %Conf;
#die(Dumper(\%Conf));
my $dsn = $Conf{SearchDSN} || die "need searchdsn in config.pl\n";
my $user = $Conf{SearchUser} || '';
$sth->execute();
while (my $row = $sth->fetchrow_hashref()) {
- my $filename = BackupPC::SearchLib::getGzipName($row->{'host'}, $row->{'share'}, $row->{'num'});
+ my $filename = BackupPC::Search::getGzipName($row->{'host'}, $row->{'share'}, $row->{'num'});
$filename .= ".tar.gz";
$filename = $tar_dir . "/" . $filename;
use BackupPC::Attrib qw(:all);
use BackupPC::FileZIO;
use BackupPC::View;
-use BackupPC::SearchLib;
+use BackupPC::Search;
use Time::HiRes qw/time/;
use POSIX qw/strftime/;
use File::Which;
my $TopDir = $bpc->TopDir();
my $BinDir = $bpc->BinDir();
my %Conf = $bpc->Conf();
-%BackupPC::SearchLib::Conf = %Conf;
+%BackupPC::Search::Conf = %Conf;
my %opts;
my $in_backup_increment;
my $tar_dir = $Conf{InstallDir}.'/'.$Conf{GzipTempDir};
die "problem with $tar_dir, check GzipTempDir in configuration\n" unless (-d $tar_dir && -w $tar_dir);
-my $tar_file = BackupPC::SearchLib::getGzipName($Host, $ShareName, $Num) || die "can't getGzipName($Host, $ShareName, $Num)";
+my $tar_file = BackupPC::Search::getGzipName($Host, $ShareName, $Num) || die "can't getGzipName($Host, $ShareName, $Num)";
my $tar_path_final = $tar_dir . '/' . $tar_file;
my $tar_path = $tar_path_final . '.tmp';
use Time::HiRes qw/time/;
use File::Pid;
use POSIX qw/strftime/;
-use BackupPC::SearchLib;
+use BackupPC::Search;
use Cwd qw/abs_path/;
use Data::Dump qw(dump);
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);
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};
use strict;
use BackupPC::CGI::Lib qw(:all);
-use BackupPC::SearchLib;
+use BackupPC::Search;
use Data::Dumper;
use HTML::FillInForm;
use vars qw($Cgi %In $MyURL $User %Conf $TopDir $BinDir $bpc);
BackupPC::CGI::Lib::NewRequest();
- my @hosts = BackupPC::SearchLib::getUnits();
+ my @hosts = BackupPC::Search::getUnits();
foreach my $host (@hosts) {
$hosts_html .= "<option value=" . $host->{'id'} . "> " . $host->{'share'} . " </option>\n";
my $fif = new HTML::FillInForm;
$html .= $fif->fill(scalarref => \$form, fdat => \%In);
- $html .= BackupPC::SearchLib::displayGrid( \%In );
+ $html .= BackupPC::Search::displayGrid( \%In );
}
Header( eval("qq{$Lang->{Search_archive}}"), "", 1, "", $html );
#!/usr/bin/perl
-package BackupPC::SearchLib;
+package BackupPC::Search;
use strict;
use BackupPC::CGI::Lib qw(:all);