/[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 78 by dpavlin, Fri Aug 26 21:43:01 2005 UTC revision 83 by dpavlin, Sun Aug 28 10:14:48 2005 UTC
# Line 32  sub getUnits() { Line 32  sub getUnits() {
32    
33  sub epoch_to_iso {  sub epoch_to_iso {
34          my $t = shift || return;          my $t = shift || return;
35          $t += 60 * 60 * +2;     # FIXME add TZ          my $iso = BackupPC::Lib::timeStamp($t);
36          my $dt = DateTime->from_epoch( epoch => $t ) || return;          $iso =~ s/\s/ /g;
37          print STDERR "BUG: $t != " . $dt->epoch . "\n" unless ($t == $dt->epoch);          return $iso;
         return $dt->ymd . ' ' . $dt->hms;  
38  }  }
39    
40  sub getWhere($) {  sub dates_from_form($) {
41          my ($param)    = @_;          my $param = shift || return;
         my @conditions;  
42    
43          sub mk_epoch_date($$) {          sub mk_epoch_date($$) {
44                  my ($name,$suffix) = @_;                  my ($name,$suffix) = @_;
# Line 58  sub getWhere($) { Line 56  sub getWhere($) {
56                  return $dt->epoch || 'NULL';                  return $dt->epoch || 'NULL';
57          }          }
58    
59          my $backup_from = mk_epoch_date('search_backup', 'from');          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          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');  
75          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');  
76          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');  
77          push @conditions, qq{ files.date <= $files_to } if ($files_to);          push @conditions, qq{ files.date <= $files_to } if ($files_to);
78    
79          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'});  
80    
81            push( @conditions, ' files.shareid = ' . $param->{'search_share'} ) if ($param->{'search_share'});
82          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'});
83    
84          return (          return join(" and ", @conditions);
                 join(" and ", @conditions),  
                 $files_from, $files_to,  
                 $backup_from, $backup_to  
         );  
85  }  }
86    
87    
88  sub getFiles($$) {  sub getFiles($$) {
89          my ($where, $offset) = @_;          my ($param, $offset) = @_;
90    
91          my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );          my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );
92    
# Line 98  sub getFiles($$) { Line 101  sub getFiles($$) {
101                  files.date                      AS date,                  files.date                      AS date,
102                  files.type                      AS filetype,                  files.type                      AS filetype,
103                  files.size                      AS size,                  files.size                      AS size,
104                  dvds.name                       AS dvd                  -- dvds.name                    AS dvd
105                    null                            AS dvd
106          };          };
107    
108          my $sql_from = qq{          my $sql_from = qq{
# Line 109  sub getFiles($$) { Line 113  sub getFiles($$) {
113          };          };
114    
115          my $sql_dvd_from = qq{          my $sql_dvd_from = qq{
116                          LEFT  JOIN dvds         ON dvds.ID = files.dvdid                          -- LEFT  JOIN dvds              ON dvds.ID = files.dvdid
117          };          };
118    
119          my $sql_where;          my $sql_where;
120            my $where = getWhere($param);
121          $sql_where = " WHERE ". $where if ($where);          $sql_where = " WHERE ". $where if ($where);
122    
123          my $sql_order = qq{          my $sql_order = qq{
# Line 175  sub getBackupsNotBurned() { Line 180  sub getBackupsNotBurned() {
180                  min(backups.type)       AS type,                  min(backups.type)       AS type,
181                  min(backups.date)       AS date,                  min(backups.date)       AS date,
182                  min(backups.size)       AS size                  min(backups.size)       AS size
183          FROM backups          FROM files
184                  INNER JOIN hosts        ON hosts.ID = backups.hostID                  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          WHERE          WHERE
188                  files.dvdid     IS NULL                  files.dvdid     IS NULL
189          GROUP BY          GROUP BY
# Line 228  EOF3 Line 235  EOF3
235                $retHTML.= q{<input type="hidden" value="burn" name="action">};                $retHTML.= q{<input type="hidden" value="burn" name="action">};
236                $retHTML .= q{<input type="hidden" value="results" name="search_results">};                $retHTML .= q{<input type="hidden" value="results" name="search_results">};
237          }          }
238          $retHTML .= qq{<table style="fview"><tr>};          $retHTML .= qq{
239                    <table style="fview" border="1" cellspacing="0" cellpadding="3">
240                    <tr class="tableheader">
241            };
242    
243          if ($addForm) {          if ($addForm) {
244              $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>";
245          }          }
246          $retHTML .=  qq{          $retHTML .=  qq{
247                  <td class="tableheader">Host</td>                  <td align="center">Host</td>
248                  <td class="tableheader">Backup no</td>                  <td align="center">Backup no</td>
249                  <td class="tableheader">Type</td>                  <td align="center">Type</td>
250                  <td class="tableheader">date</td>                  <td align="center">date</td>
251                  <td class="tableheader">age/days</td>                  <td align="center">age/days</td>
252                  <td class="tableheader">size/MB</td>                  <td align="center">size/MB</td>
253                  </tr>                  </tr>
254          };          };
255    
# Line 284  EOF3 Line 294  EOF3
294          return $retHTML;          return $retHTML;
295  }        }      
296    
297  sub displayGrid($$$$) {  sub displayGrid($$) {
298          my ($where, $addForm, $offset, $hilite) = @_;          my ($param, $addForm) = @_;
299    
300            my $offset = $param->{'offset'};
301            my $hilite = $param->{'search_filename'};
302    
303          my $retHTML = "";          my $retHTML = "";
304    
305          my $start_t = time();          my $start_t = time();
306    
307          my ($results, $files) = getFiles($where, $offset);          my ($results, $files) = getFiles($param, $offset);
308    
309          my $dur_t = time() - $start_t;          my $dur_t = time() - $start_t;
310          my $dur = sprintf("%0.4fs", $dur_t);          my $dur = sprintf("%0.4fs", $dur_t);
# Line 317  sub displayGrid($$$$) { Line 331  sub displayGrid($$$$) {
331    
332    
333          $retHTML .= qq{          $retHTML .= qq{
334          <br/>Found <b>$results files</b> showing <b>$from - $to</b> (took $dur)          <div>
335          <table style="fview" width="100%">          Found <b>$results files</b> showing <b>$from - $to</b> (took $dur)
336                  <tr>          </div>
337                  <td class="tableheader">Share</td>          <table style="fview" width="100%" border="0" cellpadding="2" cellspacing="0">
338                  <td class="tableheader">Name</td>                  <tr class="fviewheader">
339                  <td class="tableheader">Type</td>                  <td align="center">Share</td>
340                  <td class="tableheader">#</td>                  <td align="center">Type and Name</td>
341                  <td class="tableheader">Size</td>                  <td align="center">#</td>
342                  <td class="tableheader">Date</td>                  <td align="center">Size</td>
343                  <td class="tableheader">Media</td>                  <td align="center">Date</td>
344                    <td align="center">Media</td>
345                  </tr>                  </tr>
346          };          };
347    
# Line 347  sub displayGrid($$$$) { Line 362  sub displayGrid($$$$) {
362    
363          foreach $file (@{ $files }) {          foreach $file (@{ $files }) {
364                  my $typeStr  = BackupPC::Attrib::fileType2Text(undef, $file->{'type'});                  my $typeStr  = BackupPC::Attrib::fileType2Text(undef, $file->{'type'});
365                  $retHTML .= "<tr>";                  $retHTML .= qq{<tr class="fviewborder">};
366    
367                  foreach my $v ((                  $retHTML .=
368                          $file->{'sharename'},                          qq{<td class="fviewborder" align="right">} . $file->{'sharename'} . qq{</td>} .
369                          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>} .
370                          $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>} .
371                          restore_link( $typeStr, ${EscURI( $file->{'hname'} )}, $file->{'backupno'}, ${EscURI( $file->{'sname'})}, ${EscURI( $file->{'fpath'} )}, $file->{'backupno'} ),                          qq{<td class="fviewborder" align="right">} . $file->{'size'} . qq{</td>} .
372                          $file->{'size'},                          qq{<td class="fviewborder">} . epoch_to_iso( $file->{'date'} ) . qq{</td>} .
373                          epoch_to_iso( $file->{'date'} ),                          qq{<td class="fviewborder">} . $file->{'dvd'} . qq{</td>};
                         $file->{'dvd'}  
                 )) {  
                         $retHTML .= qq{<td class="fviewborder">$v</td>};  
                 }  
374    
375                  $retHTML .= "</tr>";                  $retHTML .= "</tr>";
376          }          }
Legend:
Removed from v.78  
changed lines
  Added in v.83
  ViewVC Help
Powered by ViewVC 1.1.26