$sv = explode("::", $svar[$i]);
$svarmug .= "<h3>{$sp[$i]}</h3>\n";
for ($n = 0; $n < $pro_max_sv; $n++) {
if (isset($sv[$n]) and strlen($sv[$n]) > 0) {
$j = $i + 1;
$k = $n + 1;
$svarmug .= "<input type=radio name=\"sp{$j}\" value=\"{$k}\">{$sv[$n]}<BR>\n";
}
}
}
}
if (isset($svarmug) and strlen($svarmug) > 0) {
$svarmug = "<div class=forside><h2>Hvis du vil svare p flere sprgsml</h2>\n" . $svarmug . "<input type=submit value=\"Svar\"> <input type=reset value=\"Nulstil formular\"></div>\n";
} else {
$svarmug = "<div class=forside><h2>Tak!</h2>\nNu er der ikke flere sprgsml at svare p!</div>\n";
}
$uaUtils = new UsersAreaUtils($siteContext);
//Did something go wrong?
if (strlen($problemer) > 0) {
$errors = new Errors();
$errors->addError(new Error(2, "<div class=problemer><h1>Der opstod desvrre problemer...</h1>{$problemer}</div>"));
$uaUtils->showErrors($errors);
exit;
} else {
if (isset($fsvaret) and strlen($fsvaret) > 0) {
$fxsvaret = "<p>Da du fr har svaret p {$fsvaret} er dette/disse svar ikke talt med.</p>";
}
$uaUtils->echoSiteHead("Tak fordi du har svaret!", 1);
echo "<div class=forside>{$fxsvaret} <form action=\"" . $stier->getOption('cgiURL') . "/pollAnswer.php\" method=POST><input type=hidden name=brugernavn value=\"" . htmlentities($ind['brugernavn']) . "\"><input type=hidden name=svaret value=\"{$svaret}\">\n" . $svarmug . "</form><BR><a href=\"" . $stier->getOption('urlStatsite') . "?brugernavn=" . htmlentities($ind['brugernavn']) . "&show[]=HitsVotes\">Se hvad folk svarede...</A></div>";
$uaUtils->echoSiteEnd();
}
$utils = new UsersAreaUtils($siteContext);
//todo: Handle the problems better than this!.
if (strlen($errMsg) > 0) {
echo $errMsg;
exit;
}
if (!isset($in) or !isset($username)) {
$utils->doLoginForm(1, $siteContext->getOption('urlUserAreaMain'));
exit;
}
//Set the latest use with username and password.
$datafile->setLine(110, time());
//End bootstrap.
//Direct the execution to what to do.
if (!isset($in['type'])) {
$utils->echoSiteHead("Fejl", 0);
echo "<P>Der opstod en fejl i kodegeneratoren. En ndvendigt parameter var ikke til stede. Det betyder, at programmet ikke ved hvor du skal sendes hen... Brug browserens tilbageknap og prv igen. Hvis det ogs mislykkes, s skriv til <a href=\"mailto:{$options}{'errorEMail'}\">{$options}{'errorEMail'}</A>, og vedlg flgende linie:<BR><tt>{$ENV}{'QUERY_STRING'}</tt><BR>";
$utils->echoSiteEnd();
exit;
}
if (strpos(strtolower($in['type']), 'obligatorisk') !== FALSE) {
// or ($in{'type'} eq "lav_obl_kode")).
vis_obl_kode($utils, $siteContext);
//ok.
} else {
if ($in['type'] === 'vis_obl_kode2') {
if ($in['taeltype'] === 'usynlig') {
gen_obl_kode($utils, $siteContext);
//ok.
} else {
vis_obl_kode2($utils, $siteContext);
require "Stier.php";
require "lib/Localizer.php";
require "lib/SiteContext.php";
require "lib/UsersArea/Utils.php";
$stier = new Stier();
$in = Html::setPostOrGetVars($HTTP_POST_VARS, $HTTP_GET_VARS);
$dummy_for_lib = NULL;
//$lib
$siteContext = new SiteContext($dummy_for_lib, $stier, $in, 'da');
$utils = new UsersAreaUtils($siteContext);
if (!isset($in['username'])) {
$username = '';
} else {
$username = $in['username'];
}
$utils->echoSiteHead('ZIP Stat brugeromrde [' . $username . ']', 1);
$utils->echoSiteEnd(0);
/*
$filename = $stier->getPath("templates")."/HtmlDefault.txt";
$fd = fopen ($filename, "r");
$template = fread ($fd, filesize ($filename));
fclose ($fd);
$template = substr($template, 0, strpos($template, '%start_footer%')).substr($template, strpos($template, '%end_footer%')+strlen('%end_footer%'));
$keys = array(
'%title%',
'%css_url%',
'%start_menu%',
'%end_menu%',
'%mainSite%',
'%start_footer%',
'%end_footer%',
$stier = new Stier();
$datafil = DataSource::createInstance($_SERVER['QUERY_STRING'], $stier);
$res = $datafil->hentFil();
$problemer = '';
//No problems so far
if ($res === -2) {
$problemer .= "Din datafil er desvrre blevet beskadiet, og der kan derfor ikke registreres statistikker. Kontakt " . $stier->getOption('name_of_service') . "'s administrator via e-mail-adressen nederst p siden.";
} elseif (!$res) {
$problemer .= "Datafilen kunne hentes. Enten er det et problem p " . $stier->getOption('name_of_service') . " eller ogs har du skrevet det forkerte brugernavn - det kan indeholder tegn der ikke er tilladt - prv at generere den obligatoriske kode igen.";
}
$lib = new Html($ind, $datafil);
$lib->setStier($stier);
$lib->outputNoCacheHeaders();
if (strlen($problemer) === 0) {
$datafil->setLine(52, getenv('REMOTE_ADDR'));
$datafil->gemFil();
$url = trim($datafil->getLine(53));
if (strlen($url) > 0) {
if (strpos(strtolower($url), 'http://') !== 0) {
$url = "http://" . $url;
}
header('Location: ' . $url);
} else {
$ind = Html::setPostOrGetVars($HTTP_POST_VARS, $HTTP_GET_VARS);
$siteContext = new SiteContext($lib, $stier, $ind, 'da');
$utils = new UsersAreaUtils($siteContext);
$utils->echoSiteHead("Ingen adresse angivet", 1);
echo "Der var ikke angivet nogen adresse. Dette skal gres under "Rediger Indstillinger" (i kassen "Send-vidre adresse") p brugeromrdet.";
$utils->echoSiteEnd();
}
}
