CPAN::Groonga

apter to Node-RED JSON HTTP request CGI Script

=head1 DESCRIPTION

A CGI application to control SMS::Send with a web service.

=head1 API

The script is called over HTTP with a JSON Object payload.

nnel::SMSbox|SMS::Send::Kannel::SMSbox> and L<NANP::Twilio|SMS::Send::NANP::Twilio>.

Return is a JSON Object.

  200 OK

  {
   "sent"  : true,
   "input" : {...},
  }

Return on error.

  400|500|50

p request, and debug.

=over

=item * In the function node

=over

=item * Set the "payload" to a JSON Object with the keys "driver", "to" and "text" and any extra "options" needed for SMS::Send objec

se JSON::XS qw{decode_json encode_json};
use SMS::Send;
use CGI;

our $VERSION = '0.10';
our $PACKAGE = __PACKAGE__;

=head1 NAME

SMS::Send::Adapter::Node::Red - SMS::Send Adapter to Node-RED JSON HT

head1 DESCRIPTION

This Perl package provides an adapter from Node-RED HTTP request object with a JSON payload to the SMS::Send infrastructure using either a PSGI or a CGI script.  The architecture wo

w

  my $object = SMS::Send::Adapter::Node::Red->new(content=>$string_of_json_object);

=head1 PROPERTIES

=head2 content

JSON string payload of the HTTP post request.

Example Payload:

  {
    "to"

 Node-RED JSON HTTP request Plack Builder PSGI Script

=head1 DESCRIPTION

A PSGI application to control SMS::Send with a web service.

=head1 API

The script is called over HTTP with a JSON Object pa

nnel::SMSbox|SMS::Send::Kannel::SMSbox> and L<NANP::Twilio|SMS::Send::NANP::Twilio>.

Return is a JSON Object.

  200 OK

  {
   "sent"  : true,
   "input" : {...},
  }

Return on error.

  400|500|50

p request, and debug.

=over

=item * In the function node

=over

=item * Set the "payload" to a JSON Object with the keys "driver", "to" and "text" and any extra "options" needed for SMS::Send objec

pter to Node-RED JSON HTTP request PSGI Script

=head1 DESCRIPTION

A PSGI application to control SMS::Send with a web service.

=head1 API

The script is called over HTTP with a JSON Object payload.

nnel::SMSbox|SMS::Send::Kannel::SMSbox> and L<NANP::Twilio|SMS::Send::NANP::Twilio>.

Return is a JSON Object.

  200 OK

  {
   "sent"  : true,
   "input" : {...},
  }

Return on error.

  400|500|50

p request, and debug.

=over

=item * In the function node

=over

=item * Set the "payload" to a JSON Object with the keys "driver", "to" and "text" and any extra "options" needed for SMS::Send objec