#!@PERL@

use strict;
use warnings;
use CGI qw(:standard -utf8);
use POSIX qw(strftime);
use HTML::TagFilter;

use lib '@CGIBINDIR@';
use civs_common;
use election;
use send_result_key;

my $control_key = param('key');

CheckElectionID;
CheckControlKey($control_key);

my $home = '@CIVSDATADIR@';

print CGI::header(-charset => 'utf-8');

&SendResultKey($election_id, $email_addr, $title, $result_addrs, $hash_result_key);
# Note: hash_result_key is no longer a hash.

print "OK";

Log("Resent result keys: $election_id");

exit 0;
