################################ # Author: Benjamin Kellermann # # Licence: CC-by-sa 3.0 # # see Licence # ################################ require "poll" require "datepoll" $htmlout += < 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.symlink("../config.cgi","config.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 += "
ErrorThis poll already exists!
" end end $htmlout += "
Available Polls" $htmlout += "" Dir.glob("*/data.yaml").sort_by{|f| File.new(f).mtime }.reverse.collect{|f| f.gsub(/\/data\.yaml$/,'') }.each{|site| unless YAML::load_file("#{site}/data.yaml").hidden $htmlout += "" $htmlout += "" $htmlout += "" $htmlout += "" end } $htmlout += "
PollLast change
#{site}#{File.new(site + "/data.yaml").mtime.strftime('%d.%m, %H:%M')}
" $htmlout += "
" $htmlout += <change charset #{UTFASCII} CHARSET $htmlout += <Create new Poll
CREATE $htmlout += NOTICE $htmlout += ""