blob: 4c7a9703db102d7b5abd965d4ed3579f658e34dd (
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
|
#!/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/>. #
############################################################################
require "cgi"
$cgi = CGI.new
def _(string)
string
end
require "config"
source = nil
EXAMPLES.each{|poll|
source = poll[:url] if $cgi["poll"] == poll[:url]
}
raise "Example not found" unless source
target = "#{source}_#{Time.now.to_i}"
while (File.exists?(target))
target += "I"
end
VCS.branch(source,target)
`rm #{target}/.htaccess`
`rm #{target}/.htdigest`
$cgi.out({
"status" => "REDIRECT",
"Cache-Control" => "no-cache",
"Location" => SITEURL + target
}){""}
|