CRM/Core/Payment.php

   1 <?php
   2 /*
   3  +--------------------------------------------------------------------+
   4  | CiviCRM version 4.5                                                |
   5  +--------------------------------------------------------------------+
   6  | Copyright CiviCRM LLC (c) 2004-2014                                |
   7  +--------------------------------------------------------------------+
   8  | This file is a part of CiviCRM.                                    |
   9  |                                                                    |
  10  | CiviCRM is free software; you can copy, modify, and distribute it  |
  11  | under the terms of the GNU Affero General Public License           |
  12  | Version 3, 19 November 2007 and the CiviCRM Licensing Exception.   |
  13  |                                                                    |
  14  | CiviCRM is distributed in the hope that it will be useful, but     |
  15  | WITHOUT ANY WARRANTY; without even the implied warranty of         |
  16  | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.               |
  17  | See the GNU Affero General Public License for more details.        |
  18  |                                                                    |
  19  | You should have received a copy of the GNU Affero General Public   |
  20  | License and the CiviCRM Licensing Exception along                  |
  21  | with this program; if not, contact CiviCRM LLC                     |
  22  | at info[AT]civicrm[DOT]org. If you have questions about the        |
  23  | GNU Affero General Public License or the licensing of CiviCRM,     |
  24  | see the CiviCRM license FAQ at http://civicrm.org/licensing        |
  25  +--------------------------------------------------------------------+
  26 */
  27
  28 /**
  29  *
  30  * @package CRM
  31  * @copyright CiviCRM LLC (c) 2004-2014
  32  * $Id$
  33  *
  34  */
  35
  36 abstract class CRM_Core_Payment {
  37
  38   /**
  39    * how are we getting billing information?
  40    *
  41    * FORM   - we collect it on the same page
  42    * BUTTON - the processor collects it and sends it back to us via some protocol
  43    */
  44   CONST
  45     BILLING_MODE_FORM = 1,
  46     BILLING_MODE_BUTTON = 2,
  47     BILLING_MODE_NOTIFY = 4;
  48
  49   /**
  50    * which payment type(s) are we using?
  51    *
  52    * credit card
  53    * direct debit
  54    * or both
  55    *
  56    */
  57   CONST
  58     PAYMENT_TYPE_CREDIT_CARD = 1,
  59     PAYMENT_TYPE_DIRECT_DEBIT = 2;
  60
  61   /**
  62    * Subscription / Recurring payment Status
  63    * START, END
  64    *
  65    */
  66   CONST
  67     RECURRING_PAYMENT_START = 'START',
  68     RECURRING_PAYMENT_END = 'END';
  69
  70   /**
  71    * We only need one instance of this object. So we use the singleton
  72    * pattern and cache the instance in this variable
  73    *
  74    * @var object
  75    * @static
  76    */
  77   static private $_singleton = NULL;
  78
  79   protected $_paymentProcessor;
  80
  81   protected $_paymentForm = NULL;
  82
  83   /**
  84    * singleton function used to manage this object
  85    *
  86    * @param string  $mode the mode of operation: live or test
  87    * @param object  $paymentProcessor the details of the payment processor being invoked
  88    * @param object  $paymentForm      reference to the form object if available
  89    * @param boolean $force            should we force a reload of this payment object
  90    *
  91    * @return object
  92    * @static
  93    *
  94    */
  95   static function &singleton($mode = 'test', &$paymentProcessor, &$paymentForm = NULL, $force = FALSE) {
  96     // make sure paymentProcessor is not empty
  97     // CRM-7424
  98     if (empty($paymentProcessor)) {
  99       return CRM_Core_DAO::$_nullObject;
 100     }
 101
 102     $cacheKey = "{$mode}_{$paymentProcessor['id']}_" . (int)isset($paymentForm);
 103     if (!isset(self::$_singleton[$cacheKey]) || $force) {
 104       $config = CRM_Core_Config::singleton();
 105       $ext = CRM_Extension_System::singleton()->getMapper();
 106       if ($ext->isExtensionKey($paymentProcessor['class_name'])) {
 107         $paymentClass = $ext->keyToClass($paymentProcessor['class_name'], 'payment');
 108         require_once ($ext->classToPath($paymentClass));
 109       }
 110       else {
 111         $paymentClass = 'CRM_Core_' . $paymentProcessor['class_name'];
 112         require_once (str_replace('_', DIRECTORY_SEPARATOR, $paymentClass) . '.php');
 113       }
 114
 115       //load the object.
 116       self::$_singleton[$cacheKey] = $paymentClass::singleton($mode, $paymentProcessor);
 117     }
 118
 119     //load the payment form for required processor.
 120     if ($paymentForm !== NULL) {
 121       self::$_singleton[$cacheKey]->setForm($paymentForm);
 122     }
 123
 124     return self::$_singleton[$cacheKey];
 125   }
 126
 127   /**
 128    * @param $params
 129    *
 130    * @return mixed
 131    */
 132   public static function logPaymentNotification($params) {
 133     $message = 'payment_notification ';
 134     if (!empty($params['processor_name'])) {
 135       $message .= 'processor_name=' . $params['processor_name'];
 136     }
 137     if (!empty($params['processor_id'])) {
 138       $message .= 'processor_id=' . $params['processor_id'];
 139     }
 140
 141     $log = new CRM_Utils_SystemLogger();
 142     $log->alert($message, $_REQUEST);
 143   }
 144
 145   /**
 146    * Setter for the payment form that wants to use the processor
 147    *
 148    * @param obj $paymentForm
 149    *
 150    */
 151   function setForm(&$paymentForm) {
 152     $this->_paymentForm = $paymentForm;
 153   }
 154
 155   /**
 156    * Getter for payment form that is using the processor
 157    *
 158    * @return obj  A form object
 159    */
 160   function getForm() {
 161     return $this->_paymentForm;
 162   }
 163
 164   /**
 165    * Getter for accessing member vars
 166    *
 167    */
 168   function getVar($name) {
 169     return isset($this->$name) ? $this->$name : NULL;
 170   }
 171
 172   /**
 173    * This function collects all the information from a web/api form and invokes
 174    * the relevant payment processor specific functions to perform the transaction
 175    *
 176    * @param  array $params assoc array of input parameters for this transaction
 177    *
 178    * @return array the result in an nice formatted array (or an error object)
 179    * @abstract
 180    */
 181   abstract function doDirectPayment(&$params);
 182
 183   /**
 184    * This function checks to see if we have the right config values
 185    *
 186    * @internal param string $mode the mode we are operating in (live or test)
 187    *
 188    * @return string the error message if any
 189    * @public
 190    */
 191   abstract function checkConfig();
 192
 193   static function paypalRedirect(&$paymentProcessor) {
 194     if (!$paymentProcessor) {
 195       return FALSE;
 196     }
 197
 198     if (isset($_GET['payment_date']) &&
 199       isset($_GET['merchant_return_link']) &&
 200       CRM_Utils_Array::value('payment_status', $_GET) == 'Completed' &&
 201       $paymentProcessor['payment_processor_type'] == "PayPal_Standard"
 202     ) {
 203       return TRUE;
 204     }
 205
 206     return FALSE;
 207   }
 208
 209   /**
 210    * Page callback for civicrm/payment/ipn
 211    * @public
 212    */
 213   static function handleIPN() {
 214     self::handlePaymentMethod(
 215       'PaymentNotification',
 216       array(
 217         'processor_name' => @$_GET['processor_name'],
 218         'processor_id' => @$_GET['processor_id'],
 219         'mode' => @$_GET['mode'],
 220       )
 221     );
 222   }
 223
 224   /**
 225    * Payment callback handler. The processor_name or processor_id is passed in.
 226    * Note that processor_id is more reliable as one site may have more than one instance of a
 227    * processor & ideally the processor will be validating the results
 228    * Load requested payment processor and call that processor's handle<$method> method
 229    *
 230    * @public
 231    */
 232   static function handlePaymentMethod($method, $params = array( )) {
 233     if (!isset($params['processor_id']) && !isset($params['processor_name'])) {
 234       CRM_Core_Error::fatal("Either 'processor_id' or 'processor_name' param is required for payment callback");
 235     }
 236     self::logPaymentNotification($params);
 237
 238     // Query db for processor ..
 239     $mode = @$params['mode'];
 240
 241     $sql = "SELECT ppt.class_name, ppt.name as processor_name, pp.id AS processor_id
 242               FROM civicrm_payment_processor_type ppt
 243         INNER JOIN civicrm_payment_processor pp
 244                 ON pp.payment_processor_type_id = ppt.id
 245                AND pp.is_active
 246                AND pp.is_test = %1";
 247     $args[1] = array($mode == 'test' ? 1 : 0, 'Integer');
 248
 249     if (isset($params['processor_id'])) {
 250       $sql .= " WHERE pp.id = %2";
 251       $args[2] = array($params['processor_id'], 'Integer');
 252       $notfound = "No active instances of payment processor ID#'{$params['processor_id']}'  were found.";
 253     }
 254     else {
 255       $sql .= " WHERE ppt.name = %2";
 256       $args[2] = array($params['processor_name'], 'String');
 257       $notfound = "No active instances of the '{$params['processor_name']}' payment processor were found.";
 258     }
 259
 260     $dao = CRM_Core_DAO::executeQuery($sql, $args);
 261
 262     // Check whether we found anything at all ..
 263     if (!$dao->N) {
 264       CRM_Core_Error::fatal($notfound);
 265     }
 266
 267     $method = 'handle' . $method;
 268     $extension_instance_found = FALSE;
 269
 270     // In all likelihood, we'll just end up with the one instance returned here. But it's
 271     // possible we may get more. Hence, iterate through all instances ..
 272
 273     while ($dao->fetch()) {
 274       // Check pp is extension
 275       $ext = CRM_Extension_System::singleton()->getMapper();
 276       if ($ext->isExtensionKey($dao->class_name)) {
 277         $paymentClass = $ext->keyToClass($dao->class_name, 'payment');
 278         require_once $ext->classToPath($paymentClass);
 279       }
 280       else {
 281         // Legacy or extension as module instance
 282         if (empty($paymentClass)) {
 283           $paymentClass = 'CRM_Core_' . $dao->class_name;
 284
 285         }
 286       }
 287
 288       $paymentProcessor = CRM_Financial_BAO_PaymentProcessor::getPayment($dao->processor_id, $mode);
 289
 290       // Should never be empty - we already established this processor_id exists and is active.
 291       if (empty($paymentProcessor)) {
 292         continue;
 293       }
 294
 295       // Instantiate PP
 296       $processorInstance = $paymentClass::singleton($mode, $paymentProcessor);
 297
 298       // Does PP implement this method, and can we call it?
 299       if (!method_exists($processorInstance, $method) ||
 300         !is_callable(array($processorInstance, $method))
 301       ) {
 302         // on the off chance there is a double implementation of this processor we should keep looking for another
 303         // note that passing processor_id is more reliable & we should work to deprecate processor_name
 304         continue;
 305       }
 306
 307       // Everything, it seems, is ok - execute pp callback handler
 308       $processorInstance->$method();
 309       $extension_instance_found = TRUE;
 310     }
 311
 312     if (!$extension_instance_found) CRM_Core_Error::fatal(
 313       "No extension instances of the '{$params['processor_name']}' payment processor were found.<br />" .
 314       "$method method is unsupported in legacy payment processors."
 315     );
 316
 317     // Exit here on web requests, allowing just the plain text response to be echoed
 318     if ($method == 'handlePaymentNotification') {
 319       CRM_Utils_System::civiExit();
 320     }
 321   }
 322
 323   /**
 324    * Function to check whether a method is present ( & supported ) by the payment processor object.
 325    *
 326    * @param  string $method method to check for.
 327    *
 328    * @return boolean
 329    * @public
 330    */
 331   function isSupported($method = 'cancelSubscription') {
 332     return method_exists(CRM_Utils_System::getClassName($this), $method);
 333   }
 334
 335   function subscriptionURL($entityID = NULL, $entity = NULL, $action = 'cancel') {
 336     if ($action == 'cancel') {
 337       $url = 'civicrm/contribute/unsubscribe';
 338     }
 339     elseif ($action == 'billing') {
 340       //in notify mode don't return the update billing url
 341       if ($this->_paymentProcessor['billing_mode'] == self::BILLING_MODE_NOTIFY) {
 342         return NULL;
 343       }
 344       $url = 'civicrm/contribute/updatebilling';
 345     }
 346     elseif ($action == 'update') {
 347       $url = 'civicrm/contribute/updaterecur';
 348     }
 349     $session       = CRM_Core_Session::singleton();
 350     $userId        = $session->get('userID');
 351     $checksumValue = "";
 352
 353     if ($entityID && $entity == 'membership') {
 354       if (!$userId) {
 355         $contactID     = CRM_Core_DAO::getFieldValue("CRM_Member_DAO_Membership", $entityID, "contact_id");
 356         $checksumValue = CRM_Contact_BAO_Contact_Utils::generateChecksum($contactID, NULL, 'inf');
 357         $checksumValue = "&cs={$checksumValue}";
 358       }
 359       return CRM_Utils_System::url($url, "reset=1&mid={$entityID}{$checksumValue}", TRUE, NULL, FALSE, TRUE);
 360     }
 361
 362     if ($entityID && $entity == 'contribution') {
 363       if (!$userId) {
 364         $contactID     = CRM_Core_DAO::getFieldValue("CRM_Contribute_DAO_Contribution", $entityID, "contact_id");
 365         $checksumValue = CRM_Contact_BAO_Contact_Utils::generateChecksum($contactID, NULL, 'inf');
 366         $checksumValue = "&cs={$checksumValue}";
 367       }
 368       return CRM_Utils_System::url($url, "reset=1&coid={$entityID}{$checksumValue}", TRUE, NULL, FALSE, TRUE);
 369     }
 370
 371     if ($entityID && $entity == 'recur') {
 372       if (!$userId) {
 373         $sql = "
 374     SELECT con.contact_id
 375       FROM civicrm_contribution_recur rec
 376 INNER JOIN civicrm_contribution con ON ( con.contribution_recur_id = rec.id )
 377      WHERE rec.id = %1
 378   GROUP BY rec.id";
 379         $contactID     = CRM_Core_DAO::singleValueQuery($sql, array(1 => array($entityID, 'Integer')));
 380         $checksumValue = CRM_Contact_BAO_Contact_Utils::generateChecksum($contactID, NULL, 'inf');
 381         $checksumValue = "&cs={$checksumValue}";
 382       }
 383       return CRM_Utils_System::url($url, "reset=1&crid={$entityID}{$checksumValue}", TRUE, NULL, FALSE, TRUE);
 384     }
 385
 386     if ($this->isSupported('accountLoginURL')) {
 387       return $this->accountLoginURL();
 388     }
 389     return $this->_paymentProcessor['url_recur'];
 390   }
 391
 392   /**
 393    * Check for presence of type 1 or type 3 enabled processors (means we can do back-office submit credit/debit card trxns)
 394    * @public
 395    */
 396   static function allowBackofficeCreditCard($template = NULL, $variableName = 'newCredit') {
 397     $newCredit = FALSE;
 398     // restrict to type=1 (credit card) payment processor payment_types and only include billing mode types 1 and 3
 399     $processors = CRM_Core_PseudoConstant::paymentProcessor(FALSE, FALSE,
 400       "billing_mode IN ( 1, 3 ) AND payment_type = 1"
 401     );
 402     if (count($processors) > 0) {
 403       $newCredit = TRUE;
 404     }
 405     if ($template) {
 406       $template->assign($variableName, $newCredit);
 407     }
 408     return $newCredit;
 409   }
 410
 411 }