#!C:/Perl/bin/perl -wT
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;
use Fcntl qw(:flock :seek);
		
print header;
print start_html("Poll");

my $outfile="poll.txt";
if(param('club')){
	open(POLL,">>$outfile") or dienice ("Can't open poll.txt: $!");
	flock(POLL, LOCK_EX);
	seek(POLL,0,SEEK_END);
	print POLL param('club')."\n";
	close(POLL);
}

print end_html;

#redirect to result.cgi
print redirect ("http://10.20.91.122/cgi-bin/result.cgi");


sub dienice {
    my($msg) = @_;
    print header;
    print start_html("Error");
    print h2("Error");
    print $msg;
    print end_html;
    exit;
}