X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?a=blobdiff_plain;f=SCX%2FRaceParser.pm;h=e969a09c7a09c2f03653f82a845922d5d3c1605f;hb=8f29704c1e17195a4e195872ed518dd6d2f0dd62;hp=51f06762408ad458cef7abc7d14e4ab525027557;hpb=113a957a90fa08bd75eb5f2d48b529bcc1eb860c;p=slotcarman.git

diff --git a/SCX/RaceParser.pm b/SCX/RaceParser.pm
index 51f0676..e969a09 100644
--- a/SCX/RaceParser.pm
+++ b/SCX/RaceParser.pm
@@ -41,7 +41,7 @@ sub log_print {
 		my $gen = 8;
 		while ($gen) {
 			rename $self->{logfile} . '.' . $gen . '.bz2',
-				$self->{logfile} . '.' . $gen+1 . '.bz2';
+				$self->{logfile} . '.' . ($gen+1) . '.bz2';
 			$gen--;
 		}
 
@@ -132,5 +132,29 @@ sub controller_status {
 	}
 }
 
+sub standings {
+	my ($self, @order) = @_;
+
+	return 0; # for now
+	for my $i (0..$#order) {
+		my $car_id = $order[$i];
+		if ($self->track->car($car_id)->{order} != $i) {
+			print $self->now(), " car $car_id out of order (we: ",
+				$self->track->car($car_id)->{order},
+				", controller unit: $i)\n";
+		}
+	}
+}
+
+sub car_lap_time {
+	my ($self, $car_id, $lap, $time) = @_;
+
+	if ($self->track->car($car_id)->{lap} != $lap) {
+		print $self->now(), " car $car_id lap mismatch - we: ",
+			$self->track->car($car_id)->{lap},
+			", controller unit: $lap\n";
+	}
+}
+
 1;