Initial commit

tadzik · Jun 22, 2012 · 4cacb2c · 4cacb2c
commit 4cacb2c
Show file tree

Hide file tree

Showing 3 changed files with 49 additions and 0 deletions.
diff --git a/blog.db b/blog.db
diff --git a/views/index.tt b/views/index.tt
@@ -0,0 +1,22 @@
+<!DOCTYPE HTML>
+<html lang="en-US">
+    <head>
+    	<meta charset="UTF-8">
+    	<title>źblog</title>
+    </head>
+    <body>
+% my %args = @_[0];
+% for %args<articles>.list -> $art {
+        <h2> <%= $art<title> %> </h2>
+        <i><small> Published: <%= $art<pubdate> %> </small></i>
+        <p>  <%= $art<text> %> </p>
+        <hr />
+% }
+    <form method='POST' action='/post'>
+        Title: <input name='title' type='text'></input><br/>
+        Text:<br/>
+        <textarea name='text' cols='72' rows='20'></textarea><br/>
+        <input type='submit'></input>
+    </form>
+    </body>
+</html>
diff --git a/źblog.pl b/źblog.pl
@@ -0,0 +1,27 @@
+use Bailador; Bailador::import;
+use DBIish;
+
+my $db = DBIish.connect('SQLite', database => 'blog.db');
+
+sub get-articles {
+    my $sth = $db.prepare: 'SELECT * FROM articles';
+    $sth.execute;
+    return $sth.fetchall_arrayref.map: {
+        { title => $_[0],
+          pubdate => $_[1],
+          text => $_[2] }
+    };
+}
+
+get '/' => sub {
+    template 'index.tt', { articles => get-articles };
+}
+
+post '/post' => sub {
+    my $p = request.params;
+    my $sth = $db.prepare: 'INSERT INTO articles VALUES (?, datetime(?), ?)';
+    $sth.execute($p<title>, DateTime.now.posix, $p<text>);
+    "ok, done";
+}
+
+baile;