Nabaztag control - Printable Version

Code:
--[[
Author: Gilles38
Name: Class_Nabaztag
Version: 0.0.1
Design for HomeLYnk and spaceLYnk

Available methodes:
        Is_Reachable() return boolean
                Is_Connected() return boolean
                Is_Sleeping() return boolean
                Reboot() return true or error message
                SetEars($Pos_Gauche,$Pos_Droite) return true or error message
                Speak($Texte,$Voix)    return true or error message
                Play_Stream($Url) return true or error message
          Get_Name()    return string
                Get_Voices()    return array
                Wakeup() return true or error message
                Goto_Sleep() return true or error message

Required for constructor:
                Adresse_main:define standard server adresse
                Adresse_Unified: define alternativ server
                Name: is the name of the Rabbit
                Token: define the token of the rabbit
                Mac: Mac adress of the rabbit
                Voice: define the list of voices available
]]--


Nabaztag={Name="",Token="",Mac="", Adresse_Main="", Adresse_Unified="", Voice={}}
Nabaztag.__index = Nabaztag

--Nabaztag class constructor
function Nabaztag:new( o,Name, Token, Mac)
  o=o or {}
  setmetatable(o, self)
  self.Name = Name
  self.Token = Token
  self.Mac = Mac
  self.Adresse_Main="http://openjabnab.fr/ojn/FR/api.jsp"
  self.Adresse_Unified="http://api.wizz.cc/?server=pixel"
  self.Voices= {"Alice","Antoine","Bruno","Claire","Julie","Margaux","Lorise","Deepa","Graham","Lucy","Peter","Rachel"} 
  log("Creation classe name:"..self.Name.." Token:"..self.Token)
  return o
end

--Send standard command  to Nabaztag return true or false
function Nabaztag:Send_Command(action)
   Query=self.Adresse_Main.."?sn="..self.Mac.."&token="..self.Token.."&action="..action
  return(self:Launch_Query(Query)) 
end

function Nabaztag:Launch_Query(Query)
  log("Launch-Query")
  require ("socket")
    require ("socket.http")
  respResult, respcode, respHeaders, respStatus = socket.http.request(Query)
  return(respResult)
end

--************Get Rabbit name**********
function Nabaztag:Get_name()
  return(self.Name)
end

--**********Get voices available*******
function Nabaztag:Get_Voices()
  return(self.Voices)
end

--************Goto slip****************
function Nabaztag:Goto_Sleep()
  return(self:Send_Command(14))
end
  
--**********Make the rabbit wakeup**********
function Nabaztag:Wakeup()
    return(self:Send_Command(13))
end

--*********Play sounds from URL***********
function Nabaztag:Play_Stream(Url)
  Query=self.Adresse_Unified.."&sn="..self.Mac.."&token="..self.Token.."&urlList="..Url
  result=self:Launch_Query(Query)
end

--********Make the rabbit speak**********
function Nabaztag:Speak(Text,Voice)
      --*******Url encode**********
   if (Text) then
      Text = string.gsub (Text, "\n", "\r\n")
      --Text = string.gsub (Text, "([^%w ])",
        -- function (c) return string.format ("%%%02X", string.byte(c)) end)
    Text = string.gsub (Text, " ", "+")
    Text=string.gsub(Text,"é","%%%e9")
    Text=string.gsub(Text,"è","%%%e8")
    Text=string.gsub(Text,"ç","%%%e7")
    Text=string.gsub(Text,"ê","%%%ea")
    Text=string.gsub(Text,"ô","%%%f4")
    Text=string.gsub(Text,"� ","%%%e0")
    Text=string.gsub(Text,"â","%%%e2")
    Text=string.gsub(Text,"?","%%%3f")
    Text=string.gsub(Text,":","%%%3a")
   end
  log(Text)
  Query=self.Adresse_Unified.."&sn="..self.Mac.."&token="..self.Token.."&tts="..Text.."&ws_acapela="..Voice
  result=self:Launch_Query(Query)
end

--*******Ears position changing****************
--*******Parameters: Left ears, right ears value from 0 to 16
--*******return tru if OK else an error message
function Nabaztag:SetEars(Pos_Gauche,Pos_Droite)
  if(Pos_Gauche>16) then
    Pos_Gauche=16
  end
  
  if(Pos_Droite>16) then
    Pos_Droite=16
  end
  
  Query=self.Adresse_Main.."&sn="..self.Mac.."&token="..self.Token.."&posleft="..Pos_Gauche.."&posright="..Pos_Droite
  result=self:Launch_Query(Query)
end


--*****Reboot rabbit*********
function Nabaztag:Reboot()
  return(self:Send_Command(17))
end

--*********Check if rabbit is connected********
function Nabaztag:Is_Connected()
  if(self:Send_Command(15)~=nil) then
      if (string.find(self:Send_Command(15),"YES") ~= nil) then
        return(true)
        else
        return(false)
        end
  else
    return(false)
  end
end

--*********Check if rabbit is sleeping********
function Nabaztag:Is_Sleeping()
  if (string.find(self:Send_Command(7),"YES") ~= nil) then
    return(true)
    else
    return(false)
    end
end

--*********Check if rabbit can launch an action********
function Nabaztag:Is_Reachable()
    return(self:Is_Sleeping() and self:Is_Connected()) 
end


function  Nabaztag:Status()
  
  if(self:Is_Connected()) then
    if(self:Is_Sleeping()) then
      return(2)
    else
      return(1)
    end
  else
    return (0)
  end
  
end