From 9ae7827f704b12b614b2352d3a2b06a1dbc4b3bd Mon Sep 17 00:00:00 2001
From: Michael Andreen <harv@ruin.nu>
Date: Thu, 3 Sep 2009 10:15:41 +0200
Subject: [PATCH] Adding coords and tick to intel messages

---
 lib/NDWeb/Controller/Members.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/lib/NDWeb/Controller/Members.pm b/lib/NDWeb/Controller/Members.pm
index 9d7afba..81a1238 100644
--- a/lib/NDWeb/Controller/Members.pm
+++ b/lib/NDWeb/Controller/Members.pm
@@ -366,6 +366,11 @@ sub postintelmessage : Local {
 		}
 	}
 
+	my ($coords,$tick) = $c->model->selectrow_array(q{
+SELECT coords(x,y,z), tick() FROM current_planet_stats WHERE pid = $1
+		}, undef, $c->user->planet);
+
+	$c->req->param(message => "[i]Posted by $coords at tick $tick [/i]\n\n" . $c->req->param('message'));
 	$c->forward('/forum/insertThread',[12]);
 	$c->forward('/forum/insertPost',[$c->stash->{thread}]);
 	$c->flash(intelmessage => 1);
-- 
2.39.2