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 ORDER BY share} );
        $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 $iso = BackupPC::Lib::timeStamp($t);
        $iso =~ s/\s/&nbsp;/g;
        return $iso;
}

sub dates_from_form($) {
        my $param = shift || return;

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

        return (
                mk_epoch_date('search_backup', 'from'),
                mk_epoch_date('search_backup', 'to'),
                mk_epoch_date('search', 'from'),
                mk_epoch_date('search', 'to'),
        );
}


sub getWhere($) {
        my $param = shift || return;

        my ($backup_from, $backup_to, $files_from, $files_to) = dates_from_form($param);

        my @conditions;
        push @conditions, qq{ backups.date >= $backup_from } if ($backup_from);
        push @conditions, qq{ backups.date <= $backup_to } if ($backup_to);
        push @conditions, qq{ files.date >= $files_from } if ($files_from);
        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.path) LIKE upper('%".$param->{'search_filename'}."%')") if ($param->{'search_filename'});

        return join(" and ", @conditions);
}


sub getFiles($$) {
        my ($param, $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,
                files.date                      AS date,
                files.type                      AS filetype,
                files.size                      AS size,
                -- dvds.name                    AS dvd
                null                            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 AND backups.shareID = shares.ID
        };

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

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

        my $sql_order = qq{
                ORDER BY files.date
                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
                backups.hostID          AS hostid,
                min(hosts.name)         AS host,
                backups.num             AS backupno,
                min(backups.type)       AS type,
                min(backups.date)       AS date,
                min(backups.size)       AS size
        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 AND backups.shareID = shares.ID
        WHERE 
                files.dvdid     IS NULL
        GROUP BY 
                backups.hostID, backups.num
        ORDER BY min(backups.date)
        };
        my $sth = $dbh->prepare( $sql );
        my @ret;
        $sth->execute();

        while ( my $row = $sth->fetchrow_hashref() ) {
                $row->{'age'} = sprintf("%0.1f", ( (time() - $row->{'date'}) / 86400 ) );
                $row->{'size'} = sprintf("%0.2f", $row->{'size'} / 1024 / 1024);
                push @ret, $row;
        }
      
        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" border="1" cellspacing="0" cellpadding="3">
                <tr class="tableheader">
        };

        if ($addForm) {
            $retHTML .= "<td class=\"tableheader\"><input type=\"checkbox\" name=\"allFiles\" onClick=\"checkAll('allFiles');\"></td>";
        }
        $retHTML .=  qq{
                <td align="center">Host</td>
                <td align="center">Backup no</td>
                <td align="center">Type</td>
                <td align="center">date</td>
                <td align="center">age/days</td>
                <td align="center">size/MB</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>' .
                        '<td class="fviewborder">' . $backup->{'size'} . '</td>' .
                        '</tr>';
        }

        $retHTML .= "</table>";

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

sub displayGrid($$) {
        my ($param, $addForm) = @_;

        my $offset = $param->{'offset'};
        my $hilite = $param->{'search_filename'};

        my $retHTML = "";
 
        my $start_t = time();

        my ($results, $files) = getFiles($param, $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{
        <div>
        Found <b>$results files</b> showing <b>$from - $to</b> (took $dur)
        </div>
        <table style="fview" width="100%" border="0" cellpadding="2" cellspacing="0">
                <tr class="fviewheader"> 
                <td align="center">Share</td>
                <td align="center">Type and Name</td>
                <td align="center">#</td>
                <td align="center">Size</td>
                <td align="center">Date</td>
                <td align="center">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 .= qq{<tr class="fviewborder">};

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