Gammon Forum

function MakeSandbox ()

  local function ReportDisabled (pkg, func)
     return function ()
       error (string.format (
        "Function '%s.%s' disabled in Lua sandbox - see MUSHclient global preferences",
        pkg, func), 2)
       end -- function
  end -- ReportDisabled 

  package.loadlib = ReportDisabled  ("package", "loadlib") -- disable loadlib function
  package.loaders [3] = nil  -- disable DLL loader
  package.loaders [4] = nil  -- disable all-in-one loader

  for k, v in pairs (io) do
    if type (v) == "function" then
      io [k] = ReportDisabled ("io", k)
    end -- type is function
  end -- for

 assert (package.loadlib ("mysql.dll", "luaopen_luasqlmysql")) ()

 env = assert (luasql.mysql())
    
 con = assert (env:connect ("databasename", "username", "password", "site_address"))

 -- retrieve a cursor
 cur = assert (con:execute ("SELECT count(*) from some_table" ))

 -- print all rows, the rows will be indexed by field names
 row = cur:fetch ({}, "a")

 while row do
   table.foreach (row, print)
   row = cur:fetch (row, "a")
 end

 -- close everything
 cur:close()
 con:close() 
 env:close()

cur = assert (con:execute"SELECT * from race_pc")
-- print all rows, the rows will be indexed by field names
row = cur:fetch ({}, "a")
while row do
  print(string.format("Name: %s, Remort: %s", row.Name, row.Remort))
  -- reusing the table of results
  row = cur:fetch (row, "a")
end

Name: <show name> Remort: <show remort>
Size: <show size> Language: <how language>
Skills: <show skills>
 St   Qu   Pr   Em   In   Co   Ag   Sd   Me   Re
<st> <qu> <pr> <em> <in> <co> <ag> <sd> <me> <re>

print (string.format ("%-3s %-3s %-3s", "a1", "b", "c")) --> Outputs: a1  b   c  

race = "dwarf"  -- for example

cur = assert (con:execute (string.format ("SELECT * from race_pc WHERE race = '%s' ", race))

local charOutput =[[Name: %s Remort: %s
Size: %s Language: %s
Skills: %s
 St   Qu   Pr   Em   In   Co   Ag   Sd   Me   Re
 %s   %s   %s   %s   %s   %s   %s   %s   %s   %s
]]
cur = assert (con:execute(string.format("SELECT * FROM race_pc WHERE %s LIKE '%%%s%%'", ColumnVarSetbyAlias, FilterVarSetbyAlias)
-- print all rows, the rows will be indexed by field names

local row = {}

while cur:fetch (row, "a") do
  print(string.format(charOutput, row.Name, row.Remort, row.Size, 
			row.Language, row.Skills, row.St, row.Qu, row.Pr, 
			row.Em, row["In"], row.Co, row.Ag, row.Sd, row.Me, row.Re))
end

cur:close()

foo = "This produces
errors." -- since Lua wants the close quote on the same line.

bar = [[This doesn't
produce errors, since lua will put everything into the variable upto the ]]

ur = assert (con:execute("SELECT * from race_pc"))
-- print all rows, the rows will be indexed by field names
row = cur:fetch ({}, "a")
while row do
  print(string.format("Master Race: %-3s", row.Race))
  print(string.format("Name: %-3s Remort: %-3s Size: %-3s", row.Name, row.Remort, row.Size))
  print(string.format("Creation Cost: %-3s", row.Creation_Cost))
  print("St Qu Pr Em In Co Ag Sd Me Re")
  print(string.format("%s, %s, %s, %s, %s, %s, %s, %s, %s, %s", row.Strength, row.Quickness, row.Presence, row.Empathy, row.Intuition, row.Constitution, row.Agility, row.Self_Discipline, row.Memory, row.Reasoning))
  -- reusing the table of results
  row = cur:fetch (row, "a")
end

"SELECT * FROM race_PC WHERE Race = 'Dwarves'  "

"SELECT * FROM race_PC WHERE Race LIKE '%Dwarves%'  "

[string "Alias: "]:14: bad argument #2 to 'format' (string expected, got nil)
stack traceback:
	[C]: in function 'format'
	[string "Alias: "]:14: in main chunk

cur = assert (con:execute(string.format("SELECT * FROM race_pc WHERE %s LIKE '%%%s%%'", ColumnVarSetbyAlias, FilterVarSetbyAlias)))