OLA JSON API - Revision history

Peternewman: /* Examples */ Add a Get Perl example

2018-04-21T15:25:50Z

‎Examples: Add a Get Perl example

Peternewman: /* Set a universe of DMX */ Add curl example, minor tweak of example values

2018-03-17T18:33:35Z

‎Set a universe of DMX: Add curl example, minor tweak of example values

Peternewman: Example JSON

2013-09-06T19:11:47Z

Example JSON

New page

Browse to /help on your OLA webserver to see the available commands (append ?help=1 to the end of a command for more info in newer versions of OLA)

==Examples==
===Set a universe of DMX===
====Perl====
<pre>#!/usr/bin/perl -w

use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$ua->timeout(5);

my $response = $ua->post('http://127.0.0.1:9090/set_dmx',
{u => 0, d => join(",",(0,1,2,3,4,5,6))}
);

if ($response->is_success) {
print $response->decoded_content;
} else {
die $response->status_line;
}</pre>

← Older revision		Revision as of 15:25, 21 April 2018
Line 23:		Line 23:
	====curl====		====curl====
	<pre>curl -d u=1 -d d=0,10,20,30,40,50,60,255 http://localhost:9090/set_dmx</pre>		<pre>curl -d u=1 -d d=0,10,20,30,40,50,60,255 http://localhost:9090/set_dmx</pre>
		+
		+	===Get a universe of DMX===
		+	====Perl====
		+	<pre>#!/usr/bin/perl -w
		+
		+	use JSON::XS;
		+	use LWP::UserAgent;
		+
		+	my $ua = LWP::UserAgent->new;
		+	$ua->timeout(5);
		+
		+	my $url = "http://localhost:9090/get_dmx?u=1";
		+
		+	my $response = $ua->get($url);
		+
		+	if ($response->is_success) {
		+	my $data = decode_json($response->decoded_content);
		+
		+	print "DMX Data: " . join(", ", @{$data->{dmx}}) . "\n";
		+	} else {
		+	die $response->status_line;
		+	}</pre>

@@ Line 12: / Line 12: @@
 my $response = $ua->post('http://127.0.0.1:9090/set_dmx',
-   {u => 0, d => join(",",(0,1,2,3,4,5,6))}
+   {u => 1, d => join(",",(0,10,20,30,40,50,60,255))}
 );
@@ Line 20: / Line 20: @@
    die $response->status_line;
 }</pre>