76 lines
2.1 KiB
Perl
76 lines
2.1 KiB
Perl
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};
|
|
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 = candy() if $n =~m/^candy$/ ;
|
|
$c->render(json=>$json);
|
|
}
|
|
|
|
sub admin{
|
|
my $c=shift;
|
|
my $n=$c->param("dreq")//"";
|
|
my $json = {status => "304"};
|
|
$json = ($c->dbv->rmsgid ($c->param('id')))[0] if ($n =~m/^mensajes$/);
|
|
$json = ($c->dbv->ecourse($c->param('id')))[0] if ($n =~m/^ecourse$/);
|
|
$json = ($c->dbv->qcourse($c->param('id')))[0] if ($n =~m/^qcourse$/);
|
|
$json = ($c->dbv->qplace ($c->param('id')))[0] if ($n =~m/^qplace$/);
|
|
$c->render(json=>$json);
|
|
}
|
|
#==== candy =====================================================
|
|
sub candy{
|
|
my $c=shift;
|
|
my $r="-1";
|
|
if (connectT()) {
|
|
if ($c->param("command") =~/^isOn$/){ $r = isOn(); }
|
|
elsif( $c->session("pmid") == 4 ){
|
|
$r = turnOn() if ($c->param("command") =~/^on$/);
|
|
$r = turnOff() if ($c->param("command") =~/^off$/);
|
|
}}
|
|
else {$r="connection error";};
|
|
$c->render(json => {a=>$r});
|
|
}
|
|
|
|
sub turnOff{
|
|
return 1 unless (isOn());
|
|
grep(/Result: true/,sendT("host:deactivate('$server_name')"))?1:0;
|
|
}
|
|
sub turnOn{
|
|
return 1 unless (!isOn());
|
|
grep(/Result: true/,sendT("host:activate('$server_name')"))?1:0;
|
|
}
|
|
|
|
sub isOn{ grep(/\s$server_name/,sendT("host:list()"))? 1:0; }
|
|
|
|
sub sendT{
|
|
commandT(shift);
|
|
my @r = $t->getlines(All=>0);
|
|
disconnectT();
|
|
return @r
|
|
}
|
|
sub connectT{
|
|
$t = new Net::Telnet ( Port=>5582, Timeout=>1, Errmode=>'return' );
|
|
# $t = new Net::Telnet ( Port=>5582, Timeout=>1, Errmode=>'die' );
|
|
return 1 if $t->open();
|
|
return 0;
|
|
}
|
|
sub commandT{
|
|
$t->getlines(All=>0);#empty buffer
|
|
$t->print(shift); #run istruction
|
|
}
|
|
sub disconnectT{ $t->close();}
|
|
|
|
#=========================================================
|
|
1
|
|
__END__
|
|
|
|
|