From 3d0fd3ab94adaf31aea428ae9a7a975424a9dfb3 Mon Sep 17 00:00:00 2001
From: Petr Baudis <pasky@ucw.cz>
Date: Sat, 3 Dec 2011 19:53:35 +0100
Subject: [PATCH] client/example: Include tickid in state

---
 client/example.pl | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/client/example.pl b/client/example.pl
index ab72aff..4b80043 100755
--- a/client/example.pl
+++ b/client/example.pl
@@ -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";