From 404cd5d3bf348e16f53bf53aca1dfe34df16180b Mon Sep 17 00:00:00 2001
From: JT Smith <jt@lacunaexpanse.com>
Date: Sat, 25 Sep 2010 10:33:45 -0500
Subject: [PATCH] added become this user

---
 lib/Lacuna/Web/Admin.pm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/lib/Lacuna/Web/Admin.pm b/lib/Lacuna/Web/Admin.pm
index b49c0c0d..f0859aef 100644
--- a/lib/Lacuna/Web/Admin.pm
+++ b/lib/Lacuna/Web/Admin.pm
@@ -448,6 +448,19 @@ sub www_toggle_isolationist {
     return $self->www_view_empire($request, $id);
 }
 
+sub www_become_empire {
+    my ($self, $request, $id) = @_;
+    $id ||= $request->param('id');
+    my $empire = Lacuna->db->resultset('Lacuna::DB::Result::Empire')->find($id);
+    unless (defined $empire) {
+        confess [404, 'Empire not found.'];
+    }
+    my $uri = Lacuna->config->get('server_url');
+    $uri .= '#session_id=%s';
+    $uri = sprintf $uri, $empire->start_session({ api_key => 'admin_console' })->id;
+    [$uri, { status => 302 } ]
+}
+
 sub www_view_empire {
     my ($self, $request, $id) = @_;
     $id ||= $request->param('id');
@@ -470,6 +483,7 @@ sub www_view_empire {
     $out .= sprintf('<tr><th>University Level</th><td>%s</td><td></td></tr>', $empire->university_level);
     $out .= sprintf('<tr><th>Isolationist</th><td>%s</td><td><a href="/admin/toggle/isolationist?id=%s">Toggle</a></td></tr>', $empire->is_isolationist, $empire->id);
     $out .= '</table><ul>';
+    $out .= sprintf('<li><a href="/admin/become/empire?empire_id=%s">Become This Empire In-Game</a></li>', $empire->id);
     $out .= sprintf('<li><a href="/admin/search/bodies?empire_id=%s">View All Colonies</a></li>', $empire->id);
     $out .= sprintf('<li><a href="/admin/send/test/message?empire_id=%s">Send Developer Test Email</a></li>', $empire->id);
     $out .= sprintf('<li><a href="/admin/delete/empire?empire_id=%s" onclick="return confirm(\'Are you sure?\')">Delete Empire</a> (Be Careful)</li>', $empire->id);
-- 
2.51.2