-- user info script by lallo82 
-- functions by plop (great work) 

Bot = "[BOT]UserInfo¤" 

function Main() 
   frmHub:RegBot(Bot) 
end 

function DataArrival(user, data) 
   if( strsub(data, 1, 1) == "<" ) then 
      -- remove end pipe 
      data=strsub(data,1,strlen(data)-1) 
      -- parse the command 
      s,e,cmd = strfind( data, "%b<>%s+(%S+)" ) 
      if (user.bOperator) then 
         if (cmd=="+userinfo" or cmd=="+whois" ) then 
            UserInfo(user, data) 
            return 1 
         end 
      end
   end 
end 

function GetArgML(data) 
   s,e,cmd,arg = strfind(data, "%b<>%s+(%S+)%s+(%S+)%s*") 
   return arg 
end 

function UserInfo(user, data) 
   who=GetArgML(data) 
   local usr = GetItemByName(who) 
   user:SendPM(Bot, "here is the info from: "..who.." |") 
   -- now whe know the user lets extract the info 
   -- ip of the user 
   user:SendPM(Bot, "ip: "..usr.sIP.." |") 
   -- client type and version 
   if (strfind(usr.sMyInfoString,"<DCGUI")) then 
      _,b, dcgui = strfind(usr.sMyInfoString,"V:0.(%x+.%x+)") 
      user:SendPM(Bot, "DCgui version: 0."..dcgui.." |") 
   elseif (strfind(usr.sMyInfoString,"<+")) then 
      if strfind(usr.sMyInfoString,"<o") then 
         clienttype = "oDC" 
      elseif strfind(usr.sMyInfoString,"V:0.%x+%a") then 
         clienttype = "czdc++" 
      elseif strfind(usr.sMyInfoString,"L:") or strfind(usr.sMyInfoString,"B:") then 
         clienttype = "bcdc++" 
      else 
         clienttype = "dc++" 
      end 
      _,b, dcver = strfind(usr.sMyInfoString,"V:0.(%x+)") 
      user:SendPM(Bot, clienttype.." client |") 
      user:SendPM(Bot, "version: 0."..dcver.." |") 
   end 
   -- active or pasive 
   if strfind(usr.sMyInfoString,"M:A") then 
      mode = "active" 
   else 
      mode = "pasive" 
   end 
   user:SendPM(Bot, mode.." mode |") 
   -- hub info 
   _,b, guest = strfind(usr.sMyInfoString,"H:(%x+)/") 
   if guest == nil then 
      _,b, hubs = strfind(usr.sMyInfoString,"H:(%x+)") 
      user:SendPM(Bot, hubs.." - hub(s) |") 
   else 
      _,b, regged = strfind(usr.sMyInfoString,"H:%x+/(%x+)/") 
      _,b, opped = strfind(usr.sMyInfoString,"H:%x+/%x+/(%x+)") 
      user:SendPM(Bot, guest.." - hub(s) as regular user |") 
      user:SendPM(Bot, regged.." - hub(s) as registered user |") 
      user:SendPM(Bot, opped.." - hub(s) as operator |") 
   end 
   -- slot info 
   _,b, slots = strfind(usr.sMyInfoString,"S:(%x+)") 
   user:SendPM(Bot, slots.." - slot(s) |") 
   -- bandwidth upload limiter 
   if strfind(usr.sMyInfoString,"L:") or strfind(usr.sMyInfoString,"B:") then 
      _,b, limiter = strfind(usr.sMyInfoString,"B:(%x+)") 
      if limiter == nil then 
         _,b, limiter = strfind(usr.sMyInfoString,"L:(%x+)") 
         if limiter == nil then 
            _,b, limiter = strfind(usr.sMyInfoString,"U:(%x+)") 
            if limiter == nil or limiter == "*" then 
               limiter = "not limited" 
            end 
         end 
      end 
      if tonumber(limiter) ~= nil then 
         if strlen(limiter) > 4 then 
            limiter = limiter / 1024 
         end 
      end 
      user:SendPM(Bot, "upload limited: "..limiter.." Kb/s |") 
   end 
   -- bandwidth download limiter 
   _,b, dlimiter = strfind(usr.sMyInfoString,"D:(%x+)") 
   if dlimiter ~= nil then 
      user:SendPM(Bot, "download limited: "..dlimiter.." Kb/s |") 
   end 
end