#!/usr/bin/perl
use strict;
use warnings;

use FindBin qw( $RealBin );
use lib $RealBin;
use Journalizer;

use IO::All;

my $io =
      ( not -t STDIN ) ? io->stdin
    : ( @ARGV == 1 ) ? io( $ARGV[0] )
    : die "usage: $0 { filename | <input }\n";

my @lines = $io->slurp;

my $title = shift @lines;
die "No title specified -- must be first line of input\n" unless defined $title;

my $body = @lines
    ? Journalizer::Formatter::format( join '', @lines )
    : die "No body specified\n";

my $newid =
    eval { Journalizer->add_entry( { title => $title, body => $body, } ); };
if ($@)
{
    die "An error occurred posting: $@\n";
}
else
{
    print "Entry has been successfully posted as $newid\n";
}