/[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 79 by dpavlin, Fri Aug 26 23:37:10 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 getWhere($) {
# Line 98  sub getFiles($$) { Line 97  sub getFiles($$) {
97                  files.date                      AS date,                  files.date                      AS date,
98                  files.type                      AS filetype,                  files.type                      AS filetype,
99                  files.size                      AS size,                  files.size                      AS size,
100                  dvds.name                       AS dvd                  -- dvds.name                    AS dvd
101                    null                            AS dvd
102          };          };
103    
104          my $sql_from = qq{          my $sql_from = qq{
# Line 109  sub getFiles($$) { Line 109  sub getFiles($$) {
109          };          };
110    
111          my $sql_dvd_from = qq{          my $sql_dvd_from = qq{
112                          LEFT  JOIN dvds         ON dvds.ID = files.dvdid                          -- LEFT  JOIN dvds              ON dvds.ID = files.dvdid
113          };          };
114    
115          my $sql_where;          my $sql_where;
# Line 175  sub getBackupsNotBurned() { Line 175  sub getBackupsNotBurned() {
175                  min(backups.type)       AS type,                  min(backups.type)       AS type,
176                  min(backups.date)       AS date,                  min(backups.date)       AS date,
177                  min(backups.size)       AS size                  min(backups.size)       AS size
178          FROM backups          FROM files
179                  INNER JOIN hosts        ON hosts.ID = backups.hostID                  INNER JOIN shares       ON files.shareID=shares.ID
180                    INNER JOIN hosts        ON hosts.ID = shares.hostID
181                    INNER JOIN backups      ON backups.num = files.backupNum and backups.hostID = hosts.ID AND backups.shareID = shares.ID
182          WHERE          WHERE
183                  files.dvdid     IS NULL                  files.dvdid     IS NULL
184          GROUP BY          GROUP BY
# Line 228  EOF3 Line 230  EOF3
230                $retHTML.= q{<input type="hidden" value="burn" name="action">};                $retHTML.= q{<input type="hidden" value="burn" name="action">};
231                $retHTML .= q{<input type="hidden" value="results" name="search_results">};                $retHTML .= q{<input type="hidden" value="results" name="search_results">};
232          }          }
233          $retHTML .= qq{<table style="fview"><tr>};          $retHTML .= qq{
234                    <table style="fview" border="1" cellspacing="1" cellpadding="3">
235                    <tr class="tableheader">
236            };
237    
238          if ($addForm) {          if ($addForm) {
239              $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>";
240          }          }
241          $retHTML .=  qq{          $retHTML .=  qq{
242                  <td class="tableheader">Host</td>                  <td align="center">Host</td>
243                  <td class="tableheader">Backup no</td>                  <td align="center">Backup no</td>
244                  <td class="tableheader">Type</td>                  <td align="center">Type</td>
245                  <td class="tableheader">date</td>                  <td align="center">date</td>
246                  <td class="tableheader">age/days</td>                  <td align="center">age/days</td>
247                  <td class="tableheader">size/MB</td>                  <td align="center">size/MB</td>
248                  </tr>                  </tr>
249          };          };
250    
# Line 317  sub displayGrid($$$$) { Line 322  sub displayGrid($$$$) {
322    
323    
324          $retHTML .= qq{          $retHTML .= qq{
325          <br/>Found <b>$results files</b> showing <b>$from - $to</b> (took $dur)          <div>
326          <table style="fview" width="100%">          Found <b>$results files</b> showing <b>$from - $to</b> (took $dur)
327                  <tr>          </div>
328                  <td class="tableheader">Share</td>          <table style="fview" width="100%" border="0" cellpadding="2" cellspacing="0">
329                  <td class="tableheader">Name</td>                  <tr class="fviewheader">
330                  <td class="tableheader">Type</td>                  <td align="center">Share</td>
331                  <td class="tableheader">#</td>                  <td align="center">Type and Name</td>
332                  <td class="tableheader">Size</td>                  <td align="center">#</td>
333                  <td class="tableheader">Date</td>                  <td align="center">Size</td>
334                  <td class="tableheader">Media</td>                  <td align="center">Date</td>
335                    <td align="center">Media</td>
336                  </tr>                  </tr>
337          };          };
338    
# Line 347  sub displayGrid($$$$) { Line 353  sub displayGrid($$$$) {
353    
354          foreach $file (@{ $files }) {          foreach $file (@{ $files }) {
355                  my $typeStr  = BackupPC::Attrib::fileType2Text(undef, $file->{'type'});                  my $typeStr  = BackupPC::Attrib::fileType2Text(undef, $file->{'type'});
356                  $retHTML .= "<tr>";                  $retHTML .= qq{<tr class="fviewborder">};
357    
358                  foreach my $v ((                  $retHTML .=
359                          $file->{'sharename'},                          qq{<td class="fviewborder" align="right">} . $file->{'sharename'} . qq{</td>} .
360                          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">&nbsp;} . hilite_html( $file->{'fpath'}, $hilite ) . qq{</td>} .
361                          $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>} .
362                          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>} .
363                          $file->{'size'},                          qq{<td class="fviewborder">} . epoch_to_iso( $file->{'date'} ) . qq{</td>} .
364                          epoch_to_iso( $file->{'date'} ),                          qq{<td class="fviewborder">} . $file->{'dvd'} . qq{</td>};
                         $file->{'dvd'}  
                 )) {  
                         $retHTML .= qq{<td class="fviewborder">$v</td>};  
                 }  
365    
366                  $retHTML .= "</tr>";                  $retHTML .= "</tr>";
367          }          }
Legend:
Removed from v.78  
changed lines
  Added in v.79
  ViewVC Help
Powered by ViewVC 1.1.26