pollBooth.pl

#!/usr/bin/perl -w
# This code is a part of Slash, and is released under the GPL.
# Copyright 1997-2005 by Open Source Technology Group. See README
# and COPYING for more information, or see http://slashcode.com/.
# $Id$

use strict;
use utf8;
use Slash;
use Slash::Display;
use Slash::Utility;

#################################################################
sub main {
	my $slashdb = getCurrentDB();
	my $form = getCurrentForm();
	my $constants = getCurrentStatic();

	my %ops = (
		edit		=> \&editpoll,
		save		=> \&savepoll,
		'delete'	=> \&deletepolls,
		list		=> \&listpolls,
		default		=> \&default, 
		vote		=> \&vote,
		get		=> \&poll_booth,
		preview	 => \&editpoll,
		detach		=> \&detachpoll,
		linkstory	=> \&link_story_to_poll
	);

	my $op = $form->{op} && $ops{$form->{op}} ? $form->{op} : 'default';

	if (defined $form->{aid}) {
		# Only allow a short range of answer ids here.
		# (aid is used as the uid of an author elsewhere
		# in the code, so at least as far as filter_param
		# allows, it can be any integer.)
		$form->{aid} += 0;
		undef $form->{aid} if $form->{aid} < -1 || $form->{aid} > 8;
	}

	my $longtitle = ($op eq 'default' and $form->{'qid'}) ? 'long' : '';
	header(getData($longtitle . 'title', { qid => $form->{'qid'} }), $form->{section}, { tab_selected => 'poll'}) or return;

	$ops{$op}->($form, $slashdb, $constants);

	writeLog($form->{'qid'});
	footer();
}

#################################################################
sub poll_booth {
	my($form) = @_;

	if ($form->{'display'} eq 'full'){
		slashDisplay('viewpoll', {
			title	=> 'Poll',
			pollboth => pollbooth($form->{'qid'}, 0, 1)
		});
	} else {
		print sidebox('Poll', pollbooth($form->{'qid'}, 0, 1), 'poll', 1);
	}
	
}

#################################################################
sub default {
	my($form, $slashdb, $constants) = @_;
	my $pollbooth_reader = getObject('Slash::PollBooth', { db_type => 'reader' });

	if (!$form->{'qid'}) {
		listpolls(@_);
	} elsif (! defined $form->{'aid'}) {
		poll_booth(@_);
	} else {
		my $vote = vote(@_);
		if ($constants->{poll_discussions}) {
			my $discussion_id = $pollbooth_reader->getPollQuestion(
				$form->{'qid'}, 'discussion'
			);
			my $discussion = $pollbooth_reader->getDiscussion($discussion_id)
				if $discussion_id;
			if ($discussion) {
				printComments($discussion);
			}
		}
	}
}

#################################################################
sub link_story_to_poll {
	my($form, $slashdb, $constants) = @_;
	my $pollbooth_reader = getObject('Slash::PollBooth', { db_type => 'reader' });
	my $qid  = $form->{'qid'};
	my $sid  = $form->{'sid'};
	my $user = getCurrentUser();
	my $min = $form->{min} || 0;
	my $questions = $pollbooth_reader->getPollQuestionList($min);

	unless ($user->{'is_admin'}) {
		default(@_);
		return;
	}
	
	# clear current story.qid
	# XXX this needs to call setStory_delete_memcached
	$slashdb->sqlUpdate("stories", { qid=>"" }, "sid = ".$slashdb->sqlQuote($form->{sid}));

	slashDisplay('linkstory', {
		questions	=> $questions,
		startat		=> $min + @$questions,
		admin		=> getCurrentUser('seclev') >= 100,
		title		=> "Link story to poll",
		width		=> '99%',
		sid		=> $sid
	});
}

#################################################################
sub detachpoll {
	my($form, $slashdb, $constants) = @_;
	my $qid  = $form->{'qid'};
	my $sid  = $form->{'sid'};
	my $user = getCurrentUser();
	my $warning;

	unless ($user->{'is_admin'}) {
		default(@_);
		return;
	}
	if($sid){
		my $where = "sid=".$slashdb->sqlQuote($sid)." AND qid=".$slashdb->sqlQuote($qid);
		my $count=$slashdb->sqlCount("stories",$where);
		print STDERR "count $count\n";
		# XXX this needs to call setStory_delete_memcached
		if($count){
			$slashdb->sqlUpdate("stories",{ qid => "" } , $where); 
		} elsif ( $form->{force} ){
			$slashdb->sqlUpdate("stories",{ qid => "" } ,"sid=".$slashdb->sqlQuote($sid)); 
		} else {
			$warning->{no_sid_qid_match}=1;
		} 
	} else {
		$warning->{no_sid} = 1;
	}
	
	slashDisplay('detachpoll', {
		title   => "Detaching Poll from Story",
		sid     => $sid,
		qid     => $qid,
		warning => $warning
	});
}

