Finance-Bank-Bundesschatz

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

Changes
lib/Finance/Bank/Bundesschatz.pm
lib/Finance/Bank/Bundesschatz.pod
examples/balance.pl
examples/balance-gpg.pl
Build.PL
Makefile.PL
MANIFEST
README
test.pl
META.yml                                 Module meta-data (added by MakeMaker)

examples/balance-gpg.pl  view on Meta::CPAN

#!/usr/bin/perl

# $Id: balance-gpg.pl,v 1.1.1.1 2003/10/08 19:07:06 florian Exp $

use Finance::Bank::Bundesschatz;
use GnuPG::Interface;
use IO::File;
use IO::Handle;
use YAML qw/Load/;

use strict;
use warnings;

examples/balance-gpg.pl  view on Meta::CPAN

		      [ qw/ Betrag amount / ],
		      [ qw/ Zinsen interest_amount / ],
		      [ qw/ KESt tax / ],
		      [ qw/ Gesamt amount_after_tax / ],
	));
	print "\n";
}


sub get_secrets {
        my $secrets = '/Users/florian/bin/bundesschatz.gpg';
        my $cipher  = IO::File->new;
        my $input   = IO::Handle->new;
        my $output  = IO::Handle->new;
        my $gnupg   = GnuPG::Interface->new;
        my $pid;
        my $plain;

        $cipher->open($secrets, 'r')
                or die sprintf("Couldn't open %s\n", $secrets);

lib/Finance/Bank/Bundesschatz.pod  view on Meta::CPAN

float or just as it gets it from the online banking system (default:
false).

=back

=head1 EXAMPLES

In the C<examples> directory of the distribution are two example scripts
which show the usage of this module. Both scripts can be used out of
the box and should represent a good starting point for a solution which
fits your particular needs (I use a copy of C<balance-gpg.pl> on a daily
basis).

=over

=item balance.pl

The very same script as seen in the C<SYNOPSIS>. Shows the basic usage,
defines all authentication settings directly in the script.

The main problem with this approach is of course the fact, that the
sensible authentication data is stored in clear text in the script
itself. Not a good thing at all if you're using it in an multiuser
environment or on a mobile computer.

But do not fear - help in form of GPG is on the way (see C<balance-gpg.pl>).

=item balance-gpg.pl

This script does the same thing as C<balance.pl> but gets all the
configuration settings from an C<GPG> encrypted file which is decrypted
on the fly at startup, C<GPG> will interactive ask for your passphrase.

To use this example script you need to set up C<GPG> and install
C<GnuPG::Interface>, C<IO::File>, C<IO::Handle> and C<YAML> on your
machine.

The encrypted file should have the following structure (in case of C<YAML>):