/[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 102 by dpavlin, Tue Aug 30 22:43:01 2005 UTC revision 109 by dpavlin, Thu Sep 1 18:30:51 2005 UTC
# Line 241  sub getFilesHyperEstraier($) { Line 241  sub getFilesHyperEstraier($) {
241          return ($hits, \@res);          return ($hits, \@res);
242  }  }
243    
244    sub getGzipName($$$)
245    {
246            my ($host, $share, $backupnum) = @_;
247            my $ret = $Conf{GzipSchema};
248            
249            $share =~ s/\//_/g;
250            $ret =~ s/\\h/$host/ge;
251            $ret =~ s/\\s/$share/ge;
252            $ret =~ s/\\n/$backupnum/ge;
253            
254            return $ret;
255            
256    }
257    
258  sub getBackupsNotBurned() {  sub getBackupsNotBurned() {
259    
260          my $dbh = get_dbh();          my $dbh = get_dbh();
# Line 268  sub getBackupsNotBurned() { Line 282  sub getBackupsNotBurned() {
282          while ( my $row = $sth->fetchrow_hashref() ) {          while ( my $row = $sth->fetchrow_hashref() ) {
283                  $row->{'age'} = sprintf("%0.1f", ( (time() - $row->{'date'}) / 86400 ) );                  $row->{'age'} = sprintf("%0.1f", ( (time() - $row->{'date'}) / 86400 ) );
284                  $row->{'size'} = sprintf("%0.2f", $row->{'size'} / 1024 / 1024);                  $row->{'size'} = sprintf("%0.2f", $row->{'size'} / 1024 / 1024);
285                    my (undef,undef,undef,undef,undef,undef,undef,$fs_size,undef,undef,undef,undef,undef) =
286                            stat( $Conf{InstallDir}.'/'.$Conf{GzipTempDir}.'/'.
287                                    getGzipName($row->{'host'}, $row->{share}, $row->{'backupnum'}));
288                    $row->{'fs_size'} = $fs_size;
289                  push @ret, $row;                  push @ret, $row;
290          }          }
291                
# Line 314  EOF3 Line 332  EOF3
332                  <td align="center">date</td>                  <td align="center">date</td>
333                  <td align="center">age/days</td>                  <td align="center">age/days</td>
334                  <td align="center">size/MB</td>                  <td align="center">size/MB</td>
335                    <td align="center">gzip size</td>
336                  </tr>                  </tr>
337    
338                  <tr><td colspan=7 style="tableheader">                  <tr><td colspan=7 style="tableheader">
# Line 347  EOF3 Line 366  EOF3
366                          '<td align="center">' . epoch_to_iso( $backup->{'date'} ) . '</td>' .                          '<td align="center">' . epoch_to_iso( $backup->{'date'} ) . '</td>' .
367                          '<td align="center">' . $backup->{'age'} . '</td>' .                          '<td align="center">' . $backup->{'age'} . '</td>' .
368                          '<td align="right">' . $backup->{'size'} . '</td>' .                          '<td align="right">' . $backup->{'size'} . '</td>' .
369                            '<td align="right">' . $backup->{'fs_size'} .'</td>' .
370                          "</tr>\n";                          "</tr>\n";
371    
372    
Legend:
Removed from v.102  
changed lines
  Added in v.109
  ViewVC Help
Powered by ViewVC 1.1.26