Negocio ::Payment Online :: Virtualnet

Vital VirtualNet Backend para Negocios ::Pagado en línea
Descargar ahora

Negocio ::Payment Online :: Virtualnet Clasificación y resumen

Anuncio publicitario

  • Rating:
  • Licencia:
  • Perl Artistic License
  • Precio:
  • FREE
  • Nombre del editor:
  • Ivan Kohler
  • Sitio web del editor:
  • http://search.cpan.org/~ivan/

Negocio ::Payment Online :: Virtualnet Etiquetas


Negocio ::Payment Online :: Virtualnet Descripción

Vital VirtualNet Backend para Negocios ::Pagado en línea NEGOCIO :: onlinepayment :: virtualnet es un módulo de Perl que implementa la interfaz documentada en http://www.vitalps.com/sections/int/int_interfacespecs.htmlsynopsis Use Business :: Payment; My $ TX = NUEVO NEGOCIO :: PAYO ENLACE ("Virtualnet", 'Merchant_ID' => '999999999911', 'tienda' => '0011', 'Terminal' => '9911', 'MCC' => '5999', #mermperny Categoría código 'bin' => '999995', #acquirer bin (número de identificación bancaria) 'zip' => '543211420', #mergant zip (EE. UU.) O el código de ciudad asignado 'Agente' => '000000', # Agent Bank 'V' => '00000001', 'Merchant_Name' => '' PROVEEDOR DE SERVICIOS DE INTERNET ', # 25 Char Max' Merchant_City '=>' Gloucester ', # 13 char max' merchant_state '=>' 'va', # 2 char 'seq_file' => '/ tmp / bop-virtualnet-secuencia', 'batchnum_file' => '/ tmp / bop-virtualnet-blacknum', #: / 0-999 en 5 días); $ TX-> Contenido (TIPO => 'CC', inicio de sesión => 'prueba', acción => 'solo autorización', descripción => 'Business :: Test de pago en línea', Cantidad => '49 .95 ', factura_number =>' 100100 ', nombre =>' tofu beast ', card_number =>' 4111111111111111 ', caducidad => '09 / 03',); $ tx-> enviar (); if ($ tx-> is_success ()) {impresión "tarjeta autorizada con éxito:". $ tx-> autorización ". ";} else {imprimir" Error: ". $ tx-> error_message". ";}} if ($ tx-> is_success ()) {My $ Capture = New Business ::Paypayment (" Virtualnet ", 'Agent' => '000001', 'cadena' => '000000', #optional? ' v '=>' 00000001 ',' Merchant_ID '=>' 999999999911 ',' Store '=>' 0011 ',' Terminal '=>' 9911 ',' MCC '=>' 5999 ', #merchant código de categoría' bin ' '=>' 999995 ', #acquirer bin (número de identificación bancaria)); $ Capture-> Contenido (Tipo =>' CC ', acción =>' POST AUTORIZACIÓN ', CANTIDAD => '49 .95', CARD_NUMBER => '41111111111111111 ', Caducación => '09 / 03', Autorización => $ TX-> Autorización, Autorization_Source_code => $ TX-> Authorization_Source_code, retorned_aci => $ tx-> retorned_aci, transaction_identifier => $ tx-> Transaction_identifier, validation_code => $ TX-> Validation_code, Transaction_Sequence_num => $ TX-> Transaction_Esquence_num, local_transaction_date => $ tx-> local_transaction_date, local_transaction_time => $ tx-> local_transaction_time, avs_result_code => $ tx-> avs_result_code, #description => 'Business :: Paginación en línea :: Prueba de VirtualNet ', Acción =>' Post auth Orización ', # Order_Number => $ Pedido, # Cantidad =>' 0.01 ', # Autorización => $ auth, # Descripción =>' Business :: onlinePayment :: Virtualnet Test ',); $ Capture-> Enviar (); if ($ capture-> is_success ()) {impresión "la tarjeta capturada correctamente ";} else {imprimir" Error: ". $ Capture-> ERROR_MESSAY". ";}} Requisitos: · Perl


Negocio ::Payment Online :: Virtualnet Software relacionado

Sobre nosotros