changeset 229:cbbef11d7cac misc

Add support for parsing 'whereami' output with global coordinates.
author Matti Hamalainen <ccr@tnsp.org>
date Fri, 27 Jan 2012 20:39:35 +0200
parents c7e066bb1929
children 84e762667995
files log2template.pl
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/log2template.pl	Fri Dec 23 02:33:35 2011 +0200
+++ b/log2template.pl	Fri Jan 27 20:39:35 2012 +0200
@@ -223,13 +223,13 @@
     if ($s =~ /^You prod (.+?) like a stray cow\.$/o) {
       # Get 'short name'
       $$mob{"sname"} = $1;
-    } elsif ($s =~ /^You are in '.*?' in (.+?) on the continent of ([A-Z][a-z]+). \(Coordinates: (\d+)x, (\d+)y\)$/o) {
+    } elsif ($s =~ /^You are in '.*?' in (.+?) on the continent of ([A-Z][a-z]+). \(Coordinates: (\d+)x, (\d+)y(; Global: \d+x, \d+y)?\)$/o) {
       # Area, continent
       $$mob{"area"} = $1;
       $$mob{"continent"} = $2;
       $$mob{"xc"} = $3;
       $$mob{"yc"} = $4;
-    } elsif ($s =~ /^You are in '.*?', which is on the continent of ([A-Z][a-z]+). \(Coordinates: (\d)+x, (\d)+y\)$/o) {
+    } elsif ($s =~ /^You are in '.*?', which is on the continent of ([A-Z][a-z]+). \(Coordinates: (\d)+x, (\d)+y(; Global: \d+x, \d+y)?\)$/o) {
       # Area, continent
       $$mob{"area"} = $1;
       $$mob{"continent"} = $1;