<?
session_start("$REMOTE_ADDR");
header("Content-type:text/vnd.wap.wml;charset=utf-8");
require ("nadstr.php");
print "<?xml version=\"1.0\" encoding=\"utf-8\"?>
<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.1//EN\" \"http://www.wapforum.org/DTD/wml_1.1.xml\">";
if(empty($vote) && empty($result)) {
print "<wml><card title=\"Голосование\"><p>Вопрос: $vopros<br/>Ответ:<br/><br/><select name=\"vote\" title=\"vote\">
<option value=\"1\">$otv1</option>
<option value=\"2\">$otv2</option>
<option value=\"3\">$otv3</option>
<option value=\"4\">$otv4</option>
<option value=\"5\">$otv5</option>
</select>
</p>
<do type=\"accept\" label=\"Голосовать!\">
<go href=\"vote.php\" method=\"post\">
<postfield name=\"vote\" value=\"$(vote)\"/>
</go>
</do><br/><do type=\"accept\" label=\"Результаты\">
<go href=\"vote.php\" method=\"post\">
<postfield name=\"result\" value=\"$(vote)\"/>
</go>
</do>
</card>
</wml>";
}
if(!empty($vote)) {
if(@$vote == "") {
print "<wml><card title=\"Ошибка\"><p align=\"center\">Вы не выбрали вариант ответа! Вернитесь и выберете вариант ответа!</p></card></wml>";
}
if(empty($_SESSION)) {
$_SESSION['username'] = $vote;
if($vote == "1") {
$file = fopen("vote.dat", "r+");
$data = file("vote.dat");
list($ot1,$ot2,$ot3,$ot4,$ot5) = explode("|", $data[0]);
$ot1++;
$zapis = "$ot1|$ot2|$ot3|$ot4|$ot5";
$summa = $ot1+$ot2+$ot3+$ot4+$ot5;
if($file) {
fputs($file, $zapis);
}
print "<wml><card title=\"Голосование\"><p align=\"center\">На вопрос \"$vopros\" ответили $summa человек(а).<br/>
Из них:<br/>
$otv1 - $ot1 человек(а);<br/>
$otv2 - $ot2 человек(а);<br/>
$otv3 - $ot3 человек(а);<br/>
$otv4 - $ot4 человек(а);<br/>
$otv5 - $ot5 человек(а);<br/>
</p></card></wml>";
}
if($vote == "2") {
$file = fopen("vote.dat", "r+");
$data = file("vote.dat");
list($ot1,$ot2,$ot3,$ot4,$ot5) = explode("|", $data[0]);
$ot2++;
$zapis = "$ot1|$ot2|$ot3|$ot4|$ot5";
$summa = $ot1+$ot2+$ot3+$ot4+$ot5;
if($file) {
fputs($file, $zapis);
}
print "<wml><card title=\"Голосование\"><p align=\"center\">На вопрос \"$vopros\" ответили $summa человек(а).<br/>
Из них:<br/>
$otv1 - $ot1 человек(а);<br/>
$otv2 - $ot2 человек(а);<br/>
$otv3 - $ot3 человек(а);<br/>
$otv4 - $ot4 человек(а);<br/>
$otv5 - $ot5 человек(а);<br/>
</p></card></wml>";
}
if($vote == "3") {
$file = fopen("vote.dat", "r+");
$data = file("vote.dat");
list($ot1,$ot2,$ot3,$ot4,$ot5) = explode("|", $data[0]);
$ot3++;
$zapis = "$ot1|$ot2|$ot3|$ot4|$ot5";
$summa = $ot1+$ot2+$ot3+$ot4+$ot5;
if($file) {
fputs($file, $zapis);
}
print "<wml><card title=\"Голосование\"><p align=\"center\">На вопрос \"$vopros\" ответили $summa человек(а).<br/>
Из них:<br/>
$otv1 - $ot1 человек(а);<br/>
$otv2 - $ot2 человек(а);<br/>
$otv3 - $ot3 человек(а);<br/>
$otv4 - $ot4 человек(а);<br/>
$otv5 - $ot5 человек(а);<br/>
</p></card></wml>";
}
if($vote == "4") {
$file = fopen("vote.dat", "r+");
$data = file("vote.dat");
list($ot1,$ot2,$ot3,$ot4,$ot5) = explode("|", $data[0]);
$ot4++;
$zapis = "$ot1|$ot2|$ot3|$ot4|$ot5";
$summa = $ot1+$ot2+$ot3+$ot4+$ot5;
if($file) {
fputs($file, $zapis);
}
print "<wml><card title=\"Голосование\"><p align=\"center\">На вопрос \"$vopros\" ответили $summa человек(а).<br/>
Из них:<br/>
$otv1 - $ot1 человек(а);<br/>
$otv2 - $ot2 человек(а);<br/>
$otv3 - $ot3 человек(а);<br/>
$otv4 - $ot4 человек(а);<br/>
$otv5 - $ot5 человек(а);<br/>
</p></card></wml>";
}
if($vote == "5") {
$file = fopen("vote.dat", "r+");
$data = file("vote.dat");
list($ot1,$ot2,$ot3,$ot4,$ot5) = explode("|", $data[0]);
$ot5++;
$zapis = "$ot1|$ot2|$ot3|$ot4|$ot5";
$summa = $ot1+$ot2+$ot3+$ot4+$ot5;
if($file) {
fputs($file, $zapis);
}
print "<wml><card title=\"Голосование\"><p align=\"center\">На вопрос \"$vopros\" ответили $summa человек(а).<br/>
Из них:<br/>
$otv1 - $ot1 человек(а);<br/>
$otv2 - $ot2 человек(а);<br/>
$otv3 - $ot3 человек(а);<br/>
$otv4 - $ot4 человек(а);<br/>
$otv5 - $ot5 человек(а);<br/>
</p></card></wml>";
}
} else {
print "<wml><card title=\"Ошибка\"><p><b>Вы уже проголосовали!</b></p></card></wml>";
}
}
if(!empty($result)) {
$file = fopen("vote.dat", "r");
$data = file("vote.dat");
list($ot1,$ot2,$ot3,$ot4,$ot5) = explode("|", $data[0]);
$summa = $ot1+$ot2+$ot3+$ot4+$ot5;
print "<wml><card title=\"Резултаты\"><p align=\"center\">На вопрос \"$vopros\" ответили $summa человек(а).<br/>
Из них:<br/>
$otv1 - $ot1 человек(а);<br/>
$otv2 - $ot2 человек(а);<br/>
$otv3 - $ot3 человек(а);<br/>
$otv4 - $ot4 человек(а);<br/>
$otv5 - $ot5 человек(а);<br/>
</p></card></wml>";
}