7 |
use DBI; |
use DBI; |
8 |
use DateTime; |
use DateTime; |
9 |
use vars qw(%In $MyURL); |
use vars qw(%In $MyURL); |
10 |
|
use Time::HiRes qw/time/; |
11 |
|
|
12 |
my $on_page = 100; |
my $on_page = 100; |
13 |
my $pager_pages = 10; |
my $pager_pages = 10; |
99 |
files.date AS date, |
files.date AS date, |
100 |
files.type AS filetype, |
files.type AS filetype, |
101 |
files.size AS size, |
files.size AS size, |
102 |
|
}; |
103 |
|
|
104 |
|
my $sql_dvd_cols = qq{ |
105 |
dvds.name AS dvd |
dvds.name AS dvd |
106 |
}; |
}; |
107 |
|
|
110 |
INNER JOIN shares ON files.shareID=shares.ID |
INNER JOIN shares ON files.shareID=shares.ID |
111 |
INNER JOIN hosts ON hosts.ID = shares.hostID |
INNER JOIN hosts ON hosts.ID = shares.hostID |
112 |
INNER JOIN backups ON backups.num = files.backupNum and backups.hostID = hosts.ID |
INNER JOIN backups ON backups.num = files.backupNum and backups.hostID = hosts.ID |
113 |
|
}; |
114 |
|
|
115 |
|
my $sql_dvd_from = qq{ |
116 |
LEFT JOIN dvds ON dvds.ID = files.dvdid |
LEFT JOIN dvds ON dvds.ID = files.dvdid |
117 |
}; |
}; |
118 |
|
|
133 |
|
|
134 |
my ($results) = $sth->fetchrow_array(); |
my ($results) = $sth->fetchrow_array(); |
135 |
|
|
136 |
$sth = $dbh->prepare(qq{ select $sql_cols $sql_from $sql_where $sql_order }); |
$sth = $dbh->prepare(qq{ select $sql_cols $sql_dvd_cols $sql_from $sql_dvd_from $sql_where $sql_order }); |
137 |
$sth->execute( $offset ); |
$sth->execute( $offset ); |
138 |
|
|
139 |
my @ret; |
my @ret; |
284 |
$retHTML .= qq{<input type="hidden" value="results" name="search_results">}; |
$retHTML .= qq{<input type="hidden" value="results" name="search_results">}; |
285 |
} |
} |
286 |
|
|
287 |
|
my $start_t = time(); |
288 |
|
|
289 |
my ($results, $files) = getFiles($where, $offset); |
my ($results, $files) = getFiles($where, $offset); |
290 |
|
|
291 |
|
my $dur_t = time() - $start_t; |
292 |
|
my $dur = sprintf("%0.4fs", $dur_t); |
293 |
|
|
294 |
my ($from, $to) = (($offset * $on_page) + 1, ($offset * $on_page) + $on_page); |
my ($from, $to) = (($offset * $on_page) + 1, ($offset * $on_page) + $on_page); |
295 |
|
|
296 |
$retHTML .= qq{ |
$retHTML .= qq{ |
297 |
<br/>Found $results files, showing $from - $to |
<br/>Found <b>$results files</b> showing <b>$from - $to</b> (took $dur) |
298 |
<table style="fview" width="100%"> |
<table style="fview" width="100%"> |
299 |
<tr> |
<tr> |
300 |
<td class="tableheader">Share</td> |
<td class="tableheader">Share</td> |