#!/usr/bin/perl
# $Id: cash,v 1.1 1994/10/27 12:16:01 cbbrowne Exp $ 
# Cash - shortened transaction assumed to come from "cash"
if (($#ARGV < 3) || ($#ARGV >4)) {
    print "Incorrect arguments\n";
    print "cash [date] [payee] [category] [amount] [optional comment]\n";
    print "example: cash -t KFC Lunch 3.86\n";
    die -1;
}
($date, $payee, $category, $amount, $comment) = @ARGV;
$txn = sprintf ("txn cash $date n/a '$payee' '$category' %.2f '$comment'",
		$amount);
system($txn);
