From 805e43e4a719b58c3bda97381fa022f2e6a41239 Mon Sep 17 00:00:00 2001
From: Shiar <shiar@shiar.org>
Date: Tue, 13 Nov 2007 23:36:27 +0000
Subject: [PATCH] parse ladder info from pvpgn logs

---
 pvpgnreport | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/pvpgnreport b/pvpgnreport
index 1a91ddf..6d601f6 100755
--- a/pvpgnreport
+++ b/pvpgnreport
@@ -32,9 +32,20 @@ sub reportplayers {
 	while (defined ($_ = readline $reportfile)) {
 		# ignore leading empty lines; stop if trailing
 		/\S/ or @player ? last : next;
-		my ($name, $result) = /^ (.*?) \s+ ([A-Z]+) \s*$/x
+		my ($name, $result, $ladder) = /^ (\S+) \s+ ([A-Z]+) \s* (.*)/x
 			or chomp, warn("Unknown pvpgn report player line: $_\n");
 		push @player, {name => $name, result => $result};
+		if ($ladder) {
+			my @ladderdata = $ladder =~ m{
+				^ \s* rating=(\d+) \s+ \[\#\d+\]
+				\s+ prob=([\d.]+)% \s+ K=(\d+) \s+ adj=([+-]\d+) \s* $
+			}x ? $player[-1]{ladder} = {
+				rating => $1,
+				prob => $2,
+				K => $3,
+				adj => $4,
+			} : warn("Unknown ladder details for player $name: $ladder\n");
+		}
 	}
 
 	my $i = -1;
-- 
2.30.0