From: Steinar H. Gunderson <sgunderson@bigfoot.com>
Date: Wed, 20 Jan 2016 22:35:52 +0000 (+0100)
Subject: Slightly more detailed PGN error messages.
X-Git-Url: https://git.sesse.net/?p=remoteglot;a=commitdiff_plain;h=81935352427e8812bda89c856be7ee3ce36f3eb8

Slightly more detailed PGN error messages.
---

diff --git a/remoteglot.pl b/remoteglot.pl
index c35a051..8293238 100755
--- a/remoteglot.pl
+++ b/remoteglot.pl
@@ -275,8 +275,12 @@ sub handle_pgn {
 	}
 
 	my $pgn = Chess::PGN::Parse->new(undef, $body);
-	if (!defined($pgn) || !$pgn->read_game() || $body !~ /^\[/) {
-		warn "Error in parsing PGN from $url\n";
+	if (!defined($pgn)) {
+		warn "Error in parsing PGN from $url [body='$body']\n";
+	} elsif (!$pgn->read_game()) {
+		warn "Error in reading PGN game from $url [body='$body']\n";
+	} elsif ($body !~ /^\[/) {
+		warn "Malformed PGN from $url [body='$body']\n";
 	} else {
 		eval {
 			# Skip to the right game.