--- /dev/null
+#!/usr/bin/perl -w
+
+for (;;) {
+ $_ = <>;
+ if (m/^\| /) {
+ if (s/ _?[Ss]eats=(\d+)\s/ /) {
+ print STDERR "# openstv-run-election -s $1\n";
+ }
+ die if m/ [A-Z]/;
+ warn if m/ [a-z]/;
+ } elsif (s/^\w+ = [^|]+ \|//) {
+ die if m/ [A-Z]/;
+ warn if m/ [a-z]/;
+ } elsif (s/^\w+ \: ([^|]*) \|//) {
+ print $1,"\n" or die $! if length $1;
+ die if m/ [A-Z]/;
+ warn if m/ [a-z]/;
+ } elsif (m/^\.$/) {
+ last;
+ } else {
+ die;
+ }
+}