433 lines
12 KiB
Plaintext
433 lines
12 KiB
Plaintext
(*
|
|
* CDDL HEADER START
|
|
*
|
|
* The contents of this file are subject to the terms of the
|
|
* Common Development and Distribution License, Version 1.0 only
|
|
* (the "License"). You may not use this file except in compliance
|
|
* with the License.
|
|
*
|
|
* You can obtain a copy of the license at
|
|
* http://www.opensource.org/licenses/cddl1.php.
|
|
* See the License for the specific language governing permissions
|
|
* and limitations under the License.
|
|
*
|
|
* When distributing Covered Code, include this CDDL HEADER in each
|
|
* file and include the License file at
|
|
* http://www.opensource.org/licenses/cddl1.php. If applicable,
|
|
* add the following below this CDDL HEADER, with the fields enclosed
|
|
* by brackets "[]" replaced with your own identifying * information:
|
|
* Portions Copyright [yyyy] [name of copyright owner]
|
|
*
|
|
* CDDL HEADER END
|
|
*
|
|
*
|
|
* Portions Copyright 2008 Andreas Schneider
|
|
*)
|
|
unit UAdminHandling;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, math, UPacket, UPacketHandlers, UConfig, UAccount,
|
|
UNetState, UEnhancedMemoryStream, UEnums, URegions;
|
|
|
|
type
|
|
|
|
{ TModifyUserResponsePacket }
|
|
|
|
TModifyUserResponsePacket = class(TPacket)
|
|
constructor Create(AStatus: TModifyUserStatus; AAccount: TAccount);
|
|
end;
|
|
|
|
{ TDeleteUserResponsePacket }
|
|
|
|
TDeleteUserResponsePacket = class(TPacket)
|
|
constructor Create(AStatus: TDeleteUserStatus; AUsername: string);
|
|
end;
|
|
|
|
{ TUserListPacket }
|
|
|
|
TUserListPacket = class(TPacket)
|
|
constructor Create;
|
|
end;
|
|
|
|
{ TModifyRegionResponsePacket }
|
|
|
|
TModifyRegionResponsePacket = class(TPacket)
|
|
constructor Create(AStatus: TModifyRegionStatus; ARegion: TRegion);
|
|
end;
|
|
|
|
{ TDeleteRegionResponsePacket }
|
|
|
|
TDeleteRegionResponsePacket = class(TPacket)
|
|
constructor Create(AStatus: TDeleteRegionStatus; ARegionName: string);
|
|
end;
|
|
|
|
{ TUserRegionsPacket }
|
|
|
|
TRegionListPacket = class(TPacket)
|
|
constructor Create;
|
|
end;
|
|
|
|
procedure OnAdminHandlerPacket(ABuffer: TEnhancedMemoryStream; ANetState: TNetState);
|
|
procedure OnFlushPacket(ABuffer: TEnhancedMemoryStream; ANetState: TNetState);
|
|
procedure OnQuitPacket(ABuffer: TEnhancedMemoryStream; ANetState: TNetState);
|
|
procedure OnModifyUserPacket(ABuffer: TEnhancedMemoryStream; ANetState: TNetState);
|
|
procedure OnDeleteUserPacket(ABuffer: TEnhancedMemoryStream; ANetState: TNetState);
|
|
procedure OnListUsersPacket(ABuffer: TEnhancedMemoryStream; ANetState: TNetState);
|
|
procedure OnModifyRegionPacket(ABuffer: TEnhancedMemoryStream; ANetState: TNetState);
|
|
procedure OnDeleteRegionPacket(ABuffer: TEnhancedMemoryStream; ANetState: TNetState);
|
|
procedure OnListRegionsPacket(ABuffer: TEnhancedMemoryStream; ANetState: TNetState);
|
|
|
|
|
|
var
|
|
AdminPacketHandlers: array[0..$FF] of TPacketHandler;
|
|
|
|
implementation
|
|
|
|
uses
|
|
md5, UCEDServer, UPackets, UClientHandling;
|
|
|
|
procedure OnAdminHandlerPacket(ABuffer: TEnhancedMemoryStream;
|
|
ANetState: TNetState);
|
|
var
|
|
packetHandler: TPacketHandler;
|
|
begin
|
|
if not ValidateAccess(ANetState, alAdministrator) then Exit;
|
|
packetHandler := AdminPacketHandlers[ABuffer.ReadByte];
|
|
if packetHandler <> nil then
|
|
packetHandler.Process(ABuffer, ANetState);
|
|
end;
|
|
|
|
procedure OnFlushPacket(ABuffer: TEnhancedMemoryStream; ANetState: TNetState);
|
|
begin
|
|
CEDServerInstance.Landscape.Flush;
|
|
Config.Flush;
|
|
end;
|
|
|
|
procedure OnQuitPacket(ABuffer: TEnhancedMemoryStream; ANetState: TNetState);
|
|
begin
|
|
CEDServerInstance.Quit := True;
|
|
end;
|
|
|
|
procedure OnModifyUserPacket(ABuffer: TEnhancedMemoryStream;
|
|
ANetState: TNetState);
|
|
var
|
|
account: TAccount;
|
|
username, password: string;
|
|
accessLevel: TAccessLevel;
|
|
netState: TNetState;
|
|
regions: TStringList;
|
|
i, regionCount: Integer;
|
|
begin
|
|
username := ABuffer.ReadStringNull;
|
|
password := ABuffer.ReadStringNull;
|
|
accessLevel := TAccessLevel(ABuffer.ReadByte);
|
|
|
|
regionCount := ABuffer.ReadByte;
|
|
|
|
account := Config.Accounts.Find(username);
|
|
if account <> nil then
|
|
begin
|
|
if password <> '' then
|
|
account.PasswordHash := MD5Print(MD5String(password));
|
|
|
|
account.Regions.Clear;
|
|
for i := 0 to regionCount - 1 do
|
|
account.Regions.Add(ABuffer.ReadStringNull);
|
|
account.Invalidate;
|
|
|
|
if account.AccessLevel <> accessLevel then
|
|
begin
|
|
account.AccessLevel := accessLevel;
|
|
CEDServerInstance.TCPServer.IterReset;
|
|
while CEDServerInstance.TCPServer.IterNext do
|
|
begin
|
|
netState := TNetState(CEDServerInstance.TCPServer.Iterator.UserData);
|
|
if (netState <> nil) and (netState.Account = account) then
|
|
begin
|
|
CEDServerInstance.SendPacket(netState,
|
|
TAccessLevelChangedPacket.Create(accessLevel));
|
|
end;
|
|
end;
|
|
end;
|
|
CEDServerInstance.SendPacket(ANetState,
|
|
TModifyUserResponsePacket.Create(muModified, account));
|
|
end else
|
|
begin
|
|
if username = '' then
|
|
begin
|
|
CEDServerInstance.SendPacket(ANetState,
|
|
TModifyUserResponsePacket.Create(muInvalidUsername, account));
|
|
Exit;
|
|
end else
|
|
begin
|
|
regions := TStringList.Create;
|
|
for i := 0 to regionCount - 1 do
|
|
regions.Add(ABuffer.ReadStringNull);
|
|
|
|
account := TAccount.Create(Config.Accounts, username,
|
|
MD5Print(MD5String(password)), accessLevel, regions);
|
|
|
|
Config.Accounts.Add(account);
|
|
Config.Accounts.Invalidate;
|
|
CEDServerInstance.SendPacket(ANetState,
|
|
TModifyUserResponsePacket.Create(muAdded, account));
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure OnDeleteUserPacket(ABuffer: TEnhancedMemoryStream;
|
|
ANetState: TNetState);
|
|
var
|
|
account: TAccount;
|
|
username: string;
|
|
netState: TNetState;
|
|
begin
|
|
username := ABuffer.ReadStringNull;
|
|
account := Config.Accounts.Find(username);
|
|
if (account <> nil) and (account <> ANetState.Account) then
|
|
begin
|
|
CEDServerInstance.TCPServer.IterReset;
|
|
while CEDServerInstance.TCPServer.IterNext do
|
|
begin
|
|
netState := TNetState(CEDServerInstance.TCPServer.Iterator.UserData);
|
|
if (netState <> nil) and (netState.Account = account) then
|
|
begin
|
|
CEDServerInstance.Disconnect(CEDServerInstance.TCPServer.Iterator);
|
|
netState.Account := nil;
|
|
end;
|
|
end;
|
|
Config.Accounts.Remove(account);
|
|
Config.Invalidate;
|
|
CEDServerInstance.SendPacket(ANetState,
|
|
TDeleteUserResponsePacket.Create(duDeleted, username));
|
|
end else
|
|
CEDServerInstance.SendPacket(ANetState,
|
|
TDeleteUserResponsePacket.Create(duNotFound, username));
|
|
end;
|
|
|
|
procedure OnListUsersPacket(ABuffer: TEnhancedMemoryStream;
|
|
ANetState: TNetState);
|
|
begin
|
|
CEDServerInstance.SendPacket(ANetState,
|
|
TCompressedPacket.Create(TUserListPacket.Create));
|
|
end;
|
|
|
|
procedure OnModifyRegionPacket(ABuffer: TEnhancedMemoryStream;
|
|
ANetState: TNetState);
|
|
var
|
|
regionName: string;
|
|
region: TRegion;
|
|
status: TModifyRegionStatus;
|
|
i, areaCount: Integer;
|
|
x1, y1, x2, y2: Word;
|
|
begin
|
|
regionName := ABuffer.ReadStringNull;
|
|
|
|
region := Config.Regions.Find(regionName);
|
|
if region = nil then
|
|
begin
|
|
region := TRegion.Create(Config.Regions, regionName);
|
|
Config.Regions.Add(region);
|
|
status := mrAdded;
|
|
end else
|
|
begin
|
|
region.Areas.Clear;
|
|
status := mrModified;
|
|
end;
|
|
|
|
areaCount := ABuffer.ReadByte;
|
|
for i := 0 to areaCount - 1 do
|
|
begin
|
|
x1 := ABuffer.ReadWord;
|
|
y1 := ABuffer.ReadWord;
|
|
x2 := ABuffer.ReadWord;
|
|
y2 := ABuffer.ReadWord;
|
|
region.Areas.Add(Min(x1, x2), Min(y1, y2),
|
|
Max(x1, x2), Max(y1, y2));
|
|
end;
|
|
|
|
CEDServerInstance.SendPacket(ANetState,
|
|
TModifyRegionResponsePacket.Create(status, region));
|
|
end;
|
|
|
|
procedure OnDeleteRegionPacket(ABuffer: TEnhancedMemoryStream;
|
|
ANetState: TNetState);
|
|
var
|
|
regionName: string;
|
|
regions: TRegionList;
|
|
i: Integer;
|
|
status: TDeleteRegionStatus;
|
|
begin
|
|
regionName := ABuffer.ReadStringNull;
|
|
i := 0;
|
|
status := drNotFound;
|
|
regions := Config.Regions;
|
|
while (i < regions.Count) and (status = drNotFound) do
|
|
begin
|
|
if TRegion(regions[i]).Name = regionName then
|
|
begin
|
|
regions.Delete(i);
|
|
status := drDeleted;
|
|
end else
|
|
inc(i);
|
|
end;
|
|
|
|
CEDServerInstance.SendPacket(ANetState,
|
|
TDeleteRegionResponsePacket.Create(status, regionName));
|
|
end;
|
|
|
|
procedure OnListRegionsPacket(ABuffer: TEnhancedMemoryStream;
|
|
ANetState: TNetState);
|
|
begin
|
|
CEDServerInstance.SendPacket(ANetState,
|
|
TCompressedPacket.Create(TRegionListPacket.Create));
|
|
end;
|
|
|
|
{ TModifyUserResponsePacket }
|
|
|
|
constructor TModifyUserResponsePacket.Create(AStatus: TModifyUserStatus;
|
|
AAccount: TAccount);
|
|
var
|
|
i: Integer;
|
|
begin
|
|
inherited Create($03, 0);
|
|
FStream.WriteByte($05);
|
|
FStream.WriteByte(Byte(AStatus));
|
|
FStream.WriteStringNull(AAccount.Name);
|
|
if (AStatus = muAdded) or (AStatus = muModified) then
|
|
begin
|
|
FStream.WriteByte(Byte(AAccount.AccessLevel));
|
|
FStream.WriteByte(AAccount.Regions.Count);
|
|
if AAccount.Regions.Count > 0 then begin
|
|
for i := 0 to AAccount.Regions.Count - 1 do
|
|
FStream.WriteStringNull(AAccount.Regions[i]);
|
|
end;
|
|
end;
|
|
{TODO : check for client side modifications!}
|
|
end;
|
|
|
|
{ TDeleteUserResponsePacket }
|
|
|
|
constructor TDeleteUserResponsePacket.Create(AStatus: TDeleteUserStatus; AUsername: string);
|
|
begin
|
|
inherited Create($03, 0);
|
|
FStream.WriteByte($06);
|
|
FStream.WriteByte(Byte(AStatus));
|
|
FStream.WriteStringNull(AUsername);
|
|
end;
|
|
|
|
{ TUserListPacket }
|
|
|
|
constructor TUserListPacket.Create;
|
|
var
|
|
i, j: Integer;
|
|
account: TAccount;
|
|
begin
|
|
inherited Create($03, 0);
|
|
FStream.WriteByte($07);
|
|
FStream.WriteWord(Config.Accounts.Count);
|
|
for i := 0 to Config.Accounts.Count - 1 do
|
|
begin
|
|
account := TAccount(Config.Accounts.Items[i]);
|
|
FStream.WriteStringNull(account.Name);
|
|
FStream.WriteByte(Byte(account.AccessLevel));
|
|
FStream.WriteByte(account.Regions.Count);
|
|
for j := 0 to account.Regions.Count - 1 do
|
|
FStream.WriteStringNull(account.Regions[j]);
|
|
end;
|
|
FStream.WriteWord(Config.Regions.Count);
|
|
for i := 0 to Config.Regions.Count - 1 do
|
|
FStream.WriteStringNull(TRegion(Config.Regions.Items[i]).Name);
|
|
end;
|
|
|
|
{ TModifyRegionResponsePacket }
|
|
|
|
constructor TModifyRegionResponsePacket.Create(AStatus: TModifyRegionStatus;
|
|
ARegion: TRegion);
|
|
var
|
|
i, areaCount: Integer;
|
|
begin
|
|
inherited Create($03, 0);
|
|
FStream.WriteByte($08);
|
|
FStream.WriteByte(Byte(AStatus));
|
|
FStream.WriteStringNull(ARegion.Name);
|
|
if (AStatus = mrAdded) or (AStatus = mrModified) then
|
|
begin
|
|
areaCount := ARegion.Areas.Count;
|
|
FStream.WriteByte(areaCount);
|
|
for i := 0 to areaCount - 1 do
|
|
with ARegion.Areas.Rects[i] do
|
|
begin
|
|
FStream.WriteWord(Left);
|
|
FStream.WriteWord(Top);
|
|
FStream.WriteWord(Right);
|
|
FStream.WriteWord(Bottom);
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
{ TDeleteRegionResponsePacket }
|
|
|
|
constructor TDeleteRegionResponsePacket.Create(AStatus: TDeleteRegionStatus;
|
|
ARegionName: string);
|
|
begin
|
|
inherited Create($03, 0);
|
|
FStream.WriteByte($09);
|
|
FStream.WriteByte(Byte(AStatus));
|
|
FStream.WriteStringNull(ARegionName);
|
|
end;
|
|
|
|
{ TRegionListPacket }
|
|
|
|
constructor TRegionListPacket.Create;
|
|
var
|
|
i, j: Integer;
|
|
region: TRegion;
|
|
begin
|
|
inherited Create($03, 0);
|
|
FStream.WriteByte($08);
|
|
FStream.WriteByte(Config.Regions.Count);
|
|
for i := 0 to Config.Regions.Count - 1 do
|
|
begin
|
|
region := TRegion(Config.Regions.Items[i]);
|
|
FStream.WriteStringNull(region.Name);
|
|
FStream.WriteByte(region.Areas.Count);
|
|
for j := 0 to region.Areas.Count - 1 do
|
|
with region.Areas.Rects[j] do
|
|
begin
|
|
FStream.WriteWord(Left);
|
|
FStream.WriteWord(Top);
|
|
FStream.WriteWord(Right);
|
|
FStream.WriteWord(Bottom);
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
{$WARNINGS OFF}
|
|
var
|
|
i: Integer;
|
|
|
|
initialization
|
|
for i := 0 to $FF do
|
|
AdminPacketHandlers[i] := nil;
|
|
AdminPacketHandlers[$01] := TPacketHandler.Create(0, @OnFlushPacket);
|
|
AdminPacketHandlers[$02] := TPacketHandler.Create(0, @OnQuitPacket);
|
|
AdminPacketHandlers[$05] := TPacketHandler.Create(0, @OnModifyUserPacket);
|
|
AdminPacketHandlers[$06] := TPacketHandler.Create(0, @OnDeleteUserPacket);
|
|
AdminPacketHandlers[$07] := TPacketHandler.Create(0, @OnListUsersPacket);
|
|
AdminPacketHandlers[$08] := TPacketHandler.Create(0, @OnModifyRegionPacket);
|
|
AdminPacketHandlers[$09] := TPacketHandler.Create(0, @OnDeleteRegionPacket);
|
|
AdminPacketHandlers[$0A] := TPacketHandler.Create(0, @OnListRegionsPacket);
|
|
finalization
|
|
for i := 0 to $FF do
|
|
if AdminPacketHandlers[i] <> nil then
|
|
AdminPacketHandlers[i].Free;
|
|
{$WARNINGS ON}
|
|
|
|
end.
|
|
|