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,
            hosts.name       AS host,
            backups.num      AS backupno,
            backups.type     AS type,
            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
      };
      my $st = $dbh -> prepare( $sql );
      my @ret = ();
      $st -> execute();

      while ( my $row = $st -> 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	4	my $sql = q{
160			SELECT
161			hosts.ID AS hostID,
162			hosts.name AS host,
163			backups.num AS backupno,
164			backups.type AS type,
165			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
175			};
176			my $st = $dbh -> prepare( $sql );
177			my @ret = ();
178			$st -> execute();
179
180	dpavlin	31	while ( my $row = $st -> fetchrow_hashref() )
181	dpavlin	4	{
182			push(@ret, {
183	dpavlin	31	'host' => $row->{'host'},
184			'hostid' => $row->{'hostID'},
185			'backupno' => $row->{'backupno'},
186			'type' => $row->{'type'},
187			'date' => $row->{'date'}
188	dpavlin	4	}
189			);
190			}
191
192			return @ret;
193			}
194
195			sub displayBackupsGrid()
196			{
197			my $retHTML = "";
198			my $addForm = 1;
199
200	dpavlin	31	if ($addForm) {
201	dpavlin	4
202			$retHTML .= <<EOF3;
203			<script language="javascript" type="text/javascript">
204			<!--
205
206			function checkAll(location)
207			{
208			for (var i=0;i<document.forma.elements.length;i++)
209			{
210			var e = document.forma.elements[i];
211			if ((e.checked \|\| !e.checked) && e.name != \'all\') {
212			if (eval("document.forma."+location+".checked")) {
213			e.checked = true;
214			} else {
215			e.checked = false;
216			}
217			}
218			}
219			}
220			//-->
221			</script>
222			EOF3
223	dpavlin	31	$retHTML .= q{<form name="forma" method="GET" action="}."$MyURL"."?action=burn\"";
224	dpavlin	4	$retHTML.= q{<input type="hidden" value="burn" name="action">};
225			$retHTML .= q{<input type="hidden" value="results" name="search_results">};
226			}
227	dpavlin	31	$retHTML .= qq{<table style="fview"><tr>};
228
229			if ($addForm) {
230	dpavlin	4	$retHTML .= "<td class=\"tableheader\"><input type=\"checkbox\" name=\"allFiles\" onClick=\"checkAll('allFiles');\"></td>";
231			}
232	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>};
233	dpavlin	4
234	dpavlin	31	my @backups = getBackupsNotBurned();
235			my $backup;
236
237			if ($addForm) {
238			$retHTML .= qq{<tr><td colspan=7 style="tableheader">
239			<input type="submit" value="Burn selected backups on medium" name="submitBurner">
240			</td></tr>};
241	dpavlin	4	}
242	dpavlin	31
243			foreach $backup(@backups) {
244
245			my $ftype = "";
246	dpavlin	4
247	dpavlin	31	$retHTML .= "<tr>";
248			if ($addForm) {
249			$retHTML .= qq{<td class="fview"><input type="checkbox" name="fcb} .
250			$backup->{'hostid'}."_".$backup->{'backupno'} .
251			qq{" value="} . $backup->{'hostid'}."_".$backup->{'backupno'} .
252			qq{"></td>};
253			}
254	dpavlin	4
255	dpavlin	31	$retHTML .= '<td class="fviewborder">' . $backup->{'host'} . '</td>' .
256			'<td class="fviewborder">' . $backup->{'backupno'} . '</td>' .
257			'<td class="fviewborder">' . $backup->{'type'} . '</td>' .
258	dpavlin	51	'<td class="fviewborder">' . epoch_to_iso( $backup->{'date'} ) . '<td>' .
259	dpavlin	31	'</tr>';
260	dpavlin	4	}
261	dpavlin	31
262			$retHTML .= "</table>";
263
264			if ($addForm) {
265			$retHTML .= "</form>";
266			}
267	dpavlin	4
268	dpavlin	31	return $retHTML;
269			}
270	dpavlin	4
271	dpavlin	17	sub displayGrid($$$$) {
272			my ($where, $addForm, $offset, $hilite) = @_;
273			my $retHTML = "";
274
275			if ($addForm) {
276	dpavlin	31	$retHTML .= qq{<form name="forma" method="GET" action="$MyURL">};
277	dpavlin	17	$retHTML.= qq{<input type="hidden" value="search" name="action">};
278			$retHTML .= qq{<input type="hidden" value="results" name="search_results">};
279	dpavlin	4	}
280	dpavlin	31
281			my ($results, $files) = getFiles($where, $offset);
282
283			my ($from, $to) = (($offset * $on_page) + 1, ($offset * $on_page) + $on_page);
284
285	dpavlin	17	$retHTML .= qq{
286	dpavlin	31	<br/>Found $results files, showing $from - $to
287	dpavlin	17	<table style="fview" width="100%">
288			<tr>
289	dpavlin	26	<td class="tableheader">Share</td>
290	dpavlin	24	<td class="tableheader">Name</td>
291	dpavlin	17	<td class="tableheader">Type</td>
292	dpavlin	24	<td class="tableheader">#</td>
293			<td class="tableheader">Size</td>
294			<td class="tableheader">Date</td>
295	dpavlin	17	<td class="tableheader">Media</td>
296			</tr>
297			};
298	dpavlin	31
299	dpavlin	17	my $file;
300	dpavlin	4
301	dpavlin	17	sub hilite_html($$) {
302			my ($html, $search) = @_;
303			$html =~ s#($search)#<b>$1</b>#gis;
304			return $html;
305	dpavlin	4	}
306	dpavlin	9
307	dpavlin	26	sub restore_link($$$$$$) {
308			my $type = shift;
309			my $action = 'RestoreFile';
310			$action = 'browse' if (lc($type) eq 'dir');
311			return sprintf(qq{<a href="?action=%s&host=%s&num=%d&share=%s&dir=%s">%s</a>}, $action, @_);
312			}
313
314	dpavlin	31	foreach $file (@{ $files }) {
315	dpavlin	24	my $typeStr = BackupPC::Attrib::fileType2Text(undef, $file->{'type'});
316	dpavlin	17	$retHTML .= "<tr>";
317	dpavlin	9
318	dpavlin	17	foreach my $v ((
319	dpavlin	26	$file->{'sharename'},
320	dpavlin	24	qq{<img src="$Conf{CgiImageDirURL}/icon-$typeStr.gif" align="center"> } . hilite_html( $file->{'fpath'}, $hilite ),
321			$typeStr,
322	dpavlin	26	restore_link( $typeStr, $file->{'hname'}, $file->{'backupno'}, $file->{'sname'}, $file->{'fpath'}, $file->{'backupno'} ),
323	dpavlin	17	$file->{'size'},
324	dpavlin	51	epoch_to_iso( $file->{'date'} ),
325	dpavlin	17	$file->{'dvd'}
326			)) {
327			$retHTML .= qq{<td class="fviewborder">$v</td>};
328			}
329	dpavlin	9
330	dpavlin	17	$retHTML .= "</tr>";
331			}
332			$retHTML .= "</table>";
333
334	dpavlin	31	# all variables which has to be transfered
335			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/) {
336			$retHTML .= qq{<INPUT TYPE="hidden" NAME="$n" VALUE="$In{$n}">\n};
337			}
338	dpavlin	17
339	dpavlin	31	my $del = '';
340			my $max_page = int( $results / $on_page );
341			my $page = 0;
342
343			my $link_fmt = '<a href = "#" onclick="document.forma.offset.value=%d;document.forma.submit();">%s</a>';
344
345			$retHTML .= '<div style="text-align: center;">';
346
347			if ($offset > 0) {
348			$retHTML .= sprintf($link_fmt, $offset - 1, '<<') . ' ';
349			}
350
351			while ($page <= $max_page) {
352			if ($page == $offset) {
353			$retHTML .= $del . '<b>' . ($page + 1) . '</b>';
354			} else {
355			$retHTML .= $del . sprintf($link_fmt, $page, $page + 1);
356	dpavlin	17	}
357	dpavlin	31
358			if ($page < $offset - $pager_pages && $page != 0) {
359			$retHTML .= " ... ";
360			$page = $offset - $pager_pages;
361			$del = '';
362			} elsif ($page > $offset + $pager_pages && $page != $max_page) {
363			$retHTML .= " ... ";
364			$page = $max_page;
365			$del = '';
366			} else {
367			$del = ' \| ';
368			$page++;
369			}
370	dpavlin	17	}
371
372	dpavlin	31	if ($offset < $max_page) {
373			$retHTML .= ' ' . sprintf($link_fmt, $offset + 1, '>>');
374			}
375
376			$retHTML .= "</div>";
377
378	dpavlin	17	$retHTML .= "</form>" if ($addForm);
379	dpavlin	31
380	dpavlin	17	return $retHTML;
381			}
382	dpavlin	4
383			1;