casa-mp-base

--- server/wallet-admin 2016-01-17 19:13:02.000000000 -0800

+++ /dev/null   2016-01-23 14:00:27.000000000 -0800

@@ -1,175 +0,0 @@

-#!/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);