Parent Directory | Revision Log | Patch
revision 167 by dpavlin, Mon Oct 10 14:05:09 2005 UTC | revision 168 by dpavlin, Mon Oct 10 14:11:10 2005 UTC | |
---|---|---|
# | Line 98 while (my $row = $sth->fetchrow_hashref) | Line 98 while (my $row = $sth->fetchrow_hashref) |
98 | ||
99 | if ($size > 45) { | if ($size > 45) { |
100 | $sth_inc_size->execute($size, $row->{'backup_id'}); | $sth_inc_size->execute($size, $row->{'backup_id'}); |
101 | $sth_inc_deleted->execute(0, $row->{'backup_id'}); | |
102 | } else { | } else { |
103 | $sth_inc_deleted->execute(1, $row->{'backup_id'}); | $sth_inc_deleted->execute(1, $row->{'backup_id'}); |
104 | 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"; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |