Merge pull request #2834 from lethliel/auto_retrigger_service

[backend] retrigger service run after 10 minutes

src/backend/bs_service

@@ -173,21 +173,21 @@ sub run_source_update {
       push @run, "$myworkdir/out";
 
       mkdir("$myworkdir/out") || die("mkdir $myworkdir/out: $!\n");
-    
+
       BSUtil::printlog("Running command '@run'");
       # call the service
       if (! open(SERVICE, '-|')) {
         open(STDERR, ">&STDOUT");
         exec(@run);
         die("$run[0]: $!\n");
       }
-    
+
       # collect output
       my $output = '';
       while (<SERVICE>) {
         $output .= $_;
       }
-    
+
       BSUtil::printlog(" $name: $output") if $verbose;
 
       if (close SERVICE) {
@@ -203,6 +203,7 @@ sub run_source_update {
         # FAILURE, Create error file
 	$output =~ s/[\r\n\s]+$//s;
         BSUtil::cleandir('.');
+        die("500 remote execution error in $name detected\n") if $? >> 8 == 3;
 	BSUtil::writestr('_service_error', undef, "service $name failed:\n$output\n");
 	$error = 1;
       }

src/backend/bs_servicedispatch

@@ -177,6 +177,8 @@ sub runservice {
     $error = $@ if $@;
   } else {
     $error ||= 'error';
+    die("Transient error for $projid/$packid: $error") if $error =~ /^5/;
+    die("RPC error for $projid/$packid: $error") if $error !~ /^\d/;
     $error = "service daemon error:\n $error";
   }
   BSUtil::cleandir($odir);

src/backend/call-service-in-docker.sh

@@ -166,7 +166,7 @@ if [ $? -eq 0 ]; then
 else
  printlog "$CMD_OUT"
  echo "$CMD_OUT"
- RETURN="2"
+ RETURN="3"
 fi
 
 if [[ $DEBUG_DOCKER ]];then