header("Expires: Mon, 26 Jul 1997 05:00:00 GMT");
header("Last-Modified: " . gmdate("D, d M Y H:i:s") . "GMT");
header("Cache-Control: no-cache, must-revalidate");
header("Pragma: no-cache");
header("Content-Type: text/html; charset=iso-8859-2");
extract($_REQUEST);
?>
questionare
$questionare = Array (
Array (
"Ohodnoťte vaši znalost Pythonu:",
"dlouholeté zkušenosti",
"běžně používám",
"napíšu jednoduchý program",
"slyšel(a) jsem o něm, zahlédl jsem",
"nikdy neslyšel(a)"),
Array (
"Ohodnoťte vaši znalost Javy:",
"dlouholeté zkušenosti",
"běžně používám",
"napíšu jednoduchý progam",
"slyšel(a) jsem o ní, zahlédl jsem",
"nikdy neslyšel(a)"),
Array (
"Ohodnoťte vaši znalost C:",
"dlouholeté zkušenosti",
"běžně používám",
"napíšu jednoduchý progam",
"slyšel(a) jsem o něm, zahlédl jsem",
"nikdy neslyšel(a)"),
Array (
"Programujete v jiném jazyku? Když ano, jakém? Zaškrtněte ten, ktreý umíte nejlépe.",
"Perl",
"Delphi",
"Php",
"Visual Basic",
"Bash, příp jiné skriptovací"),
Array (
"Jaký operační systém používáte nejčastěji?",
"MS Windows",
"Linux",
"Mac OS-X",
"BSD",
"jiný"),
Array (
"Jaka konfigurace promitacich platen vam na prednasce nejvice vyhovuje?",
"Vsechna tri platna",
"Krajni mensi platna a volna tabule",
"Pouze prostredni platno",
"Je mi to celkem jedno, ale rusi mne posun prostredniho platna pri uvolneni tabule",
"Je mi to uplne jedno"
),
);
$filename = "questionare.txt";
$lockfname = "/tmp/certainly_unused_lock_file_name.lck";
if (!$submitf)
{
?>
Questionnaire
} else {
// write answer to file
$fp = fopen($lockfname, 'w');
$locked = false;
while (!$locked)
{
$locked = flock($fp, LOCK_EX);
if (!$locked)
{
$delay = (round(rand(0,20)*100000));
echo "lock failed sleeping " . $delay . "
\n";
//Sleep for 0 - 2000 miliseconds, to avoid colision
usleep($delay);
}
}
// gained lock, we can write to file
$realfp = fopen($filename, "a+");
if (is_resource($realfp))
{
$result = "";
for ($qid = 1;$qid<=count($questionare);$qid++)
{
if (array_key_exists("question".$qid, $_REQUEST))
$result .= $_REQUEST["question".$qid] . " ";
else
$result .= "0 ";
}
fprintf($realfp, "%s\n", $result);
fclose($realfp);
} else
die("Sorry, but can not open file for results.\n");
fclose($fp);
echo "Thank you for your answer!
\n";
}
?>