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);

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,
                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
                        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_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
        };
        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'}
                       }
                );
        }
      
        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></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 .= qq{<td class="fview"><input type="checkbox" name="fcb} .
                                $backup->{'hostid'}."_".$backup->{'backupno'} . 
                                qq{" value="} . $backup->{'hostid'}."_".$backup->{'backupno'} .
                                qq{"></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>' .
                        '</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 ($results, $files) = getFiles($where, $offset);

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

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