Completed the cron script and changed moment to use local time.

assets/js/app.js

@@ -294,7 +294,7 @@
         template: Mosh.template('latest-mosh-item'),
         render: function() {
             this.model.attributes.age
-                = moment.utc( this.model.attributes.created ).from(moment.utc());
+                = moment( this.model.attributes.created ).from(moment());
             this.$el.html( this.template( this.model.attributes ) );
             return this;
         },

cron/expire-moshes.pl

@@ -1,4 +1,4 @@
-#!/bin/env perl
+#!/usr/bin/env perl
 
 #
 # Simple script that can be cron'd to expire moshes that are past
@@ -10,32 +10,40 @@
 use DateTime;
 
 my %details = (
-    dbtype => 'sqlite',
+    dbtype => 'SQLite',
 
     # If above dbtype is the default SQLite, use this:
-    database => 'dbname=./db/moshes.sqlite',
+    database => 'dbname=/path/to/stcm/db/mosh.sqlite',
 
     # For a real DB ie. MySQL, set the dbtype accordingly,
     # comment the above database key, and uncomment these.
-#    database => 'moshes',
+#    database => 'spinaltapcodemosh',
 #    username => 'myusername',
 #    password => 'mypassword',
 );
 
 my $dbi_resource = "dbi:$details{dbtype}:$details{database}";
-my $dbi = DBI->new($dbi_resource, $details{username}, $details{password});
+my $dbi = DBI->connect($dbi_resource, $details{username}, $details{password})
+    or die("Unable to connect to DB: " . $DBI::errstr);
 
-my $dt_now = DateTime->now();
 my %dates = (
-    2 => $dt_now->
-
+    2 => date_previous( months => 1 ),
+    3 => date_previous( weeks  => 1 ),
+    4 => date_previous( days   => 1 ),
+    5 => date_previous( hours  => 1 ),
 );
 
-my $sth = $dbi->prepare('DELETE FROM moshes WHERE expiry = ? AND created < ?');
-for (my ($expiry, $before_date) = each %dates) {
-    $sth->execute($expiry, $before_date);
+my $sth = $dbi->prepare('DELETE FROM moshes WHERE expiry = ? AND created < ?')
+    or die("Unable to prepare statement: " . $dbi->errstr);
+while (my ($expiry, $before_date) = each(%dates)) {
+    $sth->execute($expiry, $before_date)
+        or die("Failed to execute statement: " . $sth->errstr);
 }
 
-
+sub date_previous {
+    return sprintf "%s %s",
+        DateTime->now( time_zone => 'local' )->subtract(@_)->ymd,
+        DateTime->now( time_zone => 'local' )->subtract(@_)->hms;
+}
 
 

lib/SpinalTapCodeMosh.pm

@@ -4,6 +4,7 @@ use Dancer::Plugin::Database;
 
 use LWP::Simple qw();
 use Data::UUID;
+use DateTime;
 use HTTP::Status qw(:constants);
 use JSON qw();
 use Digest::SHA1 qw();
@@ -53,11 +54,16 @@ post '/mosh' => sub {
     my %data = map  { $_ => params->{$_} }
                grep { $_ ~~ \@mosh_fields } keys params('body');
 
+    # Set the created datetime to be the local one.
+    my $dt_now = DateTime->now( time_zone => 'local' );
+    $data{created} = $dt_now->ymd . " " . $dt_now->hms;
+
     # We want a unique ID, which isn't as long as a Donkey's cock.
     $data{id}
         = substr Digest::SHA1::sha1_hex( Data::UUID->new->create_str ), 0, 10;
     my $inserted = database->quick_insert('moshes', \%data);
 
+
     my $return_data = { created => $inserted };
     if ($inserted) {
         $return_data->{mosh} = \%data;

views/minified-css.tt

@@ -1 +1 @@
-<link rel="stylesheet" type="text/css" href="/assets/all-9VU1iEwE.css">
+<link rel="stylesheet" type="text/css" href="/assets/all-s9BtZspL.css">

views/minified-js.tt

@@ -1 +1 @@
-<script type="text/javascript" src="/assets/all-yrhxqbS4.js"></script>
+<script type="text/javascript" src="/assets/all-qh518z6a.js"></script>