Catalizador :: Modelo :: PayPal :: IPN Manejar notificaciones de pago instantáneo y generación de botones PayPal
Descargar ahora

Catalizador :: Modelo :: PayPal :: IPN Clasificación y resumen

Catalizador :: Modelo :: PayPal :: IPN Etiquetas

Módulo perl IP de PayPal Paypal IPN Catalizador Plugin de catalizador

Catalizador :: Modelo :: PayPal :: IPN Descripción

Manejar notificaciones de pago instantáneo y generación de botones PayPal Catalizador :: Modelo :: PayPal :: IPN es un módulo PERL que maneja todas las últimas PAYPAL IPN VARS, y proporciona un método fácil para verificar que la transacción fue exitosa. También hay métodos de conveniencia para generar formularios de PayPal cifrados y no encriptados. y botones.Synopsis lib / myApp / modelo / PayPal / IPN.PM Paquete MyApp :: Modelo :: PayPal :: IPN; usar estricto; usar advertencias; Use el Catalizador de padres :: Modelo :: PayPal :: IPN '; 1; MyApp.yml PayPal: Cert_ID: 3TFC4udjer95J Page_STYLE: MYAPP NO_NOTE: 1 NO_SHIPE: 1 LC: GB BN: PP-BUCHEWBF Modelo :: PayPal :: IPN: DEBUG_MODE: 1 ENCRYPT_MODE: 0 Business_Email: ghenry_1188297224_biz@suretecsystems.com money_code: gbp cert : /home/ghenry/myapp/root/auth/paypal_certs/www.myapp.net.crt cert_key: /home/ghenry/myapp/root/auth/paypal_certs/www.myapp.net.key paypal_cert: / home / ghenry / MyApp / Root / AUTH / PAYPAL_CERTS / PAYPAL_SANDBOX_CERT.PEM Finalion_action_action_action_action_action: - Suscribirse - Pago - Postback_action recibido: - Suscribirse - Suscribirse - Pago - IPN Cancelation_Action: - Suscribirse - Suscribirse - Pago - Cancelado MyApp :: Controlador :: Suscribirse = Head2 IPN HANGE PAYPAL IPN CUENTA = CUT Sub IPN: Ruta ('Pago / IPN') {My ($ Self, $ C) = @_; MY $ IPN = $ C-> Modelo ('PayPal :: IPN'); if ($ ipn-> is_completed) {My% ipn_vars = $ ipn-> buyer_info (); $ c-> stash-> {ipn_vars} = \% IPN_VARS; Haz cosas aquí # Sólo respondemos con algo, que a su vez envía un estado HTTP 200 # OK, que necesitamos para detener a PayPal. # No nos entendemos, ya que no usamos una plantilla y RENDERVIEW busca un # plantilla, un cuerpo o estado igual a 3xx $ c-> res-> cuerpo ('OK'); } else {# sólo por lo que respondemos con algo, que a su vez envía un estado HTTP 200 # OK, que necesitamos para detener a PayPal. # No nos entendemos, ya que no usamos una plantilla y RENDERVIEW busca un # plantilla, un cuerpo o estado igual a 3xx $ c-> res-> cuerpo ('Not_Ok'); $ c-> log-> depuración ($ record_payment_result-> TRANSMSGTEXT) SI $ C-> DEBUG; $ c-> log-> DEBUG ($ IPN-> ERROR) SI $ IPN-> ERROR $ C-> DEBUG; }} = head2 cancelado cancelado PAGO = CUT Sub Cancelado: Ruta ('Pago / cancelado') {My ($ yo, $ c) = @_; Hacer cosas en cancelar $ c-> stash-> {template} = 'usuario / suscribir / canceled.tt'; } = head2 generate_paypal_buttons = corte sub generado_paypal_buttons: privado {my ($ yo, $ c) = @_; Si ($ c-> stash-> {all_buttons}) {$ c-> stash-> {subtipos} = ; Para mi tarifa $ (@ ^ {$ c-> stash-> {subtipos}}) {Siguiente si $ Tarifle-> Tarift == 1; MI? TA = (#CERT_ID => $ C-> config-> {paypal} -> {cert_id}, cmd => '_xclick', item_name => $ tarifk-> ItemDesc, Item_Number => $ Tarift-> Tarift, Cantidad => $ Tarift-> Peruser, Page_style => $ c-> config-> {paypal} -> {page_style}, no_shipping => $ c-> config-> {paypal} -> {NO_shipping}, no_note => $ c-> config-> {paypal} -> {NO_NOTE}, 'lc' => $ c-> config-> {paypal} -> {lc}, bn => $ c-> config-> {paypal} -> {bn}, personalizado => $ c-> req-> param ('Subid'),); Si ($ c-> debug) {para mis $ param (teclas? TA) {$ c-> log-> depuración ($ param. '='. $ Datos {$ param}); }} $ c-> stash-> {incritrypted_form_data} = $ c-> Modelo ('PayPal :: IPN') -> form_info (? ta); Mi @Button_Info = ($ Tarift-> ItemDesc, $ Tarift-> Peruser, $ C-> STASH-> {UNENCRYPTED_FORM_DATA}); PUSH @ {$ C-> STASH-> {UNEncrypted_buttons}}, @Button_Info; # $ C-> STASH-> {ENCRYPTED_FORM_DATA} = # $ C-> Modelo ('PayPal :: IPN') -> Encrypt_Form (? TA); #my @button_info = (# $ Tariff-> ItemDesc, $ Tarift-> Peruser, # $ C-> STASH-> {CIPTED_FORM_DATA} #); #push @ {$ c-> stash-> {encrypted_buttons}}, @button_info; }}} BOTTONS.TT Precio: £

Catalizador :: Modelo :: PayPal :: IPN Software relacionado