blob: d2bf9cd3f6b0093e1ddb81248dca9e4a92b78ef0 (
plain)
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
|
#!/usr/bin/env ruby
############################################################################
# Copyright 2010 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
require "dudle"
$d = Dudle.new
if $cgi.include?("poll")
poll = nil
EXAMPLES.each{|p|
poll = p if $cgi["poll"] == p[:url]
}
raise "Example not found: '#{$cgi["poll"]}'" unless poll
targeturl = poll[:url]
if poll[:new_environment]
targeturl += "_#{Time.now.to_i}"
while (File.exists?(targeturl))
targeturl += "I"
end
VCS.branch(poll[:url],targeturl)
end
if poll[:revno]
Dir.chdir(targeturl)
VCS.revert(poll[:revno])
Dir.chdir("..")
end
$d.html.header["status"] = "REDIRECT"
$d.html.header["Cache-Control"] = "no-cache"
$d.html.header["Location"] = SITEURL + targeturl
else
if defined?(EXAMPLES)
$d << "<div class='textcolumn'><h2>" + _("Examples") + "</h2>"
$d << _("If you want to play with the application, you may want to take a look at these example polls:")
$d << "<ul>"
EXAMPLES.each{|poll|
$d << "<li><a href='example.cgi?poll=#{poll[:url]}'>#{poll[:description]}</a></li>" unless poll[:hidden]
}
$d << "</ul></div>"
end
$d << EXAMPLENOTICE
end
$d.out
end
|
