[gentoo-commits] proj/elections:master commit in: /

["Robin H. Johnson" <robbat2@gentoo.org>]

commit:     4aa542e6634b127ae3c3a9f28719bc070006a39c
Author:     Robin H. Johnson <robbat2 <AT> gentoo <DOT> org>
AuthorDate: Sun Jun 28 05:33:17 2015 +0000
Commit:     Robin H. Johnson <robbat2 <AT> gentoo <DOT> org>
CommitDate: Sun Jun 28 05:33:35 2015 +0000
URL:        https://gitweb.gentoo.org/proj/elections.git/commit/?id=4aa542e6

Rewrite old bash election-stats-count in perl, using the new election code.

Signed-off-by: Robin H. Johnson <robbat2 <AT> gentoo.org>

 election-stats-count |  26 +----------
 statify              | 121 +++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 122 insertions(+), 25 deletions(-)

diff --git a/election-stats-count b/election-stats-count
deleted file mode 100755
index 7c39015..0000000
--- a/election-stats-count
+++ /dev/null
@@ -1,25 +0,0 @@
-#!/bin/sh
-# TODO:
-# - this should NOT produce any output when the election is closed.
-# - should work with concurrent elections
-HOMEDIR=/etc/elections/
-NAME=$(awk '/^name/{print $2}' $HOMEDIR/current/election-details)
-OFFICIALS=$(cat ${HOMEDIR}/current/officials-$NAME)
-COUNT_VOTERS=$(wc -l <${HOMEDIR}/current/voters-$NAME)
-
-COUNT_SUBMIT=$(ls /home/*/.ballot-${NAME}-submitted 2>/dev/null | wc -l)
-COUNT_PENDING=$(ls /home/*/.ballot-${NAME} 2>/dev/null | wc -l)
-
-
-umask 057
-for u in ${OFFICIALS} ; do
-OUTFILE="/home/$u/voter-turnout-${NAME}"
-#cat <<-EOF
-cat >${OUTFILE} <<-EOF
-Eligable voters: $COUNT_VOTERS
-Submitted votes: ${COUNT_SUBMIT}
-Pending votes: ${COUNT_PENDING}
-Turnout: $(echo "scale=10; ${COUNT_SUBMIT}/${COUNT_VOTERS}*100" | bc | xargs printf '%02.3f' )%
-EOF
-chown ${u}:root ${OUTFILE}
-done

diff --git a/election-stats-count b/election-stats-count
new file mode 120000
index 0000000..fad4dda
--- /dev/null
+++ b/election-stats-count
@@ -0,0 +1 @@
+statify
\ No newline at end of file

diff --git a/statify b/statify
new file mode 100755
index 0000000..c424696
--- /dev/null
+++ b/statify
@@ -0,0 +1,121 @@
+#!/usr/bin/perl -w
+# $Id$
+#
+# Copyright 2015 Gentoo Foundation
+# Distributed under the terms of the GNU General Public License v2
+# Author: Robin H Johnson <robbat2@gentoo.org>
+#
+# statify: Produce early election statistics
+#
+
+BEGIN { 
+    if(-f '/etc/elections/Votify.pm') {
+        push @INC, '/etc/elections';
+    } else {
+        push @INC, '.' if -f 'Votify.pm'; 
+    }
+}
+
+use POSIX;
+use Getopt::Long;
+use List::Util;
+use Cwd qw(abs_path);
+use File::Spec::Functions;
+use Votify 'official';
+use strict;
+
+######################################################################
+# Global vars
+######################################################################
+
+(my $zero = $0) =~ s,.*/,,;
+(my $version = $Votify::version) =~ s/.*?(\d.*\d).*/$zero version $1\n/;
+my %opt;
+
+# Collect the open elections
+my (%open_elections, $usage_elections);
+%open_elections = Votify::get_open_elections_hash();
+if (scalar keys %open_elections) {
+    $usage_elections = join("\n        ", keys %open_elections);
+} else {
+    $usage_elections = "(no elections currently open)";
+}
+
+# rest of usage
+my $usage = <<EOT;
+
+usage: 
+    $zero [OPTS] <election>
+    $zero [OPTS] --all
+
+where options are:
+
+    --all       Run on all open elections	
+	--write-to-officials	Write statistics to officials homedirs
+
+and <election> is one of the elections currently in-progress.  The following
+elections are currently open:
+
+    $usage_elections
+
+EOT
+
+######################################################################
+# Main
+######################################################################
+for my $election_name (keys %open_elections) {
+	my (@officials, @voters);
+	open(F, '<', $open_elections{$election_name}{'officialsfile'})
+        or die("failed to open officials file");
+    chomp(@officials = <F>);
+	close(F);
+
+	$open_elections{$election_name}{'officials'} = @officials;
+
+	open(F, '<', $open_elections{$election_name}{'votersfile'})
+        or die("failed to open voters file");
+    chomp(@voters = <F>);
+	close(F);
+
+	$open_elections{$election_name}{'voters'} = @voters;
+
+	my ($count_voters, $count_submit, $count_pending) = (0, 0,0);
+	for my $votername (@voters) {
+		$count_voters++;
+		if(-f catfile('/home', $votername, ".ballot-${election_name}-submitted")) {
+			$count_submit++;
+		} elsif (-f catfile('/home', $votername, ".ballot-${election_name}")) {
+			$count_pending++;
+		}
+	}
+	die "Mismatched voter count" unless $count_voters == scalar(@voters);
+	$open_elections{$election_name}{'count'} = {
+		voters => $count_voters,
+		submitted => $count_submit,
+		pending => $count_pending,
+	};
+	my $results_buffer =  ''
+	.sprintf("Election: %s\n", $election_name)
+	.sprintf("Timestamp: %s\n", POSIX::strftime($Votify::datefmt, gmtime))
+	.sprintf("Eligable voters: %d\n", $count_voters)
+	.sprintf("Submitted votes: %d\n", $count_submit)
+	.sprintf("Pending votes: %d\n", $count_pending)
+	.sprintf("Turnout: %02.3f%%\n", $count_submit*100.0/$count_voters) 
+	.sprintf("Pending Turnout: %02.3f%%\n", ($count_submit+$count_pending)*100.0/$count_voters);
+	print "$results_buffer\n";
+
+	umask 057;
+	for my $officialname (@officials) {
+		my $fn = catfile('/home', $officialname, 'voter-turnout-'.$election_name);
+		open(F, '>', $fn) or
+			die("failed to open voter turnout file ($fn): $!");
+		print F $results_buffer;
+		close F;
+		chown ((getpwnam($officialname))[2]), 0, ($fn) or
+			die("failed to chown voter turnout file ($fn): $!");
+	}
+}
+
+
+__END__
+# vim:sw=4 et