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

my $dbh;

sub get_dbh {
        $dbh ||= DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );
        return $dbh;
}

sub getUnits() {
        my @ret;

        my $dbh = get_dbh();
        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;
        }
        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 = get_dbh();

        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();
        return ($results, \@ret);
}

sub getBackupsNotBurned() {

        my $dbh = get_dbh();
        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;

        sub page_link($$$) {
                my ($param,$page,$display) = @_;

                $param->{'offset'} = $page;

                my $html = '<a href = "' . $MyURL;
                my $del = '?';
                foreach my $k (keys %{ $param }) {
                        if ($param->{$k}) {
                                $html .= $del . $k . '=' . ${EscURI( $param->{$k} )};
                                $del = '&';
                        }
                }
                $html .= '">' . $display . '</a>';
        }

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

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

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