1 ####################################################################
2 # SearchArchives.pm - module for searching through archived files #
3 # via a sqlite database #
4 ####################################################################
5 package BackupPC::CGI::SearchArchives;
9 use BackupPC::CGI::Lib qw(:all);
10 use BackupPC::SearchLib;
12 use vars qw($Cgi %In $MyURL $User %Conf $TopDir $BinDir $bpc);
21 BackupPC::CGI::Lib::NewRequest();
23 @hosts = BackupPC::SearchLib::getUnits();
24 if ( !defined($In{search_results}) ) {
25 foreach $host (@hosts) {
28 . $host->{'ID'} . "> "
32 my $title = eval(q{ ${h1("Search")}});
33 my $subtitle = eval(q{ ${h2("Search criteria")}});
37 <form name="searchForm" method="GET" action="$MyURL">
46 <select name="search_host">
62 <input type="text" name="search_day_from">
68 <input type="text" name="search_month_from">
74 <input type="text" name="search_year_from">
82 <input type="text" name="search_day_to">
88 <input type="text" name="search_month_to">
94 <input type="text" name="search_year_to">
114 <input type="text" name="search_backup_day_from">
117 <input type="text" name="search_backup_month_from">
120 <input type="text" name="search_backup_year_from">
125 <input type="text" name="search_backup_day_to">
128 <input type="text" name="search_backup_month_to">
131 <input type="text" name="search_backup_year_to">
142 <input type="text" name="search_filename">
146 <input type="submit" value="Search">
147 <input type="hidden" value="search" name="action">
148 <input type="hidden" value="results" name="search_results">
153 $cont = eval(q{ ${h1("Search")}});
154 $cont .= eval(q{ ${h2("Search results")}});
158 my $grid = BackupPC::SearchLib::displayGrid( BackupPC::SearchLib::getWhere(\%In), 1, $In{'offset'});
161 Header( eval("qq{$Lang->{Search_archive}}"), "", 1, "", $cont );