All pastes #368963 Raw Edit

Untitled

public text v1 · immutable
#368963 ·published 2007-02-23 14:04 UTC
rendered paste body
dim section , rlz , rlzdate ,dest
dim err

err = 0

WindowMgr.ActiveWindow.Display.Echo  "Debug: "+ CTCP + " " +Params + " " + Sender.Nick
WindowMgr.ActiveWindow.Display.Echo  "Debug: "+ Sender.Nick
if ( CTCP = "REQUEST" ) then
	section = Strutils.NParam(1,Params)
	rlz 	= Strutils.NParam(2,Params)
	'rlzdate	= Strutils.NParam(2,Params)
    'or (Allowed_byhost ( Sender.Address ))
	dest = Allowed_bynick ( Sender.Nick )
	if ( dest <> "NULL"  )  then
	WindowMgr.ActiveWindow.Display.Echo  "Ok Debug-> dest:"+ dest + " Section>"  +section + " rlz->" + rlz

		if ( section = "divx" ) then request  dest, rlz, "ng1", "divxfr"  	end if
		'if ( section = "0day" ) then request  dest, rlz, "ng1", "divxfr"  	end if
		'if ( section = "divx" ) then request  dest, rlz, "ng1", "divxfr"  	end if
		'if ( section = "divx" ) then request  dest, rlz, "ng1", "divxfr"  	end if
    end if

end if