| 
      
            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 | 
              -   | 
               | 
               |