Frontend: Add support for deleting current account

frontend.pm

@@ -495,6 +495,16 @@ sub createUser {
 	$query->execute($aName, $password, $aPrivileges);
 }
 
+sub deleteUser {
+	my $aID = $_[0];
+	my $aConnection = $_[1];
+
+	my $query = $aConnection->prepare(qq(delete from users where id=?;));
+	$query->execute($aID);
+	$query = $aConnection->prepare(qq(delete from accessors where user_id=?;));
+	$query->execute($aID);
+}
+
 sub httpServerWorker {
 	my $db = DBI->connect("DBI:SQLite:dbname=$configuration::database", "", "", {RaiseError=>1});
 	my $query = $db->prepare(qq(select id from users;));