/[BackupPC]/trunk/bin/BackupPC_incPartsUpdate
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/bin/BackupPC_incPartsUpdate

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

revision 163 by dpavlin, Mon Oct 10 13:50:51 2005 UTC revision 182 by dpavlin, Wed Oct 12 11:15:18 2005 UTC
# Line 8  use BackupPC::Lib; Line 8  use BackupPC::Lib;
8  use BackupPC::View;  use BackupPC::View;
9  use Data::Dumper;  use Data::Dumper;
10  use Time::HiRes qw/time/;  use Time::HiRes qw/time/;
 use File::Pid;  
11  use POSIX qw/strftime/;  use POSIX qw/strftime/;
12  use BackupPC::SearchLib;  use BackupPC::SearchLib;
13  use Cwd qw/abs_path/;  use Cwd qw/abs_path/;
# Line 83  my $sth_inc_deleted = $dbh->prepare(qq{ Line 82  my $sth_inc_deleted = $dbh->prepare(qq{
82    
83  while (my $row = $sth->fetchrow_hashref) {  while (my $row = $sth->fetchrow_hashref) {
84          my $tar_file = BackupPC::SearchLib::getGzipName($row->{'host'}, $row->{'share'}, $row->{'num'});          my $tar_file = BackupPC::SearchLib::getGzipName($row->{'host'}, $row->{'share'}, $row->{'num'});
85          print curr_time, sprintf(" %s:%s %-3d ", $row->{'host'}, $row->{'share'}, $row->{'num'}), " -> $tar_file ";          print curr_time, " ", $row->{'host'}, ":", $row->{'share'}, " #", $row->{'num'}, " -> $tar_file";
86    
87          my $t = time();          my $t = time();
88    
# Line 94  while (my $row = $sth->fetchrow_hashref) Line 93  while (my $row = $sth->fetchrow_hashref)
93    
94          my $size = (stat( "$tar_dir/$tar_file" ))[7];          my $size = (stat( "$tar_dir/$tar_file" ))[7];
95    
96          print " dur: ",fmt_time(time() - $t)," $size bytes";          printf(" %1.2f MB, dur: %s", ($size / 1024 / 1024), fmt_time(time() - $t));
97    
98          if ($size > 20) {          if ($size > 45) {
99                  $sth_inc_size->execute($size, $row->{'backup_id'});                  $sth_inc_size->execute($size, $row->{'backup_id'});
100                    $sth_inc_deleted->execute(0, $row->{'backup_id'});
101          } else {          } else {
102                  $sth_inc_deleted->execute(1, $row->{'backup_id'});                  $sth_inc_deleted->execute(1, $row->{'backup_id'});
103                  unlink "$tar_dir/$tar_file" || die "can't delete $tar_dir/$tar_file: $!\n";                  unlink "$tar_dir/$tar_file" || die "can't delete $tar_dir/$tar_file: $!\n";
Legend:
Removed from v.163  
changed lines
  Added in v.182
  ViewVC Help
Powered by ViewVC 1.1.26