use strict;
use vars qw( @ISA $conf $money_char );
use vars qw( $lpr $invoice_from $smtpmachine );
-use vars qw( $processor );
use vars qw( $xaction $E_NoErr );
use vars qw( $bop_processor $bop_login $bop_password $bop_action @bop_options );
+use vars qw( $ach_processor $ach_login $ach_password $ach_action @ach_options );
use vars qw( $invoice_lines @buf ); #yuck
use Date::Format;
use Mail::Internet 1.44;
@bop_options
) = $conf->config('business-onlinepayment');
$bop_action ||= 'normal authorization';
+ ( $ach_processor, $ach_login, $ach_password, $ach_action, @ach_options ) =
+ ( $bop_processor, $bop_login, $bop_password, $bop_action, @bop_options );
+ eval "use Business::OnlinePayment";
+ }
+
+ if ( $conf->exists('business-onlinepayment-ach') ) {
+ ( $ach_processor,
+ $ach_login,
+ $ach_password,
+ $ach_action,
+ @ach_options
+ ) = $conf->config('business-onlinepayment-ach');
+ $ach_action ||= 'normal authorization';
eval "use Business::OnlinePayment";
- $processor="Business::OnlinePayment::$bop_processor";
}
};
sub realtime_card {
my $self = shift;
- $self->realtime_bop('CC', @_);
+ $self->realtime_bop(
+ 'CC',
+ $bop_processor,
+ $bop_login,
+ $bop_password,
+ $bop_action,
+ \@bop_options,
+ @_
+ );
}
=item realtime_ach
sub realtime_ach {
my $self = shift;
- $self->realtime_bop('CHECK', @_);
+ $self->realtime_bop(
+ 'ECHECK',
+ $ach_processor,
+ $ach_login,
+ $ach_password,
+ $ach_action,
+ \@ach_options,
+ @_
+ );
}
-sub realtime_bop {
+=item realtime_lec
+
+Attempts to pay this invoice with phone bill (LEC) payment via a
+Business::OnlinePayment realtime gateway. See
+http://search.cpan.org/search?mode=module&query=Business%3A%3AOnlinePayment
+for supported processors.
+
+=cut
+
+sub realtime_lec {
my $self = shift;
- my $method = shift;
+ $self->realtime_bop(
+ 'LEC',
+ $bop_processor,
+ $bop_login,
+ $bop_password,
+ $bop_action,
+ \@bop_options,
+ @_
+ );
+}
+
+sub realtime_bop {
+ my( $self, $method, $processor, $login, $password, $action, $options ) = @_;
my $cust_main = $self->cust_main;
my $amount = $self->owed;
- unless ( $processor =~ /^Business::OnlinePayment::(.*)$/ ) {
- return "Real-time card/ACH processing not enabled (processor $processor)";
- }
- my $bop_processor = $1; #hmm?
-
my $address = $cust_main->address1;
$address .= ", ". $cust_main->address2 if $cust_main->address2;
my($payname, $payfirst, $paylast);
- if ( $cust_main->payname && $method ne 'CHECK' ) {
+ if ( $cust_main->payname && $method ne 'ECHECK' ) {
$payname = $cust_main->payname;
$payname =~ /^\s*([\w \,\.\-\']*)?\s+([\w\,\.\-\']+)\s*$/
or do {
}
my $email = $invoicing_list[0];
- my( $action1, $action2 ) = split(/\s*\,\s*/, $bop_action );
+ my( $action1, $action2 ) = split(/\s*\,\s*/, $action );
my $description = 'Internet Services';
if ( $conf->exists('business-onlinepayment-description') ) {
$content{card_number} = $cust_main->payinfo;
$cust_main->paydate =~ /^\d{2}(\d{2})[\/\-](\d+)[\/\-]\d+$/;
$content{expiration} = "$2/$1";
- } elsif ( $method eq 'CHECK' ) {
+ } elsif ( $method eq 'ECHECK' ) {
my($account_number,$routing_code) = $cust_main->payinfo;
( $content{account_number}, $content{routing_code} ) =
split('@', $cust_main->payinfo);
$content{bank_name} = $cust_main->payname;
+ } elsif ( $method eq 'LEC' ) {
+ $content{phone} = $cust_main->payinfo;
}
my $transaction =
- new Business::OnlinePayment( $bop_processor, @bop_options );
+ new Business::OnlinePayment( $processor, @$options );
$transaction->content(
- %content,
'type' => $method,
- 'login' => $bop_login,
- 'password' => $bop_password,
+ 'login' => $login,
+ 'password' => $password,
'action' => $action1,
'description' => $description,
'amount' => $amount,
'referer' => 'http://cleanwhisker.420.am/',
'email' => $email,
'phone' => $cust_main->daytime || $cust_main->night,
+ %content, #after
);
$transaction->submit();
#warn "********* $auth ***********\n";
#warn "********* $ordernum ***********\n";
my $capture =
- new Business::OnlinePayment( $bop_processor, @bop_options );
+ new Business::OnlinePayment( $processor, @$options );
my %capture = (
%content,
type => $method,
action => $action2,
- login => $bop_login,
- password => $bop_password,
+ login => $login,
+ password => $password,
order_number => $ordernum,
amount => $amount,
authorization => $auth,
if ( $transaction->is_success() ) {
my %method2payby = (
- 'CC' => 'CARD',
- 'CHECK' => 'CHEK',
+ ' CC' => 'CARD',
+ 'ECHECK' => 'CHEK',
+ 'LEC' => 'LECB',
);
my $cust_pay = new FS::cust_pay ( {
=head1 VERSION
-$Id: cust_bill.pm,v 1.50 2002-10-15 09:54:24 ivan Exp $
+$Id: cust_bill.pm,v 1.54 2002-11-19 22:48:02 ivan Exp $
=head1 BUGS