-- CompleteRedirect.lua, created by aMutex Jan-01,2003 
function Main() 
end 

function DataArrival(user, data) 
	if( strsub(data, 1, 1) == "<" ) then 
		-- remove pipe at the end
		data=strsub(data,1,strlen(data)-1) 

		s,e,cmd,arg = strfind( data, "%b<>%s+(%S+)%s+(%S+)" ) 
		--test if argument was given
		if (arg==Nil) then
			-- no argument given, redo for getting the command
			s,e,cmd = strfind( data, "%b<>%s+(%S+)%s*" )
		end
		if (user.bOperator) then 
			if (cmd=="+chred") then 
				-- remove pipe at the end: 
				frmHub:SetRedirectAddress(arg) 
				user:SendPM("Redirect Change", "The redirect adress has been changed to "..arg) 
			end 

			SendToAll("Redirect",cmd);
			if (cmd=="+redirectallnow") then 
				-- remove pipe at the end: 
				--frmHub:SetRedirectAddress(arg) 
				SendToAll("RedirectBot", "Redirecting... |$ForceMove "..frmHub:GetRedirectAddress().."|") end 
			end 
		end
	end 
end