ports/98990: [MAINTAINER PATCH] finance/p5-Business-OnlinePayment-PayflowPro: fix default ceritificates path

[Alexandr Kovalenko]

>Number:         98990
>Category:       ports
>Synopsis:       [MAINTAINER PATCH] finance/p5-Business-OnlinePayment-PayflowPro: fix default ceritificates path
>Confidential:   no
>Severity:       serious
>Priority:       medium
>Responsible:    freebsd-ports-bugs
>State:          open
>Quarter:        
>Keywords:       
>Date-Required:
>Class:          maintainer-update
>Submitter-Id:   current-users
>Arrival-Date:   Thu Jun 15 21:00:38 GMT 2006
>Closed-Date:
>Last-Modified:
>Originator:     Alexandr Kovalenko
>Release:        FreeBSD 6.1-RELEASE-p1 i386
>Organization:
PortaOne, Inc., http://portaone.com/
>Environment:
System: FreeBSD mile.zukabuka.com 6.1-RELEASE-p1 FreeBSD 6.1-RELEASE-p1 #0: Mon Jun 12 19:58:45 EEST 2006     root at mile.zukabuka.com:/usr/obj/usr/src/sys/mile  i386
>Description:
	Module didn't handle situation where cert_path was not set. Add code to
	make certificates path /usr/local/certs (as it is in finance/pfpro).
>How-To-Repeat:
	Look at code :)
>Fix:

--- finance/p5-Business-OnlinePayment-PayflowPro/files/patch-PayflowPro.pm.orig	Thu Jun 15 04:07:32 2006
+++ finance/p5-Business-OnlinePayment-PayflowPro/files/patch-PayflowPro.pm	Thu Jun 15 23:45:38 2006
@@ -1,5 +1,5 @@
---- PayflowPro.pm.orig	Tue Jun 13 01:30:27 2006
-+++ PayflowPro.pm	Tue Jun 13 01:30:41 2006
+--- PayflowPro.pm.orig	Thu Jun 15 23:38:47 2006
++++ PayflowPro.pm	Thu Jun 15 23:44:55 2006
 @@ -14,7 +14,7 @@
  @ISA = qw(Exporter AutoLoader Business::OnlinePayment);
  @EXPORT = qw();
@@ -9,3 +9,13 @@
  
  sub set_defaults {
      my $self = shift;
+@@ -186,6 +186,9 @@
+     #print "$_ => $params{$_}\n" foreach keys %params;
+ 
+     $ENV{'PFPRO_CERT_PATH'} = $self->cert_path;
++    if ($ENV{'PFPRO_CERT_PATH'} eq '') {
++      $ENV{'PFPRO_CERT_PATH'} = '/usr/local/certs';
++    };
+     my( $response, $resultstr ) = pfpro( \%params, $self->server, $self->port );
+ 
+     #if ( $response->{'RESULT'} == 0 ) {
>Release-Note:
>Audit-Trail:
>Unformatted: