Implement rudimentary website

perl6 · Dec 26, 2017 · 4354ecb · 4354ecb
1 parent 30a82a0
commit 4354ecb
Show file tree

Hide file tree

Showing 7 changed files with 124 additions and 0 deletions.
diff --git a/.cro.yml b/.cro.yml
@@ -0,0 +1,6 @@
+---
+name: hello
+cro: 1
+id: hello
+entrypoint: bin/server.p6
+...
diff --git a/.gitignore b/.gitignore
@@ -1 +1,2 @@
 /lib/.precomp
+/alerts.sqlite.db
diff --git a/META6.json b/META6.json
@@ -6,6 +6,7 @@
     "description"  : "Code for alerts.perl6.org and supporting IRC bot",
     "tags"         : [ "core dev" ],
     "depends"      : [
+        "Cro",
         "DBIish",
         "Subset::Helper"
     ],

diff --git a/bin/server.p6 b/bin/server.p6
@@ -0,0 +1,71 @@
+use lib <lib>;
+use Cro::HTTP::Router;
+use Cro::HTTP::Server;
+use P6lert::Model::Alerts;
+
+my $Alerts := P6lert::Model::Alerts.new;
+# my $CSS := $*PROGRAM.sibling('../assets/main.css').absolute;
+
+sub MAIN (Str:D :$host = 'localhost', UInt:D :$port = 10000) {
+    my $application = route {
+        get -> {
+            content 'text/html', html-render-alerts $Alerts.all
+        }
+        get -> 'alert', Int $id {
+            content 'text/html', html-render-alerts $Alerts.get: $id
+        }
+        get -> 'main.css' { static 'static/main.css' }#$CSS }
+    }
+
+    with Cro::HTTP::Server.new: :$host, :$port, :$application {
+        $^server.start;
+        say "Started server http://$host:$port";
+        react whenever signal SIGINT {
+            $server.stop;
+            exit;
+        }
+    }
+}
+
+sub html-render-alerts(*@alerts) {
+    html-layout-default '<ul id="alerts">'
+      ~ @alerts.map(-> $a {
+          q:to/✎✎✎✎✎/;
+          <li class="alert alert-\qq[$a.severity()]">
+            <p class="info"><a href="/alert/\qq[$a.id()]">#\qq[$a.id()]</a>
+              | \qq[$a.time-human()]
+              | posted by \qq[$a.creator()]
+              | severity: \qq[$a.severity()]
+              \qq[{"| affects: $a.affects()" if $a.affects}]
+
+            <p>\qq[$a.alert()]</p>
+          </li>
+          ✎✎✎✎✎
+      }) ~ '</ul>'
+}
+
+sub html-layout-default (Str:D $content) {
+    q:to/✎✎✎✎✎/;
+    <!DOCTYPE html>
+    <html lang="en">
+    <head>
+      <meta charset="utf-8">
+      <meta http-equiv="X-UA-Compatible" content="IE=edge">
+      <meta name="viewport" content="width=device-width, initial-scale=1">
+
+      <title>Perl 6 Alerts</title>
+      <link rel="stylesheet" href="/main.css">
+    </head>
+    <body>
+      <h1>Perl 6 Alerts</h1>
+      <div id="content">
+        \qq[$content]
+      </div>
+      <footer>
+        <small>Code for this website is available at
+        <a href="https://github.com/perl6/alerts">github.com/perl6/alerts</a>
+      </footer>
+    </body>
+    </html>
+    ✎✎✎✎✎
+}
diff --git a/lib/P6lert/Alert.pm6 b/lib/P6lert/Alert.pm6
@@ -10,3 +10,7 @@ has UInt:D     $.time     is required;
 has Str:D      $.creator  is required;
 has Str:D      $.affects  is required;
 has Severity:D $.severity is required;
+
+method time-human {
+    DateTime.new: $!time
+}
diff --git a/lib/P6lert/Model/Alerts.pm6 b/lib/P6lert/Model/Alerts.pm6
@@ -50,6 +50,15 @@ method all {
     }
 }
 
+method get (UInt:D $id) {
+    given $!dbh.prepare: ｢SELECT * FROM alerts where id = ?｣ {
+        LEAVE .finish;
+        .execute: $id;
+        if .row: :hash { P6lert::Alert.new: |$^alert }
+        else { Empty }
+    }
+}
+
 method delete (UInt:D $id) {
     given $!dbh.prepare: ｢DELETE FROM alerts WHERE id = ?｣ {
         .execute: $id;

diff --git a/static/main.css b/static/main.css
@@ -0,0 +1,32 @@
+
+body {
+    margin: 10px auto;
+    max-width: 1100px;
+    font-family: "Helvetica Neue", Helvetica, Arial, sans-serif;
+}
+
+#content {
+    padding: 10px 20px;
+    margin-bottom: 20px;
+    border-radius: 4px;
+    border: 1px solid #eee;
+}
+
+code, kbd, pre, samp {
+    font-family: Menlo, Monaco, Consolas, "Courier New", monospace;
+}
+
+h1 {
+    font-size: 120%;
+    font-weight: normal;
+}
+
+footer, footer * {
+    color: #999;
+}
+
+#alerts {
+    list-style-type: none;
+    padding-left: 0;
+    margin-left: 0;
+}