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

prososy listo

Browse Source
This commit is contained in:
Ubuntu
2018-07-25 20:48:58 +00:00
parent 3dfefd9b30
commit 211e710efd
11 changed files with 81 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -30,30 +30,30 @@ 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 = isOn() if ($c->param("command") =~/^isOn$/);
$r = turnOn() if ($c->param("command") =~/^on$/);
$r = turnOff() if ($c->param("command") =~/^off$/);
}}
disconnectT();
}
else {$r="connection error";};
$c->render(json => {a=>$r});
# $c->render(json => {a=>$server_name});
}
sub turnOff{
return 1 unless (isOn());
grep(/Result: true/,sendT("host:deactivate('$server_name')"))?1:0;
grep(/Result: true/,join('',sendT('host:deactivate("'.$server_name.'")')))?1:0
unless (isOn()==0);
}
sub turnOn{
return 1 unless (!isOn());
grep(/Result: true/,sendT("host:activate('$server_name')"))?1:0;
grep(/Result: true/,join('',sendT('host:activate("'.$server_name.'")')))?1:0
unless (isOn()==1);
}
sub isOn{ grep(/\s$server_name/,sendT("host:list()"))? 1:0; }
sub isOn{return grep(/\s$server_name/,sendT("host:list()"))? 1:0; }
sub sendT{
commandT(shift);
my @r = $t->getlines(All=>0);
disconnectT();
return @r
}
sub connectT{