9488c7aff7
* NEW: Automatic completion now displays hidden symbols if the class is part of the current project. * NEW: Support for *.tar.xz source archives. * NEW: Underscores are now allowed inside a class name. * BUG: Enabling or disabling tooltips in the option dialog does not crash anymore. [INTERPRETER] * NEW: Rename many virtual classes everywhere so that the documentation can easily extract the property name of the parent class from the virtual class name. For example, ".ApplicationArgs" is now ".Application.Args". git-svn-id: svn://localhost/gambas/trunk@4028 867c0c6c-44f3-4631-809d-bfa615b0a4ec
228 lines
4.8 KiB
C
228 lines
4.8 KiB
C
/***************************************************************************
|
|
|
|
CUser.c
|
|
|
|
(c) 2000-2011 Benoît Minisini <gambas@users.sourceforge.net>
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 2, or (at your option)
|
|
any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program; if not, write to the Free Software
|
|
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
|
|
MA 02110-1301, USA.
|
|
|
|
***************************************************************************/
|
|
|
|
#define __CUSER_C
|
|
|
|
#include "main.h"
|
|
|
|
#include "CUser.h"
|
|
|
|
|
|
static int valid_user(CUSER *_object)
|
|
{
|
|
return !THIS->conn || !THIS->conn->db.handle;
|
|
}
|
|
|
|
static bool check_user(CCONNECTION *conn, const char *name, bool must_exist)
|
|
{
|
|
bool exist = conn->driver->User.Exist(&conn->db, (char *)name);
|
|
|
|
if (must_exist)
|
|
{
|
|
if (!exist)
|
|
{
|
|
GB.Error("Unknown user: &1", name);
|
|
return TRUE;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if (exist)
|
|
{
|
|
GB.Error("User already exists: &1", name);
|
|
return TRUE;
|
|
}
|
|
}
|
|
|
|
return FALSE;
|
|
}
|
|
|
|
|
|
void *CUSER_get(CCONNECTION *conn, const char *name)
|
|
{
|
|
CUSER *_object;
|
|
|
|
if (check_user(conn, name, TRUE))
|
|
return NULL;
|
|
|
|
_object = GB.New(GB.FindClass("DatabaseUser"), NULL, NULL);
|
|
THIS->conn = conn;
|
|
THIS->driver = conn->driver;
|
|
THIS->name = GB.NewZeroString(name);
|
|
conn->driver->User.Info(&conn->db, THIS->name, &THIS->info);
|
|
return THIS;
|
|
}
|
|
|
|
|
|
int CUSER_exist(CCONNECTION *conn, const char *name)
|
|
{
|
|
return conn->driver->User.Exist(&conn->db, (char *)name);
|
|
}
|
|
|
|
|
|
void CUSER_list(CCONNECTION *conn, char ***list)
|
|
{
|
|
conn->driver->User.List(&conn->db, list);
|
|
}
|
|
|
|
|
|
void CUSER_release(CCONNECTION *conn, void *_object)
|
|
{
|
|
THIS->conn = NULL;
|
|
}
|
|
|
|
|
|
/***************************************************************************
|
|
|
|
User
|
|
|
|
***************************************************************************/
|
|
|
|
BEGIN_METHOD_VOID(CUSER_free)
|
|
|
|
if (!valid_user(THIS))
|
|
GB.SubCollection.Remove(THIS->conn->users, THIS->name, 0);
|
|
GB.FreeString(&THIS->name);
|
|
GB.FreeString(&THIS->info.password);
|
|
|
|
END_METHOD
|
|
|
|
|
|
BEGIN_PROPERTY(CUSER_name)
|
|
|
|
GB.ReturnString(THIS->name);
|
|
|
|
END_PROPERTY
|
|
|
|
|
|
BEGIN_METHOD_VOID(CUSER_delete)
|
|
|
|
THIS->conn->driver->User.Delete(&THIS->conn->db, THIS->name);
|
|
|
|
END_METHOD
|
|
|
|
|
|
BEGIN_PROPERTY(CUSER_password)
|
|
|
|
if (READ_PROPERTY)
|
|
GB.ReturnString(THIS->info.password);
|
|
else if (THIS->name)
|
|
{
|
|
GB.StoreString(PROP(GB_STRING), &THIS->info.password);
|
|
THIS->driver->User.SetPassword(&THIS->conn->db, THIS->name, THIS->info.password);
|
|
}
|
|
|
|
END_PROPERTY
|
|
|
|
|
|
BEGIN_PROPERTY(CUSER_administrator)
|
|
|
|
GB.ReturnBoolean(THIS->info.admin);
|
|
|
|
END_PROPERTY
|
|
|
|
|
|
BEGIN_PROPERTY(CUSER_connection)
|
|
|
|
GB.ReturnObject(THIS->conn);
|
|
|
|
END_PROPERTY
|
|
|
|
|
|
GB_DESC CUserDesc[] =
|
|
{
|
|
GB_DECLARE("DatabaseUser", sizeof(CUSER)),
|
|
GB_NOT_CREATABLE(),
|
|
GB_HOOK_CHECK(valid_user),
|
|
|
|
GB_METHOD("_free", NULL, CUSER_free, NULL),
|
|
|
|
GB_METHOD("Delete", NULL, CUSER_delete, NULL),
|
|
|
|
GB_PROPERTY_READ("Name", "s", CUSER_name),
|
|
GB_PROPERTY_READ("Administrator", "b", CUSER_administrator),
|
|
GB_PROPERTY("Password", "s", CUSER_password),
|
|
GB_PROPERTY_READ("Connection", "Connection", CUSER_connection),
|
|
|
|
GB_END_DECLARE
|
|
};
|
|
|
|
|
|
|
|
/***************************************************************************
|
|
|
|
.Connection.Users
|
|
|
|
***************************************************************************/
|
|
|
|
#undef THIS
|
|
#define THIS ((GB_SUBCOLLECTION)_object)
|
|
|
|
BEGIN_METHOD(CUSER_add, GB_STRING name; GB_STRING password; GB_BOOLEAN admin)
|
|
|
|
CCONNECTION *conn = GB.SubCollection.Container(THIS);
|
|
char *name = GB.ToZeroString(ARG(name));
|
|
DB_USER info;
|
|
|
|
CLEAR(&info);
|
|
|
|
if (DB_CheckNameWith(name, "user", "@%"))
|
|
return;
|
|
|
|
if (check_user(conn, name, FALSE))
|
|
return;
|
|
|
|
info.admin = VARGOPT(admin, FALSE);
|
|
if (!MISSING(password))
|
|
info.password = GB.ToZeroString(ARG(password));
|
|
|
|
conn->driver->User.Create(&conn->db, name, &info);
|
|
|
|
END_METHOD
|
|
|
|
|
|
BEGIN_METHOD(CUSER_remove, GB_STRING name)
|
|
|
|
CCONNECTION *conn = GB.SubCollection.Container(THIS);
|
|
char *name = GB.ToZeroString(ARG(name));
|
|
|
|
if (check_user(conn, name, TRUE))
|
|
return;
|
|
|
|
GB.SubCollection.Remove(THIS, STRING(name), LENGTH(name));
|
|
conn->driver->User.Delete(&conn->db, name);
|
|
|
|
END_METHOD
|
|
|
|
|
|
GB_DESC CConnectionUsersDesc[] =
|
|
{
|
|
GB_DECLARE(".Connection.Users", 0), GB_INHERITS(".SubCollection"),
|
|
|
|
GB_METHOD("Add", NULL, CUSER_add, "(Name)s[(Password)s(Admin)b]"),
|
|
GB_METHOD("Remove", NULL, CUSER_remove, "(Name)s"),
|
|
|
|
GB_END_DECLARE
|
|
};
|
|
|
|
|