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

client/example: Include tickid in state

Browse source
This commit is contained in:
Petr Baudis 2011-12-03 19:53:35 +01:00
parent 56c30d4086
commit 3d0fd3ab94
1 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

10
client/example.pl
View file

@ -39,7 +39,15 @@ sub tick($) {
$line =~ m/^([^ ]+) (.*)$/;
my ($type, $value) = ($1, $2);
if ($type eq 'energy') {
if ($type eq 'tick') {
if ($value =~ /\D/) {
print "[ee] type tick wrong value\n";
print $value . "\n";
exit(-1);
}
$state{tick} = $value;
} elsif ($type eq 'energy') {
if ($value =~ /\D/) {
print "[ee] type energy wrong value\n";
print $value . "\n";