1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
############################################################################
# Copyright 2009 Benjamin Kellermann #
# #
# This file is part of dudle. #
# #
# Dudle is free software: you can redistribute it and/or modify it under #
# the terms of the GNU Affero General Public License as published by #
# the Free Software Foundation, either version 3 of the License, or #
# (at your option) any later version. #
# #
# Dudle is distributed in the hope that it will be useful, but WITHOUT ANY #
# WARRANTY; without even the implied warranty of MERCHANTABILITY or #
# FITNESS FOR A PARTICULAR PURPOSE. See the GNU Affero General Public #
# License for more details. #
# #
# You should have received a copy of the GNU Affero General Public License #
# along with dudle. If not, see <http://www.gnu.org/licenses/>. #
############################################################################
class HTML
attr_accessor :body, :header
def initialize(title)
@title = title
@header = {}
@header["type"] = "text/html"
# @header["type"] = "application/xhtml+xml"
@header["charset"] = "utf-8"
@body = ""
@css = {}
@atom = []
end
def head
ret = <<HEAD
<head>
<meta http-equiv="Content-Type" content="#{@header["type"]}; charset=#{@header["charset"]}" />
<meta http-equiv="Content-Style-Type" content="text/css" />
<title>#{@title}</title>
HEAD
@css.each{|title,href|
ret += "<link rel='stylesheet' type='text/css' href='#{href}' title='#{title}'/>"
ret += "<link rel='stylesheet' type='text/css' href='#{href}' title='print' media='print' />" if title == "print"
}
@atom.each{|href|
ret += "<link rel='alternate' type='application/atom+xml' href='#{href}' />"
}
ret += "</head>"
ret
end
def add_css(href, title = "default")
@css[title] ||= []
@css[title] << href
end
def add_atom(href)
@atom << href
end
def add_cookie(key,value,path,expiretime)
c = CGI::Cookie.new(key, value)
c.path = path
c.expires = expiretime
@header["cookie"] = c
end
def << (bodycontent)
@body += bodycontent.chomp + "\n"
end
def out(cgi)
cgi.out(@header){
<<HEAD
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
#{head}
#{@body}
</html>
HEAD
}
end
end
module Dudle
def Dudle.tabs(active_tab)
ret = "<div id='tabs'><ul>"
[["Home",".."],
["",""],
["Poll","."],
["History","history.cgi"],
["Help","help.cgi"],
["",""],
["Edit Columns","edit_columns.cgi"],
["Invite Participants","invite_participants.cgi"],
["Access Control","access_control.cgi"],
["Delete Poll","delete_poll.cgi"],
["",""],
["Customize","customize.cgi"]
].each{|tab,file|
case tab
when active_tab
ret += "<li id='active_tab' > #{tab} </li> "
when ""
ret += "<li class='separator_tab' />"
else
ret += "<li class='nonactive_tab' ><a href='#{file}'> #{tab} </a></li> "
end
}
ret += "</ul></div>"
ret
end
end
|
