Finance-Bank-Wachovia

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
name:         Finance-Bank-Wachovia
version:      0.5
version_from: lib/Finance/Bank/Wachovia.pm
installdirs:  site
requires:
    Crypt::CBC:                    0
    Crypt::DES_PP:                 0
    HTTP::Cookies:                 0
    Test::More:                    0
    WWW::Mechanize:                0

distribution_type: module
generated_by: ExtUtils::MakeMaker version 6.17

Makefile.PL  view on Meta::CPAN

# the contents of the Makefile that is written.
WriteMakefile(
    NAME              => 'Finance::Bank::Wachovia',
    EXE_FILES		 => [ 'scripts/wachovia.pl', 'scripts/wachovia_summary.pl' ],
    VERSION_FROM      => 'lib/Finance/Bank/Wachovia.pm', # finds $VERSION
    PREREQ_PM         => { 
    		'WWW::Mechanize' => 0, 
    		'HTTP::Cookies' => 0, 
    		'Test::More' => 0 ,
    		'Crypt::CBC' => 0,	
    		'Crypt::DES_PP' => 0,
    	}, # e.g., Module::Name => 1.1
    ($] >= 5.005 ?     ## Add these new keywords supported since 5.005
      (ABSTRACT_FROM  => 'lib/Finance/Bank/Wachovia.pm', # retrieve abstract from module
       AUTHOR         => 'Jim <jg.perl@thegarvin.com>') : ()),
);

scripts/wachovia.pl  view on Meta::CPAN

	|| $opts->{pw}
	);


if( $opts->{key} ){
	# indicates we are storing/retrieving data from keyfile
	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 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 $new_opts = {};
	my $file_opts = get_account_info( $opts->{keyfile}, $opts->{key} );
	for(keys %$opts){ $new_opts->{$_} = $opts->{$_} }
	for(keys %$file_opts){ $new_opts->{$_} = $file_opts->{$_} unless $new_opts->{$_} }
	$opts = $new_opts;
	save_account_info( $opts );
}

scripts/wachovia_summary.pl  view on Meta::CPAN

$opts->{password} = $password if( $password = $opts->{password}
	|| $opts->{pass}
	|| $opts->{pw}
	);

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 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 $new_opts = {};
	my $file_opts = get_account_info( $opts->{keyfile}, $opts->{key} );
	for(keys %$opts){ $new_opts->{$_} = $opts->{$_} }
	for(keys %$file_opts){ $new_opts->{$_} = $file_opts->{$_} unless $new_opts->{$_} }
	$opts = $new_opts;
	save_account_info( $opts );
}