# coding: utf-8
############################################################################
# Copyright 2009,2010 Benjamin Kellermann #
# #
# This file is part of dudle. #
# #
# Dudle is free software: you can redistribute it and/or modify it under #
# the terms of the GNU Affero General Public License as published by #
# the Free Software Foundation, either version 3 of the License, or #
# (at your option) any later version. #
# #
# Dudle is distributed in the hope that it will be useful, but WITHOUT ANY #
# WARRANTY; without even the implied warranty of MERCHANTABILITY or #
# FITNESS FOR A PARTICULAR PURPOSE. See the GNU Affero General Public #
# License for more details. #
# #
# You should have received a copy of the GNU Affero General Public License #
# along with dudle. If not, see . #
############################################################################
$KCODE = "u" if RUBY_VERSION < '1.9.0'
require "yaml"
require "cgi"
$cgi = CGI.new unless $cgi
require 'gettext'
require 'gettext/cgi'
include GetText
GetText.cgi=$cgi
GetText.output_charset = 'utf-8'
require "locale"
if File.exists?("data.yaml") && !File.stat("data.yaml").directory?
$is_poll = true
GetText.bindtextdomain("dudle", :path => Dir.pwd + "/../locale/")
else
$is_poll = false
GetText.bindtextdomain("dudle", :path => Dir.pwd + "/locale/")
end
$:.push("..")
require_relative "date_locale"
require_relative "html"
require_relative "poll"
require_relative "config_defaults"
require_relative "charset"
class Dudle
attr_reader :html, :table, :urlsuffix, :css, :user_css, :title, :tab
def is_poll?
$is_poll
end
def tabs_to_html(active_tab)
ret = "
#{@title}
HEAD
###################
# init extenisons #
###################
@extensions = []
$d = self # FIXME: this is dirty, but extensions need to know table elem
Dir.open("#{@basedir}/extensions/").sort.each{|f|
if File.exists?("#{@basedir}/extensions/#{f}/main.rb")
@extensions << f
if File.exists?("#{@basedir}/extensions/#{f}/preload.rb")
$current_ext_dir = f
require "#{@basedir}/extensions/#{f}/preload"
end
end
}
end
def wizzard_nav
ret = "
"
[[_("Previous"),@wizzardindex == 0],
[_("Next"),@wizzardindex >= @configtabs.size()-2],
[_("Finish"),@wizzardindex == @configtabs.size()-1]].each{|button,disabled|
ret += <
READY
}
ret += "
"
end
def wizzard_redirect
[[_("Previous"),@wizzardindex-1],
[_("Next"),@wizzardindex+1],
[_("Finish"),@configtabs.size()-1]].each{|action,linkindex|
if $cgi.include?(action)
@html.header["status"] = "REDIRECT"
@html.header["Cache-Control"] = "no-cache"
@html.header["Location"] = @configtabs[linkindex][1]
@html << _("All changes were saved sucessfully.") + "
" + _("Proceed!") + ""
out
exit
end
}
end
def out
@html << wizzard_nav if @is_config
@html.add_cookie("lang",@cgi["lang"],"/",Time.now + (1*60*60*24*365)) if @cgi.include?("lang")
@html << "
" # content
@html << "