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

require "./poslib.pl";


## Init functions
#poslibinit();

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



#($xpos, $ypos) = getgoal();
#print "Goal x=$xpos, y=$ypos\n";

votegoal(5,'1.2.3.4');

#print "newgoal result is:" . newgoal() . ".\n";

#purgeclients();

#loadglobals();

## List votes
#printvotes();
tallyvotes();