@command = ("cd /stars/games/$game_name; /usr/bin/wine \"/stars/prog/sahturnmerger.exe\" $game_name-turn-merge.ini >> /stars/games/$game_name/turn-merge-error.log 2>&1");
&handle_sys;

#
# Function: handle_sys
#
# Purpose:  Handle system calls, and their error messages.
#
#

sub handle_sys {
    $e_flag = 0;
AGAIN:
    $rc = 0xffff & system @command;
    if ($rc == 0) {
       $error_flag = 0;
#       print "handle_sys: exit 0\n";
    }
    elsif ($rc == 0xff00) {
#       print STDOUT "handle_sys: exit 0xff00\n";
        printf "system(%s) returned %#04x: ", "@command", $rc;
        print "command failed: $!\n";

        if ($error_flag == 1) {
           if ($e_flag == 0) {
              print "Trying again after 20 seconds.\n";
              sleep(20);
              $e_flag = 1;
              goto AGAIN;
           }
#          print STDOUT "handle_sys: error_flag == 1...exiting\n";
           exit;
        }
#       print STDOUT "handle_sys: error_flag != 1... exiting\n";
        exit;
    }
    elsif ($rc > 0x80) {
#       print STDOUT "handle_sys: exit 80\n";
        printf "system(%s) returned %#04x: ", "@command", $rc;
        print "ran with non-zero exit status $rc\n";
#       print STDOUT "handle_sys: exiting\n";
        exit;
    }
    else {
        printf "system(%s) returned %#04x: ", "@command", $rc;
        print "ran with ";
        if ($rc & 0x80) {
           $rc &= ~0x80;
           print "coredump from ";
        }
        print "signal $rc\n";
#       print STDOUT "handle_sys: exiting\n";
        exit;
    }
}