#!/usr/bin/perl -w
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program 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 General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
# 

use strict;

require 5.005;
use Carp qw(carp croak);
use Fcntl ':flock';             # import LOCK_* constants
use Getopt::Long;
use Digest::MD5  qw(md5 md5_hex md5_base64);
use DB_File;

=head1 NAME

dvt-simple2tally - create a tally sheet from manual input

=cut

=head1 SYNOPSIS

dvt-simple2tally -c /path/to/config < input

=cut

=head1 DESCRIPTION

Converts an input file in ad-hoc form to tally.txt

=cut


=head2 Internal Implementation

This routine pays attention to configuration variables Tally_File,
Option_*

=cut

sub badformat ($) {
  my ($m) = @_;
  die sprintf "bad format: stdin:%d: %s\n", STDIN->input_line_number, $m;
}

sub create_tally {
  my %params   = @_;
#  die "Internal Error!" unless defined $params{'Configuration'};
#  my $confref = $params{'Configuration'}->get_config_ref();
#  my $dvt = $params{'Configuration'};
#  my %Config = %{ $confref };

#  my $tallyfile   = $Config{'Tally_File'};

#  my @valid_options =
#      grep {m/^Option_[[:alnum:]]+$/ && $Config{$_}; } sort keys %Config;

my @valid_options = qw(D U O V FD);
  my %opt2ix;

  foreach my $ix (0..$#valid_options) {
    $opt2ix{$valid_options[$ix]} = $ix;
  }

  while (<STDIN>) {
    s/^\s+//;
    s/\s+$//;
    next if m/^\#/;
    next unless m/\S/;
    badformat "missing voter name" unless s/^(\S+)\:\s*//;
    my $voter = $1;
    $_ = uc $_;
    s/\t/ /g;
    s/\,/ /g;
    while (s{\(([^()]+)\)}{
        my $x = $1; $x =~ s/[ =]+/=/g; $x;
    }ge) { }
    s/[ =]*=[ =*]/=/g;
    s/\s+/ /g;
    print "# normalised $_ ($voter)\n";

    my @ranks = ('-',) x @valid_options;
    my $rank = 1;
    foreach (split /\s+/) {
      foreach (split /=/) {
	my $ix = $opt2ix{$_};
	defined $ix or badformat "unknown option $_ ($voter)";
	$ranks[$ix] = $rank;
      }
      $rank++;
    }
    print "V: ", (map {
      $_      # fixme  base36
    } @ranks), " ", $voter, "\n"
        or die $!;
  }
}


#use Devotee;
sub main {
#  my $optdesc = Devotee->Optdesc();
#  GetOptions (%$optdesc);
#  my $dvt = Devotee->new(%::ConfOpts);
my $dvt= undef;
#  $dvt->validate(%::ConfOpts) unless 
#    defined $::ConfOpts{'Config File'} && -r $::ConfOpts{'Config File'};
#  $dvt->lock_vote_dir();
  &create_tally('Configuration' => $dvt);
#  $dvt->unlock_vote_dir();
}

&main;

exit 0;


=cut

=head1 BUGS

None Known so far.

=cut

=head1 AUTHOR

Ian Jackson <ijackson@chiark.greenend.org.uk>

=head1 COPYRIGHT AND LICENSE

This script is a part of the Devotee package, and is 

Copyright (c) 2014 Ian Jackson <ijackson@chiark.greenend.org.uk>

This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.

This program 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 General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

=cut



1;

__END__