/[BackupPC]/trunk/lib/BackupPC/SearchLib.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/BackupPC/SearchLib.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 66 by dpavlin, Mon Aug 22 00:09:59 2005 UTC revision 85 by dpavlin, Sun Aug 28 10:45:51 2005 UTC
# Line 15  my $pager_pages = 10; Line 15  my $pager_pages = 10;
15  my $dsn = $Conf{SearchDSN};  my $dsn = $Conf{SearchDSN};
16  my $db_user = $Conf{SearchUser} || '';  my $db_user = $Conf{SearchUser} || '';
17    
18    my $dbh;
19    
20    sub get_dbh {
21            $dbh ||= DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );
22            return $dbh;
23    }
24    
25  sub getUnits() {  sub getUnits() {
26          my @ret;          my @ret;
27    
28          my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );          my $dbh = get_dbh();
29          my $sth = $dbh->prepare(qq{ SELECT id, share FROM shares} );          my $sth = $dbh->prepare(qq{ SELECT id, share FROM shares ORDER BY share} );
30          $sth->execute();          $sth->execute();
31          push @ret, { 'id' => '', 'share' => '-'};       # dummy any          push @ret, { 'id' => '', 'share' => '-'};       # dummy any
32    
33          while ( my $row = $sth->fetchrow_hashref() ) {          while ( my $row = $sth->fetchrow_hashref() ) {
34                  push @ret, $row;                  push @ret, $row;
35          }          }
         $dbh->disconnect();  
36          return @ret;          return @ret;
37  }  }
38    
39  sub epoch_to_iso {  sub epoch_to_iso {
40          my $t = shift || return;          my $t = shift || return;
41          $t += 60 * 60 * +2;     # FIXME add TZ          my $iso = BackupPC::Lib::timeStamp($t);
42          my $dt = DateTime->from_epoch( epoch => $t ) || return;          $iso =~ s/\s/ /g;
43          print STDERR "BUG: $t != " . $dt->epoch . "\n" unless ($t == $dt->epoch);          return $iso;
         return $dt->ymd . ' ' . $dt->hms;  
44  }  }
45    
46  sub getWhere($) {  sub dates_from_form($) {
47          my ($param)    = @_;          my $param = shift || return;
         my @conditions;  
48    
49          sub mk_epoch_date($$) {          sub mk_epoch_date($$) {
50                  my ($name,$suffix) = @_;                  my ($name,$suffix) = @_;
# Line 58  sub getWhere($) { Line 62  sub getWhere($) {
62                  return $dt->epoch || 'NULL';                  return $dt->epoch || 'NULL';
63          }          }
64    
65          my $backup_from = mk_epoch_date('search_backup', 'from');          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          push @conditions, qq{ backups.date >= $backup_from } if ($backup_from);          push @conditions, qq{ backups.date >= $backup_from } if ($backup_from);
         my $backup_to = mk_epoch_date('search_backup', 'to');  
81          push @conditions, qq{ backups.date <= $backup_to } if ($backup_to);          push @conditions, qq{ backups.date <= $backup_to } if ($backup_to);
   
         my $files_from = mk_epoch_date('search', 'from');  
82          push @conditions, qq{ files.date >= $files_from } if ($files_from);          push @conditions, qq{ files.date >= $files_from } if ($files_from);
         my $files_to = mk_epoch_date('search', 'to');  
83          push @conditions, qq{ files.date <= $files_to } if ($files_to);          push @conditions, qq{ files.date <= $files_to } if ($files_to);
84    
85          print STDERR "backup: $backup_from - $backup_to files: $files_from - $files_to cond:" . join(" | ",@conditions);          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'});  
86    
87            push( @conditions, ' files.shareid = ' . $param->{'search_share'} ) if ($param->{'search_share'});
88          push (@conditions, " upper(files.path) LIKE upper('%".$param->{'search_filename'}."%')") if ($param->{'search_filename'});          push (@conditions, " upper(files.path) LIKE upper('%".$param->{'search_filename'}."%')") if ($param->{'search_filename'});
89    
90          return (          return join(" and ", @conditions);
                 join(" and ", @conditions),  
                 $files_from, $files_to,  
                 $backup_from, $backup_to  
         );  
91  }  }
92    
93    
94  sub getFiles($$) {  sub getFiles($$) {
95          my ($where, $offset) = @_;          my ($param, $offset) = @_;
96    
97          my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );          my $dbh = get_dbh();
98    
99          my $sql_cols = qq{          my $sql_cols = qq{
100                  files.id                        AS fid,                  files.id                        AS fid,
# Line 98  sub getFiles($$) { Line 107  sub getFiles($$) {
107                  files.date                      AS date,                  files.date                      AS date,
108                  files.type                      AS filetype,                  files.type                      AS filetype,
109                  files.size                      AS size,                  files.size                      AS size,
110                  dvds.name                       AS dvd                  -- dvds.name                    AS dvd
111                    null                            AS dvd
112          };          };
113    
114          my $sql_from = qq{          my $sql_from = qq{
# Line 109  sub getFiles($$) { Line 119  sub getFiles($$) {
119          };          };
120    
121          my $sql_dvd_from = qq{          my $sql_dvd_from = qq{
122                          LEFT  JOIN dvds         ON dvds.ID = files.dvdid                          -- LEFT  JOIN dvds              ON dvds.ID = files.dvdid
123          };          };
124    
125          my $sql_where;          my $sql_where;
126            my $where = getWhere($param);
127          $sql_where = " WHERE ". $where if ($where);          $sql_where = " WHERE ". $where if ($where);
128    
129          my $sql_order = qq{          my $sql_order = qq{
# Line 160  sub getFiles($$) { Line 171  sub getFiles($$) {
171          }          }
172            
173          $sth->finish();          $sth->finish();
         $dbh->disconnect();  
174          return ($results, \@ret);          return ($results, \@ret);
175  }  }
176    
177  sub getBackupsNotBurned() {  sub getBackupsNotBurned() {
178    
179          my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );          my $dbh = get_dbh();
180          my $sql = q{          my $sql = q{
181          SELECT          SELECT
182                  backups.hostID          AS hostid,                  backups.hostID          AS hostid,
# Line 175  sub getBackupsNotBurned() { Line 185  sub getBackupsNotBurned() {
185                  min(backups.type)       AS type,                  min(backups.type)       AS type,
186                  min(backups.date)       AS date,                  min(backups.date)       AS date,
187                  min(backups.size)       AS size                  min(backups.size)       AS size
188          FROM backups          FROM files
189                  INNER JOIN hosts        ON hosts.ID = backups.hostID                  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          WHERE          WHERE
193                  files.dvdid     IS NULL                  files.dvdid     IS NULL
194          GROUP BY          GROUP BY
# Line 228  EOF3 Line 240  EOF3
240                $retHTML.= q{<input type="hidden" value="burn" name="action">};                $retHTML.= q{<input type="hidden" value="burn" name="action">};
241                $retHTML .= q{<input type="hidden" value="results" name="search_results">};                $retHTML .= q{<input type="hidden" value="results" name="search_results">};
242          }          }
243          $retHTML .= qq{<table style="fview"><tr>};          $retHTML .= qq{
244                    <table style="fview" border="1" cellspacing="0" cellpadding="3">
245                    <tr class="tableheader">
246            };
247    
248          if ($addForm) {          if ($addForm) {
249              $retHTML .= "<td class=\"tableheader\"><input type=\"checkbox\" name=\"allFiles\" onClick=\"checkAll('allFiles');\"></td>";              $retHTML .= "<td class=\"tableheader\"><input type=\"checkbox\" name=\"allFiles\" onClick=\"checkAll('allFiles');\"></td>";
250          }          }
251          $retHTML .=  qq{          $retHTML .=  qq{
252                  <td class="tableheader">Host</td>                  <td align="center">Host</td>
253                  <td class="tableheader">Backup no</td>                  <td align="center">Backup no</td>
254                  <td class="tableheader">Type</td>                  <td align="center">Type</td>
255                  <td class="tableheader">date</td>                  <td align="center">date</td>
256                  <td class="tableheader">age/days</td>                  <td align="center">age/days</td>
257                  <td class="tableheader">size/MB</td>                  <td align="center">size/MB</td>
258                  </tr>                  </tr>
259          };          };
260    
# Line 284  EOF3 Line 299  EOF3
299          return $retHTML;          return $retHTML;
300  }        }      
301    
302  sub displayGrid($$$$) {  sub displayGrid($$) {
303          my ($where, $addForm, $offset, $hilite) = @_;          my ($param, $addForm) = @_;
304    
305            my $offset = $param->{'offset'};
306            my $hilite = $param->{'search_filename'};
307    
308          my $retHTML = "";          my $retHTML = "";
309    
310          my $start_t = time();          my $start_t = time();
311    
312          my ($results, $files) = getFiles($where, $offset);          my ($results, $files) = getFiles($param, $offset);
313    
314          my $dur_t = time() - $start_t;          my $dur_t = time() - $start_t;
315          my $dur = sprintf("%0.4fs", $dur_t);          my $dur = sprintf("%0.4fs", $dur_t);
# Line 317  sub displayGrid($$$$) { Line 336  sub displayGrid($$$$) {
336    
337    
338          $retHTML .= qq{          $retHTML .= qq{
339          <br/>Found <b>$results files</b> showing <b>$from - $to</b> (took $dur)          <div>
340          <table style="fview" width="100%">          Found <b>$results files</b> showing <b>$from - $to</b> (took $dur)
341                  <tr>          </div>
342                  <td class="tableheader">Share</td>          <table style="fview" width="100%" border="0" cellpadding="2" cellspacing="0">
343                  <td class="tableheader">Name</td>                  <tr class="fviewheader">
344                  <td class="tableheader">Type</td>                  <td align="center">Share</td>
345                  <td class="tableheader">#</td>                  <td align="center">Type and Name</td>
346                  <td class="tableheader">Size</td>                  <td align="center">#</td>
347                  <td class="tableheader">Date</td>                  <td align="center">Size</td>
348                  <td class="tableheader">Media</td>                  <td align="center">Date</td>
349                    <td align="center">Media</td>
350                  </tr>                  </tr>
351          };          };
352    
# Line 347  sub displayGrid($$$$) { Line 367  sub displayGrid($$$$) {
367    
368          foreach $file (@{ $files }) {          foreach $file (@{ $files }) {
369                  my $typeStr  = BackupPC::Attrib::fileType2Text(undef, $file->{'type'});                  my $typeStr  = BackupPC::Attrib::fileType2Text(undef, $file->{'type'});
370                  $retHTML .= "<tr>";                  $retHTML .= qq{<tr class="fviewborder">};
371    
372                  foreach my $v ((                  $retHTML .=
373                          $file->{'sharename'},                          qq{<td class="fviewborder" align="right">} . $file->{'sharename'} . qq{</td>} .
374                          qq{<img src="$Conf{CgiImageDirURL}/icon-$typeStr.gif" align="center">&nbsp;} . hilite_html( $file->{'fpath'}, $hilite ),                          qq{<td class="fviewborder"><img src="$Conf{CgiImageDirURL}/icon-$typeStr.gif" alt="$typeStr" align="middle">&nbsp;} . hilite_html( $file->{'fpath'}, $hilite ) . qq{</td>} .
375                          $typeStr,                          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                          restore_link( $typeStr, $file->{'hname'}, $file->{'backupno'}, $file->{'sname'}, $file->{'fpath'}, $file->{'backupno'} ),                          qq{<td class="fviewborder" align="right">} . $file->{'size'} . qq{</td>} .
377                          $file->{'size'},                          qq{<td class="fviewborder">} . epoch_to_iso( $file->{'date'} ) . qq{</td>} .
378                          epoch_to_iso( $file->{'date'} ),                          qq{<td class="fviewborder">} . $file->{'dvd'} . qq{</td>};
                         $file->{'dvd'}  
                 )) {  
                         $retHTML .= qq{<td class="fviewborder">$v</td>};  
                 }  
379    
380                  $retHTML .= "</tr>";                  $retHTML .= "</tr>";
381          }          }
# Line 374  sub displayGrid($$$$) { Line 390  sub displayGrid($$$$) {
390          my $max_page = int( $results / $on_page );          my $max_page = int( $results / $on_page );
391          my $page = 0;          my $page = 0;
392    
393          my $link_fmt = '<a href = "#" onclick="document.forma.offset.value=%d;document.forma.submit();">%s</a>';          sub page_link($$$) {
394                    my ($param,$page,$display) = @_;
395    
396                    $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          $retHTML .= '<div style="text-align: center;">';          $retHTML .= '<div style="text-align: center;">';
410    
411          if ($offset > 0) {          if ($offset > 0) {
412                  $retHTML .= sprintf($link_fmt, $offset - 1, '&lt;&lt;') . ' ';                  $retHTML .= page_link($param, $offset - 1, '&lt;&lt;') . ' ';
413          }          }
414    
415          while ($page <= $max_page) {          while ($page <= $max_page) {
416                  if ($page == $offset) {                  if ($page == $offset) {
417                          $retHTML .= $del . '<b>' . ($page + 1) . '</b>';                          $retHTML .= $del . '<b>' . ($page + 1) . '</b>';
418                  } else {                  } else {
419                          $retHTML .= $del . sprintf($link_fmt, $page, $page + 1);                          $retHTML .= $del . page_link($param, $page, $page + 1);
420                  }                  }
421    
422                  if ($page < $offset - $pager_pages && $page != 0) {                  if ($page < $offset - $pager_pages && $page != 0) {
# Line 404  sub displayGrid($$$$) { Line 434  sub displayGrid($$$$) {
434          }          }
435    
436          if ($offset < $max_page) {          if ($offset < $max_page) {
437                  $retHTML .= ' ' . sprintf($link_fmt, $offset + 1, '&gt;&gt;');                  $retHTML .= ' ' . page_link($param, $offset + 1, '&gt;&gt;');
438          }          }
439    
440          $retHTML .= "</div>";          $retHTML .= "</div>";
Legend:
Removed from v.66  
changed lines
  Added in v.85
  ViewVC Help
Powered by ViewVC 1.1.26