+sub handle_uci {
+ my ($line) = @_;
+
+ chomp $line;
+ $line =~ tr/\r//d;
+ print UCILOG "<= $line\n";
+ if ($line =~ /^info/) {
+ my (@infos) = split / /, $line;
+ shift @infos;
+
+ parse_infos(@infos);
+ }
+ if ($line =~ /^id/) {
+ my (@ids) = split / /, $line;
+ shift @ids;
+
+ parse_ids(@ids);
+ }
+}
+