dudle
HEAD
if $cgi.include?("create_poll")
SITE=$cgi["create_poll"]
unless File.exist?(SITE)
Dir.mkdir(SITE)
Dir.chdir(SITE)
`bzr init`
File.symlink("../index.cgi","index.cgi")
File.symlink("../atom.cgi","atom.cgi")
File.open("data.yaml","w").close
`bzr add data.yaml`
hidden = ($cgi["hidden"] == "true")
case $cgi["poll_type"]
when "Poll"
Poll.new SITE, hidden
when "DatePoll"
DatePoll.new SITE, hidden
end
Dir.chdir("..")
if hidden
puts <
Poll #{SITE} created successfull!
Please remember the url (#{$cgi.server_name}#{$cgi.script_name.gsub(/index.cgi$/,"")}#{SITE}) while it will not be visible here.
HIDDENINFO
end
else
puts ""
end
end
puts ""
puts <
#{UTFASCII}
CHARSET
puts <
CREATE
puts "