Austnet DCC Allow via CTCP

AustnetDCCAllowTrigger.scpt

using terms from application "Colloquy"

	on process subcode request command with args from user on conn
		if command is "DCCALLOW" then
			send raw command ("dccallow +" & user's name) to conn
			tell user
				send message ("DCC Allow request accepted")
			end tell
			return true
		end if

	end process subcode request

end using terms from