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