View | Details | Raw Unified | Return to bug 34685
Collapse All | Expand All

(-)a/installer/data/mysql/updatedatabase.pl (-3 / +4 lines)
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_occurred;
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_occurred++;
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_occurred++;
24314
    }
24317
    }
24315
24318
    exit $error_occurred ? 1 : 0;
24316
24317
}
24319
}
24318
24320
24319
exit;
24321
exit;
24320
- 

Return to bug 34685