From 59dc49c75d23c59e0557a86bb1dd4e64c563a5b3 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Tue, 2 Aug 2016 14:25:51 +0100 Subject: [PATCH] stv: produce votelog --- stv | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/stv b/stv index 68940f4..ebd99ff 100755 --- a/stv +++ b/stv @@ -398,4 +398,14 @@ for (;;) { push @unsorted, @$votes; } +open VL, ">.stv.votes" or die $!; +foreach my $vote (@allvotes) { + print VL "----------------------------------------\n"; + print VL "voter $vote->{Voter}\n"; + print VL "prefs ". (join " ", @{ $vote->{Prefs} }). "\n"; + print VL $_, "\n" foreach @{ $vote->{Log} }; +} +print VL "========================================\n"; +close VL; + print "done.\n"; -- 2.30.2