#!/usr/bin/env ruby load "/home/ben/src/lib.rb/pphtml.rb" require "pp" require "yaml" require "cgi" require "poll" require "datepoll" puts < 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 < Info 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 "
ErrorThis poll already exists!
" end end puts "
Available Polls" puts "" 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 puts "" puts "" puts "" puts "" end } puts "
PollLast change
#{site}#{File.new(site + "/data.yaml").mtime.strftime('%d.%m, %H:%M')}
" puts "
" puts <change charset #{UTFASCII} CHARSET puts <Create new Poll
CREATE puts ""