lib/BackupPC/SearchLib.pm

#!/usr/bin/perl
package BackupPC::SearchLib;

use strict;
use BackupPC::CGI::Lib qw(:all);
use BackupPC::Attrib qw(:all);
use DBI;
use DateTime;
use vars qw(%In $MyURL);
use Time::HiRes qw/time/;

my $on_page = 100;
my $pager_pages = 10;

my $dsn = $Conf{SearchDSN};
my $db_user = $Conf{SearchUser} || '';

sub getUnits() {
    my @ret = ();
    my $tmp;
    my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );
    my $st =
      $dbh->prepare(
        " SELECT shares.ID AS ID, shares.share AS name FROM shares;");
    $st->execute();
    push (@ret, { 'ID' => '', 'name' => '-'});
    while ( $tmp = $st->fetchrow_hashref() ) {
        push( @ret, { 'ID' => $tmp->{'ID'}, 'name' => $tmp->{'name'} } );
    }
    $dbh->disconnect();
    return @ret;
}

sub epoch_to_iso {
        my $t = shift || return;
        my $dt = DateTime->from_epoch( epoch => $t ) || return;
print STDERR "$t == ",$dt->epoch,"\n";
        return $dt->ymd . ' ' . $dt->hms;
}

sub getWhere($) {
        my ($param)    = @_;
        my @conditions;

        sub mk_epoch_date($$) {
                my ($name,$suffix) = @_;

                my $yyyy = $param->{ $name . '_year_' . $suffix} || return;
                my $mm .= $param->{ $name . '_month_' . $suffix} ||
                        ( $suffix eq 'from' ? 1 : 12);
                my $dd .= $param->{ $name . '_day_' . $suffix} ||
                        ( $suffix eq 'from' ? 1 : 31);
                my $dt = new DateTime(
                        year => $yyyy,
                        month => $mm,
                        day => $dd
                );
                return $dt->epoch || 'NULL';
        }

        my $backup_from = mk_epoch_date('search_backup', 'from');
        push @conditions, qq{ backups.date >= $backup_from } if ($backup_from);
        my $backup_to = mk_epoch_date('search_backup', 'to');
        push @conditions, qq{ backups.date <= $backup_to } if ($backup_to);

        my $files_from = mk_epoch_date('search', 'from');
        push @conditions, qq{ files.date >= $files_from } if ($files_from);
        my $files_to = mk_epoch_date('search', 'to');
        push @conditions, qq{ files.date <= $files_to } if ($files_to);

        print STDERR "backup: $backup_from - $backup_to files: $files_from - $files_to cond:",join(" | ",@conditions);
    
        push( @conditions, ' backups.hostID = ' . $param->{'search_host'} ) if ($param->{'search_host'});

        push (@conditions, " upper(files.name) LIKE upper('%".$param->{'search_filename'}."%')") if ($param->{'search_filename'});

        return (
                join(" and ", @conditions),
                $files_from, $files_to,
                $backup_from, $backup_to
        );
}


