#!@PERL@

use strict;
use warnings;

use lib '@CGIBINDIR@';
use civs_common;
use CGI qw(:standard -utf8);
use top_polls;

HTML_Header("Refresh top polls");
CIVS_Header("Refresh top polls");

if (!defined(param('key')) || param('key') ne '@ADMIN_KEY@') {
    print strong('Authorization error');
    print end_html();
    exit 0;
}

&top_polls::standard_refresh;

print p("Top polls have been refreshed.");

print end_html();

exit 0;
