diff options
author | Ivan Kohler <ivan@freeside.biz> | 2017-09-13 14:40:45 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2017-09-13 14:40:45 -0700 |
commit | 7ec949f0738b27d5445ddde765f7f0d3e69918ce (patch) | |
tree | bfa7023ed01495c6926f00c02537d55a5f766dcd /FS/FS/part_export/fiber_http.pm | |
parent | 98f1a645e6a298a2efcc27ccbd705be1971a0ae3 (diff) |
fiber and DSL http exports, RT#75932
Diffstat (limited to 'FS/FS/part_export/fiber_http.pm')
-rw-r--r-- | FS/FS/part_export/fiber_http.pm | 73 |
1 files changed, 73 insertions, 0 deletions
diff --git a/FS/FS/part_export/fiber_http.pm b/FS/FS/part_export/fiber_http.pm new file mode 100644 index 0000000..38b23c4 --- /dev/null +++ b/FS/FS/part_export/fiber_http.pm @@ -0,0 +1,73 @@ +package FS::part_export::fiber_http; +use base qw( FS::part_export::http ); + +use Tie::IxHash; + +tie our %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", + ), + }, + 'delete_data' => { + label => 'Delete data', + type => 'textarea', + default => join("\n", + ), + }, + 'replace_data' => { + label => 'Replace data', + type => 'textarea', + default => join("\n", + ), + }, + 'suspend_data' => { + label => 'Suspend data', + type => 'textarea', + default => join("\n", + ), + }, + 'unsuspend_data' => { + label => 'Unsuspend data', + type => 'textarea', + default => join("\n", + ), + }, + 'success_regexp' => { + label => 'Success Regexp', + default => '', + }, +; + +%info = ( + 'svc' => 'svc_fiber', + 'desc' => 'Send an HTTP or HTTPS GET or POST request, for FTTx services.', + 'options' => \%options, + 'no_machine' => 1, + 'notes' => <<'END' +Send an HTTP or HTTPS GET or POST to the specified URL on account addition, +modification and deletion. +<p>Each "Data" option takes a list of <i>name value</i> pairs on successive +lines. +<ul><li><i>name</i> is an unquoted, literal string without whitespace.</li> +<li><i>value</i> is a Perl expression that will be evaluated. If it's a +literal string, it must be quoted. This expression has access to the +svc_fiber object as '$svc_x' (or '$new' and '$old' in "Replace Data") +and the customer record as '$cust_main'.</li></ul> +If "Success Regexp" is specified, the response from the server will be +tested against it to determine if the export succeeded.</p> +END +); + +1; + |