TFS 0.3 db class para 0.2

[Magus 2]

Feito por: Colandus

Tópico original: http://otfans.net/showthread.php?p=1224613

 

=================================

 

É o novo método de execução de SQL Query do novo TFS, para versões mais antigas. Use-a se você quiser usar algum script que use esse novo método no seu antigo servidor.

 

Crie um novo arquivo chamado db.lua na pasta data. Então, dentro de global.lua adicione:

 

-- Colandus
dofile('data/db.lua')

Agora dentro de db.lua:

 

-- Colandus

db = {}
db.__index = db

function getConnection()
   local env, con
   if sqlType == "mysql" then
       env = assert(luasql.mysql())
       con = assert(env:connect(mysqlDatabase, mysqlUser, mysqlPass, mysqlHost, mysqlPort))
   else -- sqlite
       env = assert(luasql.sqlite3())
       con = assert(env:connect(sqliteDatabase))
   end

   return env, con
end

function db.escapeString(str)
   return "'" .. escapeString(str) .. "'"
end

function db.executeQuery(sql)
   local env, con = getConnection()
   cur = assert(con:execute(sql))
   if(type(cur) ~= 'number') then
       cur:close()
   end
   con:close()
   env:close()
end

function db.getResult(sql)
   local mt = {}

   mt.env, mt.con = getConnection()
   mt.cur = assert(mt.con:execute(sql))

   if(mt.cur:numrows() > 0) then
       mt.val = mt.cur:fetch({}, "a")
   end

   setmetatable(mt, db)
   return mt
end

function db:getID()
   return self.val and true or LUA_ERROR
end

function db:next()
   self.val = self.cur:fetch(self.val, "a")
   if self.val then
       return true
   end
end

function db:getDataInt(name)
   if(self.val) then
       return tonumber(self.val[name])
   end
end

function db:getDataString(name)
   if(self.val) then
       return tostring(self.val[name])
   end
end

function db:free()
   self.cur:close()
   self.con:close()
   self.env:close()
end

[Deragon 25]

entao esse codigo é pros servidores velhos para executar codigos novos ?

[Magus 2]

Sim. Por exemplo, se você quiser usar o meu "sistema de enquete" ou até mesmo a OtnetScriptLib que está disponível nessa seção e não quiser atualizar seu servidor para 0.3, basta usar essa classe.

[Mock 32]

function getConnection()

local env, con

if sqlType == "mysql" then

env = assert(luasql.mysql())

con = assert(env:connect(mysqlDatabase, mysqlUser, mysqlPass, mysqlHost, mysqlPort))

else -- sqlite

env = assert(luasql.sqlite3())

con = assert(env:connect(sqliteDatabase))

end

 

return env, con

end

return env, con

isso nao funcionava em TFS x.x agora ajeitaram, so funcionava no open tibia.

[kaijr 0]

Mais funciona em qualquer ot ?

[Mock 32]

nãe so pra TFS 0.2

leia no topico ;s

[Magus 2]

Na verdade funciona em qualquer OT que possua a biblioteca LuaSQL, no caso TFS 0.2 e alguns outros.