1 package FS::part_export::broadband_http;
3 use vars qw( @ISA %info );
4 use FS::part_export::http;
7 @ISA = qw( FS::part_export::http );
9 tie %options, 'Tie::IxHash',
10 'method' => { label =>'Method',
12 #options =>[qw(POST GET)],
15 'url' => { label => 'URL', default => 'http://', },
17 label => 'Insert data',
21 "address \$svc_x->ip_addr",
22 "name \$cust_main->first.' '.\$cust_main->last",
26 label => 'Delete data',
30 "address \$svc_x->ip_addr",
34 label => 'Replace data',
39 label => 'Suspend data',
45 label => 'Unsuspend data',
51 label => 'Success Regexp',
57 'svc' => 'svc_broadband',
58 'desc' => 'Send an HTTP or HTTPS GET or POST request, for accounts.',
59 'options' => \%options,
62 <p>Send an HTTP or HTTPS GET or POST to the specified URL on account addition,
63 modification and deletion. For HTTPS support,
64 <a href="http://search.cpan.org/dist/Crypt-SSLeay">Crypt::SSLeay</a>
65 or <a href="http://search.cpan.org/dist/IO-Socket-SSL">IO::Socket::SSL</a>
67 <p>Each "Data" option takes a list of <i>name value</i> pairs on successive
69 <ul><li><i>name</i> is an unquoted, literal string without whitespace.</li>
70 <li><i>value</i> is a Perl expression that will be evaluated. If it's a
71 literal string, it must be quoted. This expression has access to the
72 svc_broadband object as '$svc_x' (or '$new' and '$old' in "Replace Data")
73 and the customer record as '$cust_main'.</li></ul>
74 If "Success Regexp" is specified, the response from the server will be
75 tested against it to determine if the export succeeded.</p>