<% if _SESSION["logined"] ~= nil then local domain = _POST["domain"] local method = _POST["method"] local mysqlserver = _POST["mysqlserver"] local mysqlport = _POST["mysqlport"] local mysqlusername = _POST["mysqlusername"] local mysqlpassword = _POST["mysqlpassword"] local mysqldatabase = _POST["mysqldatabase"] local mysqlsocket = _POST["mysqlsocket"] local odbcsource = _POST["odbcsource"] local odbcusername = _POST["odbcusername"] local odbcpassword = _POST["odbcpassword"] local enable_aduser = _POST["enable_aduser"] local aduser_domain = _POST["aduser_domain"] local aduser_dir = _POST["aduser_dir"] local aduser_owndir = _POST["aduser_owndir"] local fileread = _POST["fileread"] local filewrite = _POST["filewrite"] local fileappend = _POST["fileappend"] local filedelete = _POST["filedelete"] local dirlist = _POST["dirlist"] local dirmake = _POST["dirmake"] local dirdelete = _POST["dirdelete"] local dirrename = _POST["dirrename"] local filerename = _POST["filerename"] local zipfile = _POST["zipfile"] local unzipfile = _POST["unzipfile"] method = tonumber(method) if method < 1 or method > 3 then method = 1 end local nType = c_GetLicenseInfo() if nType == LICENSE_STANDARD or nType == LICENSE_SECURE then method = 1 end local retval = true local notchange = false local oldmethod = c_GetOptionInt(domain,DOPTION_DATA_ACCESS_INTERFACE_INT) if oldmethod == method and method == 1 then notchange = true end if method == 2 then retval = c_TestMysql(mysqlserver,mysqlport,mysqlusername,mysqlpassword,mysqldatabase,mysqlsocket) elseif method == 3 then retval = c_TestODBC(odbcsource,odbcusername,odbcpassword) end if retval == true then c_SetOptionInt(domain,DOPTION_DATA_ACCESS_INTERFACE_INT,method) c_SetOptionStr(domain,DOPTION_MYSQL_ADDRESS_STR,mysqlserver) c_SetOptionInt(domain,DOPTION_MYSQL_PORT_INT,mysqlport) c_SetOptionStr(domain,DOPTION_MYSQL_USERNAME_STR,mysqlusername) c_SetOptionStr(domain,DOPTION_MYSQL_PASSWORD_STR,mysqlpassword) c_SetOptionStr(domain,DOPTION_MYSQL_DBNAME_STR,mysqldatabase) c_SetOptionStr(domain,DOPTION_MYSQL_UNIXSOCKET_STR,mysqlsocket) c_SetOptionStr(domain,DOPTION_DSN_ADDRESS_STR,odbcsource) c_SetOptionStr(domain,DOPTION_DSN_USERNAME_STR,odbcusername) c_SetOptionStr(domain,DOPTION_DSN_PASSWORD_STR,odbcpassword) c_SetOptionInt(domain,DOPTION_ENABLE_ADUSER_INT,enable_aduser) c_SetOptionInt(domain,DOPTION_ADUSER_OWNDIR_INT,aduser_owndir) c_SetOptionStr(domain,DOPTION_ADUSER_DOMAIN_STR,aduser_domain) c_SetOptionStr(domain,DOPTION_ADUSER_DIRPATH_STR,aduser_dir) c_SetOptionInt(domain,DOPTION_ADUSER_FILEREAD_INT,fileread) c_SetOptionInt(domain,DOPTION_ADUSER_FILEWRITE_INT,filewrite) c_SetOptionInt(domain,DOPTION_ADUSER_FILEAPPEND_INT,fileappend) c_SetOptionInt(domain,DOPTION_ADUSER_FILEDELETE_INT,filedelete) c_SetOptionInt(domain,DOPTION_ADUSER_DIRLIST_INT,dirlist) c_SetOptionInt(domain,DOPTION_ADUSER_DIRCREATE_INT,dirmake) c_SetOptionInt(domain,DOPTION_ADUSER_DIRDELETE_INT,dirdelete) c_SetOptionInt(domain,DOPTION_ADUSER_DIRRENAME_INT,dirrename) c_SetOptionInt(domain,DOPTION_ADUSER_FILERENAME_INT,filerename) c_SetOptionInt(domain,DOPTION_ADUSER_ZIPFILE_INT,zipfile) c_SetOptionInt(domain,DOPTION_ADUSER_UNZIPFILE_INT,unzipfile) if notchange == false then c_ResetUserData(domain) end print("1") else print("0") end end %>