sub getFiles($$) {
        my ($where, $offset) = @_;

        my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );

        my $sql_cols = qq{
                files.id                        AS fid,
                hosts.name                      AS hname,
                shares.name                     AS sname,
                shares.share                    AS sharename,
                files.backupNum                 AS backupNum,
                files.name                      AS filename,
                files.path                      AS filepath,
                shares.share||files.fullpath    AS networkPath,
                files.date                      AS date,
                files.type                      AS filetype,
                files.size                      AS size,
        };

        my $sql_dvd_cols = qq{
                dvds.name                       AS dvd
        };

        my $sql_from = qq{
                FROM files 
                        INNER JOIN shares       ON files.shareID=shares.ID
                        INNER JOIN hosts        ON hosts.ID = shares.hostID
                        INNER JOIN backups      ON backups.num = files.backupNum and backups.hostID = hosts.ID
        };

        my $sql_dvd_from = qq{
                        LEFT  JOIN dvds         ON dvds.ID = files.dvdid
        };

        my $sql_where;
        $sql_where = " WHERE ". $where if ($where);

        my $sql_order = qq{
                ORDER BY files.id
                        LIMIT $on_page
                        OFFSET ?
        };

        $offset ||= 0;
        $offset = ($offset * $on_page) + 1;

        my $sth = $dbh->prepare(qq{ select count(files.id) $sql_from $sql_where });
        $sth->execute();

        my ($results) = $sth->fetchrow_array();

        $sth = $dbh->prepare(qq{ select $sql_cols $sql_dvd_cols $sql_from $sql_dvd_from $sql_where $sql_order });
        $sth->execute( $offset );

        my @ret;
      
        while (my $row = $sth->fetchrow_hashref()) {
                push(@ret, { 
                        'hname'         => $row->{'hname'}, 
                        'sname'         => $row->{'sname'},
                        'sharename'     => $row->{'sharename'},
                        'backupno'      => $row->{'backupnum'},
                        'fname'         => $row->{'filename'},
                        'fpath'         => $row->{'filepath'},
                        'networkpath'   => $row->{'networkpath'},
                        'date'          => $row->{'date'},
                        'type'          => $row->{'filetype'},
                        'size'          => $row->{'size'},
                        'id'            => $row->{'fid'},
                        'dvd'           => $row->{'dvd'}
                });
        }
      
        $sth->finish();
        $dbh->disconnect();
        return ($results, \@ret);
}

sub getBackupsNotBurned() {

        my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );
        my $sql = q{ 
        SELECT
                hosts.ID                AS hostid,
                min(hosts.name)         AS host,
                backups.num             AS backupno,
                min(backups.type)       AS type,
                min(backups.date)       AS date
        FROM backups, shares, files, hosts
        WHERE 
                backups.num     = files.backupNum       AND
                shares.ID       = files.shareID         AND         
                backups.hostID  = shares.hostID         AND
                hosts.ID        = backups.hostID        AND
                files.dvdid     IS NULL
        GROUP BY 
                backups.hostID, backups.num, hosts.id
        ORDER BY min(backups.date)
        };
        my $sth = $dbh->prepare( $sql );
        my @ret;
        $sth->execute();

        while ( my $row = $sth->fetchrow_hashref() ) {      
                push(@ret, { 
                         'host'         => $row->{'host'},
                         'hostid'       => $row->{'hostid'},
                         'backupno'     => $row->{'backupno'},
                         'type'         => $row->{'type'},
                         'date'         => $row->{'date'},
                         'age'          => sprintf("%0.1f", ( (time() - $row->{'date'}) / 86400 ) ),
                       }
                );
        }
      
        return @ret;      
}

