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 $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );
        my $sth = $dbh->prepare(qq{ SELECT id, share FROM shares} );
        $sth->execute();
        push @ret, { 'id' => '', 'share' => '-'};       # dummy any

        while ( my $row = $sth->fetchrow_hashref() ) {
                push @ret, $row;
        }
        $dbh->disconnect();
        return @ret;
}

sub epoch_to_iso {
        my $t = shift || return;
        my $dt = DateTime->from_epoch( epoch => $t ) || return;
        print STDERR "BUG: $t != " . $dt->epoch . "\n" unless ($t == $dt->epoch);
        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, ' files.shareid = ' . $param->{'search_share'} ) if ($param->{'search_share'});

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

        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 ?
        };

        my $sql_count = qq{ select count(files.id) $sql_from $sql_where };
        my $sql_results = qq{ select $sql_cols $sql_from $sql_dvd_from $sql_where $sql_order };

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

        my $sth = $dbh->prepare($sql_count);
        $sth->execute();
        my ($results) = $sth->fetchrow_array();

        $sth = $dbh->prepare($sql_results);
        $sth->execute( $offset );

        if ($sth->rows != $results) {
                my $bug = "$0 BUG: [[ $sql_count ]] = $results while [[ $sql_results ]] = " . $sth->rows;
                $bug =~ s/\s+/ /gs;
                print STDERR "$bug\n";
        }

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

        if ($results <= 0) {
                $retHTML .= qq{
                        <p style="color: red;">No results found...</p>
                };
                return $retHTML;
        } else {
                # DEBUG
                #use Data::Dumper;
                #$retHTML .= '<pre>' . Dumper($files) . '</pre>';
        }


        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">};
        }


        $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	dpavlin	59	my @ret;
