3 require_once "SQL/sql.php";
4 require_once "SQL/settings.php";
8 public $name = "SQLDB";
9 public $author = "Valware";
10 public $version = "1.0";
11 public $description = "SQL database backend";
12 public $email = "v.a.pond@outlook.com";
14 function __construct()
16 Hook
::func(HOOKTYPE_USER_LOOKUP
, 'sql_db::get_user');
17 Hook
::func(HOOKTYPE_USERMETA_ADD
, 'sql_db::add_usermeta');
18 Hook
::func(HOOKTYPE_USERMETA_DEL
, 'sql_db::del_usermeta');
19 Hook
::func(HOOKTYPE_USERMETA_GET
, 'sql_db::get_usermeta');
20 Hook
::func(HOOKTYPE_USER_CREATE
, 'sql_db::user_create');
21 Hook
::func(HOOKTYPE_GET_USER_LIST
, 'sql_db::get_user_list');
22 Hook
::func(HOOKTYPE_USER_DELETE
, 'sql_db::user_delete');
23 Hook
::func(HOOKTYPE_EDIT_USER
, 'sql_db::edit_core');
24 Hook
::func(HOOKTYPE_PRE_OVERVIEW_CARD
, 'sql_db::add_pre_overview_card');
25 Hook
::func(HOOKTYPE_UPGRADE
, 'sql_db::create_tables'); // handles upgrades too ;)
26 AuthModLoaded
::$status = 1;
29 public static function add_pre_overview_card($empty)
31 if (defined('SQL_DEFAULT_USER'))
32 Message
::Fail("Warning: SQL_DEFAULT_USER is set in config.php. You should remove that item now, as it is only used during installation.");
33 if (defined('DEFAULT_USER'))
34 Message
::Fail("Warning: DEFAULT_USER is set in config.php. You should remove that item now, as it is only used during installation.");
38 * Delete all the tables (of us) in the SQLdb
41 public static function delete_tables()
44 foreach(["users","user_meta", "settings", "fail2ban"] as $table_name)
45 $conn->query("DROP TABLE IF EXISTS " . get_config("mysql::table_prefix") . $table_name);
49 * Create the tables we'll be using in the SQLdb
52 public static function create_tables()
55 $conn->query("CREATE TABLE IF NOT EXISTS " . get_config("mysql::table_prefix") . "users (
56 user_id int AUTO_INCREMENT NOT NULL,
57 user_name VARCHAR(255) NOT NULL,
58 user_pass VARCHAR(255) NOT NULL,
59 user_email VARCHAR(255),
60 user_fname VARCHAR(255),
61 user_lname VARCHAR(255),
62 user_bio VARCHAR(255),
68 * Patch for beta users
69 * This adds the email column to existing tables without it
71 $columns = $conn->query("SHOW COLUMNS FROM " . get_config("mysql::table_prefix") . "users");
72 $column_names = array();
73 $c = $columns->fetchAll();
75 foreach($c as $column) {
76 $column_names[] = $column['Field'];
78 $column_exists = in_array("user_email", $column_names);
79 if (!$column_exists) {
80 $conn->query("ALTER TABLE " . get_config("mysql::table_prefix") . "users ADD COLUMN user_email varchar(255)");
84 * Another patch for beta users
85 * This changes the size of the meta_value so we can store more
88 $conn->query("CREATE TABLE IF NOT EXISTS " . get_config("mysql::table_prefix") . "user_meta (
89 meta_id int AUTO_INCREMENT NOT NULL,
91 meta_key VARCHAR(255) NOT NULL,
92 meta_value VARCHAR(255),
93 PRIMARY KEY (meta_id),
94 CONSTRAINT meta_key_user_id UNIQUE(meta_key,user_id)
96 $conn->query("CREATE TABLE IF NOT EXISTS " . get_config("mysql::table_prefix") . "settings (
97 id int AUTO_INCREMENT NOT NULL,
98 setting_key VARCHAR(255) NOT NULL,
99 setting_value LONGTEXT,
103 $conn->query("CREATE TABLE IF NOT EXISTS " . get_config("mysql::table_prefix") . "fail2ban (
104 id int AUTO_INCREMENT NOT NULL,
105 ip VARCHAR(255) NOT NULL,
111 /* - user_meta: set charset and size */
113 if (($columns = $conn->query("SHOW COLUMNS FROM ".get_config("mysql::table_prefix")."user_meta")))
114 $c = $columns->fetchAll();
116 $conn->query("ALTER TABLE ".get_config("mysql::table_prefix")."user_meta CHANGE `meta_value` `meta_value` LONGTEXT CHARACTER SET utf8mb3 COLLATE utf8mb3_bin NULL DEFAULT NULL");
118 /* - settings: add UNIQUE(setting_key) */
120 if (($columns = $conn->query("SHOW INDEXES FROM ".get_config("mysql::table_prefix")."settings WHERE Key_name='setting_key'")))
121 $c = $columns->fetchAll();
124 $conn->query("ALTER TABLE " . get_config("mysql::table_prefix") . "settings ADD CONSTRAINT setting_key UNIQUE(setting_key)");
127 $conn->query("ALTER TABLE ".get_config("mysql::table_prefix")."settings CHANGE setting_value setting_value LONGTEXT CHARACTER SET utf8mb3 COLLATE utf8mb3_bin NULL DEFAULT NULL");
129 /* - user_meta: add UNIQUE(meta_key,user_id) */
131 if (($columns = $conn->query("SHOW INDEXES FROM ".get_config("mysql::table_prefix")."user_meta WHERE Key_name='meta_key_user_id'")))
132 $c = $columns->fetchAll();
134 $conn->query("ALTER TABLE " . get_config("mysql::table_prefix") . "user_meta ADD CONSTRAINT meta_key_user_id UNIQUE(meta_key,user_id)");
136 /* make sure everything went well */
137 $tables = ["users", "user_meta", "fail2ban", "settings"];
138 $errors = 0; // counter
139 $error_messages = "";
140 foreach($tables as $table)
142 $prefix = get_config("sql::table_prefix");
143 $sql = "SHOW TABLES LIKE '$prefix%'"; // SQL query to check if table exists
145 $result = $conn->query($sql);
146 if ($result->rowCount())
151 strcat($error_messages,"Table '$prefix$table' was not created successfully.<br>");
156 if (defined('DEFAULT_USER')) // we've got a default account
158 $lkup = new PanelUser(DEFAULT_USER
['username']);
160 if (!$lkup->id
) // doesn't exist, add it with full privileges
163 $user['user_name'] = DEFAULT_USER
['username'];
164 $user['user_pass'] = DEFAULT_USER
['password'];
166 create_new_user($user);
168 $lkup = new PanelUser(DEFAULT_USER
['username']);
169 if (!user_can($lkup, PERMISSION_MANAGE_USERS
))
170 $lkup->add_permission(PERMISSION_MANAGE_USERS
);
179 /* We convert $u with a full user as an object ;D*/
180 public static function get_user(&$u)
188 $prep = $conn->prepare("SELECT * FROM " . get_config("mysql::table_prefix") . "users WHERE user_id = :id LIMIT 1");
189 $prep->execute(["id" => strtolower($id)]);
193 $prep = $conn->prepare("SELECT * FROM " . get_config("mysql::table_prefix") . "users WHERE LOWER(user_name) = :name LIMIT 1");
194 $prep->execute(["name" => strtolower($name)]);
199 $data = $prep->fetchAll();
200 if (isset($data[0]) && $data = $data[0])
202 $obj->id
= $data['user_id'];
203 $obj->username
= $data['user_name'];
204 $obj->passhash
= $data['user_pass'];
205 $obj->first_name
= $data['user_fname'] ?? NULL;
206 $obj->last_name
= $data['user_lname'] ?? NULL;
207 $obj->created
= $data['created'];
208 $obj->bio
= $data['user_bio'];
209 $obj->email
= $data['user_email'];
210 $obj->user_meta
= (new PanelUser_Meta($obj->id
))->list;
215 public static function get_usermeta(&$u)
222 $prep = $conn->prepare("SELECT * FROM " . get_config("mysql::table_prefix") . "user_meta WHERE user_id = :id");
223 $prep->execute(["id" => $id]);
225 foreach ($prep->fetchAll() as $row)
227 $list[$row['meta_key']] = $row['meta_value'];
231 public static function add_usermeta(&$meta)
233 $meta = $meta['meta'];
235 /* check if it exists first, update it if it does */
236 $query = "SELECT * FROM " . get_config("mysql::table_prefix") . "user_meta WHERE user_id = :id AND meta_key = :key";
237 $stmt = $conn->prepare($query);
238 $stmt->execute(["id" => $meta['id'], "key" => $meta['key']]);
239 if ($stmt->rowCount()) // it exists, update instead of insert
241 $query = "UPDATE " . get_config("mysql::table_prefix") . "user_meta SET meta_value = :value WHERE user_id = :id AND meta_key = :key";
242 $stmt = $conn->prepare($query);
243 $stmt->execute($meta);
244 if ($stmt->rowCount())
251 $query = "INSERT INTO " . get_config("mysql::table_prefix") . "user_meta (user_id, meta_key, meta_value) VALUES (:id, :key, :value)";
252 $stmt = $conn->prepare($query);
253 $stmt->execute($meta);
254 if ($stmt->rowCount())
259 public static function del_usermeta(&$meta)
262 $query = "DELETE FROM " . get_config("mysql::table_prefix") . "user_meta WHERE user_id = :id AND meta_key = :key";
263 $stmt = $conn->prepare($query);
264 $stmt->execute($meta['meta']);
265 if ($stmt->rowCount())
269 public static function user_create(&$u)
271 $username = $u['user_name'];
272 $first_name = $u['fname'] ?? NULL;
273 $last_name = $u['lname'] ?? NULL;
274 $password = $u['user_pass'] ?? NULL;
275 $user_bio = $u['user_bio'] ?? NULL;
276 $user_email = $u['user_email'] ?? NULL;
278 $prep = $conn->prepare("INSERT INTO " . get_config("mysql::table_prefix") . "users (user_name, user_pass, user_fname, user_lname, user_bio, user_email, created) VALUES (:name, :pass, :fname, :lname, :user_bio, :user_email, :created)");
279 $prep->execute(["name" => $username, "pass" => $password, "fname" => $first_name, "lname" => $last_name, "user_bio" => $user_bio, "user_email" => $user_email, "created" => date("Y-m-d H:i:s")]);
280 if ($prep->rowCount())
281 $u['success'] = true;
283 $u['errmsg'][] = "Could not add user";
286 public static function get_user_list(&$list)
289 $result = $conn->query("SELECT user_id FROM " . get_config("mysql::table_prefix") . "users");
290 if (!$result) // impossible
292 die("Something went wrong.");
295 while($row = $result->fetch())
297 $userlist[] = new PanelUser(NULL, $row['user_id']);
299 if (!empty($userlist))
303 public static function user_delete(&$u)
306 $query = "DELETE FROM " . get_config("mysql::table_prefix") . "users WHERE user_id = :id";
308 $stmt = $conn->prepare($query);
309 $stmt->execute(["id" => $user->id
]);
310 $deleted = $stmt->rowCount();
313 $u['info'][] = "Successfully deleted user \"$user->username\"";
316 $u['info'][] = "Unknown error";
321 public static function edit_core($arr)
324 $user = $arr['user'];
325 $info = $arr['info'];
326 foreach($info as $key => $val)
329 if (!$val || !strlen($val) || BadPtr($val))
331 if (!strcmp($key,"update_fname") && $val != $user->first_name
)
333 $value = "user_fname";
334 $valuestr = "first name";
336 elseif (!strcmp($key,"update_lname") && $val != $user->last_name
)
338 $value = "user_lname";
339 $valuestr = "last name";
341 elseif (!strcmp($key,"update_bio") && $val != $user->bio
)
346 elseif (!strcmp($key,"update_pass") || !strcmp($key,"update_pass_conf"))
348 $value = "user_pass";
349 $valuestr = "password";
351 elseif(!strcmp($key,"update_email") && $val != $user->email
)
353 $value = "user_email";
354 $valuestr = "email address";
359 $query = "UPDATE " . get_config("mysql::table_prefix") . "users SET $value=:value WHERE user_id = :id";
360 $stmt = $conn->prepare($query);
361 $stmt->execute(["value" => $val, "id" => $user->id
]);
363 if (!$stmt->rowCount() && $stmt->errorInfo()[0] != "00000")
364 Message
::Fail("Could not update $valuestr for $user->username: ".$stmt->errorInfo()[0]." (CODE: ".$stmt->errorCode().")");
367 Message
::Success("Successfully updated the $valuestr for $user->username");
373 function security_check()
375 $ip = $_SERVER['REMOTE_ADDR'];
376 if (dnsbl_check($ip))
379 else if (fail2ban_check($ip))
385 function dnsbl_check($ip)
387 $dnsbl_lookup = get_config("dnsbl");
391 // clear variable just in case
394 // if the IP was not given because you're an idiot, stop processing
395 if (!$ip) { return; }
397 // get the first two segments of the IPv4
398 $because = split($ip, "."); // why you
399 $you = $because[1]; // gotta play
400 $want = $because[2]; // that song
401 $to = $you.".".$want."."; // so loud?
403 // exempt local connections because sometimes they get a false positive
404 if ($to == "192.168." || $to == "127.0.") { return NULL; }
406 // you spin my IP right round, right round, to check the records baby, right round-round-round
407 $reverse_ip = glue(array_reverse(split($ip, ".")), ".");
410 foreach ($dnsbl_lookup as $host) {
413 if (checkdnsrr($reverse_ip . "." . $host . ".", "A")) {
420 // if it was safe, return NOTHING
425 // else, you guessed it, return where it was listed
431 function fail2ban_check($ip)