casa-mp-base
Public
Source
xxxxxxxxxx--- server/wallet-admin 2016-01-17 19:13:02.000000000 -0800+++ /dev/null 2016-01-23 14:00:27.000000000 -0800-#!/usr/bin/perl-#-# Wallet server administrative commands.--use 5.008;-use strict;-use warnings;--use Wallet::Admin;--##############################################################################-# Implementation-##############################################################################--# Parse and execute a command. We wrap this in a subroutine call for easier-# testing.-sub command {- die "Usage: wallet-admin <command> [<args> ...]\n" unless @_;- my $admin = Wallet::Admin->new;-- # Parse command-line options and dispatch to the appropriate calls.- my ($command, @args) = @_;- if ($command eq 'destroy') {- die "too many arguments to destroy\n" if @args;- print 'This will delete all data in the wallet database. Are you'- . ' sure (N/y)? ';- my $response = <STDIN>;- unless ($response and $response =~ /^y/i) {- die "Aborted\n";- }- $admin->destroy or die $admin->error, "\n";- } elsif ($command eq 'initialize') {- die "too many arguments to initialize\n" if @args > 1;- die "too few arguments to initialize\n" if @args < 1;- die "invalid admin principal $args[0]\n"- unless $args[0] =~ /^[^\@\s]+\@\S+$/;- $admin->initialize (@args) or die $admin->error, "\n";- } elsif ($command eq 'register') {- die "too many arguments to register\n" if @args > 3;- die "too few arguments to register\n" if @args < 3;- my ($object, $type, $class) = @args;- if ($object eq 'object') {- unless ($admin->register_object ($type, $class)) {- die $admin->error, "\n";- }- } elsif ($object eq 'verifier') {- unless ($admin->register_verifier ($type, $class)) {- die $admin->error, "\n";- }- } else {- die "only object or verifier is supported for register\n";- }- } elsif ($command eq 'upgrade') {- die "too many arguments to upgrade\n" if @args;- $admin->upgrade or die $admin->error, "\n";- } else {- die "unknown command $command\n";- }-}-command (@ARGV);-__END__--##############################################################################-# Documentation-##############################################################################--=for stopwords-metadata ACL hostname backend acl acls wildcard SQL Allbery verifier-MERCHANTABILITY NONINFRINGEMENT sublicense--=head1 NAME--wallet-admin - Wallet server administrative commands--=head1 SYNOPSIS--B<wallet-admin> I<command> [I<args> ...]--=head1 DESCRIPTION--B<wallet-admin> provides a command-line interface for performing-administrative actions for the wallet system, such as setting up a new-database or running reports. It is intended to be run on the wallet-server as a user with access to the wallet database and configuration.--This program is a fairly thin wrapper around Wallet::Admin that translates-command strings into method calls and returns the results.-