--| (c) 2007 All rights reserved, GNU GPL license         |--
--|-------------------------------------------------------|--
--|                                                       |--
--|                                                       |--
--|-------------------------------------------------------|--

cmd_clr = "^!clear_logcmd$"
cmd_list = "^!logcmd"
BotNick = "Bot"

function VH_OnParsedMsgAny(nick, data)
   if (string.find(data,"^$OpForceMove") or string.find(data,"^$Kick") or string.find(data,"<"..nick.."> !onplug",1,true) or string.find(data,"<"..nick.."> !offplug",1,true) or string.find(data,"<"..nick.."> !replug",1,true) or string.find(data,"<"..nick.."> !luaunload",1,true)) then
      local n = string.gsub(nick,"'","\\'")
      n = string.gsub(n,"\"","\\\"")
      local d = string.gsub(data,"'","\\'")
      d = string.gsub(d,"\"","\\\"")
      d = string.gsub(d,"$","$")
      VH:SQLQuery("INSERT INTO `pi_cmdlog` SET `user`='"..n.."',`cmd`='"..d.."',`time`=UNIX_TIMESTAMP();")
   end
   return 1
end

function VH_OnUserCommand(nick,data)
   local n = string.gsub(nick,"'","\\'")
   n = string.gsub(n,"\"","\\\"")
   local d = string.gsub(data,"'","\\'")
   d = string.gsub(d,"\"","\\\"")
   VH:SQLQuery("INSERT INTO `pi_cmdlog` SET `user`='"..n.."',`cmd`='"..d.."',`time`=UNIX_TIMESTAMP();")
   return 1
end

function VH_OnOperatorCommand(nick,data)
   local r,cl = VH:GetUserClass(nick)
   if (r and (cl == 10) and string.find(data,cmd_clr)) then
      VH:SQLQuery("TRUNCATE  TABLE `pi_cmdlog`;")
      VH:SendDataToUser("Logi komend wyczyszczone|",nick)
      local n = string.gsub(nick,"'","\\'")
      n = string.gsub(n,"\"","\\\"")
      local d = string.gsub(data,"'","\\'")
      d = string.gsub(d,"\"","\\\"")
      VH:SQLQuery("INSERT INTO `pi_cmdlog` SET `user`='"..n.."',`cmd`='"..d.."',`time`=UNIX_TIMESTAMP();")
      return 0
   end
   if (r and (cl >= 10) and string.find(data,cmd_list)) then
      query = "SELECT `id`,`user`,`time`,`cmd` FROM `pi_cmdlog` ORDER BY `time` DESC LIMIT 0,100;"
      if string.find(data,cmd_list.."%sall") then
         query="SELECT `id`,`user`,`time`,`cmd` FROM `pi_cmdlog` ORDER BY `time` DESC;"
      end
      if string.find(data,cmd_list.."%s(%d+)$") then
         local _,_,x = string.find(data,cmd_list.."%s(%d+)$")
         query="SELECT `id`,`user`,`time`,`cmd` FROM `pi_cmdlog` ORDER BY `time` DESC LIMIT 0,"..x..";"
      end
      local i = 1
      local r,cnt = VH:SQLQuery(query);
      local t = "$To: "..nick.." From: "..BotNick.." $<"..BotNick.."> \nId\tUser\t\t\tTime\t\t\tCommand"
      for i = 1, cnt do
         local _,id,user,timestamp,cmd = VH:SQLFetch(cnt-i)
         local nl = math.ceil(string.len(user)/8)
         t = t.."\n"..id.."\t"..user..string.rep("\t",4-nl)..os.date("%Y-%m-%d %H:%M:%S",tonumber(timestamp)).."\t"..cmd
      end
      VH:SendDataToUser(t.."|",nick)
      return 0
   end
   local n = string.gsub(nick,"'","\\'")
   n = string.gsub(n,"\"","\\\"")
   local d = string.gsub(data,"'","\\'")
   d = string.gsub(d,"\"","\\\"")
   VH:SQLQuery("INSERT INTO `pi_cmdlog` SET `user`='"..n.."',`cmd`='"..d.."',`time`=UNIX_TIMESTAMP();")
   return 1
end

function Main()
   VH:SQLQuery("CREATE TABLE IF NOT EXISTS `pi_cmdlog` (`id` int(11) unsigned NOT NULL auto_increment, `user` varchar(32) NOT NULL default '', `cmd` text NOT NULL, `time` int(13) NOT NULL default '0', PRIMARY KEY  (`id`), INDEX `user` (`user`));")
   local r,bot = VH:GetConfig("config", "hub_security")
   if r then
      BotNick = bot
   end
end