Reg Cleaner

[Pothead]

May not be very efficient / optimized, but it does the job. :)

*** Edit, not quite updated for new ptokaX. Needs XML handling doing.  Is this done the same way as in DC++ or differently.  a LUA script which shows XML handleing being done, would make it quite a bit easier.

-- auto/manual registered user cleaner if user hasn't been in the hub for x weeks
-- made by plop
-- julian day function made by the guru tezlo
-- code stripped from artificial insanety bot
-- updated to LUA 5 by Pothead

-- !noclean  add/remove  - adds/removes users from/to the list which aren't cleaned
-- !showusers - shows all registered users
-- !seen  - shows the last time the user left the hub
-- !shownoclean - shows all names wich are on the noclean list
-- !cleanusers - manualy start the usercleaner

--------------------------------------------------------------------- config
WEEKS = 2    -- every1 older then x weeks is deleted
Bot = frmHub:GetHubBotName()
AUTO = 0   -- use 1 for automode, 0 for manual
CleanLevels = {[3]=1} -- levels it needs 2 clean

---------------------------------------------------------------------  the needed tables
UsersTable = {}
Seen = {}
NoClean = {}


--------------------------------------------------------------------- julian day function 2 calcute the time users spend in the hub
function jdate(d, m, y)
	local a, b, c = 0, 0, 0
	if m <= 2 then
		y = y - 1
		m = m + 12
	end
	if (y*10000 + m*100 + d) >= 15821015 then
		a = math.floor(y/100)
		b = 2 - a + math.floor(a/4)
	end
	if y <= 0 then c = 0.75 end
	return math.floor(365.25*y - c) + math.floor(30.6001*(m+1) + d + 1720994 + b)
end

--------------------------------------------------------------------- loading the last seen database
function LoadLastSeen()
	filename = "../logs/lastseen.lst"
	if not io.open(filename, "r") then
		local File = io.open( filename, "w" );
		File:flush();
		File:close();   
	end	
	local file = io.open(filename, "r") -- "r" read
	for line in file:lines() do
		local s,e,name,date = string.find(line, "(.+)$(.+)")
		if name ~= nil then
			Seen[name]=date
		end
	end
	file:flush()	
	file:close()	
end

--------------------------------------------------------------------- saving last seen date
function SaveSeen()
	filename = "../logs/lastseen.lst"
	local file = io.open(filename, "w+") -- "w" write
	for a,b in Seen do
		Seen[a]=b
		file:write(a.."$"..b.."\n")
	end
	file:flush()
	file:close()
end

--------------------------------------------------------------------- call the garbage man
function Clear() 
	collectgarbage() 
end

--------------------------------------------------------------------- opening the registered users file from ptokax and inserting the users into the table
function OpenRegisterdUsersFile()
	filename = "../cfg/RegisteredUsers.xml"
	UsersTable = nil
	Clear()	
	UsersTable = {}
	local file = io.open(filename, "r") -- "r" read
	for line in file:lines() do
		local name, level 
		s,e,name,level = string.find(line,"(.+)|.+|(.+)")
		if CleanLevels[tonumber(level)] then
			UsersTable[name] = 1
		end
	end	
	file:flush()	
	file:close()	
end

--------------------------------------------------------------------- extracting the time/date when a user was last seen from the database
function SeenUser(user, data)
	s,e,who = string.find(data, "%b<>%s%S+%s(.+)")
	if who == nil then
		user:SendPM(Bot, "Syntax error, can't read your mind, pls tell me wich user you wanne check|")
	elseif Seen[who] then
		user:SendPM(Bot, who.." was last seen on: "..Seen[who].."|")
	else
		user:SendPM(Bot, who.." is a unknown user|")
	end
end

--------------------------------------------------------------------- shows all the nicks of all registered users
function NewShowUsers(user)
	local lines = {}
	local info = "\r\n\r\n"
	info = info.."  Here are the registered users\r\n"
	info = info.."=====================================\r\n"
	for a,b in UsersTable do
		table.insert(lines, a)
	end
	table.sort(lines)
	for i=1,table.getn(lines) do 
		info = info.."  "..lines[i].."\r\n"
	end
	info = info.."=====================================\r\n"
	user:SendPM(Bot, info.." |")
	Clear()
