Replaced absolute URLs with variables (ticket #41)
[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         return true;
14 }
15
16
17 // Tool functions
18 // --------------
19
20 /// \brief This function is used to translate WikiText to HTML. Normally it should be avoided to do this
21 /// but I found situations where I did not find an other possibility.
22 function wrReportSandboxParse($wikiText) {
23         global $wgTitle, $wgUser;
24         $myParser = new Parser();
25         $myParserOptions = new ParserOptions();
26         $myParserOptions->initialiseFromUser($wgUser);
27         $result = $myParser->parse($wikiText, $wgTitle, $myParserOptions);
28         return $result->getText();
29 }
30
31
32 /// List of markers - used by the functions replaceByMarker and wrReportAfterTidy
33 $wrReportMarkerList = array();
34
35
36 /// Returns a marker for a text and back-replaces the text in wrReportAfterTidy
37 function replaceByMarker($text, $marker = 'marker') {
38         $marker = $marker . mt_rand(1e5, 1e7);
39         global $wrReportMarkerList;
40         $wrReportMarkerList[$marker] = $text;
41         return $marker;
42 }
43
44
45 /// Replaces the markers by its contents
46 function wrReportAfterTidy(&$parser, &$text) {
47         // find markers in $text
48         // replace markers with actual output
49         global $wrReportMarkerList;
50         foreach ($wrReportMarkerList as $marker => $html) $text = str_replace($marker, $html, $text);
51         return true;
52 }
53
54
55 /// Forces a regeneration of region overview pages
56 function wrRecacheRegions() {
57         // TODO: Better implementation - it's a "quick fix" now.
58         $title = Title::newFromText('Tirol');
59         $title->invalidateCache();
60         
61         $title = Title::newFromText('Vorarlberg');
62         $title->invalidateCache();
63
64         $title = Title::newFromText('Steiermark');
65         $title->invalidateCache();
66 }
67
68
69
70 // Render Functions
71 // ----------------
72
73 /// \brief Returns a form to enter a report (string containing HTML).
74 ///
75 /// All parameters have to be UTF-8 encoded.
76 /// \param $page_title Name of the sledding run.
77 /// \return UTF-8 encoded HTML form
78 function wrReportFormRender($hide_save_button = TRUE, $page_title = NULL, $date_report = NULL, $condition = NULL, $description = NULL, $author_name = NULL, $page_title_list = NULL) {
79         if ($page_title) $page_title = htmlspecialchars($page_title);
80         // Date options
81         $daynames = array('Heute', 'Gestern', 'Vorgestern', 'Vor 3 Tagen', 'Vor 4 Tagen');
82         $date_options = '';
83         $date_selected = false;
84         $time = time(); // number of seconds since the Unix Epoch (January 1 1970 00:00:00 GMT)
85         for ($day=0; $day!=5; ++$day) {
86                 $date = strtotime("-$day days", $time);
87                 $date_f = strftime("%Y-%m-%d", $date); // Formats it according to locale, that is set to CET.
88                 $date_options .= '<option value="' . $date_f . '"';
89                 if ((is_null($date_report) && $day == 0) || (!is_null($date_report) && $date_report == $date_f)) {
90                         $date_options .= ' selected="selected"';
91                         $date_selected = true;
92                 }
93                 $date_options .= '>' . htmlspecialchars($daynames[$day]) . ' (' . strftime('%d.%m.', $date) . ')</option>' . "\n";
94         }
95         if (!$date_selected) {
96                 $date_options = '<option value="' . $date_report . '" selected="selected">' . htmlspecialchars($date_report) . "</option>\n" . $date_options;
97         }
98         
99         // Condition options
100         $condition_options = '';
101         global $wrConditions; // $wrConditions = array(1 => 'Sehr gut', 2 => 'Gut', 3 => utf8_encode('Mittelmäßig'), 4 => 'Schlecht', 5 => 'Geht nicht');
102         $condition_options .= utf8_encode('<option value="">(keine Beurteilung)</option>') . "\n";
103         foreach ($wrConditions as $condition_num => $condition_text) {
104                 $condition_options .= "<option value=\"$condition_num\"";
105                 if ($condition == $condition_num) $condition_options .= ' selected="selected"';
106                 $condition_options .= '>' . htmlspecialchars($condition_text) . "</option>\n";
107         }
108         $description_html = htmlspecialchars($description);
109
110         // Buttons
111         // I would like to do it this way, but due to a bug of internet explorer, the <button> element is not useable.
112         //   $buttons = '<button name="action" type="submit" value="preview">Vorschau';
113         //   if ($hide_save_button) $buttons .= ' &amp; Speichern';
114         //   $buttons .= '</button>';
115         //   if (!$hide_save_button) $buttons .= '<button name="action" type="submit" value="store">Speichern</button>';
116         // Workaround: User <input type="submit"/>
117         $buttons = '<input name="preview" type="submit" value="Vorschau';
118         if ($hide_save_button) $buttons .= ' &amp; Speichern'; 
119         $buttons .= '" /> ';
120         if (!$hide_save_button) $buttons .= '<input name="store" type="submit" value="Speichern"/>';
121         
122         $specialPageName = wfMsg('wrreport'); // 'Bahnberichte'
123         $title = Title::newFromText($specialPageName, NS_SPECIAL);
124         $specialPageUrl = $title->getLocalURL(); // e.g. '/wiki/Spezial:Bahnberichte'
125
126         $form = <<<EOT
127 <form action="$specialPageUrl" method="post">
128 <table class="wrreportform" summary="Formular zum Eintragen eines Rodelbahnberichtes">
129         <tr class="oddrow"><th>Rodelbahn</th><td>$page_title<input type="hidden" name="page_title" value="$page_title"/></td></tr>
130         <tr class="evenrow"><th>Datum des Rodelns</th>
131         <td>
132         <select name="date_report">
133         $date_options
134         </select>
135         </td>
136         </tr>
137         <tr class="oddrow"><th>Bahnzustand*</th><td><select name="condition">
138         $condition_options
139         </select></td></tr>
140         <tr class="evenrow"><th>Meinung</th><td><textarea name="description" cols="50" rows="7">$description_html</textarea></td></tr>
141         <tr class="oddrow"><th>Autor/in</th><td><input name="author_name" maxlength="30" size="30" value="$author_name" /></td></tr>
142         <tr class="evenrow"><th>Bericht abschicken</th><td>$buttons</td></tr>
143 </table>
144 </form>
145 EOT;
146         return $form;
147 }
148
149
150 /// \brief Renders the form to delete a report
151 ///
152 /// All in and output strings should be/are UTF-8 encoded.
153 function wrDeleteReportFormRender($reportid, $delete_person_name, $delete_reason_public, $delete_invisible) {
154         // Buttons
155         $buttons = '<input name="deletepreview" type="submit" value="Vorschau" /> ';
156         $buttons .= utf8_encode('<input name="delete" type="submit" value="Löschen"/>');
157         $buttons .= '<input name="reportid" type="hidden" value="' . $reportid . '"/>';
158         // $buttons .= '<input name="delete_invisible" type="hidden" value="' . $delete_invisible . '"/>'; // who is allowed to do so?
159         $summary = utf8_encode('Formular zum Löschen eines Schneelageberichtes');
160         $reason = utf8_encode('Begründung');
161         $delete_reason_public_html = htmlspecialchars($delete_reason_public);
162         $delete_person_name_html = htmlspecialchars($delete_person_name);
163
164         $specialPageName = wfMsg('wrreport'); // 'Bahnberichte'
165         $title = Title::newFromText($specialPageName, NS_SPECIAL);
166         $specialPageUrl = $title->getLocalURL(); // e.g. '/wiki/Spezial:Bahnberichte'
167
168         $form = <<<EOT
169 <form action="$specialPageUrl" method="post">
170 <table class="wrreportform" summary="$summary">
171         <tr class="evenrow"><th>$reason</th><td><textarea name="delete_reason_public" cols="50" rows="7">$delete_reason_public_html</textarea></td></tr>
172         <tr class="oddrow"><th>Name</th><td><input name="delete_person_name" maxlength="30" size="30" value="$delete_person_name" /></td></tr>
173         <tr class="evenrow"><th>Aktion</th><td>$buttons</td></tr>
174 </table>
175 </form>
176 EOT;
177         return $form;
178 }
179
180
181
182 // Constants for wrReportTableRender2
183 define(WRREPORT_COMPACT_PAGE, 1); ///< includes the page name
184 define(WRREPORT_COMPACT, 2);      ///< shown on a single page 
185 define(WRREPORT_DETAIL, 3);       ///< more columns
186
187 /// \brief Renders a table header ("private" sub-function of wrReportTableRender2)
188 ///
189 /// \param $format row format like WRREPORT_COMPACT
190 /// \param $showActions boolean to indicate whether an actions column should be created
191 /// \return UTF-8 encoded titles of HTML table
192 function wrReportTableTitleRender2($format, $showActions) {
193         $out = '<tr>';
194         if ($format == WRREPORT_DETAIL) $out .= '<th>ID</th>';
195         if ($format != WRREPORT_COMPACT) $out .= '<th>Bahn</th>';
196         $out .= '<th>Datum</th>';
197         if ($format == WRREPORT_DETAIL) $out .= '<th>Datum Eintrag</th>';
198         if ($format == WRREPORT_DETAIL) $out .= '<th>Datum Ungültig</th>';
199         $out .= '<th>Zustand</th>';
200         $out .= '<th>Beschreibung</th>';
201         $out .= '<th>Autor</th>';
202         if ($showActions) $out .= '<th>Aktion</th>';
203         return utf8_encode($out . "</tr>\n");
204 }
205
206
207 /// \brief Renders a table row ("private" sub-function of wrReportTableRender2)
208 ///
209 /// \param $row associative array of table columns like one row in the wrreport table
210 /// \param $format row format like WRREPORT_COMPACT
211 /// \param $showActions boolean to indicate whether an actions column should be created
212 /// \return UTF-8 encoded titles of HTML table
213 function wrReportTableRowRender2($row, $format, $showActions) {
214         extract($row);
215
216         $out = '<tr>';
217         // $id
218         if ($format == WRREPORT_DETAIL) $out .= '<td>' . $id . '</td>';
219         // $page_title
220         if ($format != WRREPORT_COMPACT) $out .= '<td>' . wrReportSandboxParse('[[' . $page_title . ']]') . '</td>';
221         // $date_report
222         $dayOfWeek = array('Mo', 'Di', 'Mi', 'Do', 'Fr', 'Sa', 'So');
223         $date_report = strtotime($date_report);
224         $date_report = $dayOfWeek[strftime('%u', $date_report)-1] . strftime(', %d.%m.', $date_report);
225         $out .= '<td>' . $date_report . '</td>';
226         // $date_entry
227         if ($format == WRREPORT_DETAIL) $out .= '<td>' . date('Y-m-d, H:i', strtotime($date_entry)) . '</td>';
228         // $date_invalid
229         if ($format == WRREPORT_DETAIL) $out .= '<td>' . date('Y-m-d, H:i', strtotime($date_invalid)) . '</td>';
230         // $condition
231         global $wrConditions;
232         $condition_text = '---';
233         if (isset($wrConditions[$condition])) $condition_text = $wrConditions[$condition];
234         $out .= '<td>';
235         if ($delete_date) $out .= utf8_encode('<em>Gelöscht</em>');
236         else $out .= htmlspecialchars($condition_text);
237         $out .= '</td>';
238         // $description
239         $out .= '<td class="wrreportdescription">';
240         if ($delete_date) $out .= utf8_encode('<em>Gelöscht</em>');
241         else $out .= wrReportSandboxParse($description);
242         $out .= '</td>';
243         // $author_name
244         $out .= '<td>';
245         if ($delete_date) $out .= utf8_encode('<em>Gelöscht</em>');
246         else $out .= htmlspecialchars($author_name);
247         $out .= '</td>';
248         // actions
249         // wiki/Spezial:Bahnberichte?action=deletepreview&reportid=42
250         if ($showActions) {
251                 $out .= '<td>';
252                 if (!isset($row['delete_date'])) {
253                         $specialPageName = wfMsg('wrreport'); // 'Bahnberichte'
254                         $title = Title::newFromText($specialPageName, NS_SPECIAL);
255                         $specialPageUrl = $title->getLocalURL(); // e.g. '/wiki/Spezial:Bahnberichte'
256                         $out .= "<a href=\"$specialPageUrl?action=deletepreview&amp;reportid=" . $row['id'] . '">' . utf8_encode('Löschen...') . '</a>';
257                 }
258                 $out .= '</td>';
259         }
260         return $out . "</tr>\n";
261 }
262
263
264 /// \brief Renders the report table. Call wrReportGetReports for the $rows parameter.
265 ///
266 /// \param $rows array of associative row arrays
267 /// \param $format row format like WRREPORT_TABLE_SHORT
268 function wrReportTableRender2($rows, $format, $showActions) {
269         $out = "<table class=\"wrreporttable\">\n" . wrReportTableTitleRender2($format, $showActions);
270         foreach ($rows as $key => $row) $out .= wrReportTableRowRender2($row, $format, $showActions);
271         return $out . "</table>\n";
272 }
273
274
275 /// Returns an array with column names
276 function wrReportGetColumnNames() {
277         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');
278 }
279
280
281 /// \brief Returns reports as associative array.
282 ///
283 /// Examples: 
284 ///   $conditions = array('page_title' => 'Birgitzer Alm', 'date_invalid > now()');
285 ///   $order = 'date_report desc, date_entry desc';
286 function wrReportGetReports($conditions, $order) {
287         $dbr = wfGetDB(DB_SLAVE);
288         $res = $dbr->select('wrreport', wrReportGetColumnNames(), $conditions, $fname = 'Database::select', $options = array('ORDER BY' => 'date_report desc, date_entry desc'));
289         $result = array();
290         while ($row = $dbr->fetchRow($res)) $result[] = $row;
291         $dbr->freeResult($res);
292         return $result;
293 }
294
295
296 /// \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);
297 ///
298 /// If no condition is present, array(NULL, NULL) is returned
299 function wrReportConditionRender($page_title) {
300         $dbr = wfGetDB(DB_SLAVE);
301         $res = $dbr->select('wrreport', array('max(wrreport.id) as max'), array('page_title' => $page_title, 'condition is not null', 'date_invalid > now()'));
302         //  select condition, date_report from wrreport where id = (select max(wrreport.id) as max from wrreport where page_title='Birgitzer Alm (vom Adelshof)' and date_invalid > now() and condition is not null);
303         if ($res->numRows() <= 0) {
304                 $dbr->freeResult($res);
305                 return array(NULL, NULL);
306         }
307         $row = $dbr->fetchObject($res);
308         $dbr->freeResult($res);
309         $res = $dbr->select('wrreport', array('condition', 'date_report'), array('id' => $row->max));
310         if ($res->numRows() <= 0) {
311                 $dbr->freeResult($res);
312                 return array(NULL, NULL);
313         }
314         $row = $dbr->fetchObject($res);
315         $date = $row->date_report;
316         if ($date) $date = strtotime($date);
317         $dbr->freeResult($res);
318         return array($row->condition, $date);
319 }
320
321
322 /// \brief Returns true if the user is allowed to delete reports (in general)
323 function wrReportUserMayDelete() {
324         global $wgUser;
325         global $wgWrReportDeleteMode;
326         return $wgWrReportDeleteMode == 'allow' || ($wgWrReportDeleteMode == 'loggedin' && $wgUser->isLoggedIn());
327 }
328
329
330
331 // Parser Hook Functions
332 // ---------------------
333
334 /// \brief Is called when the tag <bahnberichtformular/> is encountered.
335 ///
336 /// The current page name is taken.
337 function bahnberichtformularParserHook($input, $args, $parser) {
338         // Username
339         global $wgUser;
340         $author_name = NULL;
341         if ($wgUser->isLoggedIn()) {
342                 $author_name = $wgUser->getRealName();
343                 if (!$author_name) $author_name = $wgUser->getName();
344         }
345
346         global $wgWrReportMode;
347         global $wgWrReportBlackListAll;
348         global $wgWrReportBlackListStrangers;
349         if ($wgWrReportMode == 'summer') return wrReportSandboxParse(utf8_encode("''An dieser Stelle kann während des Winters die Schneelage von Rodelbahnen eingetragen werden.''\n\n"));
350         if ($wgWrReportMode == 'deny') return wrReportSandboxParse(utf8_encode("''Rodelbahnberichte sind derzeit leider nicht erlaubt.''\n\n"));
351
352         if ($wgWrReportMode == 'loggedin' && !$wgUser->isLoggedIn()) return wrReportSandboxParse(utf8_encode("''Derzeit sind Rodelbahnberichte nur für angemeldete Benutzer erlaubt.''\n\n"));
353
354         if (in_array($parser->getTitle()->getText(), $wgWrReportBlackListAll)) return wrReportSandboxParse(utf8_encode("''Bei dieser Rodelbahn dürfen derzeit leider keine Rodelbahnberichte abgegeben werden.''\n"));
355         if (!$wgUser->isLoggedIn() && in_array($parser->getTitle()->getText(), $wgWrReportBlackListStrangers)) return wrReportSandboxParse(utf8_encode("''Bei der angegebenen Rodelbahn dürfen derzeit nur angemeldete Benutzer Rodelbahnberichte abgebe.''\n\n"));
356         
357         // Calling "$title = $parser->getTitle(); $title->invalidateCache();" doesn't help here to force regeneration
358         // However, this would not be the best solution because the page has to be re-rendered only at midnight
359
360         return replaceByMarker(wrReportFormRender(TRUE, $parser->getTitle()->getText(), NULL, NULL, NULL, $author_name));
361 }
362
363
364 /// \brief Is called when the tag <bahnberichte/> is encountered.
365 ///
366 /// The current page name is taken.
367 function bahnberichteParserHook($input, $args, &$parser) {
368         $page_title = $parser->getTitle()->getText();
369         $conditions = array('page_title' => $page_title, 'date_invalid > now()');
370         $order = 'date_report desc, date_entry desc';
371         $rows = wrReportGetReports($conditions, $order);
372         if (count($rows) == 0) return wrReportSandboxParse("''Es wurden keine Bahnberichte in der Datenbank gefunden.''\n\n");
373         return wrReportTableRender2($rows, WRREPORT_COMPACT, wrReportUserMayDelete());
374 }
375
376
377 /// \brief Is called when the tag <bahnbewertung/> is encountered.
378 ///
379 /// * <bahnbewertung/>: The current page name is taken.
380 /// * <bahnbewertung>page_name</bahnbewertung>: The given page name is taken.
381 function bahnbewertungParserHook($input, $args, &$parser) {
382         $titleText = $input;
383         if (!$titleText) $titleText = $parser->getTitle()->getText();
384         list($condition, $date) = wrReportConditionRender($titleText);
385         if ($date) $date = strftime('%d.%m.', $date);
386         global $wrConditions;
387         global $wrNewReportSection; //  = utf8_encode('Eintragen');
388         global $wrShowReportsSection; //  = utf8_encode('Einträge');
389         global $wgUser;
390         global $wgWrReportMode; // e.g. 'summer'
391         global $wgWrReportBlackListAll;
392         global $wgWrReportBlackListStrangers;
393
394         // Determine, whether the user is allowed to make a new report
395         $userMayReport = ($wgWrReportMode == 'allow' || ($wgWrReportMode == 'loggedin' && $wgUser->isLoggedIn()));
396         if ($userMayReport) {
397                 if (in_array($titleText, $wgWrReportBlackListAll)) $userMayReport = false;
398                 if (!$wgUser->isLoggedIn() && in_array($titleText, $wgWrReportBlackListStrangers)) $userMayReport = false;
399         }
400
401         // Get the condition and create the response wiki text
402         if (isset($wrConditions[$condition])) {
403                 $wikiText = '[['. $titleText . '#' . $wrShowReportsSection . '|'. $wrConditions[$condition] . "]] <small>$date";
404                 if ($userMayReport) $wikiText .= " ''[[" . $titleText . '#' . $wrNewReportSection . "|Neu]]''";
405                 $wikiText .= "</small>";
406         } else {
407                 if ($userMayReport) $wikiText = "<small>''[[" . $titleText . '#' . $wrNewReportSection . "|Bitte eintragen]]''</small>";
408                 else $wikiText = '--';
409         }
410         return wrReportSandboxParse($wikiText);
411 }
412
413
414
415 // Special page
416 // ------------
417
418 /// Specal Page to show reports
419 class WrReport extends SpecialPage {
420         function WrReport() {
421                 SpecialPage::SpecialPage('WrReport');
422                 wfLoadExtensionMessages('WrReport');
423         }
424
425
426         /// \param $par Possibilities:
427         /// - action == 'view' (default)
428         /// - action == 'preview': Preview new report
429         /// - action == 'store': Store new report
430         /// - action == 'deletepreview': Preview the deleted record
431         /// - action == 'delete': Delete an existing report
432         /// - action == 'showerror': Shows the error and exits
433         /// \param $override_action If not NULL (default), it overrides the action in $par
434         /// \param $errorMsg UFT-8 encoded error message (in WikiText) to show on top of the page or NULL (default):
435         function execute($par, $override_action = NULL, $errorMsg = NULL) {
436                 global $wgRequest, $wgOut;
437
438                 $this->setHeaders();
439
440                 // Get request data
441                 $action = $wgRequest->getText('action');
442                 if (!$action) {
443                         if ($wgRequest->getVal('preview')) $action = 'preview';
444                         elseif ($wgRequest->getVal('store')) $action = 'store';
445                         elseif ($wgRequest->getVal('deletepreview')) $action = 'deletepreview';
446                         elseif ($wgRequest->getVal('delete')) $action = 'delete';
447                         else $action = 'view';
448                 }
449                 if ($override_action) $action = $override_action;
450
451                 // Show error message
452                 if ($errorMsg || $action == 'showerror') {
453                         $wgOut->addWikiText('<div class="errorbox">' . $errorMsg . "</div>\n");
454                         if ($action == 'showerror') return;
455                 }
456
457                 // Action view
458                 if ($action == 'view') {                
459                         $conditions = array('date_invalid > now()');
460                         $order = 'date_entry desc, date_report desc';
461                         $rows = wrReportGetReports($conditions, $order);
462                         if (count($rows) == 0) $wgOut->addWikiText("''Es wurden keine Bahnberichte in der Datenbank gefunden.''\n\n");
463                         $wgOut->addHTML(wrReportTableRender2($rows, WRREPORT_DETAIL, wrReportUserMayDelete())); 
464                 }
465
466                 // Action deletepreview or delete
467                 elseif ($action == 'deletepreview' || $action == 'delete') {
468                         $reportid = (int) $wgRequest->getText('reportid');
469                         if ($reportid == 0) {
470                                 $this->execute($par, 'showerror', utf8_encode('Es wurde kein Bericht zum Löschen ausgewählt.'));
471                                 return;
472                         }
473                         $rows = wrReportGetReports(array('id' => $reportid), '');
474                         if (count($rows) != 1) {
475                                 $this->execute($par, 'showerror', utf8_encode('Es wurde ein ungültiger Bericht zum Löschen ausgewählt.'));
476                                 return;
477                         }
478                         $row = $rows[0];
479                         if (!is_null($row['delete_date'])) {
480                                 $this->execute($par, 'showerror', utf8_encode('Der angegebende Bericht ist bereits gelöscht.'));
481                                 return;
482                         }
483                         $delete_reason_public = $wgRequest->getText('delete_reason_public');
484                         $delete_person_name = $wgRequest->getText('delete_person_name');
485                         $delete_invisible = $wgRequest->getText('delete_invisible') ? TRUE : FALSE;
486                         if ($action == 'delete') {
487                                 // page
488                                 $title = Title::newFromId($row['page_id']);
489
490                                 // user
491                                 global $wgUser;
492                                 $delete_person_userid = $wgUser->getId();
493                                 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.
494                                 $delete_person_username = $wgUser->getName();
495
496                                 // Check permissions - see also function wrReportUserMayDelete, that does also check permissions but does not return an error message.
497                                 $errorMsg = NULL;
498                                 global $wgWrReportDeleteMode;
499                                 if ($wgWrReportDeleteMode == 'deny') $errorMsg = utf8_encode('Das Löschen von Rodelbahnberichten ist derzeit leider nicht erlaubt.');
500                                 elseif ($wgWrReportDeleteMode == 'loggedin' && !$wgUser->isLoggedIn()) $errorMsg = utf8_encode('Derzeit dürfen nur angemeldete Benutzer Rodelbahnberichte löschen.');
501                                 elseif (!$delete_person_name || !$delete_reason_public) $errorMsg = utf8_encode('Es müssen sowohl die Begründung als auch der Name angegeben werden.');
502                                 if ($errorMsg) {
503                                         $this->execute($par, 'deletepreview', $errorMsg);
504                                         return;
505                                 }
506                                 
507                                 // "Delete" (update) entry
508                                 $dbr = wfGetDB(DB_MASTER);
509                                 $dbr->update(
510                                         'wrreport', 
511                                         array(
512                                                 'delete_date' => date('c'),
513                                                 'delete_person_name' => $delete_person_name,
514                                                 'delete_person_ip' => $_SERVER['REMOTE_ADDR'],
515                                                 'delete_person_userid' => $delete_person_userid,
516                                                 'delete_person_username' => $delete_person_username,
517                                                 'delete_reason_public' => $delete_reason_public,
518                                                 'delete_invisible' => $delete_invisible ? 't' : 'f'
519                                         ),
520                                         array('id' => $reportid)
521                                 );
522
523                                 // Purge cache
524                                 $title->invalidateCache();
525                                 wrRecacheRegions();                             
526
527                                 // Show success message
528                                 global $wrShowReportsSection;
529                                 $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"));
530                         }
531                         if ($action == 'deletepreview') {
532                                 $preview_msg = "Bitte nur dann einen Bericht löschen, wenn Gründe vorliegen wie\n" .
533                                 "* Beschimpfungen, Verleumdungen (wir wollen ''Rodelbahnen'' bewerten, nicht Personen)\n" .
534                                 "* Werbung oder Spam (wenn jemand allerdings ''werbend'' zu gute Noten vergibt, lieber eigenen Bericht eintragen als löschen).\n\n";
535                                 $wgOut->addWikiText(utf8_encode($preview_msg));
536                                 $wgOut->addWikiText(utf8_encode("== Schneelagebericht, um den es beim Löschen geht ==\n"));
537                                 $format = WRREPORT_COMPACT_PAGE;
538                                 $wgOut->addHTML(wrReportTableRender2(array($row), $format, FALSE));
539                                 $wgOut->addWikiText(utf8_encode("\n\n== Vorschau (derzeit noch nicht gelöscht) ==\n"));
540                                 $row['delete_date'] = date('c');
541                                 $row['delete_reason_public'] = $delete_reason_public;
542                                 $row['delete_person_name'] = $delete_person_name;
543                                 $row['delete_invisible'] = $delete_invisible;
544                                 $wgOut->addHTML(wrReportTableRender2(array($row), $format, FALSE));
545                                 $wgOut->addWikiText(utf8_encode("== Löschen ==\n"));
546                                 $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"));
547                                 $wgOut->addHTML(wrDeleteReportFormRender($reportid, $delete_person_name, $delete_reason_public, $delete_invisible));
548                         }
549                 }
550
551                 // Action preview or store
552                 elseif ($action == 'preview' || $action == 'store') {
553                         $page_title = $wgRequest->getText('page_title');
554                         $date_report = $wgRequest->getText('date_report');
555                         $condition = $wgRequest->getText('condition');
556                         $description = $wgRequest->getText('description');
557                         $author_name = $wgRequest->getText('author_name');
558                         if ($action == 'store') {
559                                 // page_id
560                                 $title = Title::newFromText($page_title);
561                                 $page_id = $title->getArticleId();
562                                 if ($page_id == 0) $page_id = NULL;
563                                 
564                                 // user_id
565                                 global $wgUser;
566                                 $author_userid = $wgUser->getId();
567                                 if ($author_userid == 0) $author_userid = NULL; // to store a NULL value in the database if no user is logged in instead of 0.
568                                 $author_username = $wgUser->getName();
569
570                                 // condition
571                                 $condition_int = (int) $condition;
572                                 if ($condition_int >= 1 and $condition_int <= 5) $condition = $condition_int;
573                                 else $condition = NULL;
574                                 
575                                 // check conditions/permissions
576                                 $errorMsg = NULL;
577                                 global $wgWrReportMode;
578                                 global $wgWrReportBlackListAll;
579                                 global $wgWrReportBlackListStrangers;
580                                 if ($wgWrReportMode == 'summer') $errorMsg = utf8_encode('Rodelbahnberichte sind in der schneefreien Zeit nicht erlaubt.');
581                                 elseif ($wgWrReportMode == 'deny') $errorMsg = utf8_encode('Rodelbahnberichte sind derzeit leider nicht erlaubt.');
582                                 elseif ($wgWrReportMode == 'loggedin' && !$wgUser->isLoggedIn()) $errorMsg = utf8_encode('Derzeit sind Rodelbahnberichte nur für angemeldete Benutzer erlaubt.');
583                                 elseif (!$page_id) $errorMsg = utf8_encode('Die angegebene Seite wurde nicht gefunden.');
584                                 elseif (in_array($page_title, $wgWrReportBlackListAll)) $errorMsg = utf8_encode('Bei der angegebenen Rodelbahn dürfen derzeit keine Rodelbahnberichte abgegeben werden.');
585                                 elseif (!$wgUser->isLoggedIn() && in_array($page_title, $wgWrReportBlackListStrangers)) $errorMsg = utf8_encode('Bei der angegebenen Rodelbahn dürfen derzeit nur angemeldete Benutzer Rodelbahnberichte abgebe.');
586                                 elseif (!$condition && !$description) $errorMsg = utf8_encode('Es sind sowohl die Beschreibung als auch die Bewertung leer/nicht vergeben.');
587                                 elseif (!$wgUser->isLoggedIn()) {
588                                         if (!$description) $errorMsg = utf8_encode('Bitte bei der Beschreibung eine kurze Begründung für die Bewertung abgeben.');
589                                         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.');
590                                 }
591
592                                 // Chech whether identical reports are present
593                                 if (!$errorMsg) {
594                                         $dbr = wfGetDB(DB_SLAVE);
595                                         $sqlConditions = array('page_id' => $page_id, 'date_report' => $date_report, 'condition' => $condition, 'description' => $description, 'author_name' => $author_name);
596                                         $res = $dbr->select('wrreport', 'id', $sqlConditions);
597                                         if ($res->numRows() == 1) $errorMsg = utf8_encode('Der Rodelbahnbericht wurde bereits früher gespeichert.');
598                                         $dbr->freeResult($res);
599                                 }
600
601                                 // Show error if any
602                                 if ($errorMsg) {
603                                         $this->execute($par, 'preview', $errorMsg);
604                                         return;
605                                 }
606
607                                 // Save entry
608                                 $dbr = wfGetDB(DB_MASTER);
609                                 $dbr->insert(
610                                         'wrreport', 
611                                         array(
612                                                 'page_id' => $page_id, 
613                                                 'page_title' => $page_title, 
614                                                 'date_report' => $date_report, 
615                                                 // 'date_entry' => '',  // use database default
616                                                 // 'date_invalid' => '', // use database default
617                                                 'condition' => $condition,
618                                                 'description' => $description,
619                                                 'author_name' => $author_name,
620                                                 'author_ip' => $_SERVER['REMOTE_ADDR'],
621                                                 'author_userid' => $author_userid,
622                                                 'author_username' => $author_username
623                                                 // 'delete_*' => // use database defaults (NULL)
624                                         )
625                                 );
626
627                                 // Purge cache
628                                 $title->invalidateCache();
629                                 wrRecacheRegions();                             
630
631                                 // Show success message
632                                 global $wrShowReportsSection;
633                                 $wgOut->addWikiText(utf8_encode('<div class="successbox">Der Bahnbericht für [[') . $page_title . '#' . $wrShowReportsSection . '|' . $page_title . utf8_encode("]] wurde erfolgreich gespeichert.</div>\n"));
634                                 // We could redirect to result with the following line but we don't want to.
635                                 // $wgOut->redirect($title->getFullURL() . '#Eintr.C3.A4ge');
636                         }
637                         if ($action == 'preview') {
638                                 $wgOut->addWikiText(utf8_encode("== Vorschau (noch nicht gespeichert) ==\n"));
639                                 $format = WRREPORT_COMPACT_PAGE;
640                                 $row = array_fill_keys(wrReportGetColumnNames(), NULL);
641                                 $row['page_title'] = $page_title;
642                                 $row['date_report'] = $date_report;
643                                 $row['condition'] = $condition;
644                                 $row['description'] = $description;
645                                 $row['author_name'] = $author_name;
646                                 $wgOut->addHTML(wrReportTableRender2(array($row), $format, FALSE));
647                                 $wgOut->addWikiText(utf8_encode("== Speichern oder Ändern ==\n"));
648                                 $wgOut->addHTML(wrReportFormRender(FALSE, $page_title, $date_report, $condition, $description, $author_name));
649                         } 
650                         
651                 }
652
653                 else die('Wrong action');
654         }
655 }
656
657
658 ?>