X-Git-Url: https://git.sesse.net/?p=remoteglot;a=blobdiff_plain;f=remoteglot.pl;h=9c2130cc55fca075cb853c0904614d322a7fd3e3;hp=6d07c5bd6049d773e2da54633d215bd5b9784000;hb=5db695ca7d5f0df1cbf6592f2cc48ca020926020;hpb=fa21b3ab26b5bc31eb2c0f51af68277903ae9c9a

diff --git a/remoteglot.pl b/remoteglot.pl
index 6d07c5b..9c2130c 100755
--- a/remoteglot.pl
+++ b/remoteglot.pl
@@ -1009,12 +1009,15 @@ sub extract_clock {
 
 	if (exists($comments->{$white_key}) &&
 	    exists($comments->{$black_key}) &&
-	    $comments->{$white_key} =~ /tl=(\d+:\d+:\d+)/ &&
-	    $comments->{$black_key} =~ /tl=(\d+:\d+:\d+)/) {
-		$comments->{$white_key} =~ /tl=(\d+:\d+:\d+)/;
+	    $comments->{$white_key} =~ /(?:tl=|clk )(\d+:\d+:\d+)/ &&
+	    $comments->{$black_key} =~ /(?:tl=|clk )(\d+:\d+:\d+)/) {
+		$comments->{$white_key} =~ /(?:tl=|clk )(\d+:\d+:\d+)/;
 		$pos->{'white_clock'} = $1;
-		$comments->{$black_key} =~ /tl=(\d+:\d+:\d+)/;
+		$comments->{$black_key} =~ /(?:tl=|clk )(\d+:\d+:\d+)/;
 		$pos->{'black_clock'} = $1;
+
+		$pos->{'white_clock'} =~ s/\b(\d)\b/0$1/g;
+		$pos->{'black_clock'} =~ s/\b(\d)\b/0$1/g;
 		return;
 	}