end

--------------------------------------------------------------------- shows all the nicks on the no clean list
function ShowNoClean(user)
	local lines =  {}
	local info = "\r\n\r\n"
	info = info.." Here are the users who aren't cleaned\r\n"
	info = info.."=====================================\r\n"
	for a,b in NoClean do
		table.insert(lines, a)
	end
	table.sort(lines)
	for i=1,table.getn(lines) do 
		info = info.."  "..lines[i].."\r\n"
	end
	info = info.."=====================================\r\n"
	user:SendPM(Bot, info.." |")
	Clear()
end

--------------------------------------------------------------------- cleanup old users
function CleanUsers()
	SendToAll(Bot, "The cleaner has been called. Every registered user who hasn't been in the hub for "..WEEKS.." weeks will be deleted. (contact the OP's if your gone be away for a period longer then that)|")
	OpenRegisterdUsersFile()
	local s,e,month,day,year = string.find(os.date("%x"), "(%d+)%/(%d+)%/(%d+)")
	year = "20"..year
	local juliannow = jdate(tonumber(day), tonumber(month), tonumber(year))
	local oldest = WEEKS*7
	local Count2,Count = 0,0
	for a,b in UsersTable do
		Count = Count+1
		if Seen[a] then
			if NoClean[a]== nil then 
				local s,e,monthu,dayu,yearu = string.find(Seen[a], "(%d+)%/(%d+)%/(%d+)")
				yearu = "20"..yearu
				local julianu = jdate(tonumber(dayu), tonumber(monthu), tonumber(yearu))
				if (juliannow - julianu) > oldest then
					Count2 = Count2 +1
					Seen[a] = nil
					DelRegUser(a)
				end
			end
		else
			Seen[a] = os.date("%x")
		end
	end 
	if Count ~= 0 then
		SendToAll(Bot, Count.." users were procest, "..Count2.." of them were deleted.|")
	end
	SaveSeen()
	OpenRegisterdUsersFile()
end

--------------------------------------------------------------------- don't clean this users adding/removing
function NoCleanUser(user, data)
	local s,e,who, addrem = string.find(data, "%b<>%s+%S+%s+(%S+)%s+(%S+)%s*")
	if (who or addrem) == nil then
		user:SendData(Bot, "RTFM ;). it's !noclean  |")
	elseif UsersTable[who] then
		if addrem == "add" then
			if NoClean[who] then
				user:SendData(Bot, who.." is allready on the imune list.|")
			else
				NoClean[who] = 1
				user:SendData(Bot, who.." is added to the imune list and won't be cleaned.|")
				SaveNoClean()
			end
		elseif addrem == "remove" then
			if NoClean[who] then
				NoClean[who] = nil
				user:SendData(Bot, who.." is removed from the imune list.|")
				SaveNoClean()
			else
				user:SendData(Bot, who.." was not on the imune list.|")
			end
		else
			user:SendData(Bot, "RTFM ;). it's !noclean  |")
		end
	else
		user:SendData(Bot, who.." isn't a registered user.|")
	end
end

--------------------------------------------------------------------- saving last seen date
function SaveNoClean()
	filename = "../logs/noclean.lst"
	local file = io.open(filename, "w+") -- "w" write	
	for a,b in NoClean do
		file:write(a.."\n")
	end
	file:flush()
	file:close()
end

--------------------------------------------------------------------- load no clean users from file
function LoadNoClean()
	filename = "../logs/noclean.lst"
	if not io.open(filename, "r") then
		local File = io.open( filename, "w" );
		File:flush();
		File:close();   
	end
   	local file = io.open(filename, "r") -- "r" read
	for line in file:lines() do   	
		NoClean[line] = 1   	   
	end 
	file:flush()	
	file:close()   
end

