remove obsolete dvt-simpletally

diff --git a/dvt-simple2tally b/dvt-simple2tally
deleted file mode 100755 (executable)
index 26fd3f3..0000000
--- a/dvt-simple2tally
+++ /dev/null
@@ -1,169 +0,0 @@
-#!/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__
-