Add support for election labels

This commit is contained in:
Petr Baudis 2014-10-13 23:52:35 +02:00
parent d4e238a86f
commit dbff2fe1b0
3 changed files with 15 additions and 7 deletions

View file

@ -6,7 +6,8 @@ use v5.10;
use CGI;
my $votefile = '/home/pasky/votes.txt';
my $label = 'testovaci komise';
my $votefile = "/home/pasky/votes $label.txt";
our @names;
open my $fh, "names.txt" or die "$!";
@ -39,7 +40,7 @@ print <<EOT;
td { border: 1pt solid; padding: 0.5ex 0.5em; }
</style>
</head>
<body><h1 align="center">brmelect Web Ballot</h1>
<body><h1 align="center">brmelect Web Ballot: $label</h1>
<div id="blurb">