Katalysator :: Model :: Paypal :: IPN gratis download, Katalysator :: Model :: Paypal :: IPN download op software download

Handvat Instant betalingsmeldingen en PayPal-knop generatie Catalyst :: Model :: PayPal :: IPN is een Perl module die handvatten de nieuwste PayPal IPN vars, en biedt een eenvoudige methode om te controleren of de transactie successful.There zijn ook gemak methoden voor het genereren van gecodeerde en niet-gecodeerde PayPal vormen en buttons.SYNOPSIS lib / MyApp / Model / Paypal / IPN.pm pakket MyApp :: Model :: Paypal :: IPN; strikt gebruik; gebruik waarschuwingen; gebruik ouder 'Catalyst :: Model :: PayPal :: IPN'; 1; myapp.yml paypal: cert_id: 3TFC4UDJER95J page_style: MyApp no_note: 1 no_shipping: 1 lc: GB bn: PP-BuyNowBF model :: :: Paypal IPN: debug_mode: 1 encrypt_mode: 0 business_email: ghenry_1188297224_biz@suretecsystems.com currency_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 / MijnToep / root / auth / paypal_certs / paypal_sandbox_cert.pem completion_action: - Inschrijven - schrijf - betaling - ontvangen postback_action: - Inschrijven - schrijf - betaling - IPN cancellation_action: - Inschrijven - schrijf - betaling - afgeboekt Mijntoep :: Controller :: abonnement = head2 IPN Handle PayPal IPN stuff = cut sub IPN: Path ( 'betalings- / IPN') {mijn ($ zelf, $ c) = @_; mijn $ IPN = $ c-> model ( 'Paypal :: IPN'); if ($ ipn-> is_completed) {mijn% ipn_vars = $ ipn-> buyer_info (); $ C-> stash-> {ipn_vars} = \% ipn_vars; Dingen doen hier # Just so we antwoorden met iets, wat op zijn beurt stuurt een HTTP-status 200 # OK, die we nodig hebben om te stoppen met PayPal. # We krijgen niet omdat we geen gebruik maken van een sjabloon en RenderView looks voor een # template, een lichaam of de status gelijk aan 3XX $ c-> verantwoorde-> lichaam ( 'ok'); } Else {# Just so we antwoorden met iets, wat op zijn beurt stuurt een HTTP-status 200 # OK, die we nodig hebben om te stoppen met PayPal. # We krijgen niet omdat we geen gebruik maken van een sjabloon en RenderView looks voor een # template, een lichaam of de status gelijk aan 3XX $ c-> verantwoorde-> lichaam ( 'not_ok'); $ C-> log> debug ($ record_payment_result-> transmsgtext) indien $ c-> debug; $ C-> log> debug ($ ipn-> error) als $ ipn-> error $ c-> debug; }} = Head2 Afgeboekt Payment = cut sub geannuleerd: Path ( 'betalings- / geannuleerd') {mijn ($ zelf, $ c) = @_; Doe dingen op te annuleren $ c-> stash-> {template} = 'user / subscribe / cancelled.tt'; } = Head2 generate_paypal_buttons = cut sub generate_paypal_buttons: Private {mijn ($ zelf, $ c) = @_; if ($ c-> stash-> {all_buttons}) {$ c-> stash-> {subtypen} = ; voor mijn $ tarief (@ {$ c-> stash-> {subtypes}}) {volgende if $ tarief-> tariffid == 1; mijn ta = (#cert_id => $ c-> config-> {paypal} -> {cert_id}, cmd => '_xclick', item_name => $ tarief-> itemdesc, item_number => $ tarief-> tariffid, amount => $ tarief-> 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}, op maat => $ c-> req-> param ( 'sub-id')); if ($ c-> debug) {voor mijn $ param (toetsen ta?) {$ c-> log> debug ($ param '=' $ data {$ param}..); }} $ C-> stash-> {unencrypted_form_data} = $ c-> model ( 'Paypal :: IPN) -> form_info (ta?); mijn @button_info = ($ tarief-> itemdesc, $ tarief-> peruser, $ c-> stash-> {unencrypted_form_data}); push @ {$ c-> stash-> {unencrypted_buttons}}, @button_info; # $ C-> stash-> {encrypted_form_data} = # $ c-> model ( 'Paypal :: IPN) -> encrypt_form (ta?); #Mijn @button_info = (# $ tarief-> itemdesc, $ tarief-> peruser, # $ c-> stash-> {encrypted_form_data} #); #push @ {$ c-> stash-> {encrypted_buttons}}, @button_info; }}} Buttons.tt