--------------------------------------------------------------------- do i need 2 explain this ?????
function ChatArrival(user, data) 
	if AUTO == 1 then
		if CleanDay ~= os.date("%x") then -- user cleaning trigger, works as a timer without a timer
			CleanDay = os.date("%x")
			CleanUsers()
		end
	end
	if( string.sub(data, 1, 1) == "<" ) then 
		if user.bOperator then
			data=string.sub(data,1,string.len(data)-1) 
			s,e,cmd = string.find(data,"%b<>%s+(%S+)") 
			if cmd == "!noclean" then
				NoCleanUser(user, data)
				return 1
			elseif cmd == "!showusers" then
				NewShowUsers(user)
				return 1
			elseif cmd == "!shownoclean" then
				ShowNoClean(user)
				return 1
			elseif cmd == "!seen" then
				SeenUser(user, data)
				return 1
			elseif cmd =="!cleanusers" then
				CleanUsers()
				return 1
			end
		end
	end
end

--------------------------------------------------------------------- stuff done when a user/vip leaves
function UserDisconnected(user)
	if UsersTable[user.sName] then
		Seen[user.sName]=os.date("%x")
		SaveSeen()
	end
end

--------------------------------------------------------------------- do the same stuff for op's if needed
function OpDisconnected(user)
	if UsersTable[user.sName] then
	Seen[user.sName]=os.date("%x")
	SaveSeen()
	end
end

--------------------------------------------------------------------- stuff done on bot startup
function Main()
	OpenRegisterdUsersFile()
	LoadNoClean()
	LoadLastSeen()
	CleanDay = os.date("%x")
end

[UwV]

thanks ..

[UwV]

k ..
little bug i found ..

when i do !cleanusers ..

bug has disapeared :0)

& great thanks work

* edit first thing was my mistake ..
* edit the second thing is a mystery to me but, now is no more..

[Pothead]

Originally posted by UwV
k ..
little bug i found ..

when i do !cleanusers ..

those that are not cleaned .. get a new date in lastseen.lst set to "date/last/cleaned"   so they would never get cleaned this way ..)

but..  almost right .. :0)
& great work

* edit the other thing was my mistake ..