#################################################################
sub editpoll {
	my($form, $slashdb, $constants) = @_;
	my $pollbooth_db = getObject('Slash::PollBooth');
	my $reader = getObject('Slash::DB', { db_type => 'reader' });
	my $qid  = $form->{'qid'};
	my $user = getCurrentUser();
	my $warning;

	unless ($user->{'is_admin'}) {
		default(@_);
		return;
	}

	my($question, $answers, $pollbooth, $checked, $story_ref);
	if ($form->{op} eq "preview") {
		foreach (qw/question voters date primaryskid topic polltype/) {
			$question->{$_} = $form->{$_};
		}
		
		$story_ref = $reader->sqlSelectHashref("stoid,sid,qid,time,primaryskid,tid",
			"stories",
			"sid=" . $reader->sqlQuote($form->{sid})
		) if $form->{sid};

		$story_ref->{displaystatus} = $reader->_displaystatus($story_ref->{stoid}) if $story_ref;
		
		$warning->{invalid_sid} = 1 if $form->{sid} and !$story_ref;

		if ($form->{sid}) {
			if ($form->{qid}) {
				$warning->{attached_to_other} = 1 if $slashdb->sqlCount("stories","sid=".$slashdb->sqlQuote($form->{sid})." AND qid > 0 and qid != ".$slashdb->sqlQuote($form->{qid}));
			} else {
				$warning->{attached_to_other} = 1 if $slashdb->sqlCount("stories","sid=".$slashdb->sqlQuote($form->{sid})." AND qid > 0");
			}
		}
		
		$warning->{invalid_votes} = 1	if (!_is_integer($form->{voters}) || !_is_integer($form->{votes1}) || !_is_integer($form->{votes2}) || !_is_integer($form->{votes3}) || !_is_integer($form->{votes4}) || !_is_integer($form->{votes5}) || !_is_integer($form->{votes6}) || !_is_integer($form->{votes7}) || !_is_integer($form->{votes8}));

		if ($story_ref) {
			$question->{'date'}		= $story_ref->{'time'};
			$question->{topic}		= $story_ref->{'tid'};
			$question->{primaryskid}	= $story_ref->{primaryskid};
			$question->{polltype}	= $story_ref->{displaystatus} >= 0 ? "story" : "nodisplay";
		}
		
		$question->{polltype} ||= "section";
 
		my $disp_answers;
		for my $n (1..8) {
			$answers->[$n-1] = [ $form->{"aid$n"}, $form->{"votes$n"} ];
			$disp_answers->[$n-1] = {
				aid	=> $n,
				answer	=> $form->{"aid$n"},
				votes	=> $form->{"votes$n"}
			} if $form->{"aid$n"};
		}
	
		$question->{sid} = $form->{sid};
		$checked = $form->{currentqid};

		$pollbooth = slashDisplay('pollbooth', {
			qid		=> -1,
			voters		=> $question->{voters},
			poll_open 	=> ($form->{date} le $slashdb->getTime()),
			question	=> $question->{question},
			answers		=> $disp_answers,
			primaryskid	=> $question->{primaryskid},
			has_activated   => 1 
		}, 1);
	    
	} elsif ($qid) {
		$question = $pollbooth_db->getPollQuestion($qid);
		$question->{sid} = $pollbooth_db->getSidForQid($qid)
			unless $question->{autopoll} eq "yes";
		
		$question->{sid} = $form->{override_sid} if $form->{override_sid};
		
		if ($question->{sid}) {
			$story_ref = $reader->sqlSelectHashref("sid,qid,time,primaryskid,tid",
				"stories",
				"sid=" . $reader->sqlQuote($question->{sid})
			);
			
			# XXX I think this is broken, see editpoll template comment - Jamie
			$story_ref->{displaystatus} = $reader->_displaystatus($story_ref->{stoid}) if $story_ref;

			if ($story_ref) {
				$question->{'date'}		= $story_ref->{'time'};
				$question->{topic}		= $story_ref->{'tid'};
				$question->{primaryskid}	= $story_ref->{primaryskid};
				$question->{polltype}	= $story_ref->{displaystatus} >= 0 ? "story" : "nodisplay";
			}
		}
		$question->{polltype} ||= "section";


		$answers = $pollbooth_db->getPollAnswers(
			$qid, [qw( answer votes aid )]
		);
		$question->{polltype} ||= "section";
		my $current_qid = $pollbooth_db->getCurrentQidForSkid($question->{primaryskid});
		$checked = ($current_qid == $qid) ? 1 : 0;
		my $poll_open = $pollbooth_db->isPollOpen($qid);

		# Just use the DB method, it's too messed up to rebuild the logic
		# here -Brian
		my $poll = $pollbooth_db->getPoll($qid);
		$pollbooth = slashDisplay('pollbooth', {
			qid		=> $qid,
			voters		=> $question->{voters},
			poll_open 	=> $poll_open,
			question	=> $poll->{pollq}{question},
			answers		=> $poll->{answers},
			voters		=> $poll->{pollq}{voters},
			sect		=> $user->{section} || $question->{section},
			has_activated   => $pollbooth_db->hasPollActivated($qid)
		}, 1);
	}
	

	if ($question) {
		$question->{voters} ||= 0;
	} else {
		$question->{voters} ||= 0;
		$question->{polltype} ||= "section";
		$question->{question} = $form->{question}; 
		$question->{sid} = $form->{sid}; 
	}
 	
	my $date = $question->{date};
	$date ||= $form->{date};
	$date ||= $slashdb->getTime();
	my $topics = $reader->getDescriptions('non_nexus_topics');
	slashDisplay('editpoll', {
		title		=> getData('edit_poll_title', { qid=>$qid }),
		qid		=> $qid,
		question	=> $question,
		answers		=> $answers,
		pollbooth	=> $pollbooth,
		checked		=> $checked,
		date		=> $date,
		story		=> $story_ref,
		topics		=> $topics,
		warning		=> $warning
	});
}

