add store phase
This commit is contained in:
@@ -93,7 +93,7 @@ phase.
|
|||||||
|
|
||||||
sub finalise_status {
|
sub finalise_status {
|
||||||
my $job = shift;
|
my $job = shift;
|
||||||
# use DDP; p $job->_statuslist;
|
# use DDP; p $job->_statuslist;
|
||||||
|
|
||||||
# fallback
|
# fallback
|
||||||
$job->status('error');
|
$job->status('error');
|
||||||
@@ -103,7 +103,7 @@ sub finalise_status {
|
|||||||
|
|
||||||
foreach my $status (reverse @{ $job->_statuslist }) {
|
foreach my $status (reverse @{ $job->_statuslist }) {
|
||||||
next if $status->phase
|
next if $status->phase
|
||||||
and $status->phase !~ m/^(?:check|early|main)$/;
|
and $status->phase !~ m/^(?:check|early|main|store)$/;
|
||||||
|
|
||||||
# done() from check phase should not be the action's done()
|
# done() from check phase should not be the action's done()
|
||||||
next if $status->phase eq 'check' and $status->is_ok;
|
next if $status->phase eq 'check' and $status->is_ok;
|
||||||
|
|||||||
@@ -12,7 +12,8 @@ use namespace::clean;
|
|||||||
has [qw/workers_check
|
has [qw/workers_check
|
||||||
workers_early
|
workers_early
|
||||||
workers_main
|
workers_main
|
||||||
workers_user/] => ( is => 'rw' );
|
workers_user
|
||||||
|
workers_store/] => ( is => 'rw' );
|
||||||
|
|
||||||
sub load_workers {
|
sub load_workers {
|
||||||
my $self = shift;
|
my $self = shift;
|
||||||
@@ -37,7 +38,7 @@ sub load_workers {
|
|||||||
my $workers = vars->{'workers'}->{$action} || {};
|
my $workers = vars->{'workers'}->{$action} || {};
|
||||||
#use DDP; p vars->{'workers'};
|
#use DDP; p vars->{'workers'};
|
||||||
|
|
||||||
foreach my $phase (qw/check early main user/) {
|
foreach my $phase (qw/check early main user store/) {
|
||||||
my $pname = "workers_${phase}";
|
my $pname = "workers_${phase}";
|
||||||
my @wset = ();
|
my @wset = ();
|
||||||
|
|
||||||
|
|||||||
@@ -69,7 +69,7 @@ sub run {
|
|||||||
|
|
||||||
# run other phases
|
# run other phases
|
||||||
if ($job->check_passed) {
|
if ($job->check_passed) {
|
||||||
$self->run_workers("workers_${_}") for qw/early main user/;
|
$self->run_workers("workers_${_}") for qw/early main user store/;
|
||||||
}
|
}
|
||||||
};
|
};
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user