X-Git-Url: https://git.sesse.net/?a=blobdiff_plain;f=remoteglot.pl;h=19f0446cb496128cc4fa4b04cf80f8d7ad345cdb;hb=4c690438b189e0656720b0e20eb09ec97b52727a;hp=699968f3afdccb6ec45a5cf6c73f670aa3c9905f;hpb=7e024a357aba48a02f638c48c7717dc172bab022;p=remoteglot

diff --git a/remoteglot.pl b/remoteglot.pl
index 699968f..19f0446 100755
--- a/remoteglot.pl
+++ b/remoteglot.pl
@@ -346,6 +346,9 @@ sub handle_position {
 	# ignore it.
 	if (defined($pos_calculating) && $pos->fen() eq $pos_calculating->fen()) {
 		$pos_calculating->{'result'} = $pos->{'result'};
+		for my $key ('white_clock', 'black_clock', 'white_clock_target', 'black_clock_target') {
+			$pos_calculating->{$key} //= $pos->{$key};
+		}
 		return;
 	}
 
@@ -1272,7 +1275,7 @@ sub find_clock_start {
 	}
 
 	my $id = id_for_pos($pos);
-	my $clock_info = $dbh->selectrow_hashref('SELECT * FROM clock_info WHERE id=?', undef, $id);
+	my $clock_info = $dbh->selectrow_hashref('SELECT * FROM clock_info WHERE id=? AND COALESCE(white_clock_target, black_clock_target) >= EXTRACT(EPOCH FROM (CURRENT_TIMESTAMP - INTERVAL \'1 day\'));', undef, $id);
 	if (defined($clock_info)) {
 		$pos->{'white_clock'} //= $clock_info->{'white_clock'};
 		$pos->{'black_clock'} //= $clock_info->{'black_clock'};
@@ -1336,7 +1339,7 @@ sub schedule_tb_lookup {
 	return if ($tb_lookup_running);
 
 	$tb_lookup_running = 1;
-	my $url = 'http://158.250.18.203:6904/tasks/addtask?auth.login=' .
+	my $url = 'http://tb7-api.chessok.com:6904/tasks/addtask?auth.login=' .
 		$remoteglotconf::tb_serial_key .
 		'&auth.password=aquarium&type=0&fen=' . 
 		URI::Escape::uri_escape($pos->fen());