1 | <?php
|
---|
2 |
|
---|
3 | class ModuleShoutBox extends Module
|
---|
4 | {
|
---|
5 | function __construct(System $System)
|
---|
6 | {
|
---|
7 | parent::__construct($System);
|
---|
8 | $this->Name = 'ShoutBox';
|
---|
9 | $this->Version = '1.0';
|
---|
10 | $this->Creator = 'Chronos';
|
---|
11 | $this->License = 'GNU/GPL';
|
---|
12 | $this->Description = 'Simple user chat system.';
|
---|
13 | $this->Dependencies = array('News');
|
---|
14 | }
|
---|
15 |
|
---|
16 | function DoStart(): void
|
---|
17 | {
|
---|
18 | $this->System->RegisterPage(['shoutbox'], 'PageShoutBox');
|
---|
19 | $this->System->ModuleManager->Modules['News']->RegisterRSS(array(
|
---|
20 | 'Title' => T('Shoutbox'), 'Channel' => 'shoutbox', 'Callback' => array('PageShoutBox', 'ShowRSS'),
|
---|
21 | 'Permission' => LICENCE_ANONYMOUS));
|
---|
22 | if (array_key_exists('Search', $this->System->ModuleManager->Modules))
|
---|
23 | $this->System->ModuleManager->Modules['Search']->RegisterSearch('shoutbox',
|
---|
24 | T('Shoutbox'), array('UserName', 'Text'), '`ShoutBox`', $this->System->Link('/shoutbox/?search='));
|
---|
25 | }
|
---|
26 |
|
---|
27 | function ShowBox()
|
---|
28 | {
|
---|
29 | $User = ModuleUser::Cast($this->System->GetModule('User'))->User;
|
---|
30 | $Output = '<strong><a href="'.$this->System->Link('/shoutbox/').'">'.T('Shoutbox').':</a></strong>';
|
---|
31 |
|
---|
32 | if ($User->Licence(LICENCE_USER))
|
---|
33 | $Output .= ' <a href="'.$this->System->Link('/shoutbox/?a=add').'">'.T('Add').'</a>';
|
---|
34 | $Output .= '<div class="box"><div class="shoutbox"><table>';
|
---|
35 | $DbResult = $this->Database->query('SELECT * FROM `ShoutBox` ORDER BY `ID` DESC LIMIT 30');
|
---|
36 | while ($Line = $DbResult->fetch_assoc())
|
---|
37 | $Output .= '<tr><td><strong>'.$Line['UserName'].'</strong>: '.MakeActiveLinks($Line['Text']).'</td></tr>';
|
---|
38 | $Output .= '</table></div></div>';
|
---|
39 | return $Output;
|
---|
40 | }
|
---|
41 | }
|
---|
42 |
|
---|
43 | class PageShoutBox extends Page
|
---|
44 | {
|
---|
45 | function Show(): string
|
---|
46 | {
|
---|
47 | $this->Title = T('Shoutbox');
|
---|
48 | if (array_key_exists('a', $_POST)) $Action = $_POST['a'];
|
---|
49 | else if (array_key_exists('a', $_GET)) $Action = $_GET['a'];
|
---|
50 | else $Action = '';
|
---|
51 | if ($Action == 'add2') $Output = $this->AddFinish();
|
---|
52 | if ($Action == 'add') $Output = $this->ShowAddForm();
|
---|
53 | else $Output = $this->ShowList();
|
---|
54 | return $Output;
|
---|
55 | }
|
---|
56 |
|
---|
57 | function ShowList()
|
---|
58 | {
|
---|
59 | $User = ModuleUser::Cast($this->System->GetModule('User'))->User;
|
---|
60 | $Output = '';
|
---|
61 | if (array_key_exists('search', $_GET)) $_SESSION['search'] = $_GET['search'];
|
---|
62 | else if (!array_key_exists('search', $_SESSION)) $_SESSION['search'] = '';
|
---|
63 | if (array_key_exists('search', $_GET) and ($_GET['search'] == '')) $_SESSION['search'] = '';
|
---|
64 | if ($_SESSION['search'] != '')
|
---|
65 | {
|
---|
66 | $SearchQuery = ' AND (`Text` LIKE "%'.$_SESSION['search'].'%")';
|
---|
67 | $Output .= '<div><a href="?search=">'.sprintf(T('Disable filter "%s"'), htmlentities($_SESSION['search'])).'</a></div>';
|
---|
68 | } else $SearchQuery = '';
|
---|
69 |
|
---|
70 | $DbResult = $this->System->Database->query('SELECT COUNT(*) FROM `ShoutBox` WHERE 1'.$SearchQuery);
|
---|
71 | $DbRow = $DbResult->fetch_row();
|
---|
72 | $PageList = GetPageList($DbRow[0]);
|
---|
73 |
|
---|
74 | $Output .= '<h3>'.T('Shoutbox').'</h3>';
|
---|
75 | if ($User->Licence(LICENCE_USER))
|
---|
76 | $Output .= ' <a href="'.$this->System->Link('/shoutbox/?a=add').'">'.T('Add').'</a>';
|
---|
77 | $Output .= $PageList['Output'];
|
---|
78 | $Output .= '<div class="shoutbox">';
|
---|
79 | $DbResult = $this->System->Database->query('SELECT * FROM `ShoutBox` WHERE 1'.$SearchQuery.' ORDER BY `ID` DESC '.$PageList['SQLLimit']);
|
---|
80 | while ($Line = $DbResult->fetch_assoc())
|
---|
81 | $Output .= '<div><strong>'.$Line['UserName'].'</strong>: '.MakeActiveLinks($Line['Text']).'</div>';
|
---|
82 | $Output .= '</div>'.$PageList['Output'];
|
---|
83 | return $Output;
|
---|
84 | }
|
---|
85 |
|
---|
86 | function ShowAddForm()
|
---|
87 | {
|
---|
88 | $User = ModuleUser::Cast($this->System->GetModule('User'))->User;
|
---|
89 | $Output = '';
|
---|
90 | if ($User->Licence(LICENCE_USER))
|
---|
91 | {
|
---|
92 | $Output .= '<form action="?" method="post">'.
|
---|
93 | '<fieldset><legend>'.T('New message').'</legend>'.
|
---|
94 | 'Uživatel: ';
|
---|
95 | if ($User->Licence(LICENCE_USER)) $Output .= '<b>'.$User->Name.'</b><br />';
|
---|
96 | else $Output .= '<input type="text" name="user" /><br />';
|
---|
97 | $Output .= 'Text zprávy: <br/>'.
|
---|
98 | '<textarea onkeydown="ResizeTextArea(this)" name="text" cols="40"></textarea> <br/>'.
|
---|
99 | '<input type="hidden" name="a" value="add2"/>'.
|
---|
100 | '<input type="submit" value="Odeslat" /><br /></fieldset>'.
|
---|
101 | '</form>';
|
---|
102 | } else $Output .= ShowMessage('Pro vkládaní zpráv musíte byt registrováni.', MESSAGE_CRITICAL);
|
---|
103 | $Output .= $this->ShowList();
|
---|
104 | return $Output;
|
---|
105 | }
|
---|
106 |
|
---|
107 | function AddFinish()
|
---|
108 | {
|
---|
109 | $User = ModuleUser::Cast($this->System->GetModule('User'))->User;
|
---|
110 | $Output = '';
|
---|
111 | if ($User->Licence(LICENCE_USER))
|
---|
112 | {
|
---|
113 | if (array_key_exists('text', $_POST))
|
---|
114 | {
|
---|
115 | $Text = $_POST['text'];
|
---|
116 | if (trim($Text) == '') $Output .= ShowMessage('Nelze vložit prázdnou zprávu.', MESSAGE_WARNING);
|
---|
117 | else
|
---|
118 | {
|
---|
119 | // Protection against mutiple post of same message
|
---|
120 | $DbResult = $this->System->Database->query('SELECT `Text` FROM `ShoutBox` WHERE (`User` = "'.
|
---|
121 | $User->Id.'") ORDER BY `Date` DESC LIMIT 1');
|
---|
122 | if ($DbResult->num_rows > 0)
|
---|
123 | {
|
---|
124 | $DbRow = $DbResult->fetch_assoc();
|
---|
125 | } else $DbRow['Text'] = '';
|
---|
126 |
|
---|
127 | if ($DbRow['Text'] == $Text) $Output .= ShowMessage('Nelze vložit stejnou zprávu vícekrát za sebou.', MESSAGE_WARNING);
|
---|
128 | else
|
---|
129 | {
|
---|
130 | $this->System->Database->query('INSERT INTO `ShoutBox` ( `User`, `UserName` , `Text` , `Date` , `IP` ) '.
|
---|
131 | ' VALUES ('.$User->Id.', "'.$User->Name.
|
---|
132 | '", "'.$Text.'", NOW(), "'.GetRemoteAddress().'")');
|
---|
133 | $Output .= ShowMessage('Zpráva vložena.');
|
---|
134 | }
|
---|
135 | }
|
---|
136 | } else $Output .= ShowMessage('Nezadán text pro novou zprávu.', MESSAGE_CRITICAL);
|
---|
137 | $Output .= '<br/>';
|
---|
138 | } else $Output .= ShowMessage('Pro vkládaní zpráv musíte byt registrováni.', MESSAGE_CRITICAL);
|
---|
139 | $Output .= $this->ShowList();
|
---|
140 | return $Output;
|
---|
141 | }
|
---|
142 |
|
---|
143 | function ShowRSS()
|
---|
144 | {
|
---|
145 | $User = ModuleUser::Cast($this->System->GetModule('User'))->User;
|
---|
146 | $Items = array();
|
---|
147 | $TitleLength = 50;
|
---|
148 | mb_internal_encoding('utf-8');
|
---|
149 | $DbResult = $this->Database->query('SELECT UNIX_TIMESTAMP(`Date`) AS `UnixDate`, `User`, `UserName`, `Text` FROM `ShoutBox` ORDER BY `ID` DESC LIMIT 20');
|
---|
150 | while ($DbRow = $DbResult->fetch_assoc())
|
---|
151 | {
|
---|
152 | $Title = mb_substr($DbRow['Text'], 0, $TitleLength);
|
---|
153 | if (mb_strlen($Title) == $TitleLength) $Title .= '...';
|
---|
154 | $Items[] = array
|
---|
155 | (
|
---|
156 | 'Title' => $DbRow['UserName'].': '.$Title,
|
---|
157 | 'Link' => 'https://'.Core::Cast($this->System)->Config['Web']['Host'].$this->System->Link('/shoutbox/'),
|
---|
158 | 'Description' => $DbRow['Text'],
|
---|
159 | 'Time' => $DbRow['UnixDate'],
|
---|
160 | );
|
---|
161 | }
|
---|
162 | $Output = GenerateRSS(array
|
---|
163 | (
|
---|
164 | 'Title' => Core::Cast($this->System)->Config['Web']['Title'].' - '.T('Shoutbox'),
|
---|
165 | 'Link' => 'https://'.Core::Cast($this->System)->Config['Web']['Host'].$this->System->Link('/shoutbox/'),
|
---|
166 | 'Description' => Core::Cast($this->System)->Config['Web']['Description'],
|
---|
167 | 'WebmasterEmail' => Core::Cast($this->System)->Config['Web']['AdminEmail'],
|
---|
168 | 'Items' => $Items,
|
---|
169 | ));
|
---|
170 | return $Output;
|
---|
171 | }
|
---|
172 | }
|
---|