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
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
#!/usr/bin/env ruby
############################################################################
# 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/>. #
############################################################################
if __FILE__ == $0
if File.exists?("config.rb")
require "dudle"
else
puts "\nPlease configure me in the file config.rb"
exit
end
$d = Dudle.new("Home")
if $cgi.include?("create_poll") && $cgi.include?("poll_url")
POLLTITLE=$cgi["create_poll"]
if POLLTITLE == ""
createnotice = "Please enter a descriptive title."
else
if $cgi["poll_url"] == ""
if POLLTITLE =~ /^[\w\-_]*$/ && !File.exist?(POLLTITLE)
POLLURL = POLLTITLE
else
POLLURL = `pwgen -1`.chomp
end
else
POLLURL=$cgi["poll_url"]
end
if !(POLLURL =~ /^[\w\-_]*$/)
createnotice = "Custom address may only contain letters, numbers, and dashes."
elsif File.exist?(POLLURL)
createnotice = "A Poll with this address already exists."
else Dir.mkdir(POLLURL)
Dir.chdir(POLLURL)
VCS.init
File.symlink("../participate.rb","index.cgi")
VCS.add("index.cgi")
["atom","customize", "history", "overview", "edit_columns","access_control", "delete_poll", "invite_participants"].each{|f|
File.symlink("../#{f}.rb","#{f}.cgi")
VCS.add("#{f}.cgi")
}
["data.yaml",".htaccess",".htdigest"].each{|f|
File.open(f,"w").close
VCS.add(f)
}
Poll.new(POLLTITLE,$cgi["poll_type"])
Dir.chdir("..")
$d.html.header["status"] = "REDIRECT"
$d.html.header["Cache-Control"] = "no-cache"
$d.html.header["Location"] = SITEURL + POLLURL+ "/edit_columns.cgi"
$d << "The poll was created successfully. The link to your new poll is:<br /><a href=\"#{POLLURL}\">#{POLLURL}</a>"
end
end
end
unless $d.html.header["status"] == "REDIRECT"
$d << <<CREATE
<h2>Create New Poll</h2>
<form method='post' action='.'>
<table class='settingstable' summary='Create a new Poll'>
<tr>
<td class='label'><label for="poll_name">Title:</label></td>
<td><input id="poll_name" size='40' type='text' name='create_poll' value="#{CGI.escapeHTML($cgi["create_poll"])}" /></td>
</tr>
<tr>
<td class='label'>Type:</td>
<td>
<input id='chooseTime' type='radio' value='time' name='poll_type' checked='checked' />
<label for='chooseTime'>Event Schedule Poll (e.g. schedule a meeting)</label>
<br />
<input id='chooseNormal' type='radio' value='normal' name='poll_type' />
<label for='chooseNormal'>Normal Poll (e.g. vote for what is the best coffee)</label>
</td>
</tr>
<tr>
<td></td>
<td style='padding-bottom:0.7ex'><input type='submit' value='Create' /></td>
</tr>
<tr>
<td colspan='2' style='border-top:solid thin;padding-top:0.7ex;'>Custom address (optional):
<span class='hint'>May contain letters, numbers, and dashes.</span></td>
</tr>
<tr>
<td colspan='2'><label for="poll_url"><span class='hint'>#{SITEURL}</span></label><input id="poll_url" size='16' type='text' name='poll_url' value="#{CGI.escapeHTML($cgi["poll_url"])}" />
</td>
</tr>
CREATE
if defined?(createnotice)
$d << <<NOTICE
<tr>
<td colspan='2' class='error'>
#{createnotice}
</td>
</tr>
NOTICE
end
$d << <<CREATE
</table>
</form>
CREATE
$d << NOTICE
end
$d.out
end
|