diff options
Diffstat (limited to 'lib/App/Beam/Backup.pm')
| -rw-r--r-- | lib/App/Beam/Backup.pm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lib/App/Beam/Backup.pm b/lib/App/Beam/Backup.pm index c2da254..68d7360 100644 --- a/lib/App/Beam/Backup.pm +++ b/lib/App/Beam/Backup.pm @@ -7,6 +7,7 @@ require App::Beam; our @ISA = qw(App::Beam); use Unix::Sysexits; +use App::Beam::History::Entry qw(state_string); =head1 NAME @@ -43,11 +44,15 @@ sub run { #GetOptionsFromArray(\@_, ...); my @items = $self->check_items(@_); - + $self->debug(1, "creating backup " . $self->format_name); foreach my $item (@items) { + $self->debug(1, "backing up $item"); my $backend = $self->{backend}{$self->get("item.$item.backend")}; $self->{history}->top->begin_entry($item); - $self->{history}->top->finish_entry($item, $backend->backup($item)); + my $ret = $backend->backup($item); + $self->{history}->top->finish_entry($item, $ret); + $self->update_status($ret); + $self->debug(1, "$item: " . state_string($ret)); } } |