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
|
#!/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/>. #
############################################################################
QUESTIONS = ["Yes, I know what I am doing!",
"I hate these stupid entry fields.",
"I am aware of the consequences.",
"Please delete this poll."]
require "cgi"
require "ftools"
if __FILE__ == $0
POLL = File.basename(File.expand_path("."))
$cgi = CGI.new
load "../html.rb"
$html = HTML.new("dudle - #{POLL} - Delete")
$html.header["Cache-Control"] = "no-cache"
$html.add_css("../dudle.css")
$html << "<body>"
if $cgi.include?("confirmnumber")
CONFIRM = $cgi["confirmnumber"].to_i
if $cgi["confirm"] == QUESTIONS[CONFIRM]
Dir.chdir("..")
File.move(POLL, "/tmp/#{POLL}.#{rand(9999999)}")
$html << <<SUCCESS
<div id='main'>
<p class='textcolumn'>
The poll was deleted successfully!
</p>
<p class='textcolumn'>
If this was done by accident, please contact the administrator of the system.
The poll can be recovered for an indeterministic amount of time, maybe it is already to late. </p>
<div class='textcolumn'>
Things you can do now are
<ul>
<li><a href='../'>Return to dudle home and Schedule a new Poll</a></li>
<li><a href='http://wikipedia.org'>Browse Wikipedia</a></li>
<li><a href='http://www.google.de'>Search something with Google</a></li>
</ul>
</div>
</div>
</body>
SUCCESS
$html.out($cgi)
exit
else
hint = <<HINT
<table style='background:lightgray' summary='Error about wrong confirmation string'>
<tr>
<td style='text-align:right'>
To delete the poll, you have to type:
</td>
<td class='warning' style='text-align:left'>
#{QUESTIONS[CONFIRM]}
</td>
</tr>
<tr>
<td style='text-align:right'>
but you typed:
</td>
<td class='warning' style='text-align:left'>
#{$cgi["confirm"]}
</td>
</tr>
</table>
HINT
end
else
CONFIRM = rand(QUESTIONS.size)
end
$html << <<TABLE
#{Dudle::tabs("Delete Poll")}
<div id='main'>
<h1>#{POLL}</h1>
<h2>Delete this Poll</h2>
You want to delete the poll named <b>#{POLL}</b>.<br />
This is an irreversible action!<br />
If you are sure in what you are doing, please type into the form “#{QUESTIONS[CONFIRM]}”
#{hint}
<form method='post' action=''>
<div>
<input type='hidden' name='confirmnumber' value='#{CONFIRM}' />
<input size='30' type='text' name='confirm' value='#{$cgi["confirm"]}' />
<input type='submit' value='Delete' />
</div>
</form>
</div>
</body>
TABLE
$html.out($cgi)
end
|
