#!/usr/bin/perl

use CGI ':standard'; 

print header;

$name=param('name');
$pass=param('pass');
$i=param('i');


if ($pass == 777){
$i++;
print "<form action=/cgi-bin/voter.cgi method=post>";
print "welcome member please select your name <select name=fname><option>david</option><option>sarah</option><option>howard</option></select><hr>";
print "place your vote";
print "for president <select value=$prez><option>sam</option><option>hosea</option><option>howard</option></select><hr>";
print "for vice-president <select value=$vice><option>wendy</option><option>ann</option><option>george</option></select><hr>";
print "for secretary treasurer <select value=$secretary><option>martha</option><option>tom</option><option>david</option></select><hr>";
print " <a href=voter.cgi?prez=$prez&vice=$vice&secretary=$secretary&fname=$fname>review your vote</a>";

if ($i ==1){
open (DATA, ">>data.txt");
print DATA "$fname | $prez | $vice | $secretary";
close DATA;
}
}else{
print "you are not a member";
}

open (VOTE, ">>voted,txt");