# CSS changer for individual user agents.
# Copyright (C) 2004 Ryuichi Sakamoto <kumaryu@kumaryu.net>
#
# @option['uacss'] = [
#   [/regexp for ua1/, 'ua1.css'],
#   [/regexp for ua2/, 'ua2.css'],
#   and so on...
# ]
#

def uacss
	#dummy
	''
end

add_header_proc(Proc.new do
	res = ''
	ua = @cgi.user_agent
	css_list = $options['uacss']
	if ua and css_list then
		matched = css_list.find {|a| a[0].match(ua)}
		if matched then
			res << <<EOS
		<link rel="stylesheet" type="text/css" href="#{matched[1]}" media="all"></link>
EOS
		end
	end
	res
end)