example.cgi

#!/usr/bin/env ruby

############################################################################
# Copyright 2010-2019 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 <http://www.gnu.org/licenses/>.           #
############################################################################

if __FILE__ == $0

require_relative 'dudle'

$d = Dudle.new

if $cgi.include?('poll')

	poll = nil
	$conf.examples.each { |p|
		poll = p if $cgi['poll'] == p[:url]
	}

	if poll

		targeturl = poll[:url]

		if poll[:new_environment]
			targeturl += "_#{Time.now.to_i}"

			while File.exist?(targeturl)
				targeturl += 'I'
			end
			VCS.branch(poll[:url], targeturl)
		end

		if poll[:revno]
			Dir.chdir(targeturl)
			VCS.reset(poll[:revno])
			Dir.chdir('..')
		end

		$d.html.header['status'] = 'REDIRECT'
		$d.html.header['Cache-Control'] = 'no-cache'
		$d.html.header['Location'] = $conf.siteurl + targeturl

	else
		$d << "<div class='error'>"
		$d << (format(_('Example not found: %<example>s'), example: CGI.escapeHTML($cgi['poll'])))
		$d << '</div>'
	end
end

unless $d.html.header['status'] == 'REDIRECT'
	unless $conf.examples.empty?
		$d << ("<div class='textcolumn'><h2>" + _('Examples') + '</h2>')
		$d << '<p>'
		$d << _('If you want to play with the application, you may want to take a look at these example polls:')
		$d << '</p>'
		$d << '<ul>'
		$conf.examples.each { |poll|
			$d << "<li><a href='example.cgi?poll=#{poll[:url]}'>#{poll[:description]}</a></li>" unless poll[:hidden]
		}
		$d << '</ul></div>'
	end

	$d << $conf.examplenotice
end

$d.out

end