#################################################################
sub _is_integer {
   defined $_[0] && $_[0] =~ /^[+-]?\d+$/;
}

#################################################################
sub savepoll {
	my($form, $slashdb, $constants) = @_;

	my $user = getCurrentUser();
	my $gSkin = getCurrentSkin();
	my $pollbooth_db = getObject('Slash::PollBooth');

	unless ($user->{'is_admin'}) {
		default(@_);
		return;
	}

	if ($form->{question} !~ /\S/) {
		print getData('noquestion');
		editpoll(@_);
		return;
	} else {
		my $q = 0;
		for (my $i = 1; $i < 9; $i++) {
			$q++ if $form->{"aid$i"} =~ /\S/;
		}
		if (!$q) {
			print getData('noanswer');
			editpoll(@_);
			return;
		}
	}
	if ($form->{sid}) {
		if ($form->{qid}) {
			if ($slashdb->sqlCount("stories","sid=".$slashdb->sqlQuote($form->{sid})." AND qid > 0 and qid != ".$slashdb->sqlQuote($form->{qid}))) {
				print getData('attached_to_other');
				editpoll(@_);
				return;
			}
		} elsif ($slashdb->sqlCount("stories","sid=".$slashdb->sqlQuote($form->{sid})." AND qid > 0")) {
				print getData('attached_to_other');
				editpoll(@_);
				return;
	
		} elsif (!$slashdb->sqlCount("stories","sid = ".$slashdb->sqlQuote($form->{sid}))) {
			print getData("invalid_sid");
			editpoll(@_);
			return;
		}
	}
	
	if (!_is_integer($form->{voters}) || !_is_integer($form->{votes1}) || !_is_integer($form->{votes2}) || !_is_integer($form->{votes3}) || !_is_integer($form->{votes4}) || !_is_integer($form->{votes5}) || !_is_integer($form->{votes6}) || !_is_integer($form->{votes7}) || !_is_integer($form->{votes8})) {
		print getData('invalid_votes');
		editpoll(@_);
		return;
	}
	
	#We are lazy, we just pass along $form as a $poll
	# Correct section for sectional editor first -Brian
	$form->{section} = $user->{section} if $user->{section};
	my $qid = $pollbooth_db->savePollQuestion($form);

	# we have a problem here.  if you attach the poll to an SID,
	# and then unattach it, it will still be attached to that SID
	# until you either change it manually in the DB, or attach it
	# to a new SID.  Deal with it, or send in a patch.  The logic
	# to deal with it otherwise is too complex to be warranted
	# given the infrequency of the circumstance. -- pudge
	# Right - I still need to put a qid editing field into
	# editStory and it'd be nice to see an overall list of which
	# stories are associated with which polls for the last, say,
	# year.  But one thing at a time. -- jamie 2002/04/15

	if ($constants->{poll_discussions}) {
		my $poll = $pollbooth_db->getPollQuestion($qid);
		my $discussion;
		if ($form->{sid}) {
			# if sid lookup fails, then $discussion is empty,
			# and the poll's discussion is not set
			$discussion = $slashdb->getStory(
				$form->{sid}, 'discussion'
			);
		} elsif (!$poll->{discussion}) {
			$discussion = $slashdb->createDiscussion({
				kind		=> 'pollbooth',
				title		=> $form->{question},
				topic		=> $form->{topic},
				approved	=> 1, # Story discussions are always approved -Brian
				url		=> "$gSkin->{rootdir}/pollBooth.pl?qid=$qid&aid=-1",
			});
		} elsif ($poll->{discussion}) {
			# Yep, this is lazy -Brian
			$slashdb->setDiscussion($poll->{discussion}, {
				title	=> $form->{question},
				topic	=> $form->{topic}
			});
		}
		# if it already has a discussion (so $discussion is not set),
		# or discussion ID is unchanged, don't bother setting
		$pollbooth_db->setPollQuestion($qid, { discussion => $discussion })
			if $discussion && $discussion != $poll->{discussion};
	}
	$slashdb->setStory($form->{sid}, { qid => $qid }) if $form->{sid};
	
	slashDisplay('viewpoll', {
		title	=> 'Poll Saved',
		pollboth => pollbooth($qid, 0, 1)
	});
}

