49 |
|
|
50 |
sub new |
sub new |
51 |
{ |
{ |
52 |
my($class, $bpc, $host, $backups) = @_; |
my($class, $bpc, $host, $backups, $only_one) = @_; |
53 |
my $m = bless { |
my $m = bless { |
54 |
bpc => $bpc, # BackupPC::Lib object |
bpc => $bpc, # BackupPC::Lib object |
55 |
host => $host, # host name |
host => $host, # host name |
65 |
$m->{backups}[$i]{level} = $m->{backups}[$i]{type} eq "incr" ? 1 : 0; |
$m->{backups}[$i]{level} = $m->{backups}[$i]{type} eq "incr" ? 1 : 0; |
66 |
} |
} |
67 |
$m->{topDir} = $m->{bpc}->TopDir(); |
$m->{topDir} = $m->{bpc}->TopDir(); |
68 |
|
$m->{only_one} = $only_one; |
69 |
return $m; |
return $m; |
70 |
} |
} |
71 |
|
|
105 |
# |
# |
106 |
next if ( $m->{backups}[$i]{level} >= $level ); |
next if ( $m->{backups}[$i]{level} >= $level ); |
107 |
|
|
108 |
|
last if ( $m->{only_one} && $i != $m->{idx} ); |
109 |
|
|
110 |
$level = $m->{backups}[$i]{level}; |
$level = $m->{backups}[$i]{level}; |
111 |
$backupNum = $m->{backups}[$i]{num}; |
$backupNum = $m->{backups}[$i]{num}; |
112 |
push(@{$m->{mergeNums}}, $backupNum); |
push(@{$m->{mergeNums}}, $backupNum); |