package FS::part_export::cust_http; use vars qw( @ISA %info ); use FS::part_export::http; use Tie::IxHash; @ISA = qw( FS::part_export::http ); tie %options, 'Tie::IxHash', 'method' => { label =>'Method', type =>'select', #options =>[qw(POST GET)], options =>[qw(POST)], default =>'POST' }, 'url' => { label => 'URL', default => 'http://', }, 'ssl_no_verify' => { label => 'Skip SSL certificate validation', type => 'checkbox', }, 'insert_data' => { label => 'Insert data', type => 'textarea', default => join("\n", "action 'insert'", "custnum \$cust_main->custnum", # "first \$cust_main->first", # "last \$cust_main->get('last')", # ( map "$_ \$cust_main->$_", qw( company address1 address2 city county state zip country daytime night fax ) ), # "email \$cust_main->invoicing_list_emailonly_scalar", ), }, 'delete_data' => { label => 'Delete data', type => 'textarea', default => join("\n", "action 'delete'", "custnum \$cust_main->custnum", ), }, 'replace_data' => { label => 'Replace data', type => 'textarea', default => join("\n", "action 'replace'", "custnum \$new_cust_main->custnum", # "first \$new_cust_main->first", # "last \$new_cust_main->get('last')", # ( map "$_ \$cust_main->$_", qw( company address1 address2 city county state zip country daytime night fax ) ), # "email \$new_cust_main->invoicing_list_emailonly_scalar", ), }, 'success_regexp' => { label => 'Success Regexp', default => '', }, ; %info = ( 'svc' => [qw( cust_main )], 'desc' => 'Send an HTTP or HTTPS GET or POST request, for customers.', 'options' => \%options, 'no_machine' => 1, 'notes' => <<'END' Send an HTTP or HTTPS GET or POST to the specified URL on customer addition, modification and deletion. For HTTPS support, Crypt::SSLeay or IO::Socket::SSL is required. END ); 1;