#################################################################
sub vote {
	my($form) = @_;
	my $pollbooth_db = getObject('Slash::PollBooth');
	my $pollbooth_reader = getObject('Slash::PollBooth', { db_type => 'reader' });

	my $qid = $form->{'qid'};
	my $aid = $form->{'aid'};
	return unless $qid && $aid;

	my(%all_aid) = map { ($_->[0], 1) }
		@{$pollbooth_reader->getPollAnswers($qid, ['aid'])};

	if (! keys %all_aid) {
		print getData('invalid');
		# Non-zero denotes error condition and that comments
		# should not be printed.
		return;
	}

	my $question = $pollbooth_reader->getPollQuestion($qid, ['voters', 'question']);
	my $notes = getData('display');
	if ($aid > 0) {
		my $poll_open = $pollbooth_reader->isPollOpen($qid);

		if (!$poll_open) {
			# Voting is closed on this poll.
			$notes = getData('poll_closed');
		}

		my $reskey = getObject('Slash::ResKey');
		my $rkey = $reskey->key('pollbooth', { qid => $qid });

		if (!$rkey->createuse) {
			$notes = $rkey->errstr;
		} elsif (exists $all_aid{$aid}) {
			$notes = getData('success', { aid => $aid });
			$pollbooth_db->createPollVoter($qid, $aid);
			$question->{voters}++;
		} else {
			$notes = getData('reject', { aid => $aid });
		}
	}

	my $answers  = $pollbooth_reader->getPollAnswers($qid, ['answer', 'votes']);
	my $maxvotes = $pollbooth_reader->getPollVotesMax($qid);
	my @pollitems;
	for (@$answers) {
		my($answer, $votes) = @$_;
		my $imagewidth	= $maxvotes
			? int(350 * $votes / $maxvotes) + 1
			: 0;
		my $percent	= $question->{voters}
			? int(100 * $votes / $question->{voters})
			: 0;
		push @pollitems, [$answer, $imagewidth, $votes, $percent];
	}

	slashDisplay('vote', {
		qid		=> $qid,
		width		=> '99%',
		title		=> $question->{question},
		voters		=> $question->{voters},
		pollitems	=> \@pollitems,
		notes		=> $notes
	});
}

#################################################################
sub deletepolls {
	my($form) = @_;
	if (getCurrentUser('is_admin')) {
		my $pollbooth_db = getObject('Slash::PollBooth');
		$pollbooth_db->deletePoll($form->{'qid'});
	}
	listpolls(@_);
}

#################################################################
sub listpolls {
	my($form, $slashdb, $constants) = @_;
	my $pollbooth_reader = getObject('Slash::PollBooth', { db_type => 'reader' });
	my $min = $form->{min} || 0;
	my $type = $form->{type};
	my $questions = $pollbooth_reader->getPollQuestionList($min, { type => $type });
	my $gSkin = getCurrentSkin();
	my $opts = ();
	$opts->{type} = $form->{type};
	$opts->{section} = $gSkin->{skid};

	my $section = $gSkin->{name};
	if ($gSkin->{skid} == $constants->{mainpage_skid}) {
		$opts->{section} = '';
	}

	$questions = $pollbooth_reader->getPollQuestionList($min, $opts);
	
	my $sitename = getCurrentStatic('sitename');
	if ($gSkin->{skid} != $constants->{mainpage_skid}) {
		$sitename = $sitename.": ".$gSkin->{title};
	}
	

	# Just me, but shouldn't title be in the template?
	# yes
	slashDisplay('listpolls', {
		questions	=> $questions,
		startat		=> $min + @$questions,
		admin		=> getCurrentUser('seclev') >= 100,
		title		=> "$sitename Polls",
		width		=> '99%',
		curtime	 => $pollbooth_reader->getTime(),
		type		=> $type 
	});
}

#################################################################
createEnvironment();
main();

1;