BackupPC/CGI/SearchArchives.pm

####################################################################
#  SearchArchives.pm - module for searching through archived files #
#                      via a sqlite database                       #
####################################################################
package BackupPC::CGI::SearchArchives;


use strict;
use BackupPC::CGI::Lib qw(:all);
use BackupPC::SearchLib;
use Data::Dumper;
use HTML::FillInForm;
use vars qw($Cgi %In $MyURL $User %Conf $TopDir $BinDir $bpc);

sub action() {
        my $hosts_html = "";

    
        BackupPC::CGI::Lib::NewRequest();
        my @hosts = BackupPC::SearchLib::getUnits();

        foreach my $host (@hosts) {
                $hosts_html .= "<option value=" . $host->{'id'} . "> " . $host->{'share'} . " </option>\n";
        }

        sub date_from_to_html {
                my $name = shift || return;
                return qq{
                        <input type="text" name="${name}_year_from" size="4">
                        <input type="text" name="${name}_month_from" size="2">
                        <input type="text" name="${name}_day_from" size="2">
                        -
                        <input type="text" name="${name}_year_to" size="4">
                        <input type="text" name="${name}_month_to" size="2">
                        <input type="text" name="${name}_day_to" size="2">
                };
        }

        my $form .= qq{
<form name="searchForm" method="GET" action="$MyURL">
<p>
        Filename:
        <input type="text" name="search_filename" size="50">
        &nbsp;
        on share
        &nbsp;
        <select name="search_share">$hosts_html</select>
        &nbsp;show&nbsp;
        <select name="burned">
        <option value="">all</a>
        <option value="burned">burned</a>
        <option value="pending">pending</a>
        </select>
        files
        &nbsp;&nbsp;&nbsp;
        <input type="submit" value="Search">
</p>

<p style="color:gray;">
        file(s) between:
        } . date_from_to_html('search') . qq{
        &nbsp;&nbsp;
        backups between:
        } . date_from_to_html('search_backup') . qq{
        (yyyy-mm-dd)
</p>

<p style="color: gray;">
        <input type="checkbox" name="use_hest"> use faster full-text search engine
</p>

<input type="hidden" value="search" name="action">
<input type="hidden" value="results" name="search_results">
</form>
        };

        my $html = eval(q{ ${h1("Search")}});

        if ( !defined($In{search_results}) ) {
                $html .= eval(q{ ${h2("Search criteria")}});

                $html .= $form;
        } else {
                $html .= eval(q{ ${h2("Search results")}});

                my $fif = new HTML::FillInForm;
                $html .= $fif->fill(scalarref => \$form, fdat => \%In);

                $html .= BackupPC::SearchLib::displayGrid( \%In );
        }

        Header( eval("qq{$Lang->{Search_archive}}"), "", 1, "", $html );
        Trailer();
}

1;
1	dpavlin	4	####################################################################
2			# SearchArchives.pm - module for searching through archived files #
3			# via a sqlite database #
4			####################################################################
5			package BackupPC::CGI::SearchArchives;
6
7
8			use strict;
9			use BackupPC::CGI::Lib qw(:all);
10			use BackupPC::SearchLib;
11			use Data::Dumper;
12	dpavlin	59	use HTML::FillInForm;
13	dpavlin	4	use vars qw($Cgi %In $MyURL $User %Conf $TopDir $BinDir $bpc);
14
15			sub action() {
16	dpavlin	59	my $hosts_html = "";
17	dpavlin	4
18
19	dpavlin	59	BackupPC::CGI::Lib::NewRequest();
20			my @hosts = BackupPC::SearchLib::getUnits();
21	dpavlin	4
22	dpavlin	59	foreach my $host (@hosts) {
23			$hosts_html .= "<option value=" . $host->{'id'} . "> " . $host->{'share'} . " </option>\n";
24	dpavlin	4	}
25
26	dpavlin	17	sub date_from_to_html {
27			my $name = shift \|\| return;
28			return qq{
29	dpavlin	63	<input type="text" name="${name}_year_from" size="4">
30			<input type="text" name="${name}_month_from" size="2">
31	dpavlin	59	<input type="text" name="${name}_day_from" size="2">
32			-
33	dpavlin	63	<input type="text" name="${name}_year_to" size="4">
34			<input type="text" name="${name}_month_to" size="2">
35	dpavlin	59	<input type="text" name="${name}_day_to" size="2">
36	dpavlin	17	};
37			}
38
39	dpavlin	59	my $form .= qq{
40	dpavlin	17	<form name="searchForm" method="GET" action="$MyURL">
41	dpavlin	59	<p>
42			Filename:
43			<input type="text" name="search_filename" size="50">
44
45			on share
46
47	dpavlin	60	<select name="search_share">$hosts_html</select>
48	dpavlin	353	show
49			<select name="burned">
50			<option value="">all</a>
51			<option value="burned">burned</a>
52			<option value="pending">pending</a>
53			</select>
54			files
55	dpavlin	59
56			<input type="submit" value="Search">
57			</p>
58	dpavlin	17
59	dpavlin	59	<p style="color:gray;">
60			file(s) between:
61			} . date_from_to_html('search') . qq{
62
63			backups between:
64			} . date_from_to_html('search_backup') . qq{
65			(yyyy-mm-dd)
66			</p>
67
68	dpavlin	86	<p style="color: gray;">
69	dpavlin	91	<input type="checkbox" name="use_hest"> use faster full-text search engine
70	dpavlin	86	</p>
71
72	dpavlin	17	<input type="hidden" value="search" name="action">
73			<input type="hidden" value="results" name="search_results">
74			</form>
75			};
76	dpavlin	4
77	dpavlin	59	my $html = eval(q{ ${h1("Search")}});
78	dpavlin	19
79	dpavlin	59	if ( !defined($In{search_results}) ) {
80			$html .= eval(q{ ${h2("Search criteria")}});
81	dpavlin	83
82	dpavlin	59	$html .= $form;
83			} else {
84			$html .= eval(q{ ${h2("Search results")}});
85	dpavlin	83
86	dpavlin	59	my $fif = new HTML::FillInForm;
87			$html .= $fif->fill(scalarref => \$form, fdat => \%In);
88	dpavlin	19
89	dpavlin	86	$html .= BackupPC::SearchLib::displayGrid( \%In );
90	dpavlin	59	}
91
92			Header( eval("qq{$Lang->{Search_archive}}"), "", 1, "", $html );
93			Trailer();
94	dpavlin	4	}
95
96			1;