olddir = File.expand_path(".") Dir.chdir("..") require "poll" require "datepoll" Dir.chdir(olddir) if $cgi.include?("revision") REVISION=$cgi["revision"].to_i table = YAML::load(`export LC_ALL=de_DE.UTF-8; bzr cat -r #{REVISION} data.yaml`) else table = YAML::load_file("data.yaml") end puts < dudle - #{table.name}

#{BACK}

#{table.name}

HEAD if $cgi.include?("add_participant") agreed = {} $cgi.params.each{|k,v| if k =~ /^add_participant_checked_/ agreed[k.gsub(/^add_participant_checked_/,"")] = v[0] end } table.add_participant($cgi["add_participant"],agreed) end table.invite_delete($cgi["invite_delete"]) if $cgi.include?("invite_delete") if $cgi.include?("add_remove_column") puts "Could not add/remove column #{$cgi["add_remove_column"]}" unless table.add_remove_column($cgi["add_remove_column"],$cgi["columndescription"]) end table.add_comment($cgi["commentname"],$cgi["comment"]) if $cgi.include?("comment") table.delete_comment($cgi["delete_comment"].to_i) if $cgi.include?("delete_comment") puts table.to_html MAXREV=`bzr revno`.to_i REVISION=MAXREV unless defined?(REVISION) log = `export LC_ALL=de_DE.UTF-8; bzr log --forward`.split("-"*60) log.collect!{|s| s.scan(/\nrevno:.*\ncommitter.*\n.*\ntimestamp: (.*)\nmessage:\n (.*)/).flatten} log.shift log.collect!{|t,c| [DateTime.parse(t),c]} puts <

browse history HISTORY ((REVISION-2)..(REVISION+2)).each do |i| if i >0 && i<=MAXREV if REVISION == i puts "" puts "" puts "" puts "" end end puts "

rev	time	description of change
#{i}" else puts "
" puts "#{i}" end puts "	#{log[i-1][0].strftime('%d.%m, %H:%M')}	#{log[i-1][1]}

" puts "

" puts "" puts <

invite/delete participant

INVITEDELETE puts table.add_remove_column_htmlform puts <

Comment

ADDCOMMENT puts ""