casa-mp-base

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

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

@@ -1,695 +0,0 @@

-#!/usr/bin/perl

-#

-# Wallet server for storing and retrieving secure data.

-

-use 5.008;

-use strict;

-use warnings;

-

-use Getopt::Long qw(GetOptions);

-use Sys::Syslog qw(openlog syslog);

-use Wallet::Server;

-

-# Set to zero to suppress syslog logging, which is used for testing and for

-# the -q option.  Set to a reference to a string to append messages to that

-# string instead.

-our $SYSLOG;

-$SYSLOG = 1 unless defined $SYSLOG;

-

-##############################################################################

-# Logging

-##############################################################################

-

-# Initialize logging.

-sub log_init {

-    if (ref $SYSLOG) {

-        $$SYSLOG = '';

-    } elsif ($SYSLOG) {

-        openlog ('wallet-backend', 'pid', 'auth');

-    }

-}

-

-# Get an identity string for the user suitable for including in log messages.

-sub identity {

-    my $identity = '';

-    if ($ENV{REMOTE_USER}) {

-        $identity = $ENV{REMOTE_USER};

-        my $host = $ENV{REMOTE_HOST} || $ENV{REMOTE_ADDR};

-        $identity .= " ($host)" if $host;

-    }

-    return $identity;

-}

-

-# Log an error message to both syslog and to stderr and exit with a non-zero

-# status.

-sub error {

-    my $message = join ('', @_);

-    if ($SYSLOG) {

-        my $identity = identity;

-        my $log;

-        if ($identity) {

-            $log = "error for $identity: $message";

-        } else {

-            $log = "error: $message";

-        }

-        $log =~ s/[^\x20-\x7e]/_/g;

-        if (ref $SYSLOG) {

-            $$SYSLOG .= "$log\n";

-        } else {

-            syslog ('err', "%s", $log);

-        }

-    }

-    die "$message\n";

-}

-

-# Log a wallet failure message for a given command to both syslog and to

-# stderr and exit with a non-zero status.  Takes the message and the command

-# that was being run.

-sub failure {

-    my ($message, @command) = @_;

-    if ($SYSLOG) {

-        my $log = "command @command from " . identity . " failed: $message";

-        $log =~ s/[^\x20-\x7e]/_/g;

-        if (ref $SYSLOG) {

-            $$SYSLOG .= "$log\n";

-        } else {

-            syslog ('err', "%s", $log);

-        }

-    }

-    die "$message\n";

-}

-

-# Log a wallet success message for a given command.

-sub success {

-    my (@command) = @_;

-    if ($SYSLOG) {

-        my $log = "command @command from " . identity . " succeeded";

-        $log =~ s/[^\x20-\x7e]/_/g;

-        if (ref $SYSLOG) {