1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
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;
|