add insert script

insert.pl

@@ -0,0 +1,34 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+use Carp qw(croak);
+use Mojo::SQLite;
+use Mojo::File;
+use feature qw(say);
+
+my $db = Mojo::SQLite->new('sqlite:site.db')->db;
+
+my $title   = shift || croak 'Expected $1 to be title';
+my $slug    = shift || croak 'Expected $2 to be slug';
+my $content = shift || croak 'Expected $3 to be md file';
+
+$content = Mojo::File->new($content)->slurp;
+
+my $post = {
+    title   => $title,
+    slug    => $slug,
+    content => $content
+};
+
+if ( my $old_post = $db->select( 'posts', ['id'], { slug => $slug } )->hash ) {
+    say 'Updating post.';
+    $db->update( 'posts', $post, { id => $old_post->{id} } );
+}
+else {
+    say 'Inserting post.';
+    $db->insert( 'posts', $post );
+}
+
+say 'Finished.';