diff options
Diffstat (limited to 'Core/web_permissions.lua')
| -rw-r--r-- | Core/web_permissions.lua | 134 |
1 files changed, 0 insertions, 134 deletions
diff --git a/Core/web_permissions.lua b/Core/web_permissions.lua deleted file mode 100644 index 7a8af56e9..000000000 --- a/Core/web_permissions.lua +++ /dev/null @@ -1,134 +0,0 @@ -local function HTML_Option( value, text, selected ) - if( selected == true ) then - return [[<option value="]] .. value .. [[" selected>]] .. text .. [[</option>]] - else - return [[<option value="]] .. value .. [[">]] .. text .. [[</option>"]] - end -end - -local function ShowUsersTable() - local Content = "<h4>Users</h4>" - - local NumUsers = UsersIni:GetNumKeys() - - Content = Content .. "<table>" - - if( NumUsers > 0 ) then - Content = Content .. "<tr><th></th><th>User</th><th>Groups</th></tr>" - - for i=0, NumUsers-1 do - local UserName = UsersIni:GetKeyName( i ) - - Content = Content .. "<tr>" - Content = Content .. "<td style='width: 10px;'>" .. i .. ".</td>" - Content = Content .. "<td>" .. UserName .. "</td>" - Content = Content .. "<td>" - Content = Content .. UsersIni:GetValue( UserName, "Groups", "-" ) - Content = Content .. "</td>" - Content = Content .. "</tr>" - end - else - Content = Content .. "<tr><td>None</td></tr>" - end - Content = Content .. "</table>" - - - return Content -end - -local function ShowGroupsTable() - local Content = "<h4>Groups</h4>" - - local NumGroups = GroupsIni:GetNumKeys() - - Content = Content .. "<table>" - if( NumGroups > 0 ) then - Content = Content .. "<tr><th></th><th>Name</th><th>Permissions</th><th>Color</th></tr>" - - for i=0, NumGroups-1 do - local GroupName = GroupsIni:GetKeyName( i ) - - Content = Content .. "<tr>" - Content = Content .. "<td style='width: 10px;'>" .. i .. ".</td>" - Content = Content .. "<td>" .. GroupName .. "</td>" - Content = Content .. "<td>" - Content = Content .. GroupsIni:GetValue( GroupName, "Permissions", "-" ) - Content = Content .. "</td>" - Content = Content .. "<td>" - Content = Content .. GroupsIni:GetValue( GroupName, "Color", "-" ) - Content = Content .. "</td>" - Content = Content .. "</tr>" - end - else - Content = Content .. "<tr><td>None</td></tr>" - end - Content = Content .. "</table>" - - return Content -end - -local function HTML_Select_Group( name, defaultValue ) - Groups = "" - for I=0, GroupsIni:GetNumKeys() - 1 do - Groups = Groups .. - HTML_Option(GroupsIni:KeyName(I), GroupsIni:KeyName(I), defaultValue == GroupsIni:KeyName(I) ) - end - return [[<select name="]] .. name .. [[">]] .. Groups .. [[</select>]] -end - - -local function AddPlayers( Request ) - local Content = "<h4>Add or change Players</h4>" - if( Request.PostParams["AddPlayerToGroup"] ~= nil ) then - if Request.PostParams["AddPlayer"] ~= "" then - if Request.PostParams["AddGroups"] ~= "" then - if GroupsIni:FindKey(Request.PostParams["AddGroup"]) == -1 then - return "Group does not exist" - end - UsersIni:DeleteKey(Request.PostParams["AddPlayer"]) - UsersIni:GetValueSet(Request.PostParams["AddPlayer"], "Groups", Request.PostParams["AddGroup"]) - UsersIni:WriteFile() - local loopPlayers = function( Player ) - if Player:GetName() == Request.PostParams["AddPlayer"] then - Player:SendMessage( cChatColor.Green .. "You were moved to group " .. Request.PostParams["AddGroup"] ) - Player:LoadPermissionsFromDisk() - end - end - local loopWorlds = function ( World ) - World:ForEachPlayer( loopPlayers ) - end - cRoot:Get():ForEachWorld( loopWorlds ) - end - end - end - Content = Content .. [[ - <form method="POST"> - <table> - <tr><td style="width: 20%;">Player:</td> - <td><input type="text" name="AddPlayer" value=""></td></tr><br> - <tr><td style="width: 20%;">Group:</td> - <td>]] .. HTML_Select_Group("AddGroup", GroupsIni:KeyName(0) ) .. [[</td></tr> - </table> - <input type="submit" value="Add Player" name="AddPlayerToGroup">]] - - return Content -end - -function HandleRequest_Permissions( Request ) - GroupsIni = cIniFile("groups.ini") - if( GroupsIni:ReadFile() == false ) then - return "Could not read groups.ini!" - end - UsersIni = cIniFile("users.ini") - if( UsersIni:ReadFile() == false ) then - return "Could not read users.ini!" - end - - local Content = "" - - Content = Content .. AddPlayers( Request ) - Content = Content .. ShowGroupsTable() - Content = Content .. ShowUsersTable() - - return Content -end
\ No newline at end of file |