dudle
HEAD
if $cgi.include?("create_poll")
SITE=$cgi["create_poll"]
unless File.exist?(SITE)
Dir.mkdir(SITE)
Dir.chdir(SITE)
VCS.init
File.symlink("../index.cgi","index.cgi")
File.symlink("../atom.cgi","atom.cgi")
File.open("data.yaml","w").close
VCS.add("data.yaml")
case $cgi["poll_type"]
when "Poll"
Poll.new SITE
when "DatePoll"
DatePoll.new SITE
end
Dir.chdir("..")
else
$htmlout += ""
end
end
$htmlout += ""
$htmlout += <
#{UTFASCII}
CHARSET
$htmlout += <
CREATE
$htmlout += NOTICE
$htmlout += "