Add tokens list

lib/IpfsUpload.pm

@@ -74,6 +74,7 @@ sub startup($self) {
 	$r->get('/login')->to('Login#login');
 	$r->post('/auth')->to('Login#auth');
 	$r->get('/my')->to('Interface#landing');
+	$r->get('/my/tokens')->to('Interface#token_list');
 }
 
 1;

lib/IpfsUpload/Controller/Interface.pm

@@ -41,4 +41,16 @@ sub landing($c) {
 	})
 }
 
+sub token_list($c) {
+	my $uid = $c->session->{uid};
+	if (!defined $uid) {
+		return $c->redirect_to("/login");
+	}
+
+	return $c->users->list_tokens($uid)->then(sub ($tokens) {
+		$c->stash(tokens => $tokens);
+		$c->render('interface/tokens');
+	})
+}
+
 1;

templates/interface/tokens.html.ep

@@ -0,0 +1,25 @@
+% layout "default";
+% title "Uploads";
+<h1>Tokens</h1>
+<p>Here you can delete or generate tokens.</p>
+
+<table>
+	<tr>
+		<th>Token ID</th>
+		<th>App Name</th>
+		<th>Actions</th>
+	</tr>
+% for my $token (@$tokens) {
+	<tr>
+		<td><%= $token->{id} %></td>
+		<td><%= $token->{app_name} %></td>
+		<td>
+			<a href="/my/tokens/<%= $token->{id} %>/delete">Delete</a>
+		</td>
+	</tr>
+% }
+</table>
+
+<a href="/my/tokens/generate">
+	Generate Token
+</a>