Catalyst :: Model :: PayPal :: ipn

Lidar com notificações de pagamento instantâneo e geração de botão PayPal
Baixe Agora

Catalyst :: Model :: PayPal :: ipn Classificação e resumo

Propaganda

  • Rating:
  • Licença:
  • Perl Artistic License
  • Preço:
  • FREE
  • Nome do editor:
  • Rafael Kitover
  • Site do editor:
  • http://search.cpan.org/~rkitover/

Catalyst :: Model :: PayPal :: ipn Tag


Catalyst :: Model :: PayPal :: ipn Descrição

Lidar com notificações de pagamento instantâneo e geração de botões paypal Catalyst :: Model :: PayPal :: IPN é um módulo Perl que lida com todos os mais recentes PayPal IPN VARS, e fornece um método fácil para verificar se a transação foi bem-sucedida. Há também métodos de conveniência para gerar formulários de paypal criptografados e não criptografados e botons.Synopsis lib / myapp / modelo / PayPal / Pacote IPN.PM MyApp :: Model :: PayPal :: IPN; Use rigoroso; use avisos; Use o pai 'Catalyst :: Model :: PayPal :: ipn'; 1; MyApp.yml PayPal: cert_id: 3tfc4udjer95j Page_Style: 1 No_shipping: 1 lc: GB BN: PP-BuynowBF modelo :: PayPal :: ipn: debug_mode: 1 encrypt_mode: 0 business_mail: ghenry_1188297224_1188297224_biz@suretecsystems.com Moeda: GBP Cert : /home/ghenry/myapp/root/auth/paypal_corros/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 Conclusão_Action: - Subscrever - Subscrever - Pagamento - Recebido - Recebido Postback_Action: - Subscrever - SUBSCREVER - PAGAMENTO - IPN Cancellation_action: - Subscrever - SUBSCREVER - PAGAMENTO - CANCELADA = HEAD2 Paniador IPN PayPal IPN Stuff = Cut Sub IPN: caminho ('Pagamento / ipn') {My ($ self, $ c) = @_; meu $ ipn = $ c-> modelo ('PayPal :: ipn'); se ($ ipn-> is_completed) {my% ipn_vars = $ ipn-> buyer_info (); $ c-> stash-> {ipn_vars} = \% ipn_vars; Faça coisas aqui # apenas nós respondemos com algo, o que, por sua vez, envia um status HTTP 200 # OK, que precisamos parar o PayPal. # Nós não conseguimos como nós não usamos um modelo e renderview procura um modelo #, um corpo ou status igual a 3xx $ c-> res-> corpo ('OK'); } else {# apenas por isso respondemos com algo, o que, por sua vez, envia um status HTTP 200 # OK, que precisamos parar o PayPal. # Nós não recebemos como nós não usamos um modelo e renderview procura um modelo #, um corpo ou status igual a 3xx $ c-> res-> corpo ('not_ok'); $ c-> log-> depuração ($ record_payment_result-> transmsgtext) se $ c-> depuração; $ c-> log-> depuração ($ ipn-> erro) se $ ipn-> erro $ c-> depuração; }} = head2 Cancelado Cancelado Pagamento = Corte Sub Cancelado: Caminho ('Pagamento / Cancelado') {MEU ($ SELG, $ c) = @_; Fazer coisas no cancelamento $ c-> stash-> {modelo} = 'usuário / subscrição / cancelled.tt'; } = head2 generate_paypal_buttons = corte sub generate_paypal_buttons: private {my ($ self, $ c) = @_; Se ($ c-> stash-> {all_buttons}) {$ c-> stash-> {subtipresas} = ; para a minha tarifa $ (@ {$ c-> stash-> {subtipos}}) {próxima se $ tarifple-> tarifa == 1; meu? ta = (#cert_id => $ c-> config-> {paypal} -> {cert_id}, cmd => '_xclick', item_name => $ tarifpl-> itemdesc, item_number => $ tarifple-> tarifa, Quantidade => $ tarifpl-> 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}, custom => $ c-> req-> param ('sub-subida'),); se ($ c-> depuração) {para my $ param (teclas? ta) {$ c-> log-> depuração ($ param. '= $ data {$ data {$ param}); }} $ c-> stash-> {unencrypted_form_data} = $ c-> modelo ('paypal :: ipn') -> form_info (? ta); Meu @Button_Info = ($ tarifple-> ItemDesc, $ tariff-> 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, $ tariff-> peruser, # $ c-> stash-> {encrypted_form_data} #); #push @ {$ c-> stash-> {criptoted_buttons}}, @Button_info; }}} botões.tt

Preço: £

Catalyst :: Model :: PayPal :: ipn Software Relacionado

Sobre nós