20
21			my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );
22			my $sth = $dbh->prepare(qq{ SELECT id, share FROM shares} );
23			$sth->execute();
24			push @ret, { 'id' => '', 'share' => '-'}; # dummy any
25
26			while ( my $row = $sth->fetchrow_hashref() ) {
27			push @ret, $row;
28			}
29			$dbh->disconnect();
30			return @ret;
31	dpavlin	4	}
32
33	dpavlin	51	sub epoch_to_iso {
34			my $t = shift \|\| return;
35			my $dt = DateTime->from_epoch( epoch => $t ) \|\| return;
36	dpavlin	59	print STDERR "BUG: $t != " . $dt->epoch . "\n" unless ($t == $dt->epoch);
37	dpavlin	51	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	dpavlin	59	print STDERR "backup: $backup_from - $backup_to files: $files_from - $files_to cond:" . join(" \| ",@conditions);
71	dpavlin	4
72	dpavlin	60	push( @conditions, ' files.shareid = ' . $param->{'search_share'} ) if ($param->{'search_share'});
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	55	};
110
111			my $sql_dvd_from = qq{
112	dpavlin	16	LEFT JOIN dvds ON dvds.ID = files.dvdid
113	dpavlin	31	};
114	dpavlin	4
115	dpavlin	31	my $sql_where;
116			$sql_where = " WHERE ". $where if ($where);
117	dpavlin	4
118	dpavlin	31	my $sql_order = qq{
119			ORDER BY files.id
120	dpavlin	59	LIMIT $on_page
121			OFFSET ?
122	dpavlin	9	};
123	dpavlin	31
124	dpavlin	59	my $sql_count = qq{ select count(files.id) $sql_from $sql_where };
125			my $sql_results = qq{ select $sql_cols $sql_from $sql_dvd_from $sql_where $sql_order };
126
127	dpavlin	31	$offset \|\|= 0;
128	dpavlin	59	$offset = ($offset * $on_page);
129	dpavlin	31
130	dpavlin	59	my $sth = $dbh->prepare($sql_count);
131	dpavlin	31	$sth->execute();
132			my ($results) = $sth->fetchrow_array();
133
134	dpavlin	59	$sth = $dbh->prepare($sql_results);
135	dpavlin	31	$sth->execute( $offset );
136
137	dpavlin	59	if ($sth->rows != $results) {
138			my $bug = "$0 BUG: [[ $sql_count ]] = $results while [[ $sql_results ]] = " . $sth->rows;
139			$bug =~ s/\s+/ /gs;
140			print STDERR "$bug\n";
141			}
142
143	dpavlin	31	my @ret;
144	dpavlin	4
145	dpavlin	31	while (my $row = $sth->fetchrow_hashref()) {
146			push(@ret, {
147			'hname' => $row->{'hname'},
148			'sname' => $row->{'sname'},
149			'sharename' => $row->{'sharename'},
150	dpavlin	51	'backupno' => $row->{'backupnum'},
151	dpavlin	31	'fname' => $row->{'filename'},
152			'fpath' => $row->{'filepath'},
153	dpavlin	51	'networkpath' => $row->{'networkpath'},
154	dpavlin	31	'date' => $row->{'date'},
155			'type' => $row->{'filetype'},
156			'size' => $row->{'size'},
157			'id' => $row->{'fid'},
158			'dvd' => $row->{'dvd'}
159			});
160	dpavlin	4	}
161	dpavlin	59
162	dpavlin	31	$sth->finish();
163			$dbh->disconnect();
164			return ($results, \@ret);
165			}
166	dpavlin	4
167	dpavlin	51	sub getBackupsNotBurned() {
168
169			my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );
170	dpavlin	53	my $sql = q{
171			SELECT
172			hosts.ID AS hostid,
173			min(hosts.name) AS host,
174			backups.num AS backupno,
175			min(backups.type) AS type,
176			min(backups.date) AS date
177			FROM backups, shares, files, hosts
178			WHERE
179			backups.num = files.backupNum AND
180			shares.ID = files.shareID AND
181			backups.hostID = shares.hostID AND
182			hosts.ID = backups.hostID AND
183			files.dvdid IS NULL
184			GROUP BY
185			backups.hostID, backups.num, hosts.id
186	dpavlin	58	ORDER BY min(backups.date)
187	dpavlin	53	};
188			my $sth = $dbh->prepare( $sql );
189			my @ret;
190			$sth->execute();
191	dpavlin	4
192	dpavlin	53	while ( my $row = $sth->fetchrow_hashref() ) {
193			push(@ret, {
194	dpavlin	58	'host' => $row->{'host'},
195			'hostid' => $row->{'hostid'},
196			'backupno' => $row->{'backupno'},
197			'type' => $row->{'type'},
198			'date' => $row->{'date'},
199			'age' => sprintf("%0.1f", ( (time() - $row->{'date'}) / 86400 ) ),
200	dpavlin	4	}
201	dpavlin	53	);
202	dpavlin	4	}
203
204	dpavlin	53	return @ret;
205			}
206	dpavlin	4
207			sub displayBackupsGrid()
208			{
209			my $retHTML = "";
210			my $addForm = 1;
211
212	dpavlin	31	if ($addForm) {
213	dpavlin	4
214			$retHTML .= <<EOF3;
215			<script language="javascript" type="text/javascript">
216			<!--
217
218			function checkAll(location)
219			{
220			for (var i=0;i<document.forma.elements.length;i++)
221			{
222			var e = document.forma.elements[i];
223			if ((e.checked \|\| !e.checked) && e.name != \'all\') {
224			if (eval("document.forma."+location+".checked")) {
225			e.checked = true;
226			} else {
227			e.checked = false;
228			}
229			}
230			}
231			}
232			//-->
233			</script>
234			EOF3
235	dpavlin	31	$retHTML .= q{<form name="forma" method="GET" action="}."$MyURL"."?action=burn\"";
236	dpavlin	4	$retHTML.= q{<input type="hidden" value="burn" name="action">};
237			$retHTML .= q{<input type="hidden" value="results" name="search_results">};
238			}
239	dpavlin	31	$retHTML .= qq{<table style="fview"><tr>};
240
241			if ($addForm) {
242	dpavlin	4	$retHTML .= "<td class=\"tableheader\"><input type=\"checkbox\" name=\"allFiles\" onClick=\"checkAll('allFiles');\"></td>";
243			}
244	dpavlin	58	$retHTML .= qq{
245			<td class="tableheader">Host</td>
246			<td class="tableheader">Backup no</td>
247			<td class="tableheader">Type</td>
248			<td class="tableheader">date</td>
249			<td class="tableheader">age/days</td>
250			</tr>
251			};
252	dpavlin	4
253	dpavlin	31	my @backups = getBackupsNotBurned();
254			my $backup;
255
256			if ($addForm) {
257	dpavlin	58	$retHTML .= qq{
258			<tr><td colspan=7 style="tableheader">
259	dpavlin	31	<input type="submit" value="Burn selected backups on medium" name="submitBurner">
260	dpavlin	58	</td></tr>
261			};
262	dpavlin	4	}
263	dpavlin	31
264			foreach $backup(@backups) {
265
266			my $ftype = "";
267	dpavlin	4
268	dpavlin	31	$retHTML .= "<tr>";
269			if ($addForm) {
270	dpavlin	58	$retHTML .= '<td class="fview"><input type="checkbox" name="fcb' .
271			$backup->{'hostid'}.'_'.$backup->{'backupno'} .
272			'" value="' . $backup->{'hostid'}.'_'.$backup->{'backupno'} .
273			'"></td>';
274	dpavlin	31	}
275	dpavlin	4
276	dpavlin	31	$retHTML .= '<td class="fviewborder">' . $backup->{'host'} . '</td>' .
277			'<td class="fviewborder">' . $backup->{'backupno'} . '</td>' .
278			'<td class="fviewborder">' . $backup->{'type'} . '</td>' .
279	dpavlin	58	'<td class="fviewborder">' . epoch_to_iso( $backup->{'date'} ) . '</td>' .
280			'<td class="fviewborder">' . $backup->{'age'} . '</td>' .
281	dpavlin	31	'</tr>';
282	dpavlin	4	}
283	dpavlin	31
284			$retHTML .= "</table>";
285
286			if ($addForm) {
287			$retHTML .= "</form>";
288			}
289	dpavlin	4
290	dpavlin	31	return $retHTML;
291			}
292	dpavlin	4
293	dpavlin	17	sub displayGrid($$$$) {
294			my ($where, $addForm, $offset, $hilite) = @_;
295			my $retHTML = "";
296
297	dpavlin	55	my $start_t = time();
298
299	dpavlin	31	my ($results, $files) = getFiles($where, $offset);
300
301	dpavlin	55	my $dur_t = time() - $start_t;
302			my $dur = sprintf("%0.4fs", $dur_t);
303
304	dpavlin	31	my ($from, $to) = (($offset * $on_page) + 1, ($offset * $on_page) + $on_page);
305
306	dpavlin	59	if ($results <= 0) {
307			$retHTML .= qq{
308			<p style="color: red;">No results found...</p>
309			};
310			return $retHTML;
311			} else {
312			# DEBUG
313			#use Data::Dumper;
314			#$retHTML .= '<pre>' . Dumper($files) . '</pre>';
315			}
316
317
318			if ($addForm) {
319			$retHTML .= qq{<form name="forma" method="GET" action="$MyURL">};
320			$retHTML.= qq{<input type="hidden" value="search" name="action">};
321			$retHTML .= qq{<input type="hidden" value="results" name="search_results">};
322			}
323
324
325	dpavlin	17	$retHTML .= qq{
326	dpavlin	55	<br/>Found <b>$results files</b> showing <b>$from - $to</b> (took $dur)
327	dpavlin	17	<table style="fview" width="100%">
328			<tr>
329	dpavlin	26	<td class="tableheader">Share</td>
330	dpavlin	24	<td class="tableheader">Name</td>
331	dpavlin	17	<td class="tableheader">Type</td>
332	dpavlin	24	<td class="tableheader">#</td>
333			<td class="tableheader">Size</td>
334			<td class="tableheader">Date</td>
335	dpavlin	17	<td class="tableheader">Media</td>
336			</tr>
337			};
338	dpavlin	31
339	dpavlin	17	my $file;
340	dpavlin	4
341	dpavlin	17	sub hilite_html($$) {
342			my ($html, $search) = @_;
343			$html =~ s#($search)#<b>$1</b>#gis;
344			return $html;
345	dpavlin	4	}
346	dpavlin	9
347	dpavlin	26	sub restore_link($$$$$$) {
348			my $type = shift;
349			my $action = 'RestoreFile';
350			$action = 'browse' if (lc($type) eq 'dir');
351			return sprintf(qq{<a href="?action=%s&host=%s&num=%d&share=%s&dir=%s">%s</a>}, $action, @_);
352			}
353
354	dpavlin	31	foreach $file (@{ $files }) {
355	dpavlin	24	my $typeStr = BackupPC::Attrib::fileType2Text(undef, $file->{'type'});
356	dpavlin	17	$retHTML .= "<tr>";
357	dpavlin	9
358	dpavlin	17	foreach my $v ((
359	dpavlin	26	$file->{'sharename'},
360	dpavlin	24	qq{<img src="$Conf{CgiImageDirURL}/icon-$typeStr.gif" align="center"> } . hilite_html( $file->{'fpath'}, $hilite ),
361			$typeStr,
362	dpavlin	26	restore_link( $typeStr, $file->{'hname'}, $file->{'backupno'}, $file->{'sname'}, $file->{'fpath'}, $file->{'backupno'} ),
363	dpavlin	17	$file->{'size'},
364	dpavlin	51	epoch_to_iso( $file->{'date'} ),
365	dpavlin	17	$file->{'dvd'}
366			)) {
367			$retHTML .= qq{<td class="fviewborder">$v</td>};
368			}
369	dpavlin	9
370	dpavlin	17	$retHTML .= "</tr>";
371			}
372			$retHTML .= "</table>";
373
374	dpavlin	31	# all variables which has to be transfered
375			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/) {
376			$retHTML .= qq{<INPUT TYPE="hidden" NAME="$n" VALUE="$In{$n}">\n};
377			}
378	dpavlin	17
379	dpavlin	31	my $del = '';
380			my $max_page = int( $results / $on_page );
381			my $page = 0;
382
383			my $link_fmt = '<a href = "#" onclick="document.forma.offset.value=%d;document.forma.submit();">%s</a>';
384
385			$retHTML .= '<div style="text-align: center;">';
386
387			if ($offset > 0) {
388			$retHTML .= sprintf($link_fmt, $offset - 1, '<<') . ' ';
389			}
390
391			while ($page <= $max_page) {
392			if ($page == $offset) {
393			$retHTML .= $del . '<b>' . ($page + 1) . '</b>';
394			} else {
395			$retHTML .= $del . sprintf($link_fmt, $page, $page + 1);
396	dpavlin	17	}
397	dpavlin	31
398			if ($page < $offset - $pager_pages && $page != 0) {
399			$retHTML .= " ... ";
400			$page = $offset - $pager_pages;
401			$del = '';
402			} elsif ($page > $offset + $pager_pages && $page != $max_page) {
403			$retHTML .= " ... ";
404			$page = $max_page;
405			$del = '';
406			} else {
407			$del = ' \| ';
408			$page++;
409			}
410	dpavlin	17	}
411
412	dpavlin	31	if ($offset < $max_page) {
413			$retHTML .= ' ' . sprintf($link_fmt, $offset + 1, '>>');
414			}
415
416			$retHTML .= "</div>";
417
418	dpavlin	17	$retHTML .= "</form>" if ($addForm);
419	dpavlin	31
420	dpavlin	17	return $retHTML;
421			}
422	dpavlin	4
423			1;