#!/usr/bin/perl

use strict;

use lib '/app/tools/common/lib';
use Common::DB::Item::Permission;
use Common::DB::Item::AccessLevel;
use Common::RSDB;
use Common::RSApp;


addCommand();



sub output
{
	my $string = shift;

	print "$string\n";
}

sub addCommand
{
	# Instantiate the application singleton object.
	#
	my $appSingleton = Common::RSApp->new(clientID => 1);

	my $coll = Common::DB::Item::AccessLevel->GetAll();
	my %accessLevels;
	while($coll->hasNext())
	{
		my $item = $coll->next();
		$accessLevels{$item->access_level_id()} = $item->name();
	}

	if(! keys %accessLevels)
	{
		return usage("Woops! No access levels found in the database.");
	}

	my $app;
	my $area;
	my $command;
	my $newPermission;

	COMMAND:
	output("Create new command...\n");
	$app = getInput("Enter application (eg. rps): ");
	$area = getInput("Enter area (eg. catalog): ");
	$command = getInput("Enter command (eg. show): ");

	while(my ($level,$label) = each %accessLevels)
	{
		my $newObj = Common::DB::Item::Permission->Lookup(application => $app,
													   area => $area,
													   command => $command,
													   access_level_id => $level);
		if($newObj && $newObj->access_level_id)
		{
			output("$label already has access to: $app - $area - $command");
		}
		else
		{
			$newObj = Common::DB::Item::Permission->Create();
			$newObj->application($app);
			$newObj->area($area);
			$newObj->command($command);
			$newObj->access_level_id($level);
			$newObj->enabled(1);

			$newObj->save();
			output("Success! Command created and $label granted access to: $app - $area - $command");
		}
	}

	my $another = getInput("\nCreate another? (y/N) ");
	if($another =~ /y(es)?/i)
	{
		goto COMMAND;
	}
	else
	{
		output("Thank you.");
	}

	return 1;
}

sub getInput
{
	my $prompt = shift;
	print $prompt;
	my $input = <STDIN>;
	chomp($input);
	return $input;
}

sub usage
{
	my $err = shift;
		
	print "ERROR: $err\n";
		
	return 1;
}