#!/usr/bin/perl
# Written by Craig Maloney
# Released under the GPL

$directory = "/home/craig/journal";

# Configuration ends
($DAY, $MONTH, $YEAR) = (localtime)[3,4,5];
$YEAR=$YEAR+1900;
$MONTH++;
$suffix = sprintf ("%4d%02d%02d", $YEAR, $MONTH, $DAY);
$file =  qq($directory/$suffix.txt);
if (@ARGV) {
	open FILE, ">>$file";
	foreach $i (@ARGV) {
		print FILE "$i\n";
	}
} else {
	exec ("vim $file");
}