Created
October 19, 2015 02:55
Revisions
-
ProbablePrime created this gist
Oct 19, 2015 .There are no files selected for viewing
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters. Learn more about bidirectional Unicode charactersOriginal file line number Diff line number Diff line change @@ -0,0 +1,28 @@ #!/usr/bin/perl -w use strict; use CGI; use CGI::Carp qw(fatalsToBrowser); use JSON; my $json = JSON->new->pretty->allow_nonref; my $q = CGI->new; print $q->header('application/json'); my $response = {}; my @frames; my $firstFrame = {}; $firstFrame->{index} = 0; #Make the lamatric display the current time $firstFrame->{text} = localtime; $firstFrame->{icon} = "i753"; push(@frames,$firstFrame); $response->{frames} = \@frames; print $json->encode($response);