#!/usr/bin/perl
$name = "createcategory";
# createcategory: creates an account
require "cbbshutils.pl";
($catname, $catdesc, $tax) = @ARGV;
if (($#ARGV > 2) || ($catname eq "") || ($catdesc eq "")) {
   print "Error: incorrect arguments @ARGV\n";
   print "$name [category name] [category description] [tax code]\n";
   print "(the tax code is optional).\n\n";
   print "To delete a category, use the -d option\n";
   print "Examples:\n";
   print "dantzig:> $name 'Salary' 'Salary' 'X'\n";
   print "dantzig:> $name 'Xmas Gifts' 'Christmas Gifts'\n";
   print "dantzig:> $name -d 'Salary'  # Deletes the category\n";
   die -1;
}  

# Everything is ok; create the category, and put an entry in the "category"
# database
if ($catname eq "-d") {
    if ($CATS{$catdesc} eq "") {
	print "Category [$catdesc] does not exist to be deleted\n";
	die -1;
    } else {
	&delete_cat("$catdesc::");
    }
} else {
    &insert_cat("$catname:$catdesc:$tax");
}
