diff options
Diffstat (limited to 'lib/App/Beam/Backup.pm')
-rw-r--r-- | lib/App/Beam/Backup.pm | 15 |
1 files changed, 3 insertions, 12 deletions
diff --git a/lib/App/Beam/Backup.pm b/lib/App/Beam/Backup.pm index ed8953b..c2da254 100644 --- a/lib/App/Beam/Backup.pm +++ b/lib/App/Beam/Backup.pm @@ -42,22 +42,13 @@ sub run { my $self = shift; #GetOptionsFromArray(\@_, ...); - my @items = split /\s+/, $self->get('core.items'); - if (@_) { - push @items, $self->names_of('item'); - foreach my $item (@_) { - $self->abend(EX_USAGE, "$item: no such item defined") - unless grep { $item eq $_ } @items; - } - @items = @_; - } + my @items = $self->check_items(@_); - $self->lock(); foreach my $item (@items) { my $backend = $self->{backend}{$self->get("item.$item.backend")}; - $backend->backup($item); + $self->{history}->top->begin_entry($item); + $self->{history}->top->finish_entry($item, $backend->backup($item)); } - $self->unlock(); } 1; |