Add discord_id

[ndwebbie.git] / lib / NDWeb / Controller / Users.pm

diff --git a/lib/NDWeb/Controller/Users.pm b/lib/NDWeb/Controller/Users.pm
index efb48d3fd155e0e718c83f860a93a6dfd048662a..117f1bde98a1ca785549c5bf49005db0411db6e2 100644 (file)
--- a/lib/NDWeb/Controller/Users.pm
+++ b/lib/NDWeb/Controller/Users.pm
@@ -29,7 +29,7 @@ sub index :Path :Args(0) {
        my $dbh = $c->model;
 
        my $query = $dbh->prepare(q{
-SELECT uid,username,pnick,array_to_string(array_agg(g.groupname),', ') AS groups
+SELECT uid,username,discord_id,pnick,array_to_string(array_agg(g.groupname),', ') AS groups
 FROM users u LEFT OUTER JOIN (groupmembers gm NATURAL JOIN groups g) USING (uid)
 WHERE uid > 0
 GROUP BY u.uid,username,pnick
@@ -169,7 +169,7 @@ sub postmail : Local {
        }
 
        my %mail = (
-               smtp => 'ruin.nu',
+               smtp => 'localhost',
                BCC      => (join ',',@emails),
                From    => 'NewDawn Command <nd@ruin.nu>',
                'Content-type' => 'text/plain; charset="UTF-8"',
@@ -216,6 +216,8 @@ ORDER BY time desc
                });
        $query->execute;
        $c->stash(sms => $query->fetchall_arrayref({}));
+
+       $c->stash(credits => $dbh->selectrow_array(q{SELECT credits FROM clickatell}));
 }
 
 sub postsms : Local {