<commit_before>#!/usr/bin/perl -w
#####################################################
#
# Copyright 2011 <NAME> <<EMAIL>>
# BSD-3 Licensed (see accompanying LICENSE file)
#
# Useful? tip 1KgeamVRTrU8DaBLRU2tv6VruwV9BRWDkm
#####################################################

use strict;
use File::Copy;
use Env qw(HOME);

# Where is your bitcoin data directory?
my $BITCOIN_DATA_DIR = "$HOME/Library/Application Support/Bitcoin/";
my $ACTIVE_WALLET_LOCATION = $BITCOIN_DATA_DIR.'wallet.dat';
# this should be an init'd git repo.
my $BACKUP_GIT_REPO = "$HOME/Documents/BTC_repo";

#####################################################

my $USAGE = <<END;
==== Bitcoin Wallet Management ====
USAGE:
 Backing up a wallet to the repository:
   manage-wallet.pl backup
     (If you have never backed up this wallet, you will be prompted for a name.)
 Activating a wallet for use with Bitcoin:
   manage-wallet.pl activate wallet-name
     (If the current wallet has changed, you will be prompted to save/commit it.)
END

# Make sure bitcoin client ins't running
if (&is_bitcoin_running()) {
    print "Bitcoin must be shutdown before running this script.\n";
    exit(1);
}
# Make sure this OS supports xattr (OS X only?)
if (!&is_xattr_available()) {
    print "This script requires the xattr command be available.\n";
}<commit_msg>Include 'show' in usage information.<commit_after>#!/usr/bin/perl -w
#####################################################
#
# Copyright 2011 <NAME> <<EMAIL>>
# BSD-3 Licensed (see accompanying LICENSE file)
#
# Useful? tip 1KgeamVRTrU8DaBLRU2tv6VruwV9BRWDkm
#####################################################

use strict;
use File::Copy;
use Env qw(HOME);

# Where is your bitcoin data directory?
my $BITCOIN_DATA_DIR = "$HOME/Library/Application Support/Bitcoin/";
my $ACTIVE_WALLET_LOCATION = $BITCOIN_DATA_DIR.'wallet.dat';
# this should be an init'd git repo.
my $BACKUP_GIT_REPO = "$HOME/Documents/BTC_repo";

#####################################################

my $USAGE = <<'END';
==== Bitcoin Wallet Management ====
USAGE:
 Determine which wallet is currently active
   $ manage-wallet.pl show
 Backing up a wallet to the repository:
   $ manage-wallet.pl backup
     (If you have never backed up this wallet, you will be prompted for a name.)
 Activating a wallet for use with Bitcoin:
   $ manage-wallet.pl activate wallet-name
     (If the current wallet has changed, you will be prompted to save/commit it.)
END

# Make sure bitcoin client ins't running
if (&is_bitcoin_running()) {
    print "Bitcoin must be shutdown before running this script.\n";
    exit(1);
}
# Make sure this OS supports xattr (OS X only?)
if (!&is_xattr_available()) {
    print "This script requires the xattr command be available.\n";
}
{'fraction_non_alphanumeric': 0.2098408104196816, 'fraction_numerical': 0.007959479015918957, 'mean_word_length': 4.971922246220302, 'pattern_counts': {'":': 0, '<': 13, '<?xml version=': 0, '>': 9, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '572353', 'n_tokens_mistral': 845, 'n_tokens_neox': 807, 'n_words': 288}