Allow deleting tokens

lib/IpfsUpload.pm

@@ -78,6 +78,7 @@ sub startup($self) {
 
 	$r->get('/my/tokens/generate')->to('Interface#gen_token_get');
 	$r->post('/my/tokens/generate')->to('Interface#gen_token_post');
+	$r->get('/my/tokens/#id/delete')->to('Interface#del_token');
 }
 
 1;

lib/IpfsUpload/Controller/Interface.pm

@@ -82,4 +82,16 @@ sub gen_token_get($c) {
 	return $c->render('interface/generateToken');
 }
 
+sub del_token($c) {
+	my $uid = $c->session->{uid};
+	if (!defined $uid) {
+		return $c->redirect_to("/login");
+	}
+
+	return $c->users->del_token($uid, $c->param('id'))->then(sub {
+		$c->flash(msg => 'Token deleted.');
+		return $c->redirect_to('/my/tokens')
+	});
+}
+
 1;

lib/IpfsUpload/Model/Users.pm

@@ -39,6 +39,16 @@ sub gen_token($self, $uid, $app_name) {
 	});
 }
 
+sub del_token($self, $uid, $id) {
+	return $self->pg->db->delete_p(
+		'access_token',
+		{
+			uid => $uid,
+			id  => $id,
+		}
+	);
+}
+
 sub list_tokens($self, $uid) {
 	return $self->pg->db->select_p('access_token', ['uid', 'app_name', 'id'], {
 		uid => $uid,
@@ -58,5 +68,4 @@ sub getOrMake($self, $username) {
 	});
 }
 
-
 1;