Tidigare undersökningar
\n"; - echo "
";
- while($object = mysql_fetch_object($result)) {
- $resultArray[$counter] = array($object->sid, $object->pollTitle, $object->timeStamp, $object->voters);
- $counter++;
- }
- for ($count = 0; $count < count($resultArray); $count++) {
- $id = $resultArray[$count][0];
- $pollTitle = $resultArray[$count][1];
- $voters = $resultArray[$count][3];
- echo("• $pollTitle\n");
- echo("(Resultat - $voters röster.)
\n"); - } - html_page_foot(); - echo "
\n";
+ dbconnect();
+ $result = mysql_query("SELECT sid, pollTitle, timeStamp, voters FROM poll_desc ORDER BY timeStamp");
+ $counter = 0;
+ $rmflags = rmflags();
+ html_page_head();
+ echo "\n"); - } - html_page_foot(); - echo "
Tidigare undersökningar
\n"; + echo "
";
+ while($object = mysql_fetch_object($result)) {
+ $resultArray[$counter] = array($object->sid, $object->pollTitle, $object->timeStamp, $object->voters);
+ $counter++;
+ }
+ for ($count = 0; $count < count($resultArray); $count++) {
+ $id = $resultArray[$count][0];
+ $pollTitle = $resultArray[$count][1];
+ $voters = $resultArray[$count][3];
+ echo("• $pollTitle\n");
+ echo("(Resultat - $voters röster.)
\n"); + } + html_page_foot(); + echo "
\n";
}
function pollResults($sid) {
- global $maxOptions, $BarScale, $resultTableBgColor, $resultBarFile, $setCookies;
- if (!isset($sid)) $sid = 1;
- dbconnect();
-
- $result = mysql_query("SELECT sid, pollTitle, timeStamp FROM poll_desc WHERE sid='$sid'");
- $holdtitle = mysql_fetch_row($result);
- echo "\n"); + } + html_page_foot(); + echo "
$holdtitle[1]
"; - - mysql_free_result($result); - - $result = mysql_query("SELECT SUM(optionCount) AS SUM FROM poll_data WHERE sid='$sid'"); - $sum = (int)mysql_result($result, 0, "SUM"); - mysql_free_result($result); - - echo "
| "; - echo "$optionText"; - echo " | "; - - if($sum) { - $percent = 100 * $optionCount * $BarScale / $sum; - } else { - $percent = 0; - } - echo "";
- $percentInt = (int)$percent * 4;
- $percent2 = (int)$percent;
-
- if ($percent > 0) {
- echo "![](\"images/leftbar.png\") ";
- echo "![\"$percent2](\"images/mainbar.png\") ";
- echo "![](\"images/rightbar.png\") ";
- } else {
- echo "";
- echo "";
- echo "";
- }
+ global $maxOptions, $BarScale, $resultTableBgColor, $resultBarFile, $setCookies;
+ if (!isset($sid)) $sid = 1;
+ dbconnect();
+
+ $result = mysql_query("SELECT sid, pollTitle, timeStamp FROM poll_desc WHERE sid='$sid'");
+ $holdtitle = mysql_fetch_row($result);
+ echo "$holdtitle[1] "; + + mysql_free_result($result); + + $result = mysql_query("SELECT SUM(optionCount) AS SUM FROM poll_data WHERE sid='$sid'"); + $sum = (int)mysql_result($result, 0, "SUM"); + mysql_free_result($result); + + echo "
"; - echo " Totalt antal röster: $sum \n";
- return(1);
+ echo ""; - if($setCookies>0) { - echo "Vi tillåter endast en röst per person per dag \n"; - } else { - echo " "; - } - - $booth = $sid; - echo "[ Röstningsbås | "; - echo "Andra undersökningar ]\n"; - echo " | ";
+ }
+ }
+ echo "
"; + echo "
Totalt antal röster: $sum
"; + if($setCookies>0) { + echo "Vi tillåter endast en röst per person per dag
\n"; + } else { + echo "
"; + } + + $booth = $sid; + echo "[ Röstningsbås | "; + echo "Andra undersökningar ]\n"; + echo "
\n";
+ return(1);
}
function getTopic($topic=0) {
- if ($topic) {
- $sql = "SELECT topictext, topicimage, topicname FROM topics WHERE topicid='$topic'";
- $result = mysql_query($sql);
- $topicinfo = mysql_fetch_row($result);
- } else {
- $topicinfo = array("alla ämnen","AllTopics.png","alla");
- }
- return $topicinfo;
+ if ($topic) {
+ $sql = "SELECT topictext, topicimage, topicname FROM topics WHERE topicid='$topic'";
+ $result = mysql_query($sql);
+ $topicinfo = mysql_fetch_row($result);
+ } else {
+ $topicinfo = array("alla ämnen","AllTopics.png","alla");
+ }
+ return $topicinfo;
}
@@ -792,17 +566,17 @@
function stripslashes_array($content = array()) {
$rs = array();
while (list($key,$val) = each($content)) {
- $rs[$key] = stripslashes($val);
+ $rs[$key] = stripslashes($val);
}
return $rs;
}
function FixQuotes ($what = "") {
- $what = ereg_replace("'","''",$what);
- while (eregi("\\\\'", $what)) {
- $what = ereg_replace("\\\\'","'",$what);
- }
- return $what;
+ $what = ereg_replace("'","''",$what);
+ while (eregi("\\\\'", $what)) {
+ $what = ereg_replace("\\\\'","'",$what);
+ }
+ return $what;
}
# quote the slashes for mysql (missing php function?)
@@ -852,15 +626,15 @@
if (preg_match_all('/([A-Za-zÅÄÖåäö]+)/', $spell_text, $matches)) {
foreach ($matches[0] as $match) {
if ($match == "SPELLWORD") {
- continue;
- }
- if (! pspell_check ($pspell_link, $match)) {
- $tooltip = "Inga förslag.";
- if ($suggestions = join(', ', pspell_suggest($pspell_link, $match))) {
- $tooltip = " title='Förslag: $suggestions'";
- $allwords[$match] = $tooltip;
- }
- $text = preg_replace("/(^|[^A-Za-zÅÄÖåäö]+)($match)([^A-Za-zÅÄÖåäö]+|$)/", "$1$2$3", $text);
+ continue;
+ }
+ if (! pspell_check ($pspell_link, $match)) {
+ $tooltip = "Inga förslag.";
+ if ($suggestions = join(', ', pspell_suggest($pspell_link, $match))) {
+ $tooltip = " title='Förslag: $suggestions'";
+ $allwords[$match] = $tooltip;
+ }
+ $text = preg_replace("/(^|[^A-Za-zÅÄÖåäö]+)($match)([^A-Za-zÅÄÖåäö]+|$)/", "$1$2$3", $text);
}
}
}
@@ -930,4 +704,394 @@
return $rss;
}
+
+/*********************************************************/
+/* wordlinks and html functions */
+/*********************************************************/
+
+function urlWithProtocol($url) {
+ if (!eregi('^(f|ht)tp:', $url))
+ $url = "http://$url";
+
+ if ($url == 'http://')
+ $url = '';
+
+ $url = preg_replace('/(\s|"|\'|\\\\)/', '', $url);
+
+ return $url;
+}
+
+function wordlinks($doc) {
+ return preg_replace
+ ('%\[\s*'. # [
+ '([a-z0-9]+)\s*'. # (wordlink)
+ ':\s*'. # :
+ '([^][<>\\\\]+?)'. # (själva ordet)
+ '\s*\]%ei', # ]
+ 'wordlinksProc("\\1", "\\2")',
+ $doc);
+}
+
+function wordlinksProc($name, $str) {
+ global $wordlinks;
+
+ $str = stripslashes($str);
+ $strenc = $str;
+
+ $url = $wordlinks[$name]['url'];
+ if ($url == '')
+ return '*felaktig ordlänk*';
+
+ switch ($wordlinks[$name]['enc']) {
+ case 'susning':
+ $strenc = wordlinksEncodingSusning($str);
+ break;
+ case 'jargon':
+ $strenc = wordlinksEncodingJargon($str);
+ break;
+ case 'urlencode':
+ $strenc = urlencode($str);
+ break;
+ }
+
+ $url = ereg_replace(' WORD ', $strenc, $url);
+ $url = "$str";
+ return $url;
+}
+
+function wordlinksEncodingSusning($str) {
+ $str = preg_replace('/^([a-z])/e', "strtoupper('\\1')", $str);
+ $str = urlencode($str);
+ $str = ereg_replace('_', '%5F', $str);
+ $str = ereg_replace('\+', '_', $str);
+ $str = ereg_replace('%2F', '/', $str);
+ return $str;
+}
+
+function wordlinksEncodingJargon($str) {
+ $str = ereg_replace(' ', '-', $str);
+ $str = ereg_replace('[/@~*?]', '', $str);
+ $str = ereg_replace('&', 'amp;', $str);
+ $str = urlencode($str);
+ return $str;
+}
+
+function nowordlinkshtml($str) {
+ return strip_tags(wordlinks($str));
+}
+
+function nowordlinksshow($str) {
+ $str = htmlspecialchars($str);
+ $str = ereg_replace('\[', '[', $str);
+ $str = ereg_replace('\]', ']', $str);
+ return $str;
+}
+
+function ampersand($str) {
+ $str = str_replace("&", "&", $str);
+ $str = eregi_replace("&(#x?[0-9a-f]+;)", "&\\1", $str);
+ $str = eregi_replace("&([a-z][a-z0-9]+;)", "&\\1", $str);
+ return $str;
+}
+
+function printAllowedHTML() {
+ global $allowed_html;
+
+ echo "Tillåten HTML:"; + if($setCookies>0) { + echo "Vi tillåter endast en röst per person per dag
\n"; + } else { + echo "
"; + } + + $booth = $sid; + echo "[ Röstningsbås | "; + echo "Andra undersökningar ]\n"; + echo "
\n"; + + foreach ($allowed_html as $onekey => $oneval) { + echo "<$onekey"; + + foreach ($oneval as $twokey => $twoval) + echo " $twokey="; + + echo '> '; + } + + echo "
\n"; +} + +function new_check_html($string, $strip = '') { + +# Den här funktionen ser till att bara godkända HTML-element och deras +# godkända HTML-attribut får förekomma i $string. Man måste ha tagit bort +# eventuella slashes från magic quotes innan man anropar den här funktionen. + + global $allowed_html; + + $string = ampersand($string); + + if ($strip == 'nohtml') + return strip_tags($string); + + $allow = ''; + foreach ($allowed_html as $htmlkey => $htmlvar) + $allow .= "<$htmlkey>"; + + $string = strip_tags($string, $allow); + return new_check_html_split($string); +} + +function new_check_html_split($string) { + +# Den här funktionen letar upp HTML-taggar, delar upp dem i element och alla +# attribut, och anropar new_check_html_attr. + + $string = preg_replace('%<\s*'. + '(/?[a-z]+)'. # element + '([^>]*)'. # alla attribut + '>%ei', + "new_check_html_attr('\\1', '\\2')", $string); + return $string; +} + +function new_check_html_attr($element, $attr) { + +# Den här funktionen tar bort alla attribut, om elementet inte ska ha några. +# Om det ska det går den igenom attributlistan och delar noggrant upp den i +# attribut, som sedan kontrolleras mot $allowed_html. + + global $allowed_html; + + $attr = stripslashes($attr); + +# Kolla om elementet ska ha några attribut alls. + + if (count($allowed_html[strtolower($element)]) == 0) + return "<$element>"; + + +# Dela upp attributen, och lagra i $attrarr. + + $attr = preg_replace('/javascript\s*:\s*/i', '', $attr); + + $attrarr = array(); + $mode = 0; + $attrname = ''; + + while (strlen($attr) != 0) + { + $working = 0; # anger om operationen har lyckats eller inte + + switch ($mode) + { + case 0: # attributnamn, exempelvis href + + if (preg_match('/^([a-z]+)/i', $attr, $match)) + { + $attrname = $match[1]; + $working = $mode = 1; + $attr = preg_replace('/^[a-z]+/i', '', $attr); + } + + break; + + + case 1: # lika med eller bara tomt ("selected") + + if (preg_match('/^\s*=\s*/', $attr)) # lika med + { + $working = 1; $mode = 2; + $attr = preg_replace('/^\s*=\s*/', '', $attr); + break; + } + + if (preg_match('/^\s+/', $attr)) # tomt + { + $working = 1; $mode = 0; + $attrarr[] = array + ('name' => $attrname, + 'whole' => $attrname); + $attr = preg_replace('/^\s+/', '', $attr); + } + + break; + + + case 2: # attributvärde, exempelvis en URL efter href= + + if (preg_match('/^("[^"]*")(\s+|$)/', $attr, $match)) + # "värde" + { + $attrarr[] = array + ('name' => $attrname, + 'whole' => "$attrname=$match[1]"); + $working = 1; $mode = 0; + $attr = preg_replace('/^"[^"]*"(\s+|$)/', '', $attr); + break; + } + + if (preg_match("/^('[^']*')(\s+|$)/", $attr, $match)) + # 'värde' + { + $attrarr[] = array + ('name' => $attrname, + 'whole' => "$attrname=$match[1]"); + $working = 1; $mode = 0; + $attr = preg_replace("/^'[^']*'(\s+|$)/", '', $attr); + break; + } + + if (preg_match("%^([^\s\"']+)(\s+|$)%", $attr, $match)) + # värde + { + $attrarr[] = array + ('name' => $attrname, + 'whole' => "$attrname=\"$match[1]\""); + $working = 1; $mode = 0; + $attr = preg_replace("%^[^\s\"']+(\s+|$)%", + '', $attr); + } + + break; + } + + if ($working == 0) + # inte välformad, ta bort t o m nästa mellanslag + { + $attr = preg_replace('/^\S*\s*/', '', $attr); + $mode = 0; + } + } # while + + + if ($mode == 1) + # specialfall, om attributen slutar med ett tomt attribut som "selected" + $attrarr[] = array + ('name' => $attrname, + 'whole' => $attrname); + + +# Gå igenom $attrarr, och spara endast de tillåtna attributen för det +# här elementet. + + $attr2 = ''; + + foreach ($attrarr as $arreach) + if ($allowed_html[strtolower($element)][strtolower($arreach['name'])] + == 1) + $attr2 .= ' '.$arreach['whole']; + + + return "<$element$attr2>"; +} + +### +# +# Wiki formatting functions +# +### + +function pre_parse($in) +{ + $in = preg_replace("/&/", "&", $in); # enocode & as & + $in = preg_replace("/\"/s", """, $in); # tolka bort citationstecken + $in = preg_replace("/'/s", "'", $in); # tolka bort apostrofer + $in = preg_replace("//s", ">", $in); # bli av med > + $in = preg_replace("/\\$/s", "$", $in); # tolka bort dollar + $in = preg_replace("/[\s]*[\n\r]{2,}[\s]*[\n\r]{2,}[\s]*/m", ">>", $in); + $in = preg_replace("/[\n\r]+/", ">", $in); # make newlines consistent (1) + $in = preg_replace("/[\s]+/", " ", $in); # not more than one space + $in = preg_replace("/>/", "\n", $in); # make newlines consistent (2) + return $in; +} + +function parse($in) +{ + $in = "\n".$in."\n"; + $in = preg_replace("/\n!!!!!!(.*?)\n/", "
$1
\n", $in); # header size 6 + $in = preg_replace("/\n!!!!!(.*?)\n/", "$1
\n", $in); # header size 5 + $in = preg_replace("/\n!!!!(.*?)\n/", "$1
\n", $in); # header size 4 + $in = preg_replace("/\n!!!(.*?)\n/", "$1
\n", $in); # header size 3 + $in = preg_replace("/\n!!(.*?)\n/", "$1
\n", $in); # header size 2 + $in = preg_replace("/\n!(.*?)\n/", "$1
\n", $in); # header size 1 + $in = preg_replace("/__(.*?)__/", "$1", $in); # strong text, prefered + $in = preg_replace("/((')*)'''(([A-Z0-9a-z\s]|.*)*?)'''/", '\\2\\3', $in); # strong text, compatibility + $in = preg_replace("/@@(.*?)@@/", "$1", $in); # strong text, compatibility 2 + $in = preg_replace("/''(.*?)''/", "$1", $in); # emphasized text + $in = preg_replace("/===(.*?)===/", "$1
", $in); # header size 3 + $in = preg_replace("/==(.*?)==/", "$1
", $in); # header size 3 +#$in = preg_replace("/([0-9]+)/", '\\1\\2', $in); + $in = preg_replace + ('%\[\s*'. # [ + '([a-z0-9]+)\s*'. # (wordlink) + ':\s*'. # : + '([^][<>\\\\]+?)'. # (själva ordet) + '\s*\]%ei', # ] + 'wordlinksProc("\\1", "\\2")', + $in); + $in = preg_replace("/\[\[\s*([^][<>\\\\]+?)\s*(\|\s*([^][<>\\\\]+?)?\s*)?\]\]/e", "wikiLink(\"$1\", \"$3\")", $in); # wikilinks + $in = preg_replace('/((http|ftp|gopher|https)(:\/\/)([^][<>\\\\]+?)\.(jpeg|jpg|gif|png))()/', '\n", $in);
+ $in = preg_replace('/\s*\/{4,}\s*/', "\n
\n", $in); # //// ->
+ for ($i = 1; $i <= 12; $i++) # support for lists, up to twelve level
+ {
+ $in = preg_replace('/(\n\\*{'.$i.',}.+)+/', "
- $0\n
- $0\n
- $0\n
", $in); # ---- ->
+// $in = preg_replace("/__(.*?)__/", "$1", $in); # smaller text + + $in = preg_replace("/""(.*?)""/s", "»\\1«", $in); # quoted text + $in = preg_replace("/([-+±\/*\.,0-9a-z]*)\^([-+·×\(\)\.,0-9a-z]*)/", '\\1\\2', $in); # 54^12 + $in = "
".$in."
"; + return $in; +} + +function wikiLink($str, $str2 = "") +{ + global $userinfo; + if ($str2 == "") $str2 = $str; + dbconnect(); + $wurl="/"; //import config instead + $res = normLink($str); + # check wether word exist... + $result = mysql_query("SELECT rev FROM nimm WHERE ord = '$res'"); + if (mysql_num_rows($result)>0) + $end = "$str2"; + else + { + if ($userinfo[uname]!="") + $end = "$str2"; + else + $end = $str2; + } + return $end; +} + +function externLink($str, $str2 = "") +{ + if ($str2 == "") $str2 = $str; + dbconnect(); + return "$str2"; +} + +function normLink($str) +{ + $res = pre_parse($str); + $res = preg_replace('/>/', '>',$res); # reinsert < + $res = preg_replace('/</', '<',$res); # and > in link + $res = preg_replace('/\s/', '_',$res); # Get rid of spaces and replace with underscore (_) + return strtoupper($res{0}).strtolower(substr($res, 1)); +} + +function denormLink($res) +{ + $res = preg_replace('/>/', '>',$res); # reinsert < + $res = preg_replace('/<;/', '<',$res); # and > in link + $res = preg_replace('/_/', ' ',$res); # Get rid of spaces and replace with underscore (_) + return strtolower($res); +} + +function dewhite($in) +{ + return $in;#preg_replace('/[\s]*[\n\r]{2,}[\s]*[\n\r]{2,}[\s]*/m', "\n\n", $in); +## return preg_replace("/[ \t\n\r]{1,}/m", " ", $out); +} + ?>