domain listing

lib/cyberman.pm

@@ -1,5 +1,9 @@
 package cyberman;
+
 use Dancer2;
+
+use cyberman::Domains;
+
 use Dancer2::Plugin::Database;
 use Digest::Bcrypt;
 use Math::Random::Secure qw(rand irand);
@@ -64,7 +68,10 @@ get qr{^/(index)?$} => sub {
   if (!vars->{auth}) {
     return template 'index';
   }
-  return "well done, you logged in, nothing to see yet";
+
+  template 'redir' => {
+    "redir" => "domains",
+  };
 };
 
 post '/register' => sub {
@@ -171,8 +178,8 @@ post '/login' => sub {
   cookie id => $user->{"id"};
   cookie token => $token;
 
-  template redir => {
-    "redir" => "index",
+  template 'redir' => {
+    "redir" => "domains",
   };
 };
 

lib/cyberman/Domains.pm

@@ -0,0 +1,23 @@
+package cyberman::Domains;
+
+use Dancer2 appname => "cyberman";
+use Dancer2::Plugin::Database;
+
+get '/domains' => sub {
+  return template 'redir' => {
+    "redir" => "index",
+  } unless vars->{"auth"};
+
+  my @domains = database->quick_select(
+    "domain",
+    {
+      "ownerid" => vars->{"auth"},
+    },
+  );
+
+  template 'domains' => {
+    "domains" => \@domains,
+  }
+};
+
+true;

schema.sql

@@ -14,3 +14,10 @@ create table session (
   since integer not null,
   token text not null
 );
+
+drop table if exists domain;
+create table domain (
+  id integer primary key,
+  name string not null,
+  ownerid integer not null
+)

views/domains.tt

@@ -0,0 +1,45 @@
+<center>
+  <br />
+  <h1>Your Domains</h1>
+  <br />
+</center>
+
+<div class="body">
+  <% IF domains.size > 0 %>
+  <em>
+    <% domains.size %>
+    <% IF domains.size == 1 %>
+    domain
+    <% ELSE %>
+    domains
+    <% END %>
+  </em>
+
+  <br />
+
+  <table class="domains">
+    <tr>
+      <td>
+        <strong>Domain name</strong>
+      </td>
+      <td>
+        <strong>Actions</strong>
+      </td>
+    </tr>
+    <% FOREACH d IN domains %>
+    <tr>
+      <td>
+        <% d.name | html_entity %>.cyb
+      </td>
+      <td>
+        [&nbsp;<a class="bracketButton" href="domains/<% d.id %>/edit">edit</a>&nbsp;]
+        [&nbsp;<a class="bracketButton" href="domains/<% d.id %>/remove">remove</a>&nbsp;]
+      </td>
+    </tr>
+    <% END %>
+  </table>
+
+  <% ELSE %>
+  You don't have any domains registered.
+  <% END %>
+</div>

views/layouts/main.tt

@@ -37,6 +37,9 @@ a.bracketButton:hover {
 form.login>table>tbody>tr>td>label {
   margin-right: 10px;
 }
+table.domains>tbody>tr>td:first-child>* {
+  margin-right: 2em;
+}
 
 .msgBox {
   border: 1px solid white;