#!/usr/bin/perl
use strict;
$| = 1;
# parse command line options -- see perldocs for info
my $opts = {keyfile => $ENV{HOME}.'/.wachovia'};
for (@ARGV){
$opts->{lc($1)} = $2 if /--(\w+)=(.+)/g;
$opts->{lc($1)} = 1 if /^--(\w+)$/g;
}
if( $opts->{key} ){
eval {
require Crypt::CBC;
import Crypt::CBC;
};
if($@){ die "Must have Crypt::CBC and Crypt::DES_PP module installed to use --key feature: $@\n" }
if( $opts->{can} || $opts->{pin} || $opts->{codeword} ){
# if here, then user provided key + some info, so we want to preserve whatever it is they provided
# while keeping whatever it is they didn't provide.
my $copy_of_opts = { %$opts };
get_account_info( $opts ); # modifies $opts
$opts->{can} = $copy_of_opts->{can} if $copy_of_opts->{can};
$opts->{pin} = $copy_of_opts->{pin} if $copy_of_opts->{pin};
$opts->{codeword} = $copy_of_opts->{codeword} if $copy_of_opts->{codeword};
$opts->{account} = $copy_of_opts->{account} if $copy_of_opts->{account};
save_account_info( $opts );
}
if( $opts->{userid} || $opts->{password} ){
# if here, then user provided key + some info, so we want to preserve whatever it is they provided
# while keeping whatever it is they didn't provide.
my $copy_of_opts = { %$opts };
get_account_info( $opts ); # modifies $opts
$opts->{userid} = $copy_of_opts->{userid} if $copy_of_opts->{userid};
$opts->{password} = $copy_of_opts->{password} if $copy_of_opts->{password};
$opts->{account} = $copy_of_opts->{account} if $copy_of_opts->{account};
save_account_info( $opts );
}
else{
get_account_info( $opts ); # modifies $opts
}
}
else{
# if here, then the user must provide all the info them self, and they don't plan on keeping it
# in a key-file.
unless( ( $opts->{can} && $opts->{pin} && $opts->{codeword} ) || ( $opts->{userid} && $opts->{password} ) ){
print "Need either login info, or file-key to login. see `perldoc wachovia.pl`\n";
exit(1);
}
}
my $x;
my %login_info = $opts->{userid}
? ( user_id => $opts->{userid}, password => $opts->{password} )
: ( customer_access_number => $opts->{can}, pin => $opts->{pin}, code_word => $opts->{codeword} );
my $wachovia = Finance::Bank::Wachovia->new( %login_info )
or die Finance::Bank::Wachovia->ErrStr;
my $account = $wachovia->account( $opts->{account} )
or die $wachovia->ErrStr;
print $account->available_balance, "\n" and exit if $opts->{balance};
print "Acct Number: ", $account->number, "\n";
print "Acct Name : ", $account->name, ($opts->{details}?" ( ".$account->type." )":''), "\n";
print "Avail. Bal.: ", $account->available_balance, "\n";
exit unless $opts->{details};
print "Posted.Bal.: ", $account->posted_balance, "\n";
my $transactions = $account->transactions
or die $account->ErrStr;
my($date, $desc, $with, $deposit, $bal) = qw/Date Description Withdrawal Deposit Balance/;
format Transactions =
@<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @>>>>>>>>>> @>>>>>>>>>> @>>>>>>>>>>
$date, $desc, $with, $deposit, $bal
.
$~ = 'Transactions';
write;
foreach my $t ( (reverse @$transactions)[0..10] ){
$date = substr $t->date, 0, 5;
$desc = $t->description;
$with = $t->withdrawal_amount ? $t->withdrawal_amount : '';
$deposit = $t->deposit_amount ? $t->deposit_amount : '';
$bal = $t->balance ? $t->balance : '';
write;
#print"Date: ", $t->date, "\n",
# "Action: ", $t->action, "\n",
# "Desc: ", $t->description, "\n",
# "Withdrawal", $t->withdrawal_amount, "\n",
# "Deposit", $t->deposit_amount, "\n",
# "Balance", $t->balance, "\n",
# "seq_no", $t->seq_no, "\n",
# "trans_code", $t->trans_code, "\n",
# "check_num", $t->check_num, "\n";
}
# Fills the options hash with account info from the local .wachovia file
sub get_account_info {
my $opts = shift;
return unless -e $opts->{keyfile};
open( F, $opts->{keyfile} ) or die "Can't open ".$opts->{keyfile}." for reading: $!";
my $cipher = Crypt::CBC->new({
'key'=> $opts->{key},
'cipher'=> 'DES_PP',
'iv'=> '%_j,!z"{'
});
my $plaintext = $cipher->decrypt( <F> );
( $opts->{can}, $opts->{pin}, $opts->{codeword}, $opts->{account} ) = split( /\//, $plaintext );
}
# Writes an MD5 hash for the hash info.
sub save_account_info {
my $opts = shift;
open( F, '>', $opts->{keyfile} ) or die "Can't open ".$opts->{keyfile}." for writing: $!";
my $cipher = Crypt::CBC->new({
'key'=> $opts->{key},
'cipher'=> 'DES_PP',
'iv'=> '%_j,!z"{'
});
my $ciphertext = $cipher->encrypt( join('/', $opts->{can}, $opts->{pin}, $opts->{codeword}, $opts->{account}) );
print F $ciphertext;
close( F );
}
__END__
=begin
=head1 NAME
wachovia.pl - program bundled with Finance::Bank::Wachovia as example program and (hopefully) useful as well.
=head1 SYNOPSIS
Use this program from the command line to get a miniature report on your wachovia savings/checkings account.
You can provide the login/account number every time you run the command:
wachovia.pl --can=123456789 --pin=1234 --codeword=foo --account=1234567891234
OR
wachovia.pl --userid=foo --password=bar --account=1234567891234
NOTE ABOUT LOGINS: you can either use the customer access number method (--can --pin and --codeword) or the user id method ( --userid and --password )
it depends on how you log into the wachovia website.
But that's alot to type in every time you want to check your account. It's easier to provide the login/account info
and have the program store it in a file ( "~/.wachovia" by default ). The file is encrypted (thanks Doug)
and you use a "key" to decrypt the contents. The first time you run the command, you have to include all the login/account
info PLUS a password (key) and optionally a file path to use.
wachovia.pl --can=123456789 --pin=1234 --codeword=foo --account=1234567891234 --key=password --file=~/.checking
After doing that, you can have the same affect as typing all that in just by typing:
wachovia.pl --key=password --file=~/.checking
And if you choose to use the default "~/.wachovia" file path (best choice for the account you'll check most often) then
you can omit the --file argument.
wachovia.pl --key=password
And if you decide that you want to change the account number, or your PIN number needs to be changed, then just supply that
changed info plus the key and it will update your key-file:
wachovia.pl --key=password --pin=4321
Now your pin will be updated, all else will remain the untouched. Remember, the only time you need to provide the --file argument
is when you do want to use the default "~/.wachovia" file path.
=head1 DESCRIPTION
Uses Finance::Bank::Wachovia (which retrieves, parses, and objectifies your account info) and generates a report.
=head1 ARGS
=head2 --balance
Flag that tells program to just print out the available balance and exit. (has newline)
=head2 --details
Flag that tells program to display extra information (last 10 transactions).
=head2 --can
Your customer access number.
=head2 --pin
Your 4-digit PIN.
=head2 --codeword
Your super secret word.
=head2 --account
This is the account number that you want to retrieve information about.
=head2 --key
Optional. The password you use if you want to be smart and lazy. Read SYNOPSIS for details.
=head2 --file
The file you want to store your login/account info if you are using --key. It's optional, and "~/.wachovia" is the default. Read SYNOPSIS for details.
=head1 THANKS
Larry Wall for Perl.
Doug Feuerbach for so many things, but for this instance of thankfulness: the encryption/decryption routines.
Jason Marcell for his help testing/debugging the user_id/password login method.
=head1 AUTHOR
Jim Garvin E<lt>jg.perl@thegarvin.comE<gt>
Copyright 2004 by Jim Garvin
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=head1 SEE ALSO
Finance::Bank::Wachovia
=cut