[freeside-commits] branch master updated. 6b0c4f9f90b299dabe3e946ad8ea00ca94efa7de
Ivan Kohler
ivan at freeside.biz
Tue Jan 1 10:48:51 PST 2019
The branch, master has been updated
via 6b0c4f9f90b299dabe3e946ad8ea00ca94efa7de (commit)
via 70e755503b3cb5d921c90caf1a6e513301200355 (commit)
via 019dca96ad502e0a28d6efc66a9f481a324822e5 (commit)
from 0ec0b91b7c383d626dd75b0c2b2d3969e5bdcbc7 (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit 6b0c4f9f90b299dabe3e946ad8ea00ca94efa7de
Merge: 70e755503 0ec0b91b7
Author: Ivan Kohler <ivan at freeside.biz>
Date: Tue Jan 1 10:48:43 2019 -0800
Merge branch 'master' of git.freeside.biz:/home/git/freeside
commit 70e755503b3cb5d921c90caf1a6e513301200355
Author: Ivan Kohler <ivan at freeside.biz>
Date: Tue Jan 1 10:48:40 2019 -0800
stretch
diff --git a/Makefile b/Makefile
index 3486b7967..f7d946c4e 100644
--- a/Makefile
+++ b/Makefile
@@ -129,7 +129,7 @@ RT_PATH = /opt/rt3
#only used for dev kludge now, not a big deal
FREESIDE_PATH = `pwd`
-PERL_INC_DEV_KLUDGE = /usr/local/share/perl/5.22.1/
+PERL_INC_DEV_KLUDGE = /usr/local/share/perl/5.24.1/
VERSION := `grep '^$$VERSION' FS/FS.pm | cut -d\' -f2`
TAG := freeside_`grep '^$$VERSION' FS/FS.pm | cut -d\' -f2 | perl -pe 's/\./_/g'`
commit 019dca96ad502e0a28d6efc66a9f481a324822e5
Author: Ivan Kohler <ivan at freeside.biz>
Date: Tue Jan 1 10:44:50 2019 -0800
http exports for additional service types, RT#81945
diff --git a/FS/FS/part_export/cable_http.pm b/FS/FS/part_export/cable_http.pm
new file mode 100644
index 000000000..57dc7f2f3
--- /dev/null
+++ b/FS/FS/part_export/cable_http.pm
@@ -0,0 +1,73 @@
+package FS::part_export::cable_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_cable',
+ 'desc' => 'Send an HTTP or HTTPS GET or POST request, for cable 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_cable 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;
+
diff --git a/FS/FS/part_export/circuit_http.pm b/FS/FS/part_export/circuit_http.pm
new file mode 100644
index 000000000..a50f448a3
--- /dev/null
+++ b/FS/FS/part_export/circuit_http.pm
@@ -0,0 +1,73 @@
+package FS::part_export::circuit_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_circuit',
+ 'desc' => 'Send an HTTP or HTTPS GET or POST request, for circuit 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_circuit 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;
+
diff --git a/FS/FS/part_export/external_http.pm b/FS/FS/part_export/external_http.pm
new file mode 100644
index 000000000..783bcea44
--- /dev/null
+++ b/FS/FS/part_export/external_http.pm
@@ -0,0 +1,73 @@
+package FS::part_export::external_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_external',
+ '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_external 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;
+
diff --git a/FS/FS/part_export/hardware_http.pm b/FS/FS/part_export/hardware_http.pm
new file mode 100644
index 000000000..2d353e215
--- /dev/null
+++ b/FS/FS/part_export/hardware_http.pm
@@ -0,0 +1,73 @@
+package FS::part_export::hardware_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_hardware',
+ 'desc' => 'Send an HTTP or HTTPS GET or POST request, for hardware 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_hardware 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;
+
diff --git a/FS/FS/part_export/phone_http.pm b/FS/FS/part_export/phone_http.pm
new file mode 100644
index 000000000..5df589a9a
--- /dev/null
+++ b/FS/FS/part_export/phone_http.pm
@@ -0,0 +1,73 @@
+package FS::part_export::phone_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_phone',
+ 'desc' => 'Send an HTTP or HTTPS GET or POST request, for phone number 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_phone 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;
+
-----------------------------------------------------------------------
Summary of changes:
FS/FS/part_export/{fiber_http.pm => cable_http.pm} | 8 ++++----
FS/FS/part_export/{fiber_http.pm => circuit_http.pm} | 8 ++++----
FS/FS/part_export/{fiber_http.pm => external_http.pm} | 6 +++---
FS/FS/part_export/{fiber_http.pm => hardware_http.pm} | 8 ++++----
FS/FS/part_export/{fiber_http.pm => phone_http.pm} | 8 ++++----
Makefile | 2 +-
6 files changed, 20 insertions(+), 20 deletions(-)
copy FS/FS/part_export/{fiber_http.pm => cable_http.pm} (89%)
copy FS/FS/part_export/{fiber_http.pm => circuit_http.pm} (89%)
copy FS/FS/part_export/{fiber_http.pm => external_http.pm} (92%)
copy FS/FS/part_export/{fiber_http.pm => hardware_http.pm} (88%)
copy FS/FS/part_export/{fiber_http.pm => phone_http.pm} (89%)
More information about the freeside-commits
mailing list