#!/usr/bin/perl use Finance::Bank::Wachovia; use Crypt::CBC; use warnings; 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