#!/usr/bin/perl
use strict;

use AwesomeGrid;
use AwesomeGrid::Config;
use AwesomeGrid::Keyring;

my $cmd = shift;

if ($cmd eq 'initialize') {
	AwesomeGrid::Keyring::initialize();
} elsif ($cmd eq 'import') {
	AwesomeGrid::Keyring::import_key(shift);
} elsif ($cmd eq 'export') {
	my $config = AwesomeGrid::Config::config();
	print "gpg-id: ",$config->{'gpg-id'},"\n";
	AwesomeGrid::Keyring::export_key($config->{'gpg-id'});
} elsif ($cmd eq 'list') {
	AwesomeGrid::Keyring::list();
} elsif ($cmd eq 'gpg') {
	AwesomeGrid::Keyring::gpg(@ARGV);
}