#!/usr/bin/perl
#
# handy dandy test script
# 

require "./poslib.pl";


#read_goal_file();

#my @appletgoals = popgoals();
 
#for $j (0 .. $#appletgoals) {
#   print join(",",$appletgoals[$j]{Appletx}, $appletgoals[$j]{Applety},
#    $appletgoals[$j]{Name}, $appletgoals[$j]{URL}) . ",,\n";
#}

#flushvotes();
#votegoal(4,'1.2.3.4');

#printvotes();

tallyvotes();