So it works or not  ?( Because when i just tested this, it seems fine to me ?(

[UwV]

excuse me ..
i dont know ..
i have rebooted my hub and it works fine now..
guess was something not to do with this script ..
 but for some reason the thing i deleted above happened..

[johnynl]

ok Pothead i seen that script, and it looks great but is it posible for you to transphere the next script to lua 5 for me, my thnak will be verry big man

------------------------------------------------------------
-- Show All Registered Users
-- By NightLitch 2003
-- Modded By [fow]CCCL-NL on 27.05.2004
-- Adapted for RoboCop V9.0
--
-- Command: !crew
-- Command: !showlevel
------------------------------------------------------------
BotName = "==TeamBot=="

function Main()
--   frmHub:RegBot(BotName)
end
------------------------------------------------------------
NAMES = {
   ["reg"] = "\r\n\t Current Registered Users",
   ["vip"] = "\r\n\t Current Registered Vips",
   ["operator"] = "\r\n\t CurrentRegistered Operators",
   ["moderator"] = "\r\n\t Current Registered Moderators",
   ["master"] = "\r\n\t Current Registered Owner",
   ["owner"] = "\r\n\t Current Registered Owner",
   ["netfounder"] = "\r\n\t Current Registered NetworkFounder"
   }

function DataArrival(curUser, data)
   if strsub(data, 1, 1) ~= "<" then return end
   data = strsub(data, 1, (strlen(data)-1))
   local s, e, cmd, args = strfind(data, "^%b<>%s%!(%a+)%s*(.*)")
   if not s then return end
   cmd = strlower(cmd)
   if (cmd=="crew") then
      Msg = "\r\n"
      ShowRegistered()
      curUser:SendPM(BotName, Msg)
      return 1
   elseif cmd == "showlevel" then
      Msg = "\r\n"
      ViewRegs(args)
      curUser:SendPM(BotName, Msg)
      return 1
   end
end

function ShowRegistered()
   ViewRegs("NetFounder")
   ViewRegs("MASTER")
   ViewRegs("MODERATOR")
   ViewRegs("OPERATOR")
   ViewRegs("VIP")
   ViewRegs("REG")

   Msg = Msg.."\r\n\tEnd of List"
end

function ViewRegs(Level)
   table = nil
   if tonumber(Level) then
      if GetProfileName(Level) then
         Level = GetProfileName(Level)
         table = GetUsersByProfile(Level)
      end
   else
      table = GetUsersByProfile(Level)
   end
   if type(table) == "table" then
      local temp = {}
      for index, names in table do
         tinsert(temp, names)
      end
      sort(temp)
      if getn(temp) == 0 then
         Msg = Msg.."\r\n ".."No users found with the level: "..Level.."\r\n"
      else
         Msg = Msg.."\r\n>>=====================================<<"
         Msg = Msg..NAMES[strlower(Level)]
         Msg = Msg.."\r\n>>=====================================<<\r\n"
         for i=1,getn(temp) do
            local _,_,ProfileName = strfind(temp,"(%S+)")
            if GetItemByName(ProfileName) then
               Msg = Msg.." "..i.."\t           Online\t"..ProfileName.."\r\n"
            else
               Msg = Msg.." "..i.."\tOffline\t\t"..ProfileName.."\r\n"
            end
         end
         Msg = Msg..">>=====================================<<\r\n"
      end
   else
      Msg = Msg.."\r\n ".."No users found with the level: "..Level.."\r\n"
   end
end

it show up like the next lines.

<==TeamBot==>

>>=====================================<<
    Current Registered NetworkFounder
>>=====================================<<
 1              Online   [fow]CCCL-NL
 2   Offline      [fow]honda
 3   Offline      [fow]honda-test
>>=====================================<<

>>=====================================<<
    Current Registered Owner
>>=====================================<<
 1   Offline      [fow]-Cleaner
 2   Offline      [fow][Mas]iemie
 3              Online   [fow]iemie
 4   Offline      [fow]only-for-testing
>>=====================================<<
and so on.

[Pothead]

-- Show All Registered Users 
-- By NightLitch 2003 
-- Modded By [fow]CCCL-NL on 27.05.2004 
-- Adapted for RoboCop V10
-- Updated to LUA 5 by Pothead 
-- 
-- Command: !crew 
-- Command: !showlevel 
------------------------------------------------------------ 
BotName = frmHub:GetHubBotName() 
------------------------------------------------------------ 
NAMES = { 
	["reg"] = "\r\n\t Current Registered Users", 
	["vip"] = "\r\n\t Current Registered Vips", 
	["operator"] = "\r\n\t CurrentRegistered Operators", 
	["moderator"] = "\r\n\t Current Registered Moderators", 
	["master"] = "\r\n\t Current Registered Owner", 
	["owner"] = "\r\n\t Current Registered Owner", 
	["netfounder"] = "\r\n\t Current Registered NetworkFounder" 
} 

function ChatArrival(curUser, data) 
	if (string.sub(data,1,1) == "<" or string.sub(data,1,5+strlen(sBot)) == "$To: "..sBot) then
		data = string.sub(data,1,string.len(data)-1)
		local s, e, cmd, args = string.find(data, "^%b<>%s%!(%a+)%s*(.*)") 
		if not s then return end 
		cmd = string.lower(cmd) 
		if (cmd=="crew") then 
			Msg = "\r\n" 
			ShowRegistered() 
			curUser:SendPM(BotName, Msg) 
		return 1 
		elseif cmd == "showlevel" then 
			Msg = "\r\n" 
			ViewRegs(args) 
			curUser:SendPM(BotName, Msg) 
			return 1 
		end
	end 
end 

function ShowRegistered() 
	ViewRegs("NetFounder") 
	ViewRegs("Master") 
	ViewRegs("Moderator") 
	ViewRegs("Operator") 
	ViewRegs("Vip") 
	ViewRegs("Reg") 
	Msg = Msg.."\r\n\tEnd of List" 
end 

function ViewRegs(Level) 
	tables = nil 
	if tonumber(Level) then 
		if GetProfileName(Level) then 
			Level = GetProfileName(Level) 
			tables = GetUsersByProfile(Level) 
		end 
	else 
		tables = GetUsersByProfile(Level) 
	end 
	if type(tables) == "table" then 
		local temp = {} 
		for index, names in tables do 
			table.insert(temp, names) 
		end 
		table.sort(temp) 
		if table.getn(temp) == 0 then 
			Msg = Msg.."\r\n ".."No users found with the level: "..Level.."\r\n" 
		else 
			Msg = Msg.."\r\n>>=====================================<<" 
			Msg = Msg..NAMES[string.lower(Level)] 
			Msg = Msg.."\r\n>>=====================================<<\r\n" 
			for i=1,table.getn(temp) do 
				local _,_,ProfileName = string.find(temp[i],"(%S+)") 
				if GetItemByName(ProfileName) then 
					Msg = Msg.." "..i.."\t Online\t"..ProfileName.."\r\n" 
				else 
					Msg = Msg.." "..i.."\tOffline\t\t"..ProfileName.."\r\n" 
				end 
			end 
			Msg = Msg..">>=====================================<<\r\n" 
		end 
	else 
		Msg = Msg.."\r\n ".."No users found with the level: "..Level.."\r\n" 
	end 
end

[johnynl]

Whow man i like this speedy service.
great thanks from the whole fow community.
But im wondering if you could do an other one for me sir?

------------------------------------------------------------------------------
Bot = "newyear"
--This the date the timer has 2 stop @ midnight
-- year (2 numbers), month, day
SylYear,SylMonth,SylDay = 05,12,31
-- this is the file 2 be shown
file = "happynewyear.txt"
------------------------------------------------------------------------------


------------------------------------------------------------------------------
function OnTimer()
   if last == 0 then
      SendToAll(Bot, TimeLeft())
      Sync()
   elseif last == 1 then
      SendAscii() -- send the msg
      StopTimer() -- kill the timer
   end
end
------------------------------------------------------------------------------
function jdatehms(d, m, y,ho,mi,se)
   local a, b, c = 0, 0, 0
   if m <= 2 then
      y = y - 1
      m = m + 12
   end
   if (y*10000 + m*100 + d) >= 15821015 then
      a = floor(y/100)
      b = 2 - a + floor(a/4)
   end
   if y <= 0 then c = 0.75 end
   return floor(365.25*y - c) + floor(30.6001*(m+1) + d + 1720994 + b),ho*3600+mi*60+se
end
------------------------------------------------------------------------------
function TimeLeft()
   local curday,cursec = jdatehms(tonumber(date("%d")),tonumber(date("%m")),tonumber(date("%y")),tonumber(date("%H")),tonumber(date("%M")),tonumber(date("%S")))
   local sylday,sylsec = jdatehms(SylDay,SylMonth,SylYear,24,0,0)
   local tmp = sylsec-cursec
   local hours, minutes,seconds = floor(mod(tmp/3600, 60)), floor(mod(tmp/60, 60)), floor(mod(tmp/1, 60))
   local day = sylday-curday
   if day >= 0 then
      line = "Time left till new year:"
      if day ~= 0 then
         line = line.." "..day.." Day's"
      end
      if hours ~= 0 then
         line = line.." "..hours.." Hours"
      end
      if minutes ~= 0 then
         line = line.." "..minutes.." Minutes"
      end
      if seconds ~= 0 then
         line = line.." "..seconds.." Seconds"
      end
      return line
   else
      return 1
   end
end
------------------------------------------------------------------------------
function ShowAscii()
   text ="\r\n\r\n"
   readfrom(file)
   while 1 do
      local line = read()
      if line == nil then
         readfrom()
         break
      end
      text = text..line.."\r\n"
   end
end
------------------------------------------------------------------------------
function SendAscii()
   SendToAll(Bot, text.." |")
   SendToAll(Bot, "THe Netfounders/Owners/Operators From The >> FOW-NETWORK << Wiish You All A Happy Newyear|")
end
------------------------------------------------------------------------------
function DataArrival(user, data)
   if( strsub(data, 1, 1) == "<" ) then
      data=strsub(data,1,strlen(data)-1)
      s,e,cmd = strfind(data,"%b<>%s+(%S+)")
      if cmd == "!daysleft" then
         local tmp = TimeLeft()
         if tonumber(tmp) == nil then
            user:SendData(Bot, tmp.."|")
         end
         return 1
      end
   end
end
------------------------------------------------------------------------------
function NewUserConnected(user)
   local tmp = TimeLeft()
   if tonumber(tmp) == nil then
      user:SendData(Bot, tmp.."|")
   end
end
------------------------------------------------------------------------------
function OpConnected(user)
   local tmp = TimeLeft()
   if tonumber(tmp) == nil then
      user:SendData(Bot, tmp.."|")
   end
end
------------------------------------------------------------------------------
function Main()
   SetTimer(100 * 1000)
   StartTimer()
   local tmp = TimeLeft()
   if tonumber(tmp) == nil then
      SendToAll(Bot, tmp.."|")
   end
   Sync()
   ShowAscii()
   last = 0
end
------------------------------------------------------------------------------
function Sync()
   local curday,cursec = jdatehms(tonumber(date("%d")),tonumber(date("%m")),tonumber(date("%y")),tonumber(date("%H")),tonumber(date("%M")),tonumber(date("%S")))
   local sylday,sylsec = jdatehms(SylDay,SylMonth,SylYear,24,0,0)
   local tmp = sylsec-cursec
   local hours, minutes,seconds = floor(mod(tmp/3600, 60)), floor(mod(tmp/60, 60)), floor(mod(tmp/1, 60))
   local day = sylday-curday
   if day ~= 0 then
      adjust = (floor(mod(minutes, 60))*60)+seconds
      if adjust ~= 0 then
         SetTimer(adjust * 1000)
      else
         SetTimer(3600 * 1000)
      end
   else
      if tmp > 3600 then  --- every hours a msg
         adjust = (floor(mod(minutes, 60))*60)+seconds
         if adjust ~= 0 then
            SetTimer(adjust * 1000)
         else
            SetTimer(3600 * 1000)
         end
      elseif tmp > 900 then  -- every 15 mins a msg
         adjust = (floor(mod(minutes, 15))*60)+seconds
         if adjust ~= 0 then
            SetTimer(adjust * 1000)
         else
            SetTimer(900 * 1000)
         end
      elseif tmp > 300 then  -- every 5 mins a msg
         adjust = (floor(mod(minutes, 5))*60)+seconds
         if adjust ~= 0 then
            SetTimer(adjust * 1000)
         else
            SetTimer(300 * 1000)
         end
      elseif tmp > 60 then  -- every min a msg
         adjust = (floor(mod(minutes, 1))*60)+seconds
         if adjust ~= 0 then
            SetTimer(adjust * 1000)
         else
            SetTimer(60 * 1000)
         end
      elseif tmp > 15 then  -- every 15 secs a msg
         adjust = floor(mod(seconds, 15))
         if adjust ~= 0 then
            SetTimer(adjust * 1000)
         else
            SetTimer(15 * 1000)
         end
      elseif tmp > 10 then  -- every 10 secs a msg
         adjust = floor(mod(seconds, 10))
         if adjust ~= 0 then
            SetTimer(adjust * 1000)
         else
            SetTimer(5 * 1000)
         end
      elseif tmp > 1 then
         SetTimer(1 * 1000)
      else
         last = 1
         SetTimer(1 * 1000)
      end
   end
end
------------------------------------------------------------------------------


thanks again in advance sir

[TiMeTrAVelleR]

About regcleaner   after  4  reboots   and  5 days  running  there stil no users  in  tbl file last seen ???

Greetz  TiMeTrAVelleR

[Pothead]

Open it in notepad, or a text editor. Goto Edit \ Replace . . .

Find: DataArrival --> Replace: ChatArrival
Find: floor ---> Replace: math.floor
Find: date --> Replace: os.date
Find: mod --> Replace: math.mod
Find: str --> Replace: string.
(do not forget the . (fullstop))

Then Replace

function ShowAscii() 
	text ="\r\n\r\n" 
	readfrom(file) 
	while 1 do 
		local line = read() 
		if line == nil then 
			readfrom() 
			break 
		end 
		text = text..line.."\r\n" 
	end 
end

with

function ShowAscii() 
	text ="\r\n\r\n" 
	local file = io.open(file, "r") -- "r" read
	for line in file:lines() do
		text = text..line.."\r\n" 
	end
	file:flush()
	file:close()
end

[Pothead]

Originally posted by T?M??r?V?ll?R
About regcleaner   after  4  reboots   and  5 days  running  there stil no users  in  tbl file last seen ???

Greetz  TiMeTrAVelleR

Put it on Auto. Or run !cleanusers. :)

This part you change to how you want it to run.

WEEKS = 2    -- every1 older then x weeks is deleted
AUTO = 0   -- use 1 for automode, 0 for manual
CleanLevels = {[3]=1} -- levels it needs 2 clean

[johnynl]

whow man again thanks for your fast service,
maybe you got time to do one last one for me

--100% Blocker by chill
--Table Load and Save (added by nErBoS)

sBot = "[fow]-Leech"

cmd1 = "!block"
cmd2 = "!unblock"
cmd3 = "!laatzien"


BlockedNicks = {}
fBlock = "block.dat"
OpChatName = frmHub:GetOpChatName()	--Use this line for inbuilt Px opchat


--## Configuration ##--

uLaterPtokax = 0	-- Choose 0 if you are using Ptokax Version 0.3.3.0 or higher
			-- Choose 1 if you are using Ptokax Version lower then 0.3.3.0

--## END ##--

function Main()
--	frmHub:RegBot(sBot)
	frmHub:EnableFullData(1) 
	LoadFromFile(fBlock)
end

function OnExit()
	SaveToFile(fBlock , BlockedNicks , "BlockedNicks")
end

BlockTriggs = {
	["$Rev"] = 1,
	["$Con"] = 2,
}

function DataArrival(curUser,data)
	if strsub(data,1,1) == "$" then
		local str1 = strsub(data,1,4)
		if BlockTriggs[str1] then
			if BlockedNicks[strlower(curUser.sName)] then
				curUser:SendData("*** You are not authorized to download.")
				return 1
			else if BlockTriggs[str1] == 1 then
				local _,_,conNick = strfind(data,"(%S+)|$")
				if BlockedNicks[strlower(conNick)] then
					curUser:SendData("*** The user "..conNick.." you are trying to download from is not authorized to upload.")
					return 1
				end
			else if BlockTriggs[str1] == 2 then
				local _,_,conNick = strfind(strsub(data,14,strlen(data)),"^(%S+)")
				if BlockedNicks[strlower(conNick)] then
					curUser:SendData("*** The user "..conNick.." you are trying to download from is not authorized to upload.")
					return 1
				end
			end
			end
			end
		end
	end
--	if (strsub(data,1,1) == "<" or strsub(data,1,5+strlen(sBot)) == "$To: "..sBot) and curUser.iProfile == 5 or curUser.iProfile == 0 then
	if (strsub(data,1,1) == "<" or strsub(data,1,5+strlen(sBot)) == "$To: "..sBot) and curUser.bOperator then
		data = strsub(data,1,strlen(data)-1)
		local _,_,cmd = strfind(data,"%b<>%s+(%S+)")
		local _,_,nick = strfind(data,"%b<>%s+%S+%s+(%S+)")
		if cmd and cmd == cmd2 and nick then
			if BlockedNicks[strlower(nick)] then
				BlockedNicks[strlower(nick)] = nil
				SendPmToOps(OpChatName, nick.." is now unblocked.")
				return 1
			end
		elseif cmd and cmd == cmd1 then
			if BlockedNicks[strlower(nick)] == 1 then
				curUser:SendPM(sBot, nick.." is already blocked. Use !unblock  to unblock this user.")
				return 1 
			else
				BlockedNicks[strlower(nick)] = curUser.sName
				SendPmToOps(OpChatName, nick.." is now blocked.") 
				return 1
			end
			if (uLaterPtokax == 1) then
				OnExit()
			end
				
			return 1  -- TELLS THE HUB TO STOP PROCESSING THE DATA
		elseif (cmd and cmd == cmd3 and curUser.bOperator) then
			local sTmp,aux,nick = "Users Blocked in this HUB:\r\n\r\n"
			for nick, aux in BlockedNicks do
				sTmp = sTmp.."User:-->> "..nick.."\t Was Blocked by: "..aux.."\r\n"
			end
			--curUser:SendPM(sBot, sTmp)
			SendPmToOps(OpChatName, sTmp) 
			return 1		
		end
	end
end



function Serialize(tTable, sTableName, sTab)
	assert(tTable, "tTable equals nil");
	assert(sTableName, "sTableName equals nil");
	assert(type(tTable) == "table", "tTable must be a table!");
	assert(type(sTableName) == "string", "sTableName must be a string!");
	sTab = sTab or "";
	sTmp = ""
	sTmp = sTmp..sTab..sTableName.." = {\n"
	for key, value in tTable do
		local sKey = (type(key) == "string") and format("[%q]",key) or format("[%d]",key);
		if(type(value) == "table") then
			sTmp = sTmp..Serialize(value, sKey, sTab.."\t");
		else
			local sValue = (type(value) == "string") and format("%q",value) or tostring(value);
			sTmp = sTmp..sTab.."\t"..sKey.." = "..sValue
		end
		sTmp = sTmp..",\n"
	end
	sTmp = sTmp..sTab.."}"
	return sTmp
end

function SaveToFile(file , table , tablename)
	writeto(file)
	write(Serialize(table, tablename))
	writeto()
end

function LoadFromFile(file)
	if (readfrom(file) ~= nil) then
		readfrom(file)
		dostring(read("*all"))
		readfrom()
	end
end

[Pothead]

Use this converter.  http://board.univ-angers.fr/thread.php?threadid=3737&boardid=5&sid=990c17a9dc54f12de14fd39ebbc9099f&page=2
Change DataArrival to ChatArrival.

Change the load and save functions to these:

function SaveToFile(file , table , tablename)
	local handle = io.open(file,"w+")
        handle:write(Serialize(table, tablename))
	handle:flush()
        handle:close()
end

function LoadFromFile(file)
	local handle = io.open(file,"r")
        if (handle ~= nil) then
                loadstring(handle:read("*all"))
		handle:flush()
		handle:close()
        end
end

(these are from http://board.univ-angers.fr/thread.php?threadid=3672&boardid=30&styleid=1&sid=990c17a9dc54f12de14fd39ebbc9099f  )

[johnynl]

hehehe ok sir, don the full conversion, but it still gives one error.

Syntax ...:\Robocop 10.1a\scripts\block_leechers-v3.0.lua5.lua:25: attempt to call method `EnableFullData' (a nil value)

[Pothead]

Originally posted by PPK

Originally posted by jiten
attempt to call method `EnableFullData' (a nil value)

EnableFullData is removed in new PtokaX, is not more needed  

So i assume, just delete that line, and it might work.

[johnynl]

thanks a lot sir i just removed that line and that script runs perfect now.
thanks a lot again sir.

[Tw?sT?d-d?v]

hi ...... can some1 alter this script to work with the new hub build plz  

as new build uses xml file's and not .dat

thx

[Jelf]

eh??
I have 16.06 and it uses dat
Wheres new version??

[Tw?sT?d-d?v]

Originally posted by Jelf
eh??
I have 16.06 and it uses dat
Wheres new version??

16.07 was released but ppk found prob and closed link

[Psycho_Chihuahua]

but 16.08 is out on ptokax.org now

[TTB]

Hi,

something is strange with the regcleaner... If no-one is chatting, the message won't appear... but if someone says something, the message appears:

[00:07:24]  The cleaner has been called. Every registered user who hasn't been in the hub for 10 weeks will be deleted. (contact the OP's if your gone be away for a period longer then that) 
[00:07:24]  107 users were procest, 0 of them were deleted. 
[00:07:24] <[SU]TTB> !mass

Someone else who has this weird thing?

[Psycho_Chihuahua]

i only get

The cleaner has been called. Every registered user who hasn't been in the hub for 2 weeks will be deleted. (contact the OP's if your gone be away for a period longer then that)

[??????Hawk??????]

sorry  just read above   :P  :P

[TiMeTrAVelleR]

Anione can get this to work whit new reguser XML file in lates  Ptokax

Greetzz  TT

[Bobby1999]

16.09 out now,new one every day :))