c405/dojo
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

minucias

Browse Source
This commit is contained in:
mynah
2018-08-14 19:28:16 -05:00
parent 8a99022caa
commit 471c05e7c9
4 changed files with 22 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lib/Dojo/Controller/Data.pm
View File

@@ -1,16 +1,15 @@
package Dojo::Controller::Data;
use Mojo::Base 'Mojolicious::Controller';
use Dojo::Support qw{ dmph merge_hash load_module };
use Dojo::Conf;
use Net::Telnet;
my $server_name = $Dojo::Conf::chat->{chat_srv};
my $server_name = "";
our $t; #telnet server object
sub simple{
my $c=shift;
my $n=$c->param("dreq")//"";
my $json = {status => "304"};
$json = \%Dojo::Conf::radio if $n =~m/^radio$/ ;
$json = { srv =>$c->config->{radio_server} } if $n =~m/^radio$/ ;
$json = candy() if $n =~m/^candy$/ ;
$c->render(json=>$json);
}
@@ -29,6 +28,7 @@ sub admin{
sub candy{
my $c=shift;
my $r="-1";
$server_name = $c->config->{chat_srv};
if (connectT()) {
$r = isOn() if ($c->param("command") =~/^isOn$/);
$r = turnOn() if ($c->param("command") =~/^on$/);
@@ -37,7 +37,6 @@ sub candy{
}
else {$r="connection error";};
$c->render(json => {a=>$r});
# $c->render(json => {a=>$server_name});
}
sub turnOff{