[interchange-cvs] interchange - jon modified lib/Vend/Payment/Signio.pm

[interchange-cvs at icdevgroup.org]

User:      jon
Date:      2005-10-29 00:11:54 GMT
Modified:  lib/Vend/Payment Signio.pm
Log:
Allow cert_path relative to IC root for PayFlow Pro (akin to other
default path attempts in $ICROOT and $ICROOT/lib).

Revision  Changes    Path
2.14      +6 -3      interchange/lib/Vend/Payment/Signio.pm


rev 2.14, prev_rev 2.13
Index: Signio.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Payment/Signio.pm,v
retrieving revision 2.13
retrieving revision 2.14
diff -u -u -r2.13 -r2.14
--- Signio.pm	30 Mar 2004 18:56:05 -0000	2.13
+++ Signio.pm	29 Oct 2005 00:11:54 -0000	2.14
@@ -1,6 +1,6 @@
 # Vend::Payment::Signio - Interchange support for Signio/Verisign Payflow Pro
 #
-# $Id: Signio.pm,v 2.13 2004/03/30 18:56:05 jon Exp $
+# $Id: Signio.pm,v 2.14 2005/10/29 00:11:54 jon Exp $
 #
 # Copyright (C) 2002-2003 Interchange Development Group
 # Copyright (C) 1999-2002 Red Hat, Inc.
@@ -383,10 +383,13 @@
 	}
 
 	# set certificate path for modern pfpro
-	$ENV{PFPRO_CERT_PATH} ||= charge_param('cert_path');
+	my $cert_path = charge_param('cert_path');
+	$cert_path = "$Global::VendRoot/$cert_path"
+		unless Vend::File::file_name_is_absolute($cert_path);
+	$ENV{PFPRO_CERT_PATH} ||= $cert_path;
 	if(! -d $ENV{PFPRO_CERT_PATH} ) {
 		my @try = (
-					charge_param('cert_path'),
+					$cert_path,
 					$Global::VendRoot,
 					"$Global::VendRoot/lib",
 					'/usr/local/ssl',