After a new sledrun report is entered, the wrreportcache table is updated as well.
[philipp/winterrodeln/mediawiki_extensions/wrreport.git] / wrreport.body.php
1 <?php
2
3
4 // Init
5 // ----
6
7 function wrReportParserInit() {
8         global $wgParser;
9         wfLoadExtensionMessages('WrReport');
10         $wgParser->setHook('bahnberichtformular', 'bahnberichtformularParserHook');
11         $wgParser->setHook('bahnberichte', 'bahnberichteParserHook');
12         $wgParser->setHook('bahnbewertung', 'bahnbewertungParserHook');
13         $wgParser->setHook('bahnentabelle', 'bahnentabelleParserHook');
14         return true;
15 }
16
17
18 // Tool functions
19 // --------------
20
21 /// Forces a regeneration of region overview pages ('Tirol', 'Vorarlberg', ...)
22 function wrRecacheRegions() {
23         $dbr = wfGetDB(DB_SLAVE);
24         // SELECT cl_from FROM categorylinks where cl_to = 'Region'
25         $res = $dbr->select('categorylinks', 'cl_from', array('cl_to' => 'Region'));
26         $page_ids = array();
27         while ($row = $dbr->fetchObject($res)) $page_ids[] = $row->cl_from;
28         $dbr->freeResult($res);
29
30         $titles = Title::newFromIDs($page_ids);
31         foreach ($titles as $title) $title->invalidateCache();
32 }
33
34
35 /// Updates the line of the wrreportcache table that corresponds to the $page_id parameter
36 function wrUpdateWrReportCacheTable($page_id) {
37         // Determine the new content for the row that should be updated
38         $dbr = wfGetDB(DB_SLAVE);
39         $row = wrReportGetReports(array('page_id', $page_id), 1);
40
41         // Delete the old content (if any)
42         $dbw = wfGetDB(DB_MASTER);
43         $dbw->begin();
44         $dbw->delete('wrreportcache', array('page_id' => $page_id));
45
46         // Insert the updated row
47         if (count($row) == 1) {
48                 $row = $row[0];
49                 $dbw->insert('wrreportcache', array(
50                         'page_id' => $row['page_id'],
51                         'page_title' => $row['page_title'],
52                         'report_id' => $row['id'],
53                         'date_report' => $row['date_report'],
54                         '`condition`' => $row['condition'],
55                         'description' => $row['description'],
56                         'author_name' => $row['author_name'],
57                         'author_username' => (is_null($row['author_userid']) ? Null : $row['author_username'])));
58         }
59         $dbw->commit();
60 }
61
62
63
64 // Render Functions
65 // ----------------
66
67 /// \brief Returns a form to enter a report (string containing HTML).
68 ///
69 /// All parameters have to be UTF-8 encoded.
70 /// \param $page_title Name of the sledding run.
71 /// \param $condition 1 to 5 for normal condition, 0 or NULL for missing condition and -1 for intentionally no condition.
72 /// \return UTF-8 encoded HTML form
73 function wrReportFormRender($hide_save_button = TRUE, $page_title = NULL, $date_report = NULL, $condition = NULL, $description = NULL, $author_name = NULL, $page_title_list = NULL) {
74         if ($page_title) $page_title = htmlspecialchars($page_title);
75         // Date options
76         $daynames = array('Heute', 'Gestern', 'Vorgestern', 'Vor 3 Tagen', 'Vor 4 Tagen');
77         $date_options = '';
78         $date_selected = false;
79         $time = time(); // number of seconds since the Unix Epoch (January 1 1970 00:00:00 GMT)
80         for ($day=0; $day!=5; ++$day) {
81                 $date = strtotime("-$day days", $time);
82                 $date_f = strftime("%Y-%m-%d", $date); // Formats it according to locale, that is set to CET.
83                 $date_options .= '<option value="' . $date_f . '"';
84                 if ((is_null($date_report) && $day == 0) || (!is_null($date_report) && $date_report == $date_f)) {
85                         $date_options .= ' selected="selected"';
86                         $date_selected = true;
87                 }
88                 $date_options .= '>' . htmlspecialchars($daynames[$day]) . ' (' . strftime('%d.%m.', $date) . ')</option>' . "\n";
89         }
90         if (!$date_selected) {
91                 $date_options = '<option value="' . $date_report . '" selected="selected">' . htmlspecialchars($date_report) . "</option>\n" . $date_options;
92         }
93         
94         // Condition options
95         $condition_options = '';
96         global $wrConditions; // $wrConditions = array(1 => 'Sehr gut', 2 => 'Gut', 3 => utf8_encode('Mittelmäßig'), 4 => 'Schlecht', 5 => 'Geht nicht');
97         $condition_options .= utf8_encode('<option value="0">(bitte auswählen)</option>') . "\n";
98         foreach ($wrConditions as $condition_num => $condition_text) {
99                 $condition_options .= "<option value=\"$condition_num\"";
100                 if ($condition == $condition_num) $condition_options .= ' selected="selected"';
101                 $condition_options .= '>' . htmlspecialchars($condition_text) . "</option>\n";
102         }
103         $condition_options .= utf8_encode('<option value="-1"');
104         if ($condition == -1) $condition_options .= ' selected="selected"';
105         $condition_options .= utf8_encode('>keine Beurteilung</option>') . "\n";
106         $description_html = htmlspecialchars($description);
107
108         // Buttons
109         // I would like to do it this way, but due to a bug of internet explorer, the <button> element is not useable.
110         //   $buttons = '<button name="action" type="submit" value="preview">Vorschau';
111         //   if ($hide_save_button) $buttons .= ' &amp; Speichern';
112         //   $buttons .= '</button>';
113         //   if (!$hide_save_button) $buttons .= '<button name="action" type="submit" value="store">Speichern</button>';
114         // Workaround: User <input type="submit"/>
115         $buttons = '<input name="preview" type="submit" value="Vorschau';
116         if ($hide_save_button) $buttons .= ' &amp; Speichern'; 
117         $buttons .= '" /> ';
118         if (!$hide_save_button) $buttons .= '<input name="store" type="submit" value="Speichern"/>';
119         
120         $specialPageName = wfMsg('wrreport'); // 'Bahnberichte'
121         $title = Title::newFromText($specialPageName, NS_SPECIAL);
122         $specialPageUrl = $title->getLocalURL(); // e.g. '/wiki/Spezial:Bahnberichte'
123
124         $form = <<<EOT
125 <form action="$specialPageUrl" method="post">
126 <table class="wrreportform" summary="Formular zum Eintragen eines Rodelbahnberichtes">
127         <tr class="oddrow"><th>Rodelbahn</th><td>$page_title<input type="hidden" name="page_title" value="$page_title"/></td></tr>
128         <tr class="evenrow"><th>Datum des Rodelns</th>
129         <td>
130         <select name="date_report">
131         $date_options
132         </select>
133         </td>
134         </tr>
135         <tr class="oddrow"><th>Bahnzustand</th><td><select name="condition">
136         $condition_options
137         </select></td></tr>
138         <tr class="evenrow"><th>Meinung</th><td><textarea name="description" cols="50" rows="7">$description_html</textarea></td></tr>
139         <tr class="oddrow"><th>Autor/in</th><td><input name="author_name" maxlength="30" size="30" value="$author_name" /></td></tr>
140         <tr class="evenrow"><th>Bericht abschicken</th><td>$buttons</td></tr>
141 </table>
142 </form>
143 EOT;
144         return $form;
145 }
146
147
148 /// \brief Renders the form to delete a report
149 ///
150 /// All in and output strings should be/are UTF-8 encoded.
151 function wrDeleteReportFormRender($reportid, $delete_person_name, $delete_reason_public, $delete_invisible) {
152         // Buttons
153         $buttons = '<input name="deletepreview" type="submit" value="Vorschau" /> ';
154         $buttons .= utf8_encode('<input name="delete" type="submit" value="Löschen"/>');
155         $buttons .= '<input name="reportid" type="hidden" value="' . $reportid . '"/>';
156         // $buttons .= '<input name="delete_invisible" type="hidden" value="' . $delete_invisible . '"/>'; // who is allowed to do so?
157         $summary = utf8_encode('Formular zum Löschen eines Schneelageberichtes');
158         $reason = utf8_encode('Begründung');
159         $delete_reason_public_html = htmlspecialchars($delete_reason_public);
160         $delete_person_name_html = htmlspecialchars($delete_person_name);
161
162         $specialPageName = wfMsg('wrreport'); // 'Bahnberichte'
163         $title = Title::newFromText($specialPageName, NS_SPECIAL);
164         $specialPageUrl = $title->getLocalURL(); // e.g. '/wiki/Spezial:Bahnberichte'
165
166         $form = <<<EOT
167 <form action="$specialPageUrl" method="post">
168 <table class="wrreportform" summary="$summary">
169         <tr class="evenrow"><th>$reason</th><td><textarea name="delete_reason_public" cols="50" rows="7">$delete_reason_public_html</textarea></td></tr>
170         <tr class="oddrow"><th>Name</th><td><input name="delete_person_name" maxlength="30" size="30" value="$delete_person_name" /></td></tr>
171         <tr class="evenrow"><th>Aktion</th><td>$buttons</td></tr>
172 </table>
173 </form>
174 EOT;
175         return $form;
176 }
177
178
179
180 // Constants for wrReportTableRender2
181 define('WRREPORT_COMPACT_PAGE', 1); ///< includes the page name
182 define('WRREPORT_COMPACT', 2);      ///< shown on a single page 
183 define('WRREPORT_DETAIL', 3);       ///< more columns
184
185 /// \brief Renders a table header ("private" sub-function of wrReportTableRender2)
186 ///
187 /// \param $format row format like WRREPORT_COMPACT
188 /// \param $showActions boolean to indicate whether an actions column should be created
189 /// \return UTF-8 encoded titles of HTML table
190 function wrReportTableTitleRender2($format, $showActions) {
191         $out = '<tr>';
192         if ($format == WRREPORT_DETAIL) $out .= '<th>ID</th>';
193         if ($format != WRREPORT_COMPACT) $out .= '<th>Bahn</th>';
194         $out .= '<th>Datum</th>';
195         if ($format == WRREPORT_DETAIL) $out .= '<th>Datum Eintrag</th>';
196         if ($format == WRREPORT_DETAIL) $out .= '<th>Datum Ungültig</th>';
197         $out .= '<th>Zustand</th>';
198         $out .= '<th>Beschreibung</th>';
199         $out .= '<th>Autor</th>';
200         if ($showActions) $out .= '<th>Aktion</th>';
201         return utf8_encode($out . "</tr>\n");
202 }
203
204
205 /// \brief Renders a table row ("private" sub-function of wrReportTableRender2)
206 ///
207 /// \param $row associative array of table columns like one row in the wrreport table
208 /// \param $format row format like WRREPORT_COMPACT
209 /// \param $showActions boolean to indicate whether an actions column should be created
210 /// \return UTF-8 encoded titles of HTML table
211 function wrReportTableRowRender2($row, $format, $showActions) {
212         extract($row);
213
214         $out = '<tr>';
215         // $id
216         if ($format == WRREPORT_DETAIL) $out .= '<td>' . $id . '</td>';
217         // $page_title
218         if ($format != WRREPORT_COMPACT) $out .= '<td>' . wrCommonSandboxParse('[[' . $page_title . ']]') . '</td>';
219         // $date_report
220         $dayOfWeek = array('Mo', 'Di', 'Mi', 'Do', 'Fr', 'Sa', 'So');
221         $date_report = strtotime($date_report);
222         $date_report = $dayOfWeek[strftime('%u', $date_report)-1] . strftime(', %d.%m.', $date_report);
223         $out .= '<td>' . $date_report . '</td>';
224         // $date_entry
225         if ($format == WRREPORT_DETAIL) $out .= '<td>' . date('Y-m-d, H:i', strtotime($date_entry)) . '</td>';
226         // $date_invalid
227         if ($format == WRREPORT_DETAIL) $out .= '<td>' . date('Y-m-d, H:i', strtotime($date_invalid)) . '</td>';
228         // $condition
229         global $wrConditions;
230         $condition_text = '---';
231         if (isset($wrConditions[$condition])) $condition_text = $wrConditions[$condition];
232         $out .= '<td>';
233         if ($delete_date) $out .= utf8_encode('<em>Gelöscht</em>');
234         else $out .= htmlspecialchars($condition_text);
235         $out .= '</td>';
236         // $description
237         $out .= '<td class="wrreportdescription">';
238         if ($delete_date) $out .= utf8_encode('<em>Gelöscht</em>');
239         else $out .= wrCommonSandboxParse($description);
240         $out .= '</td>';
241         // $author_name
242         $out .= '<td>';
243         if ($delete_date) $out .= utf8_encode('<em>Gelöscht</em>');
244         else $out .= htmlspecialchars($author_name);
245         $out .= '</td>';
246         // actions
247         // wiki/Spezial:Bahnberichte?action=deletepreview&reportid=42
248         if ($showActions) {
249                 $out .= '<td>';
250                 if (!isset($row['delete_date'])) {
251                         $specialPageName = wfMsg('wrreport'); // 'Bahnberichte'
252                         $title = Title::newFromText($specialPageName, NS_SPECIAL);
253                         $specialPageUrl = $title->getLocalURL(); // e.g. '/wiki/Spezial:Bahnberichte'
254                         $out .= "<a href=\"$specialPageUrl?action=deletepreview&amp;reportid=" . $row['id'] . '">' . utf8_encode('Löschen...') . '</a>';
255                 }
256                 $out .= '</td>';
257         }
258         return $out . "</tr>\n";
259 }
260
261
262 /// \brief Renders the report table. Call wrReportGetReports for the $rows parameter.
263 ///
264 /// \param $rows array of associative row arrays
265 /// \param $format row format like WRREPORT_TABLE_SHORT
266 function wrReportTableRender2($rows, $format, $showActions) {
267         $out = "<table class=\"wrreporttable\">\n" . wrReportTableTitleRender2($format, $showActions);
268         foreach ($rows as $key => $row) $out .= wrReportTableRowRender2($row, $format, $showActions);
269         return $out . "</table>\n";
270 }
271
272
273 /// Returns an array with column names
274 function wrReportGetColumnNames() {
275         return array('id', 'page_id', 'page_title', 'date_report', 'date_entry', 'date_invalid', 'condition', 'description', 'author_name', 'author_userid', 'author_username', 'delete_date', 'delete_person_name', 'delete_person_ip', 'delete_person_userid', 'delete_person_username', 'delete_reason_public', 'delete_invisible');
276 }
277
278
279 /// \brief Returns reports as associative array.
280 ///
281 /// Examples: 
282 ///   $conditions = array('page_title' => 'Birgitzer Alm', 'date_invalid > now()');
283 ///   $limit = 1; // or NULL for no limit
284 function wrReportGetReports($conditions, $limit=NULL) {
285         $dbr = wfGetDB(DB_SLAVE);
286         $columns = wrReportGetColumnNames();
287         global $wgDBtype;
288         if ($wgDBtype == "mysql") // "condition" is a reserved word in mysql
289                  for ($i = 0; $i != count($columns); ++$i) $columns[$i] = sprintf('`%s`', $columns[$i]);
290         $options = array('ORDER BY' => 'date_report desc, date_entry desc');
291         if (!is_null($limit)) $options['LIMIT'] = $limit;
292         $res = $dbr->select('wrreport', $columns, $conditions, 'wrReportGetReports', $options);
293         $result = array();
294         while ($row = $dbr->fetchRow($res)) $result[] = $row;
295         $dbr->freeResult($res);
296         return $result;
297 }
298
299
300 /// \brief It returns an array of the "condition" (as number) and the date of the "most recent" report of the specified page (to decode as list($condition, $date));
301 ///
302 /// If no condition is present, array(NULL, NULL) is returned
303 function wrReportConditionRender($page_title) {
304         $dbr = wfGetDB(DB_SLAVE);
305         $cond = 'condition';
306         global $wgDBtype;
307         // select wrreport.id as report_id, `condition`, date_report from wrreport where page_title='Axamer Lizum' and `condition` is not null and date_invalid > now() and delete_date is null order by date_report desc, date_entry desc limit 1;
308         if ($wgDBtype == "mysql") $cond = "`$cond`"; // "condition" is a reserved word in mysql
309         $res = $dbr->select(
310                 'wrreport',
311                 array('wrreport.id as report_id', $cond, 'date_report'), 
312                 array('page_title' => $page_title, "$cond is not null", 'date_invalid > now()', 'delete_date is null'),
313                 'wrReportConditionRender',
314                 array('ORDER BY' => 'date_report desc, date_entry desc', 'LIMIT' => '1')
315         );
316         if ($res->numRows() <= 0) {
317                 $dbr->freeResult($res);
318                 return array(NULL, NULL);
319         }
320         $row = $dbr->fetchObject($res);
321         $date = $row->date_report;
322         if ($date) $date = strtotime($date);
323         $dbr->freeResult($res);
324         return array($row->condition, $date);
325 }
326
327
328 /// \brief Returns true if the user is allowed to delete reports (in general)
329 function wrReportUserMayDelete() {
330         global $wgUser;
331         global $wgWrReportDeleteMode;
332         return $wgWrReportDeleteMode == 'allow' || ($wgWrReportDeleteMode == 'loggedin' && $wgUser->isLoggedIn());
333 }
334
335
336
337 // Parser Hook Functions
338 // ---------------------
339
340 /// \brief Is called when the tag <bahnberichtformular/> is encountered.
341 ///
342 /// The current page name is taken.
343 function bahnberichtformularParserHook($input, $args, $parser) {
344         // Username
345         global $wgUser;
346         $author_name = NULL;
347         if ($wgUser->isLoggedIn()) {
348                 $author_name = $wgUser->getRealName();
349                 if (!$author_name) $author_name = $wgUser->getName();
350         }
351
352         global $wgWrReportMode;
353         global $wgWrReportBlackListAll;
354         global $wgWrReportBlackListStrangers;
355         if ($wgWrReportMode == 'summer') return wrCommonSandboxParse(utf8_encode("''An dieser Stelle kann während des Winters die Schneelage von Rodelbahnen eingetragen werden.''\n\n"));
356         if ($wgWrReportMode == 'deny') return wrCommonSandboxParse(utf8_encode("''Rodelbahnberichte sind derzeit leider nicht erlaubt.''\n\n"));
357
358         if ($wgWrReportMode == 'loggedin' && !$wgUser->isLoggedIn()) return wrCommonSandboxParse(utf8_encode("''Derzeit sind Rodelbahnberichte nur für angemeldete Benutzer erlaubt.''\n\n"));
359
360         if (in_array($parser->getTitle()->getText(), $wgWrReportBlackListAll)) return wrCommonSandboxParse(utf8_encode("''Bei dieser Rodelbahn dürfen derzeit leider keine Rodelbahnberichte abgegeben werden.''\n"));
361         if (!$wgUser->isLoggedIn() && in_array($parser->getTitle()->getText(), $wgWrReportBlackListStrangers)) return wrCommonSandboxParse(utf8_encode("''Bei der angegebenen Rodelbahn dürfen derzeit nur angemeldete Benutzer Rodelbahnberichte abgebe.''\n\n"));
362         
363         // Calling "$title = $parser->getTitle(); $title->invalidateCache();" doesn't help here to force regeneration
364         // However, this would not be the best solution because the page has to be re-rendered only at midnight
365
366         // In the following line, $author_name was replaced by NULL to prevent a bug, where the wrong author_name
367         // is shown (see ticket #35). TODO: Find reason.
368         // return wrCommonReplaceByMarker(wrReportFormRender(TRUE, $parser->getTitle()->getText(), NULL, NULL, NULL, $author_name), 'wrform');
369         return wrCommonReplaceByMarker(wrReportFormRender(TRUE, $parser->getTitle()->getText(), NULL, NULL, NULL, NULL), 'wrform');
370 }
371
372
373 /// \brief Is called when the tag <bahnberichte/> is encountered.
374 ///
375 /// The current page name is taken.
376 function bahnberichteParserHook($input, $args, $parser) {
377         $page_title = $parser->getTitle()->getText();
378         $conditions = array('page_title' => $page_title, 'date_invalid > now()');
379         $rows = wrReportGetReports($conditions);
380         if (count($rows) == 0) return wrCommonSandboxParse("''Es wurden keine Bahnberichte in der Datenbank gefunden.''\n\n");
381         return wrReportTableRender2($rows, WRREPORT_COMPACT, wrReportUserMayDelete());
382 }
383
384
385 /// \brief Is called when the tag <bahnbewertung/> is encountered.
386 ///
387 /// * <bahnbewertung/>: The current page name is taken.
388 /// * <bahnbewertung>page_name</bahnbewertung>: The given page name is taken.
389 function bahnbewertungParserHook($input, $args, $parser) {
390         $titleText = $input;
391         if (!$titleText) $titleText = $parser->getTitle()->getText();
392         list($condition, $date) = wrReportConditionRender($titleText);
393         if ($date) $date = strftime('%d.%m.', $date);
394         global $wrConditions;
395         global $wrNewReportSection; //  = utf8_encode('Eintragen');
396         global $wrShowReportsSection; //  = utf8_encode('Einträge');
397         global $wgUser;
398         global $wgWrReportMode; // e.g. 'summer'
399         global $wgWrReportBlackListAll;
400         global $wgWrReportBlackListStrangers;
401
402         // Determine, whether the user is allowed to make a new report
403         $userMayReport = ($wgWrReportMode == 'allow' || ($wgWrReportMode == 'loggedin' && $wgUser->isLoggedIn()));
404         if ($userMayReport) {
405                 if (in_array($titleText, $wgWrReportBlackListAll)) $userMayReport = false;
406                 if (!$wgUser->isLoggedIn() && in_array($titleText, $wgWrReportBlackListStrangers)) $userMayReport = false;
407         }
408
409         // Get the condition and create the response wiki text
410         if (isset($wrConditions[$condition])) {
411                 $wikiText = '[['. $titleText . '#' . $wrShowReportsSection . '|'. $wrConditions[$condition] . "]] <small>$date";
412                 if ($userMayReport) $wikiText .= " ''[[" . $titleText . '#' . $wrNewReportSection . "|Neu]]''";
413                 $wikiText .= "</small>";
414         } else {
415                 if ($userMayReport) $wikiText = "<small>''[[" . $titleText . '#' . $wrNewReportSection . "|Bitte eintragen]]''</small>";
416                 else $wikiText = '--';
417         }
418         return wrCommonReplaceByMarker(wrCommonSandboxParse($wikiText), 'wrreports', FALSE);
419 }
420
421
422 /// \brief Is called when the tag <bahnentabelle/> is encountered.
423 ///
424 /// Example:
425 /// <bahnentabelle>
426 /// Birgitzer Alm (vom Adelshof)
427 /// Kemater Alm
428 /// Axamer Lizum
429 /// </bahnentabelle>
430 function bahnentabelleParserHook($input, $args, $parser) {
431         $page_titles = array();
432         foreach (explode("\n", $input) as $page_title) {
433                 $page_title = trim($page_title);
434                 if (!$page_title) continue;
435                 $page_titles[] = str_replace(' ', '_', $page_title);
436         }
437         
438         $dbr = wfGetDB(DB_SLAVE);
439         for ($i = 0; $i != count($page_titles); ++$i) $page_titles[$i] = "'" . mysql_escape_string($page_titles[$i]) . "'";
440         // SELECT p.page_id,p.page_title, c.length, c.walkup_time, c.top_elevation, c.bottom_elevation, c.walkup_separate, c.lift, c.night_light, c.public_transport, c.sled_rental, c.information_phone FROM `page` p, wrsledruncache c WHERE (p.page_title in ('Birgitzer_Alm_(vom_Adelshof)', 'Kemater_Alm', 'Axamer_Lizum') and p.page_id=c.page_id) ORDER BY page_title
441         $where_array = array('page.page_id = wrsledruncache.page_id');
442         if (count($page_titles) > 0) $where_array[] = 'page.page_title in (' . implode(', ', $page_titles) . ')';
443         else $where_array[] = 'false';
444         $res = $dbr->select(array('page', 'wrsledruncache'), array('page.page_id', 'page.page_title', 'page_namespace', 'length', 'walkup_time', 'top_elevation', 'bottom_elevation', 'walkup_separate', 'lift', 'night_light', 'public_transport', 'sled_rental', 'information_phone'), $where_array, 'bahnentabelleParserHook', array('ORDER BY' => 'page.page_title'));
445
446         global $wrConditions;
447         global $wrNewReportSection; //  = utf8_encode('Eintragen');
448         global $wrShowReportsSection; //  = utf8_encode('Einträge');
449         global $wgUser;
450         global $wgWrReportMode; // e.g. 'summer'
451         global $wgWrReportBlackListAll;
452         global $wgWrReportBlackListStrangers;
453         global $wgDBtype;
454
455         // Determine, whether the user is allowed to make a new report
456         $userMayReport = ($wgWrReportMode == 'allow' || ($wgWrReportMode == 'loggedin' && $wgUser->isLoggedIn()));
457         $cond = 'condition';
458         if ($wgDBtype == 'mysql') $cond = "`$cond`"; // "condition" is a reserved word in mysql
459
460         // Title
461         $html = "<table class=\"wikitable\">\n";
462         $html .= utf8_encode('<tr><th><img src="/vorlagen/s_rental.png" alt="Rodelverleih" title="Rodelverleih"/></th><th><img src="/vorlagen/s_light.png" alt="Beleuchtet" title="Beleuchtet"/></th><th><img src="/vorlagen/s_lift.png" alt="Aufstiegshilfe" title="Aufstiegshilfe/Lift"/></th><th><img src="/vorlagen/s_walk.png" alt="Aufstieg getrennt" title="Aufstieg getrennt"/></th><th><img src="/vorlagen/s_bus.png" alt="Öffentliche Anreise möglich" title="Öffentliche Anreise möglich"/></th><th>Rodelbahn</th>') .
463         ($wgWrReportMode == 'summer' ? '' : '<th>Schneelage</th>') . 
464         utf8_encode("<th>Auskunft</th><th>Gehzeit</th><th>Höhe</th><th>Länge</th></tr>\n");
465
466         // Rows
467         while ($row = $dbr->fetchObject($res)) {
468                 $title = Title::newFromRow($row);
469
470                 $html .= '<tr><td>' . ($row->sled_rental ? '<img src="/vorlagen/s_rental.png" alt="Rodelverleih" title="Rodelverleih"/>' : '') . '</td>' .
471                 '<td>' . ($row->night_light ? '<img src="/vorlagen/s_light.png" alt="Beleuchtet" title="Beleuchtet"/>' : '') . '</td>' .
472                 '<td>' . ($row->lift ? '<img src="/vorlagen/s_lift.png" alt="Aufstiegshilfe" title="Aufstiegshilfe/Lift"/>' : '') . '</td>' .
473                 '<td>' . ($row->walkup_separate ? '<img src="/vorlagen/s_walk.png" alt="Aufstieg getrennt" title="Aufstieg getrennt"/>' : '') . '</td>' .
474                 '<td>' . (($row->public_transport and $row->public_transport != 5) ? utf8_encode('<img src="/vorlagen/s_bus.png" alt="Öffentliche Anreise möglich" title="Öffentliche Anreise möglich"/>') : '') . '</td>' .
475                 '<td><a href="' . $title->escapeLocalURL() . '">' . $title->getEscapedText() . '</a></td>';
476                 if ($wgWrReportMode != 'summer') {
477                         // Check rights
478                         $userMayReportThis = $userMayReport;
479                         if ($userMayReportThis) {
480                                 if (in_array($title->getText(), $wgWrReportBlackListAll)) $userMayReportThis = FALSE;
481                                 if (!$wgUser->isLoggedIn() && in_array($title->getText(), $wgWrReportBlackListStrangers)) $userMayReportThis = FALSE; // TODO: Check getText() whether it uses _ or spaces
482                         }
483
484                         // Select condition
485                         // select wrreport.id as report_id, `condition`, date_report from wrreport where page_title='Axamer Lizum' and `condition` is not null and date_invalid > now() and delete_date is null order by date_report desc, date_entry desc limit 1;
486                         $cres = $dbr->select(
487                                 'wrreport',
488                                 array('wrreport.id as report_id', $cond, 'date_report'), 
489                                 array('page_id' => $row->page_id, "$cond is not null", 'date_invalid > now()', 'delete_date is null'),
490                                 'wrReportConditionRender',
491                                 array('ORDER BY' => 'date_report desc, date_entry desc', 'LIMIT' => '1')
492                         );
493                         if ($cres->numRows() <= 0) {
494                                 $condition = NULL;
495                                 $date = '';
496                         } else {
497                                 $crow = $dbr->fetchObject($cres);
498                                 $condition = $crow->condition;
499                                 $date = strftime('%d.%m.', strtotime($crow->date_report));
500                         }
501                         $dbr->freeResult($cres);
502                         
503                         $html .= '<td>';
504                         if (isset($wrConditions[$condition])) {
505                                 $html .= '<a href="' . $title->escapeLocalURL() . '#' . Title::escapeFragmentForURL($wrShowReportsSection) . '">' . htmlspecialchars($wrConditions[$condition]) . "</a> <small>$date";
506                                 if ($userMayReportThis) $html .= ' <em><a href="' . $title->escapeLocalURL() . '#' . $wrNewReportSection . '">Neu</a></em>';
507                                 $html .= '</small>';
508                         } else {
509                                 if ($userMayReportThis) $html .= '<small><em><a href="' . $title->escapeLocalURL() . '#' . $wrNewReportSection . '">Bitte eintragen</a></em></small>';
510                                 else $html .= '--';
511                         }
512                         $html .= '</td>';
513                 }
514                 $info = $row->information_phone;
515                 if ($info) {
516                         $info_parts = explode(';', $info);
517                         $info_parts = explode('(', $info_parts[0], 2);
518                         if (count($info_parts) == 2) {
519                                 $info = htmlspecialchars($info_parts[0]) . '<small>(' . htmlspecialchars($info_parts[1]) . '</small>';
520                         } else $info = htmlspecialchars($info);
521                 }
522                 $html .= "<td>$info</td>" .
523                 '<td>' . ($row->walkup_time ? $row->walkup_time . ' min' : '') . '</td>' .
524                 '<td>' . ($row->bottom_elevation ? $row->bottom_elevation  : '') .
525                 ($row->bottom_elevation && $row->top_elevation ? ' - ' : '') .
526                 ($row->top_elevation ? $row->top_elevation : '') .
527                 ($row->bottom_elevation || $row->top_elevation ? ' m' : '') . '</td>' .
528                 '<td>' . ($row->length ? $row->length . ' m' : '') . "</td></tr>\n";
529         }
530         $dbr->freeResult($res);
531
532         $html .= "</table>\n";
533         return wrCommonReplaceByMarker($html, 'wrtable');
534 }
535
536
537
538 // Special page
539 // ------------
540
541 /// Specal Page to show reports
542 class WrReport extends SpecialPage {
543         function WrReport() {
544                 SpecialPage::SpecialPage('WrReport');
545                 wfLoadExtensionMessages('WrReport');
546         }
547
548
549         /// \param $par Possibilities:
550         /// - action == 'view' (default)
551         /// - action == 'preview': Preview new report
552         /// - action == 'store': Store new report
553         /// - action == 'deletepreview': Preview the deleted record
554         /// - action == 'delete': Delete an existing report
555         /// - action == 'showerror': Shows the error and exits
556         /// \param $override_action If not NULL (default), it overrides the action in $par
557         /// \param $errorMsg UFT-8 encoded error message (in WikiText) to show on top of the page or NULL (default):
558         function execute($par, $override_action = NULL, $errorMsg = NULL) {
559                 global $wgRequest, $wgOut;
560
561                 $this->setHeaders();
562
563                 // Get request data
564                 $action = $wgRequest->getText('action');
565                 if (!$action) {
566                         if ($wgRequest->getVal('preview')) $action = 'preview';
567                         elseif ($wgRequest->getVal('store')) $action = 'store';
568                         elseif ($wgRequest->getVal('deletepreview')) $action = 'deletepreview';
569                         elseif ($wgRequest->getVal('delete')) $action = 'delete';
570                         else $action = 'view';
571                 }
572                 if ($override_action) $action = $override_action;
573
574                 // Show error message
575                 if ($errorMsg || $action == 'showerror') {
576                         $wgOut->addWikiText('<div class="errorbox">' . $errorMsg . "</div>\n");
577                         if ($action == 'showerror') return;
578                 }
579
580                 // Action view
581                 if ($action == 'view') {                
582                         $conditions = array('date_invalid > now()');
583                         $rows = wrReportGetReports($conditions);
584                         if (count($rows) == 0) $wgOut->addWikiText("''Es wurden keine Bahnberichte in der Datenbank gefunden.''\n\n");
585                         $wgOut->addHTML(wrReportTableRender2($rows, WRREPORT_DETAIL, wrReportUserMayDelete())); 
586                 }
587
588                 // Action deletepreview or delete
589                 elseif ($action == 'deletepreview' || $action == 'delete') {
590                         $reportid = (int) $wgRequest->getText('reportid');
591                         if ($reportid == 0) {
592                                 $this->execute($par, 'showerror', utf8_encode('Es wurde kein Bericht zum Löschen ausgewählt.'));
593                                 return;
594                         }
595                         $rows = wrReportGetReports(array('id' => $reportid));
596                         if (count($rows) != 1) {
597                                 $this->execute($par, 'showerror', utf8_encode('Es wurde ein ungültiger Bericht zum Löschen ausgewählt.'));
598                                 return;
599                         }
600                         $row = $rows[0];
601                         if (!is_null($row['delete_date'])) {
602                                 $this->execute($par, 'showerror', utf8_encode('Der angegebende Bericht ist bereits gelöscht.'));
603                                 return;
604                         }
605                         $delete_reason_public = $wgRequest->getText('delete_reason_public');
606                         $delete_person_name = $wgRequest->getText('delete_person_name');
607                         $delete_invisible = $wgRequest->getText('delete_invisible') ? TRUE : FALSE;
608                         if ($action == 'delete') {
609                                 // page
610                                 $title = Title::newFromId($row['page_id']);
611
612                                 // user
613                                 global $wgUser;
614                                 $delete_person_userid = $wgUser->getId();
615                                 if ($delete_person_userid == 0) $delete_person_userid = NULL; // to store a NULL value in the database if no user is logged in instead of 0.
616                                 $delete_person_username = $wgUser->getName();
617
618                                 // Check permissions - see also function wrReportUserMayDelete, that does also check permissions but does not return an error message.
619                                 $errorMsg = NULL;
620                                 global $wgWrReportDeleteMode;
621                                 if ($wgWrReportDeleteMode == 'deny') $errorMsg = utf8_encode('Das Löschen von Rodelbahnberichten ist derzeit leider nicht erlaubt.');
622                                 elseif ($wgWrReportDeleteMode == 'loggedin' && !$wgUser->isLoggedIn()) $errorMsg = utf8_encode('Derzeit dürfen nur angemeldete Benutzer Rodelbahnberichte löschen.');
623                                 elseif (!$delete_person_name || !$delete_reason_public) $errorMsg = utf8_encode('Es müssen sowohl die Begründung als auch der Name angegeben werden.');
624                                 if ($errorMsg) {
625                                         $this->execute($par, 'deletepreview', $errorMsg);
626                                         return;
627                                 }
628                                 
629                                 // "Delete" (update) entry
630                                 $dbr = wfGetDB(DB_MASTER);
631                                 $dbr->update(
632                                         'wrreport', 
633                                         array(
634                                                 'delete_date' => date('c'),
635                                                 'delete_person_name' => $delete_person_name,
636                                                 'delete_person_ip' => $_SERVER['REMOTE_ADDR'],
637                                                 'delete_person_userid' => $delete_person_userid,
638                                                 'delete_person_username' => $delete_person_username,
639                                                 'delete_reason_public' => $delete_reason_public,
640                                                 'delete_invisible' => $delete_invisible ? 't' : 'f'
641                                         ),
642                                         array('id' => $reportid)
643                                 );
644
645                                 // Purge cache
646                                 $title->invalidateCache();
647                                 wrRecacheRegions();                             
648
649                                 // Show success message
650                                 global $wrShowReportsSection;
651                                 $wgOut->addWikiText(utf8_encode('<div class="successbox">Der Bahnbericht für [[') . $row['page_title'] . '#' . $wrShowReportsSection . '|' . $row['page_title'] . utf8_encode("]] wurde erfolgreich gelöscht.</div>\n"));
652                         }
653                         if ($action == 'deletepreview') {
654                                 $preview_msg = "Bitte nur dann einen Bericht löschen, wenn Gründe vorliegen wie\n" .
655                                 "* Beschimpfungen, Verleumdungen (wir wollen ''Rodelbahnen'' bewerten, nicht Personen)\n" .
656                                 "* Werbung oder Spam (wenn jemand allerdings ''werbend'' zu gute Noten vergibt, lieber eigenen Bericht eintragen als löschen).\n\n";
657                                 $wgOut->addWikiText(utf8_encode($preview_msg));
658                                 $wgOut->addWikiText(utf8_encode("== Schneelagebericht, um den es beim Löschen geht ==\n"));
659                                 $format = WRREPORT_COMPACT_PAGE;
660                                 $wgOut->addHTML(wrReportTableRender2(array($row), $format, FALSE));
661                                 $wgOut->addWikiText(utf8_encode("\n\n== Vorschau (derzeit noch nicht gelöscht) ==\n"));
662                                 $row['delete_date'] = date('c');
663                                 $row['delete_reason_public'] = $delete_reason_public;
664                                 $row['delete_person_name'] = $delete_person_name;
665                                 $row['delete_invisible'] = $delete_invisible;
666                                 $wgOut->addHTML(wrReportTableRender2(array($row), $format, FALSE));
667                                 $wgOut->addWikiText(utf8_encode("== Löschen ==\n"));
668                                 $wgOut->addWikiText(utf8_encode("Die Begründung und der Name scheinen nicht in den normalen Listen auf, allerdings dienen sie den Administratoren dazu, sich schnell einen Überblick zu verschaffen, wer was warum gelöscht hat.\n"));
669                                 $wgOut->addHTML(wrDeleteReportFormRender($reportid, $delete_person_name, $delete_reason_public, $delete_invisible));
670                         }
671                 }
672
673                 // Action preview or store
674                 elseif ($action == 'preview' || $action == 'store') {
675                         $page_title = $wgRequest->getText('page_title');
676                         $date_report = $wgRequest->getText('date_report');
677                         $condition = $wgRequest->getText('condition');
678                         $description = $wgRequest->getText('description');
679                         $author_name = $wgRequest->getText('author_name');
680                         
681                         // condition
682                         $condition = (int) $condition; // force to be nummeric. -1 ... "keine Bewertung", 0 ... "Bitte eingeben", 1 to 5 ... "Sehr gut" to "Geht nicht"
683                         if ($condition < -1 or $condition > 5) $condition = 0; // invalid condition: Tread like 0.
684                         $condition_sql = NULL;
685                         if ($condition >= 1 and $condition <= 5) $condition_sql = $condition;
686
687                         // author_name
688                         $author_name = trim($author_name);
689
690                         if ($action == 'store') {
691                                 // page_id
692                                 $title = Title::newFromText($page_title);
693                                 $page_id = $title->getArticleId();
694                                 if ($page_id == 0) $page_id = NULL;
695                                 
696                                 // user_id
697                                 global $wgUser;
698                                 $author_userid = $wgUser->getId();
699                                 if ($author_userid == 0) $author_userid = NULL; // to store a NULL value in the database if no user is logged in instead of 0.
700                                 $author_username = $wgUser->getName();
701
702                                 // description
703                                 $description_html = wrCommonSandboxParse($description); // this variable is used for checks of the created code (below)
704                                 
705                                 // check conditions/permissions
706                                 $errorMsg = NULL;
707                                 global $wgWrReportMode;
708                                 global $wgWrReportBlackListAll;
709                                 global $wgWrReportBlackListStrangers;
710                                 if ($wgWrReportMode == 'summer') $errorMsg = utf8_encode('Rodelbahnberichte sind in der schneefreien Zeit nicht erlaubt.');
711                                 elseif ($wgWrReportMode == 'deny') $errorMsg = utf8_encode('Rodelbahnberichte sind derzeit leider nicht erlaubt.');
712                                 elseif ($wgWrReportMode == 'loggedin' && !$wgUser->isLoggedIn()) $errorMsg = utf8_encode('Derzeit sind Rodelbahnberichte nur für angemeldete Benutzer erlaubt.');
713                                 elseif (!$page_id) $errorMsg = utf8_encode('Die angegebene Seite wurde nicht gefunden.');
714                                 elseif (in_array($page_title, $wgWrReportBlackListAll)) $errorMsg = utf8_encode('Bei der angegebenen Rodelbahn dürfen derzeit keine Rodelbahnberichte abgegeben werden.');
715                                 elseif (!$wgUser->isLoggedIn() && in_array($page_title, $wgWrReportBlackListStrangers)) $errorMsg = utf8_encode('Bei der angegebenen Rodelbahn dürfen derzeit nur angemeldete Benutzer Rodelbahnberichte abgebe.');
716                                 elseif ($condition == 0) $errorMsg = utf8_encode('Bitte einen Bahnzustand aus der Liste auswählen.');
717                                 elseif ($condition <= 0 && !$description) $errorMsg = utf8_encode('Es sind sowohl die Beschreibung als auch die Bewertung sind leer.');
718                                 elseif (!$wgUser->isLoggedIn()) {
719                                         if (!$description) $errorMsg = utf8_encode('Bitte bei der Beschreibung eine kurze Begründung für die Bewertung abgeben.');
720                                         elseif (!(stripos($description, 'http') === FALSE)) $errorMsg = utf8_encode('Der Text "http" ist leider für nicht-angemeldete Benutzer nicht erlaubt, weil wir in der Vergangenheit Fälle hatten, bei denen externe Werbelinks automatisiert eingetragen wurden.');
721                                         elseif (!$author_name) $errorMsg = utf8_encode('Bitte einen Autorennamen angeben (das kann gerne auch ein Pyseudonym, Nickname oder ein Kürzel sein).');
722                                         // We want to disallow certain types of markup. Unfortunately the mediawiki markup language parser cannot be configured therefore we have to filter the input manually.
723                                         // Disallow "<pre>":
724                                         elseif (!(stripos($description_html, '<pre>') === FALSE)) $errorMsg = utf8_encode('Es wurde eine WikiText Formatierung (pre) verwendet, die für nicht angemeldete Benutzer nicht erlaubt ist - bitte einen Eintrag ohne Wiki Formatierung verwenden - danke!');
725                                 }
726
727                                 // check author name
728                                 if (!$errorMsg) {
729                                         $author_name_id = $wgUser->idFromName(strtolower($author_name));
730                                         if ($wgUser->isLoggedIn()) {
731                                                 if ($author_name_id != 0 && $author_name_id != $wgUser->getId())
732                                                         $errorMsg = utf8_encode('Der von Ihnen verwendete Autorenname ist der Login-Name eines anderen Benutzers und kann daher nicht als Autorenname verwendet werden.');
733                                         } else {
734                                                 if ($author_name_id != 0)
735                                                         $errorMsg = utf8_encode('Der von Ihnen verwendete Autorenname ist der Login-Name eines Wiki-Benutzers und kann daher bei anonymen Berichten nicht verwendet werden. Wenn dieser Name Ihnen "gehört" dann melden Sie sich bitte an und probieren es nochmals.');
736                                         }
737                                 }
738
739                                 // Chech whether identical reports are present
740                                 if (!$errorMsg) {
741                                         $dbr = wfGetDB(DB_SLAVE);
742                                         $cond = 'condition';
743                                         global $wgDBtype;
744                                         if ($wgDBtype == "mysql") $cond = "`$cond`"; // "condition" is a reserved word in mysql
745                                         $sqlConditions = array('page_id' => $page_id, 'date_report' => $date_report, $cond => $condition_sql, 'description' => $description, 'author_name' => $author_name);
746                                         $res = $dbr->select('wrreport', 'id', $sqlConditions);
747                                         if ($res->numRows() == 1) $errorMsg = utf8_encode('Der Rodelbahnbericht wurde bereits früher gespeichert.');
748                                         $dbr->freeResult($res);
749                                 }
750
751                                 // Show error if any
752                                 if ($errorMsg) {
753                                         $this->execute($par, 'preview', $errorMsg);
754                                         return;
755                                 }
756
757                                 // Save entry
758                                 $dbr = wfGetDB(DB_MASTER);
759                                 $dbr->insert(
760                                         'wrreport', 
761                                         array(
762                                                 'page_id' => $page_id, 
763                                                 'page_title' => $page_title, 
764                                                 'date_report' => $date_report, 
765                                                 'date_entry' => date('c'),
766                                                 'date_invalid' => date('c', strtotime('+9 days')),
767                                                 $cond => $condition_sql,
768                                                 'description' => $description,
769                                                 'author_name' => $author_name,
770                                                 'author_ip' => $_SERVER['REMOTE_ADDR'],
771                                                 'author_userid' => $author_userid,
772                                                 'author_username' => $author_username
773                                                 // 'delete_*' => // use database defaults (NULL)
774                                         )
775                                 );
776
777                                 // Purge cache
778                                 $title->invalidateCache();
779                                 wrRecacheRegions();                             
780                                 wrUpdateWrReportCacheTable($page_id);
781
782                                 // Show success message
783                                 global $wrShowReportsSection;
784                                 $wgOut->addWikiText(utf8_encode('<div class="successbox">Der Bahnbericht für [[') . $page_title . '#' . $wrShowReportsSection . '|' . $page_title . utf8_encode("]] wurde erfolgreich gespeichert.</div>\n"));
785                                 // We could redirect to result with the following line but we don't want to.
786                                 // $wgOut->redirect($title->getFullURL() . '#Eintr.C3.A4ge');
787                         }
788                         if ($action == 'preview') {
789                                 $wgOut->addWikiText(wfMsg('wrreportnewreportpreviewtop'));
790                                 $format = WRREPORT_COMPACT_PAGE;
791                                 $row = array_fill_keys(wrReportGetColumnNames(), NULL);
792                                 $row['page_title'] = $page_title;
793                                 $row['date_report'] = $date_report;
794                                 $row['condition'] = $condition_sql;
795                                 $row['description'] = $description;
796                                 $row['author_name'] = $author_name;
797                                 $wgOut->addHTML(wrReportTableRender2(array($row), $format, FALSE));
798                                 $wgOut->addWikiText(wfMsg('wrreportnewreportpreviewmiddle'));
799                                 $wgOut->addHTML(wrReportFormRender(FALSE, $page_title, $date_report, $condition, $description, $author_name));
800                                 $wgOut->addWikiText(wfMsg('wrreportnewreportpreviewbottom'));
801                         } 
802                         
803                 }
804
805                 else die('Wrong action');
806         }
807 }
808
809
810 ?>