sub displayBackupsGrid()
  {
      my $retHTML = "";
      my $addForm = 1;
      
      if ($addForm) {

            $retHTML .= <<EOF3;
<script language="javascript" type="text/javascript">
<!--

    function checkAll(location)
    {
      for (var i=0;i<document.forma.elements.length;i++)
      {
        var e = document.forma.elements[i];
        if ((e.checked || !e.checked) && e.name != \'all\') {
            if (eval("document.forma."+location+".checked")) {
                e.checked = true;
            } else {
                e.checked = false;
            }
        }
      }
    }
//-->
</script>      
EOF3
              $retHTML .= q{<form name="forma" method="GET" action="}."$MyURL"."?action=burn\"";
              $retHTML.= q{<input type="hidden" value="burn" name="action">};
              $retHTML .= q{<input type="hidden" value="results" name="search_results">};
        }
        $retHTML .= qq{<table style="fview"><tr>};

        if ($addForm) {
            $retHTML .= "<td class=\"tableheader\"><input type=\"checkbox\" name=\"allFiles\" onClick=\"checkAll('allFiles');\"></td>";
        }
        $retHTML .=  qq{
                <td class="tableheader">Host</td>
                <td class="tableheader">Backup no</td>
                <td class="tableheader">Type</td>
                <td class="tableheader">date</td>
                <td class="tableheader">age/days</td>
                </tr>
        };

        my @backups = getBackupsNotBurned();
        my $backup;

        if ($addForm) {
                $retHTML .= qq{
                        <tr><td colspan=7 style="tableheader">
                        <input type="submit" value="Burn selected backups on medium" name="submitBurner">
                        </td></tr>
                };
        }

        foreach $backup(@backups) {

                my $ftype = "";
            
                $retHTML .= "<tr>";
                if ($addForm) {
                        $retHTML .= '<td class="fview"><input type="checkbox" name="fcb' .
                                $backup->{'hostid'}.'_'.$backup->{'backupno'} . 
                                '" value="' . $backup->{'hostid'}.'_'.$backup->{'backupno'} .
                                '"></td>';
                }           
            
                $retHTML .= '<td class="fviewborder">' . $backup->{'host'} . '</td>' .
                        '<td class="fviewborder">' . $backup->{'backupno'} . '</td>' .
                        '<td class="fviewborder">' . $backup->{'type'} . '</td>' .
                        '<td class="fviewborder">' . epoch_to_iso( $backup->{'date'} ) . '</td>' .
                        '<td class="fviewborder">' . $backup->{'age'} . '</td>' .
                        '</tr>';
        }

        $retHTML .= "</table>";

        if ($addForm) {
                $retHTML .= "</form>";
        }
      
        return $retHTML;
}      

sub displayGrid($$$$) {
        my ($where, $addForm, $offset, $hilite) = @_;
        my $retHTML = "";
 
        if ($addForm) {
                $retHTML .= qq{<form name="forma" method="GET" action="$MyURL">};
                $retHTML.= qq{<input type="hidden" value="search" name="action">};
                $retHTML .= qq{<input type="hidden" value="results" name="search_results">};
        }

        my $start_t = time();

        my ($results, $files) = getFiles($where, $offset);

        my $dur_t = time() - $start_t;
        my $dur = sprintf("%0.4fs", $dur_t);

        my ($from, $to) = (($offset * $on_page) + 1, ($offset * $on_page) + $on_page);

        $retHTML .= qq{
        <br/>Found <b>$results files</b> showing <b>$from - $to</b> (took $dur)
        <table style="fview" width="100%">
                <tr> 
                <td class="tableheader">Share</td>
                <td class="tableheader">Name</td>
                <td class="tableheader">Type</td>
                <td class="tableheader">#</td>
                <td class="tableheader">Size</td>
                <td class="tableheader">Date</td>
                <td class="tableheader">Media</td>
                </tr>
        };

        my $file;

        sub hilite_html($$) {
                my ($html, $search) = @_;
                $html =~ s#($search)#<b>$1</b>#gis;
                return $html;
        }

        sub restore_link($$$$$$) {
                my $type = shift;
                my $action = 'RestoreFile';
                $action = 'browse' if (lc($type) eq 'dir');
                return sprintf(qq{<a href="?action=%s&host=%s&num=%d&share=%s&dir=%s">%s</a>}, $action, @_);
        }

        foreach $file (@{ $files }) {
                my $typeStr  = BackupPC::Attrib::fileType2Text(undef, $file->{'type'});
                $retHTML .= "<tr>";

                foreach my $v ((
                        $file->{'sharename'},
                        qq{<img src="$Conf{CgiImageDirURL}/icon-$typeStr.gif" align="center">&nbsp;} . hilite_html( $file->{'fpath'}, $hilite ),
                        $typeStr,
                        restore_link( $typeStr, $file->{'hname'}, $file->{'backupno'}, $file->{'sname'}, $file->{'fpath'}, $file->{'backupno'} ),
                        $file->{'size'},
                        epoch_to_iso( $file->{'date'} ),
                        $file->{'dvd'}
                )) {
                        $retHTML .= qq{<td class="fviewborder">$v</td>};
                }

                $retHTML .= "</tr>";
        }
        $retHTML .= "</table>";

        # all variables which has to be transfered
        foreach my $n (qw/search_day_from search_month_from search_year_from search_day_to search_month_to search_year_to search_backup_day_from search_backup_month_from search_backup_year_from search_backup_day_to search_backup_month_to search_backup_year_to search_filename offset/) {
                $retHTML .= qq{<INPUT TYPE="hidden" NAME="$n" VALUE="$In{$n}">\n};
        }

        my $del = '';
        my $max_page = int( $results / $on_page );
        my $page = 0;

        my $link_fmt = '<a href = "#" onclick="document.forma.offset.value=%d;document.forma.submit();">%s</a>';

        $retHTML .= '<div style="text-align: center;">';

        if ($offset > 0) {
                $retHTML .= sprintf($link_fmt, $offset - 1, '&lt;&lt;') . ' ';
        }

        while ($page <= $max_page) {
                if ($page == $offset) {
                        $retHTML .= $del . '<b>' . ($page + 1) . '</b>';
                } else {
                        $retHTML .= $del . sprintf($link_fmt, $page, $page + 1);
                }

                if ($page < $offset - $pager_pages && $page != 0) {
                        $retHTML .= " ... ";
                        $page = $offset - $pager_pages;
                        $del = '';
                } elsif ($page > $offset + $pager_pages && $page != $max_page) {
                        $retHTML .= " ... ";
                        $page = $max_page;
                        $del = '';
                } else {
                        $del = ' | ';
                        $page++;
                }
        }

        if ($offset < $max_page) {
                $retHTML .= ' ' . sprintf($link_fmt, $offset + 1, '&gt;&gt;');
        }

        $retHTML .= "</div>";

        $retHTML .= "</form>" if ($addForm);

        return $retHTML;
}

1;
1	dpavlin	4	#!/usr/bin/perl
2			package BackupPC::SearchLib;
3
4			use strict;
5			use BackupPC::CGI::Lib qw(:all);
6			use BackupPC::Attrib qw(:all);
7			use DBI;
8	dpavlin	51	use DateTime;
9	dpavlin	31	use vars qw(%In $MyURL);
10	dpavlin	55	use Time::HiRes qw/time/;
11	dpavlin	4
12	dpavlin	31	my $on_page = 100;
13			my $pager_pages = 10;
14
15	dpavlin	51	my $dsn = $Conf{SearchDSN};
16			my $db_user = $Conf{SearchUser} \|\| '';
17
18	dpavlin	4	sub getUnits() {
19			my @ret = ();
20			my $tmp;
21	dpavlin	51	my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );
22	dpavlin	4	my $st =
23			$dbh->prepare(
24			" SELECT shares.ID AS ID, shares.share AS name FROM shares;");
25			$st->execute();
26			push (@ret, { 'ID' => '', 'name' => '-'});
27			while ( $tmp = $st->fetchrow_hashref() ) {
28			push( @ret, { 'ID' => $tmp->{'ID'}, 'name' => $tmp->{'name'} } );
29			}
30			$dbh->disconnect();
31			return @ret;
32			}
33
34	dpavlin	51	sub epoch_to_iso {
35			my $t = shift \|\| return;
36			my $dt = DateTime->from_epoch( epoch => $t ) \|\| return;
37			print STDERR "$t == ",$dt->epoch,"\n";
38			return $dt->ymd . ' ' . $dt->hms;
39			}
40
41	dpavlin	4	sub getWhere($) {
42	dpavlin	19	my ($param) = @_;
43			my @conditions;
44	dpavlin	4
45	dpavlin	51	sub mk_epoch_date($$) {
46	dpavlin	19	my ($name,$suffix) = @_;
47	dpavlin	4
48	dpavlin	19	my $yyyy = $param->{ $name . '_year_' . $suffix} \|\| return;
49			my $mm .= $param->{ $name . '_month_' . $suffix} \|\|
50			( $suffix eq 'from' ? 1 : 12);
51			my $dd .= $param->{ $name . '_day_' . $suffix} \|\|
52			( $suffix eq 'from' ? 1 : 31);
53	dpavlin	51	my $dt = new DateTime(
54			year => $yyyy,
55			month => $mm,
56			day => $dd
57			);
58			return $dt->epoch \|\| 'NULL';
59	dpavlin	19	}
60	dpavlin	4
61	dpavlin	51	my $backup_from = mk_epoch_date('search_backup', 'from');
62			push @conditions, qq{ backups.date >= $backup_from } if ($backup_from);
63			my $backup_to = mk_epoch_date('search_backup', 'to');
64			push @conditions, qq{ backups.date <= $backup_to } if ($backup_to);
65	dpavlin	4
66	dpavlin	51	my $files_from = mk_epoch_date('search', 'from');
67			push @conditions, qq{ files.date >= $files_from } if ($files_from);
68			my $files_to = mk_epoch_date('search', 'to');
69			push @conditions, qq{ files.date <= $files_to } if ($files_to);
70	dpavlin	19
71			print STDERR "backup: $backup_from - $backup_to files: $files_from - $files_to cond:",join(" \| ",@conditions);
72	dpavlin	4
73	dpavlin	19	push( @conditions, ' backups.hostID = ' . $param->{'search_host'} ) if ($param->{'search_host'});
74	dpavlin	4
75	dpavlin	26	push (@conditions, " upper(files.name) LIKE upper('%".$param->{'search_filename'}."%')") if ($param->{'search_filename'});
76	dpavlin	19
77			return (
78			join(" and ", @conditions),
79			$files_from, $files_to,
80			$backup_from, $backup_to
81			);
82	dpavlin	4	}
83
84	dpavlin	19
85	dpavlin	31	sub getFiles($$) {
86			my ($where, $offset) = @_;
87
88	dpavlin	51	my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );
89	dpavlin	31
90			my $sql_cols = qq{
91			files.id AS fid,
92			hosts.name AS hname,
93			shares.name AS sname,
94			shares.share AS sharename,
95			files.backupNum AS backupNum,
96			files.name AS filename,
97			files.path AS filepath,
98			shares.share\|\|files.fullpath AS networkPath,
99	dpavlin	51	files.date AS date,
100	dpavlin	31	files.type AS filetype,
101			files.size AS size,
102	dpavlin	55	};
103
104			my $sql_dvd_cols = qq{
105	dpavlin	31	dvds.name AS dvd
106			};
107
108			my $sql_from = qq{
109	dpavlin	16	FROM files
110			INNER JOIN shares ON files.shareID=shares.ID
111			INNER JOIN hosts ON hosts.ID = shares.hostID
112	dpavlin	20	INNER JOIN backups ON backups.num = files.backupNum and backups.hostID = hosts.ID
113	dpavlin	55	};
114
115			my $sql_dvd_from = qq{
116	dpavlin	16	LEFT JOIN dvds ON dvds.ID = files.dvdid
117	dpavlin	31	};
118	dpavlin	4
119	dpavlin	31	my $sql_where;
120			$sql_where = " WHERE ". $where if ($where);
121	dpavlin	4
122	dpavlin	31	my $sql_order = qq{
123			ORDER BY files.id
124			LIMIT $on_page
125			OFFSET ?
126	dpavlin	9	};
127	dpavlin	31
128			$offset \|\|= 0;
129			$offset = ($offset * $on_page) + 1;
130
131			my $sth = $dbh->prepare(qq{ select count(files.id) $sql_from $sql_where });
132			$sth->execute();
133
134			my ($results) = $sth->fetchrow_array();
135
136	dpavlin	55	$sth = $dbh->prepare(qq{ select $sql_cols $sql_dvd_cols $sql_from $sql_dvd_from $sql_where $sql_order });
137	dpavlin	31	$sth->execute( $offset );
138
139			my @ret;
140	dpavlin	4
141	dpavlin	31	while (my $row = $sth->fetchrow_hashref()) {
142			push(@ret, {
143			'hname' => $row->{'hname'},
144			'sname' => $row->{'sname'},
145			'sharename' => $row->{'sharename'},
146	dpavlin	51	'backupno' => $row->{'backupnum'},
147	dpavlin	31	'fname' => $row->{'filename'},
148			'fpath' => $row->{'filepath'},
149	dpavlin	51	'networkpath' => $row->{'networkpath'},
150	dpavlin	31	'date' => $row->{'date'},
151			'type' => $row->{'filetype'},
152			'size' => $row->{'size'},
153			'id' => $row->{'fid'},
154			'dvd' => $row->{'dvd'}
155			});
156	dpavlin	4	}
157
158	dpavlin	31	$sth->finish();
159			$dbh->disconnect();
160			return ($results, \@ret);
161			}
162	dpavlin	4
163	dpavlin	51	sub getBackupsNotBurned() {
164
165			my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );
166	dpavlin	53	my $sql = q{
167			SELECT
168			hosts.ID AS hostid,
169			min(hosts.name) AS host,
170			backups.num AS backupno,
171			min(backups.type) AS type,
172			min(backups.date) AS date
173			FROM backups, shares, files, hosts
174			WHERE
175			backups.num = files.backupNum AND
176			shares.ID = files.shareID AND
177			backups.hostID = shares.hostID AND
178			hosts.ID = backups.hostID AND
179			files.dvdid IS NULL
180			GROUP BY
181			backups.hostID, backups.num, hosts.id
182	dpavlin	58	ORDER BY min(backups.date)
183	dpavlin	53	};
184			my $sth = $dbh->prepare( $sql );
185			my @ret;
186			$sth->execute();
187	dpavlin	4
188	dpavlin	53	while ( my $row = $sth->fetchrow_hashref() ) {
189			push(@ret, {
190	dpavlin	58	'host' => $row->{'host'},
191			'hostid' => $row->{'hostid'},
192			'backupno' => $row->{'backupno'},
193			'type' => $row->{'type'},
194			'date' => $row->{'date'},
195			'age' => sprintf("%0.1f", ( (time() - $row->{'date'}) / 86400 ) ),
196	dpavlin	4	}
197	dpavlin	53	);
198	dpavlin	4	}
199
200	dpavlin	53	return @ret;
201			}
202	dpavlin	4
203			sub displayBackupsGrid()
204			{
205			my $retHTML = "";
206			my $addForm = 1;
207
208	dpavlin	31	if ($addForm) {
209	dpavlin	4
210			$retHTML .= <<EOF3;
211			<script language="javascript" type="text/javascript">
212			<!--
213
214			function checkAll(location)
215			{
216			for (var i=0;i<document.forma.elements.length;i++)
217			{
218			var e = document.forma.elements[i];
219			if ((e.checked \|\| !e.checked) && e.name != \'all\') {
220			if (eval("document.forma."+location+".checked")) {
221			e.checked = true;
222			} else {
223			e.checked = false;
224			}
225			}
226			}
227			}
228			//-->
229			</script>
230			EOF3
231	dpavlin	31	$retHTML .= q{<form name="forma" method="GET" action="}."$MyURL"."?action=burn\"";
232	dpavlin	4	$retHTML.= q{<input type="hidden" value="burn" name="action">};
233			$retHTML .= q{<input type="hidden" value="results" name="search_results">};
234			}
235	dpavlin	31	$retHTML .= qq{<table style="fview"><tr>};
236
237			if ($addForm) {
238	dpavlin	4	$retHTML .= "<td class=\"tableheader\"><input type=\"checkbox\" name=\"allFiles\" onClick=\"checkAll('allFiles');\"></td>";
239			}
240	dpavlin	58	$retHTML .= qq{
241			<td class="tableheader">Host</td>
242			<td class="tableheader">Backup no</td>
243			<td class="tableheader">Type</td>
244			<td class="tableheader">date</td>
245			<td class="tableheader">age/days</td>
246			</tr>
247			};
248	dpavlin	4
249	dpavlin	31	my @backups = getBackupsNotBurned();
250			my $backup;
251
252			if ($addForm) {
253	dpavlin	58	$retHTML .= qq{
254			<tr><td colspan=7 style="tableheader">
255	dpavlin	31	<input type="submit" value="Burn selected backups on medium" name="submitBurner">
256	dpavlin	58	</td></tr>
257			};
258	dpavlin	4	}
259	dpavlin	31
260			foreach $backup(@backups) {
261
262			my $ftype = "";
263	dpavlin	4
264	dpavlin	31	$retHTML .= "<tr>";
265			if ($addForm) {
266	dpavlin	58	$retHTML .= '<td class="fview"><input type="checkbox" name="fcb' .
267			$backup->{'hostid'}.'_'.$backup->{'backupno'} .
268			'" value="' . $backup->{'hostid'}.'_'.$backup->{'backupno'} .
269			'"></td>';
270	dpavlin	31	}
271	dpavlin	4
272	dpavlin	31	$retHTML .= '<td class="fviewborder">' . $backup->{'host'} . '</td>' .
273			'<td class="fviewborder">' . $backup->{'backupno'} . '</td>' .
274			'<td class="fviewborder">' . $backup->{'type'} . '</td>' .
275	dpavlin	58	'<td class="fviewborder">' . epoch_to_iso( $backup->{'date'} ) . '</td>' .
276			'<td class="fviewborder">' . $backup->{'age'} . '</td>' .
277	dpavlin	31	'</tr>';
278	dpavlin	4	}
279	dpavlin	31
280			$retHTML .= "</table>";
281
282			if ($addForm) {
283			$retHTML .= "</form>";
284			}
285	dpavlin	4
286	dpavlin	31	return $retHTML;
287			}
288	dpavlin	4
289	dpavlin	17	sub displayGrid($$$$) {
290			my ($where, $addForm, $offset, $hilite) = @_;
291			my $retHTML = "";
292
293			if ($addForm) {
294	dpavlin	31	$retHTML .= qq{<form name="forma" method="GET" action="$MyURL">};
295	dpavlin	17	$retHTML.= qq{<input type="hidden" value="search" name="action">};
296			$retHTML .= qq{<input type="hidden" value="results" name="search_results">};
297	dpavlin	4	}
298	dpavlin	31
299	dpavlin	55	my $start_t = time();
300
301	dpavlin	31	my ($results, $files) = getFiles($where, $offset);
302
303	dpavlin	55	my $dur_t = time() - $start_t;
304			my $dur = sprintf("%0.4fs", $dur_t);
305
306	dpavlin	31	my ($from, $to) = (($offset * $on_page) + 1, ($offset * $on_page) + $on_page);
307
308	dpavlin	17	$retHTML .= qq{
309	dpavlin	55	<br/>Found <b>$results files</b> showing <b>$from - $to</b> (took $dur)
310	dpavlin	17	<table style="fview" width="100%">
311			<tr>
312	dpavlin	26	<td class="tableheader">Share</td>
313	dpavlin	24	<td class="tableheader">Name</td>
314	dpavlin	17	<td class="tableheader">Type</td>
315	dpavlin	24	<td class="tableheader">#</td>
316			<td class="tableheader">Size</td>
317			<td class="tableheader">Date</td>
318	dpavlin	17	<td class="tableheader">Media</td>
319			</tr>
320			};
321	dpavlin	31
322	dpavlin	17	my $file;
323	dpavlin	4
324	dpavlin	17	sub hilite_html($$) {
325			my ($html, $search) = @_;
326			$html =~ s#($search)#<b>$1</b>#gis;
327			return $html;
328	dpavlin	4	}
329	dpavlin	9
330	dpavlin	26	sub restore_link($$$$$$) {
331			my $type = shift;
332			my $action = 'RestoreFile';
333			$action = 'browse' if (lc($type) eq 'dir');
334			return sprintf(qq{<a href="?action=%s&host=%s&num=%d&share=%s&dir=%s">%s</a>}, $action, @_);
335			}
336
337	dpavlin	31	foreach $file (@{ $files }) {
338	dpavlin	24	my $typeStr = BackupPC::Attrib::fileType2Text(undef, $file->{'type'});
339	dpavlin	17	$retHTML .= "<tr>";
340	dpavlin	9
341	dpavlin	17	foreach my $v ((
342	dpavlin	26	$file->{'sharename'},
343	dpavlin	24	qq{<img src="$Conf{CgiImageDirURL}/icon-$typeStr.gif" align="center"> } . hilite_html( $file->{'fpath'}, $hilite ),
344			$typeStr,
345	dpavlin	26	restore_link( $typeStr, $file->{'hname'}, $file->{'backupno'}, $file->{'sname'}, $file->{'fpath'}, $file->{'backupno'} ),
346	dpavlin	17	$file->{'size'},
347	dpavlin	51	epoch_to_iso( $file->{'date'} ),
348	dpavlin	17	$file->{'dvd'}
349			)) {
350			$retHTML .= qq{<td class="fviewborder">$v</td>};
351			}
352	dpavlin	9
353	dpavlin	17	$retHTML .= "</tr>";
354			}
355			$retHTML .= "</table>";
356
357	dpavlin	31	# all variables which has to be transfered
358			foreach my $n (qw/search_day_from search_month_from search_year_from search_day_to search_month_to search_year_to search_backup_day_from search_backup_month_from search_backup_year_from search_backup_day_to search_backup_month_to search_backup_year_to search_filename offset/) {
359			$retHTML .= qq{<INPUT TYPE="hidden" NAME="$n" VALUE="$In{$n}">\n};
360			}
361	dpavlin	17
362	dpavlin	31	my $del = '';
363			my $max_page = int( $results / $on_page );
364			my $page = 0;
365
366			my $link_fmt = '<a href = "#" onclick="document.forma.offset.value=%d;document.forma.submit();">%s</a>';
367
368			$retHTML .= '<div style="text-align: center;">';
369
370			if ($offset > 0) {
371			$retHTML .= sprintf($link_fmt, $offset - 1, '<<') . ' ';
372			}
373
374			while ($page <= $max_page) {
375			if ($page == $offset) {
376			$retHTML .= $del . '<b>' . ($page + 1) . '</b>';
377			} else {
378			$retHTML .= $del . sprintf($link_fmt, $page, $page + 1);
379	dpavlin	17	}
380	dpavlin	31
381			if ($page < $offset - $pager_pages && $page != 0) {
382			$retHTML .= " ... ";
383			$page = $offset - $pager_pages;
384			$del = '';
385			} elsif ($page > $offset + $pager_pages && $page != $max_page) {
386			$retHTML .= " ... ";
387			$page = $max_page;
388			$del = '';
389			} else {
390			$del = ' \| ';
391			$page++;
392			}
393	dpavlin	17	}
394
395	dpavlin	31	if ($offset < $max_page) {
396			$retHTML .= ' ' . sprintf($link_fmt, $offset + 1, '>>');
397			}
398
399			$retHTML .= "</div>";
400
401	dpavlin	17	$retHTML .= "</form>" if ($addForm);
402	dpavlin	31
403	dpavlin	17	return $retHTML;
404			}
405	dpavlin	4
406			1;