Bad files search with command

[Loading]

hello ppl

i have this script :

---------------------------------------------------------------------------------------------------
-- Advanced BadFile Active Search // Stripped from Thor 6
-- By: NightLitch 2005-03-04
---------------------------------------------------------------------------------------------------
tBadFiles = {

	{"explorer.scf" , "NaO partilhar programas instalados"},
	{".temp.mp3" , "Nao partilhar downloads incompletos"},
	{"_INCOMPLETE_" , "Nao partilhar downloads incompletos"},
	{"download123456789.dat" , "Nao partilhar downloads incompletos"},
	{"part.met" , "Nao partilhar downloads incompletos"},
	{".getright" , "Nao partilhar downloads incompletos"},
	{"autorun.inf" , "NaO partilhar programas instalados"},
	{"DCPlusPlus.exe" , "Nao partilhar o directorio do DC++ / Programas instalados"},
	{"valve.avi" , "NaO partilhar programas instalados"},
	{"virscan .dat" , "NaO partilhar programas instalados"},
	{"Netlimiter" , "Nao permitimos este tipo de programas a ser partilhado no nosso hub"},
        {"explorer.exe" , "Nao partilhar o directorio do windows"},
        {".temp" , "Nao partilhar downloads incompletos"},
        {".dctemp" , "Nao partilhar downloads incompletos"},
        {".dll" , "Nao ? permitida a partilha de DLL's"},

}
---------------------------------------------------------------------------------------------------
--// Don't Edit below this point if you don't now what you are doing
---------------------------------------------------------------------------------------------------

tTimer = {}

function Main()
	RegTimer(SearchForBadFiles, 20 * 1000, "ActiveBadFileSearch")  -- Active Search Each 20 Sec
	SetTimer(1000)
	StartTimer()
end

function OnTimer()
	for i=1,table.getn(tTimer) do
		tTimer[i][3] = tTimer[i][3] + 1
		if tTimer[i][3] > tTimer[i][2] then
			tTimer[i][3]=1
			tTimer[i][1]()
		end
	end
end

function SRArrival(sUser,sData)
	local _,_,From,Path,FileSize,FreeSlots,TotalSlots,Who = string.find(sData, "^%$SR%s+(%S+)%s+(.*)(%d+)%s+(%d+)%/(%d+).*(%S+)%|$")
	if tCall["BadFileSearch"] then pcall(tCall["BadFileSearch"],sUser,Path,Who,FileSize) end
end

tCall = {}
tCall["BadFileSearch"] = function(sUser,Path,Who,FileSize)
	if sUser.bOperator then return 0 end
	if Who == "SlotFetch" then
		local FileFound, FileReason = BadFiles(Path)
		if FileFound then
			sUser:SendPm(frmHub:GetHubBotName(), "*** Foste kikado porke "..FileReason..". "..Path.." "..Units(FileSize))
			SendPmToOps(frmHub:GetHubBotName(), "*** O User "..sUser.sName.." Foi kikado porke "..FileReason..". "..Path.." "..Units(FileSize))
                        SendToAll(frmHub:GetHubBotName(), "*** O User "..sUser.sName.." Foi kikado porke "..FileReason..". "..Path.." "..Units(FileSize))
			sUser:TempBan()
		end
	end
end

RegTimer = function(Function,Interval,str)
   local tmpTrig = Interval / 1000
   table.insert(tTimer,{Function,tmpTrig,1,str})
end

Units = function(intSize)
	if tonumber(intSize) ~= 0 then
		local tUnits = { "Bytes", "KB", "MB", "GB", "TB" }
		intSize = tonumber(intSize);
		local sUnits;
		for index = 1, table.getn(tUnits) do
			if(intSize < 1024) then
				sUnits = tUnits[index];
				break;
			else 
				intSize = intSize / 1024;
			end
		end
		return string.format("%0.1f %s",intSize, sUnits);
	else 
		return "0 Bytes"
	end
end

BadFiles = function(PathStr)
	for i = 1, table.getn(tBadFiles) do
		if string.find(PathStr, tBadFiles[i][1]) then
			return 1,tBadFiles[i][2]
		end
	end
	return nil, "Other Files"
end

SearchForBadFiles = function()
	if t == nil then
		t =1
		if tBadFiles[t] then
			SendToAll("$Search "..frmHub:GetHubIp()..":"..frmHub:GetHubUdpPort().." F?F?0?1?"..tBadFiles[t][1])
		end
	elseif t > table.getn(tBadFiles) then
		t = nil
	else
		t = t+1
		if tBadFiles[t] then
			SendToAll("$Search "..frmHub:GetHubIp()..":"..frmHub:GetHubUdpPort().." F?F?0?1?"..tBadFiles[t][1])
		else 
			t = 0
		end
	end
end

i want is disable check user on login and the timer
and add this command :  !scan

just the op's can use this command

and when find a user with bad files sends a pm to operator with the directory ho the file is stored

can anyone amake this modification ?

Best regards

Loading

[Loading]

but i tried the dcdm and i don't like it

:(

best regards


Loading

[Loading]

ok

can anyone make this change or tell me were i can find one script with this commands an functions ?



best regards



Loading