brmlab/brmlife
4
0
Fork 0
mirror of https://github.com/brmlab/brmlife.git synced 2025-08-01 17:33:35 +02:00
Code Issues Projects Releases Packages Wiki Activity

Example client: GNU Screen needs explicit locking

Browse source
This commit is contained in:
Petr Baudis 2011-12-27 03:25:00 +01:00
parent 41492f32bf
commit f2ca1972a5
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
client/example.pl
View file

@ -86,8 +86,15 @@ sub tick($$) {
my $g = 1 + int rand(2);
print "[ii] bred $id ($g)\n";
#open LOG, ">>bred.log"; print LOG "$state->{agent_id} -> $id ($g)\n"; close LOG;
# GNU screen is severly broken and will silently fail
# to spawn in case of a race.
use Time::HiRes;
while (!mkdir("_screen_excl")) { Time::HiRes::usleep(5000); }
# The child will remove _screen_excl.
#system("screen sh -c './$0 $remote_port $id $g; read x'");
system("screen ./$0 $remote_port $id $g");
$state->{last_bred} = $value;
} elsif ($type eq 'agent_id') {
@ -291,6 +298,7 @@ if ($bred or not $agentid) {
}
print $socket "\r\n";
print "[ii] agent created\r\n";
rmdir "_screen_excl";
# Start tick loop