Lines 24295-24306
unless ( $ENV{HTTP_HOST} ) { # Is that correct?
Link Here
|
24295 |
my $files = get_db_entries; |
24295 |
my $files = get_db_entries; |
24296 |
my $report = update( $files, { force => $force } ); |
24296 |
my $report = update( $files, { force => $force } ); |
24297 |
|
24297 |
|
|
|
24298 |
my $error_code = 0; |
24298 |
for my $s ( @{ $report->{success} } ) { |
24299 |
for my $s ( @{ $report->{success} } ) { |
24299 |
say Encode::encode_utf8(join "\n", @{$s->{output}}); |
24300 |
say Encode::encode_utf8(join "\n", @{$s->{output}}); |
24300 |
} |
24301 |
} |
24301 |
for my $e ( @{ $report->{error} } ) { |
24302 |
for my $e ( @{ $report->{error} } ) { |
24302 |
say Encode::encode_utf8(join "\n", @{$e->{output}}); |
24303 |
say Encode::encode_utf8(join "\n", @{$e->{output}}); |
24303 |
say Encode::encode_utf8("ERROR - " . $e->{error}); |
24304 |
say Encode::encode_utf8("ERROR - " . $e->{error}); |
|
|
24305 |
$error_code = 1; |
24304 |
} |
24306 |
} |
24305 |
|
24307 |
|
24306 |
my $atomic_update_files = get_atomic_updates; |
24308 |
my $atomic_update_files = get_atomic_updates; |
Lines 24311-24319
unless ( $ENV{HTTP_HOST} ) { # Is that correct?
Link Here
|
24311 |
for my $e ( @{ $report->{error} } ) { |
24313 |
for my $e ( @{ $report->{error} } ) { |
24312 |
say Encode::encode_utf8(join "\n", @{$e->{output}}); |
24314 |
say Encode::encode_utf8(join "\n", @{$e->{output}}); |
24313 |
say Encode::encode_utf8("ERROR - " . $e->{error}); |
24315 |
say Encode::encode_utf8("ERROR - " . $e->{error}); |
|
|
24316 |
$error_code = 1; |
24314 |
} |
24317 |
} |
24315 |
|
24318 |
exit $error_code; |
24316 |
|
|
|
24317 |
} |
24319 |
} |
24318 |
|
24320 |
|
24319 |
exit; |
24321 |
exit; |
24320 |
- |
|
|