389 lines
16 KiB
ObjectPascal
389 lines
16 KiB
ObjectPascal
Unit bbs_Cfg_UserEdit;
|
|
|
|
// ====================================================================
|
|
// Mystic BBS Software Copyright 1997-2013 By James Coyle
|
|
// ====================================================================
|
|
//
|
|
// This file is part of Mystic BBS.
|
|
//
|
|
// Mystic BBS 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 3 of the License, or
|
|
// (at your option) any later version.
|
|
//
|
|
// Mystic BBS 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 Mystic BBS. If not, see <http://www.gnu.org/licenses/>.
|
|
//
|
|
// ====================================================================
|
|
|
|
Interface
|
|
|
|
Uses
|
|
BBS_Records;
|
|
|
|
Procedure Configuration_EditUser (Var U: RecUser);
|
|
Procedure Configuration_UserEditor;
|
|
Procedure Configuration_LocalUserEdit;
|
|
|
|
Implementation
|
|
|
|
Uses
|
|
m_Types,
|
|
m_Strings,
|
|
m_DateTime,
|
|
m_FileIO,
|
|
bbs_Ansi_MenuBox,
|
|
bbs_Ansi_MenuForm,
|
|
bbs_io,
|
|
bbs_Core,
|
|
bbs_General,
|
|
BBS_Common,
|
|
BBS_DataBase,
|
|
BBS_Cfg_SecLevel,
|
|
BBS_Cfg_QwkNet;
|
|
|
|
Procedure Configuration_EditUser (Var U: RecUser);
|
|
Var
|
|
Box : TAnsiMenuBox;
|
|
Form : TAnsiMenuForm;
|
|
BoxImage : TConsoleImageRec;
|
|
PagePos : Byte = 1;
|
|
Topic : String;
|
|
Changed : Boolean = False;
|
|
NeedForm : Boolean = False;
|
|
|
|
Procedure UpdatePage (Restore: Boolean);
|
|
Begin
|
|
If Restore Then Session.io.RemoteRestore(BoxImage);
|
|
|
|
VerticalLine (21, 6, 20);
|
|
|
|
WriteXY (62, 6, 112, 'Information');
|
|
WriteXY (63, 7, 112, 'Settings 1');
|
|
WriteXY (63, 8, 112, 'Settings 2');
|
|
WriteXY (63, 9, 112, 'Statistics');
|
|
WriteXY (60, 10, 112, 'Optional Data');
|
|
WriteXY (68, 11, 112, 'Flags');
|
|
|
|
WriteXY (59, 13, 120, 'CTRL-U/Upgrade');
|
|
|
|
WriteXY (65, 20, 112, 'Page ' + strI2S(PagePos) + '/6');
|
|
|
|
Case PagePos of
|
|
1 : WriteXY (62, 6, 127, 'INFORMATION');
|
|
2 : WriteXY (63, 7, 127, 'SETTINGS 1');
|
|
3 : WriteXY (63, 8, 127, 'SETTINGS 2');
|
|
4 : WriteXY (63, 9, 127, 'STATISTICS');
|
|
5 : WriteXY (60, 10, 127, 'OPTIONAL DATA');
|
|
6 : WriteXY (68, 11, 127, 'FLAGS');
|
|
End;
|
|
|
|
NeedForm := True;
|
|
End;
|
|
|
|
Var
|
|
Birthdate : String[8];
|
|
FirstCall : String[8];
|
|
LastCall : String[8];
|
|
Temp : Integer;
|
|
SavedUser : RecUser;
|
|
QwkNet : RecQwkNetwork;
|
|
Begin
|
|
Topic := '|03(|09User Editor|03) |01-|09> |15';
|
|
SavedUser := U;
|
|
|
|
Box := TAnsiMenuBox.Create;
|
|
Form := TAnsiMenuForm.Create;
|
|
|
|
Box.Header := ' ' + U.Handle + ' (ID ' + strI2S(U.PermIdx) + ') ';
|
|
Form.LoExitChars := #21;
|
|
Form.HiExitChars := #71#73#79#81;
|
|
|
|
Box.Open (6, 5, 74, 21);
|
|
|
|
Console.GetScreenImage (6, 5, 74, 21, BoxImage);
|
|
|
|
Birthdate := DateJulian2Str(U.Birthday, 1);
|
|
FirstCall := DateDos2Str(U.FirstOn, 1);
|
|
LastCall := DateDos2Str(U.LastOn, 1);
|
|
|
|
UpdatePage(False);
|
|
|
|
Repeat
|
|
Form.ExitOnFirst := True;
|
|
Form.ExitOnLast := True;
|
|
|
|
Case PagePos of
|
|
1 : Form.ExitOnFirst := False;
|
|
6 : Form.ExitOnLast := False;
|
|
End;
|
|
|
|
If NeedForm Then
|
|
Case PagePos of
|
|
1 : Begin
|
|
WriteXY ( 8, 19, 112, 'Caller ID');
|
|
WriteXY (23, 19, 113, U.PeerHost);
|
|
WriteXY (23, 20, 113, U.PeerIP);
|
|
|
|
Form.Clear;
|
|
|
|
Form.AddStr ('H', ' Handle' , 7, 6, 23, 6, 14, 30, 30, @U.Handle, Topic + 'User''s account handle');
|
|
Form.AddStr ('R', ' Real Name' , 7, 7, 23, 7, 14, 30, 30, @U.RealName, Topic + 'User''s real name');
|
|
Form.AddPass ('W', ' Password' , 7, 8, 23, 8, 14, 20, 20, @U.Password, Topic + 'User''s password');
|
|
Form.AddStr ('A', ' Address' , 7, 9, 23, 9, 14, 30, 30, @U.Address, Topic + 'User''s street address');
|
|
Form.AddStr ('C', ' City' , 7, 10, 23, 10, 14, 25, 25, @U.City, Topic + 'User''s city and state');
|
|
Form.AddStr ('Z', ' Zip Code' , 7, 11, 23, 11, 14, 10, 10, @U.ZipCode, Topic + 'User''s postal code');
|
|
Form.AddStr ('P', ' Home Phone', 7, 12, 23, 12, 14, 15, 15, @U.HomePhone, Topic + 'User''s home phone number');
|
|
Form.AddStr ('O', ' Data Phone', 7, 13, 23, 13, 14, 15, 15, @U.DataPhone, Topic + 'User''s data phone number');
|
|
Form.AddStr ('E', ' E-Mail' , 7, 14, 23, 14, 14, 40, 40, @U.Email, Topic + 'User''s email address');
|
|
Form.AddStr ('U', ' User Note' , 7, 15, 23, 15, 14, 40, 40, @U.UserInfo, Topic + 'User''s user note');
|
|
Form.AddChar ('G', ' Gender' , 7, 16, 23, 16, 14, 32, 254, @U.Gender, Topic + 'User''s gender. M/Male, F/Female');
|
|
Form.AddDate ('B', ' Birthdate' , 7, 17, 23, 17, 14, @Birthdate, Topic + 'User''s birthdate (MM/DD/YY)');
|
|
End;
|
|
2 : Begin
|
|
Form.Clear;
|
|
|
|
Form.AddByte ('S', ' Security' , 7, 6, 23, 6, 14, 3, 0, 255, @U.Security, Topic + 'User''s security level');
|
|
Form.AddFlag ('1', ' Flags #1' , 7, 7, 23, 7, 14, @U.AF1, Topic + 'User''s access flags: Set 1');
|
|
Form.AddFlag ('2', ' Flags #2' , 7, 8, 23, 8, 14, @U.AF2, Topic + 'User''s access flags: Set 2');
|
|
Form.AddWord ('T', ' Time Left' , 7, 9, 23, 9, 14, 4, 0, 1440, @U.TimeLeft, Topic + 'Total number of minutes left for today');
|
|
Form.AddWord ('I', ' Time Bank' , 7, 10, 23, 10, 14, 5, 0, 65000, @U.TimeBank, Topic + 'Total minutes in time bank');
|
|
Form.AddDate ('X', ' Expires' , 7, 11, 23, 11, 14, @U.Expires, Topic + 'User''s account expiration date (00/00/00: Disabled)');
|
|
Form.AddByte ('O', ' To' , 7, 12, 23, 12, 14, 3, 0, 255, @U.ExpiresTo, Topic + 'Security profile to give user after expiration');
|
|
Form.AddStr ('T', ' Theme' , 7, 13, 23, 13, 14, 20, 20, @U.Theme, Topic + 'Filename of user''s theme');
|
|
Form.AddStr ('A', ' Start Menu', 7, 14, 23, 14, 14, 20, 20, @U.StartMenu, Topic + 'User is sent to this menu after logging in');
|
|
Form.AddStr ('V', ' Archive' , 7, 15, 23, 15, 14, 4, 4, @U.Archive, Topic + 'User''s archive type extension');
|
|
Form.AddChar ('P', ' Protocol' , 7, 16, 23, 16, 14, 32, 96, @U.Protocol, Topic + 'Default protocol hotkey');
|
|
Form.AddByte ('C', ' Screensize', 7, 17, 23, 17, 14, 2, 0, 50, @U.ScreenSize, Topic + 'User''s terminal size in lines');
|
|
Form.AddBol ('K', ' Hot Keys' , 7, 18, 23, 18, 14, 3, @U.HotKeys, Topic + 'User''s hotkey input status');
|
|
Form.AddBol ('U', ' Auto-Sig' , 7, 19, 23, 19, 14, 3, @U.SigUse, Topic + 'Use auto signature?');
|
|
Form.AddBol ('Q', ' QWK Files' , 7, 20, 23, 20, 14, 3, @U.QwkFiles, Topic + 'New files in QWK?');
|
|
End;
|
|
3 : Begin
|
|
Form.Clear;
|
|
|
|
Form.AddTog ('D', ' Date Format' , 7, 6, 23, 6, 14, 8, 1, 3, 'MM/DD/YY DD/MM/YY YY/MM/DD', @U.DateType, Topic + 'User''s date format');
|
|
Form.AddTog ('E', ' FS Editor' , 7, 7, 23, 7, 14, 4, 0, 1, 'Line Full', @U.EditType, Topic + 'User''s full screen editor setting');
|
|
Form.AddBol ('Q', ' Quote Window', 7, 8, 23, 8, 14, 3, @U.UseLBQuote, Topic + 'User''s FS editor quote window status');
|
|
Form.AddTog ('F', ' File Listing', 7, 9, 23, 9, 14, 8, 0, 1, 'Standard Full', @U.FileList, Topic + 'User''s file listing type');
|
|
Form.AddTog ('M', ' Msg Reader' , 7, 10, 23, 10, 14, 8, 0, 1, 'Standard Full', @U.MReadType, Topic + 'Full screen message reader status');
|
|
Form.AddBol ('X', ' Msg Index' , 7, 11, 23, 11, 14, 3, @U.UseLBIndex, Topic + 'Start reading at message index');
|
|
Form.AddBol ('I', ' Mail Index' , 7, 12, 23, 12, 14, 3, @U.UseLBMIdx, Topic + 'Start reading email at message index');
|
|
Form.AddTog ('N', ' Node Chat' , 7, 13, 23, 13, 14, 8, 0, 1, 'Standard Full', @U.UseFullChat, Topic + 'User''s node chat type');
|
|
Form.AddTog ('C', ' Code Page' , 7, 14, 23, 14, 14, 5, 0, 1, 'CP437 UTF-8', @U.CodePage, Topic + 'User''s character translation');
|
|
Form.AddBol ('Q', ' QWKE Packet' , 7, 15, 23, 15, 14, 3, @U.QwkExtended, Topic + 'Use QWKE (instead of QWK)');
|
|
End;
|
|
4 : Begin
|
|
Form.Clear;
|
|
|
|
Form.AddDate ('F', ' First Call' , 7, 6, 23, 6, 14, @FirstCall, Topic + 'Date of first call (MM/DD/YY)');
|
|
Form.AddDate ('A', ' Last Call' , 7, 7, 23, 7, 14, @LastCall, Topic + 'Date of last call (MM/DD/YY)');
|
|
Form.AddLong ('C', ' Calls' , 7, 8, 23, 8, 14, 7, 0, 9999999, @U.Calls, Topic + 'Total number of calls to the BBS');
|
|
Form.AddWord ('L', ' Calls Today' , 7, 9, 23, 9, 14, 5, 0, 65000, @U.CallsToday, Topic + 'Total number of calls today');
|
|
Form.AddWord ('D', ' Downloads' , 7, 10, 23, 10, 14, 7, 0, 65000, @U.DLs, Topic + 'Total number of downloads');
|
|
Form.AddWord ('T', ' DLs Today' , 7, 11, 23, 11, 14, 5, 0, 65000, @U.DLsToday, Topic + 'Total downloads today');
|
|
Form.AddLong ('W', ' DL KB' , 7, 12, 23, 12, 14, 10, 0, 2000000000, @U.DLk, Topic + 'Total downloads in kilobytes');
|
|
Form.AddLong ('K', ' DL KB Today' , 7, 13, 23, 13, 14, 10, 0, 2000000000, @U.DLkToday, Topic + 'Downloads in kilobytes today');
|
|
Form.AddLong ('U', ' Uploads' , 7, 14, 23, 14, 14, 10, 0, 2000000000, @U.ULs, Topic + 'Total number of uploads');
|
|
Form.AddLong ('B', ' Upload KB' , 7, 15, 23, 15, 14, 10, 0, 2000000000, @U.ULk, Topic + 'Total uploads in kilobytes');
|
|
Form.AddLong ('M', ' Msg Posts' , 7, 16, 23, 16, 14, 10, 0, 2000000000, @U.Posts, Topic + 'Total number of message posts');
|
|
Form.AddLong ('E', ' E-Mails' , 7, 17, 23, 17, 14, 5, 0, 65000, @U.Emails, Topic + 'Number of e-mails sent');
|
|
Form.AddLong ('I', ' File Ratings' , 7, 18, 23, 18, 14, 10, 0, 2000000000, @U.FileRatings, Topic + 'Total file ratings');
|
|
Form.AddLong ('N', ' File Comments' , 7, 19, 23, 19, 14, 10, 0, 2000000000, @U.FileComment, Topic + 'Total file comments');
|
|
Form.AddDate ('P', ' Last PW Date' , 7, 20, 23, 20, 14, @U.LastPWChange, Topic + 'Date of last password change');
|
|
End;
|
|
5 : Begin
|
|
Form.Clear;
|
|
|
|
For Temp := 1 to 9 Do
|
|
Form.AddStr (strI2S(Temp)[1], ' ' + bbsCfg.OptionalField[Temp].Desc, 7, 5 + Temp, 23, 5 + Temp, 14, 33, 60, @U.OptionData[Temp], Topic + 'User optional field #' + strI2S(Temp));
|
|
|
|
Form.AddStr ('0', ' ' + bbsCfg.OptionalField[10].Desc, 7, 15, 23, 15, 14, 33, 60, @U.OptionData[10], Topic + 'User optional field #10');
|
|
End;
|
|
6 : Begin
|
|
Form.Clear;
|
|
|
|
Form.AddBits ('D', ' Deleted' , 7, 6, 23, 6, 14, UserDeleted, @U.Flags, Topic + 'Is this account marked as deleted?');
|
|
Form.AddBits ('L', ' Locked Out' , 7, 7, 23, 7, 14, UserLockedOut, @U.Flags, Topic + 'Is this account locked out of the system?');
|
|
Form.AddBits ('N', ' No Ratios' , 7, 8, 23, 8, 14, UserNoRatio, @U.Flags, Topic + 'Ignore file ratios?');
|
|
Form.AddBits ('C', ' No CallStats', 7, 9, 23, 9, 14, UserNoLastCall, @U.Flags, Topic + 'Exclude from caller stats?');
|
|
Form.AddBits ('P', ' No PW Change', 7, 10, 23, 10, 14, UserNoPWChange, @U.Flags, Topic + 'Exclude from forced password change');
|
|
Form.AddBits ('H', ' No History' , 7, 11, 23, 11, 14, UserNoHistory, @U.Flags, Topic + 'Exclude from BBS history stats');
|
|
Form.AddBits ('T', ' No Timeout' , 7, 12, 23, 12, 14, UserNoTimeout, @U.Flags, Topic + 'Exclude from inactivity timeout');
|
|
Form.AddBits ('Q', ' Qwk Account' , 7, 13, 23, 13, 14, UserQWKNetwork, @U.Flags, Topic + 'User is a QWK network account');
|
|
Form.AddNone ('N', ' Qwk Network' , 7, 14, 23, 14, 14, Topic + 'Member of which QWK network');
|
|
End;
|
|
End;
|
|
|
|
NeedForm := False;
|
|
|
|
If Form.WasFirstExit Then Form.ItemPos := Form.Items;
|
|
If Form.WasLastExit Then Form.ItemPos := 1;
|
|
|
|
If PagePos = 6 Then Begin
|
|
QwkNet.Description := 'None';
|
|
|
|
If (U.QwkNetwork <> 0) And (Not GetQwkNetByIndex(U.QwkNetwork, QwkNet)) Then
|
|
QwkNet.Description := 'None';
|
|
|
|
WriteXY (23, 14, 113, strPadR(QwkNet.Description, 30, ' '));
|
|
End;
|
|
|
|
Case Form.Execute of
|
|
'N' : U.QwkNetwork := Configuration_QwkNetworks(False);
|
|
#21 : Begin
|
|
Temp := Configuration_SecurityEditor(False);
|
|
|
|
If Temp <> -1 Then Begin
|
|
NeedForm := True;
|
|
Changed := True;
|
|
|
|
Upgrade_User_Level(Session.User.IsThisUser(U.Handle), U, Temp);
|
|
End;
|
|
End;
|
|
#27 : Begin
|
|
Changed := Changed or Form.Changed;
|
|
Break;
|
|
End;
|
|
#71 : If PagePos <> 1 Then Begin
|
|
PagePos := 1;
|
|
UpdatePage(True);
|
|
End;
|
|
#72,
|
|
#73 : If PagePos > 1 Then Begin
|
|
Dec(PagePos);
|
|
UpdatePage(True);
|
|
End;
|
|
#79 : If PagePos <> 6 Then Begin
|
|
PagePos := 6;
|
|
UpdatePage(True);
|
|
End;
|
|
#80,
|
|
#81 : If PagePos < 6 Then Begin
|
|
Inc (PagePos);
|
|
UpdatePage(True);
|
|
End Else
|
|
Form.ItemPos := Form.Items;
|
|
End;
|
|
|
|
Changed := Changed or Form.Changed;
|
|
Until False;
|
|
|
|
U.Birthday := DateStr2Julian(Birthdate);
|
|
U.FirstOn := DateStr2Dos(FirstCall);
|
|
U.LastOn := DateStr2Dos(LastCall);
|
|
|
|
Box.Close;
|
|
Box.Free;
|
|
Form.Free;
|
|
|
|
If Changed Then
|
|
If Not ShowMsgBox(1, 'Save changes?') Then
|
|
U := SavedUser;
|
|
End;
|
|
|
|
Procedure Configuration_UserEditor;
|
|
Var
|
|
Box : TAnsiMenuBox;
|
|
List : TAnsiMenuList;
|
|
UserFile : File of RecUser;
|
|
User : RecUser;
|
|
|
|
Procedure MakeList;
|
|
Begin
|
|
List.Clear;
|
|
|
|
ioReset (UserFile, SizeOf(RecUser), fmRWDN);
|
|
|
|
While Not EOF(UserFile) Do Begin
|
|
Read (UserFile, User);
|
|
|
|
If User.Flags AND UserDeleted <> 0 Then
|
|
List.Add (strPadR(User.Handle, 37, ' ') + 'DELETED', 0)
|
|
Else
|
|
List.Add (strPadR(User.Handle, 32, ' ') +
|
|
strPadL(strI2S(User.Security), 5, ' ') +
|
|
strPadL(strI2S(User.PermIdx), 10, ' '), 0);
|
|
End;
|
|
End;
|
|
|
|
Begin
|
|
Assign (UserFile, bbsCfg.DataPath + 'users.dat');
|
|
|
|
If Not ioReset(UserFile, SizeOf(RecUser), fmRWDN) Then
|
|
If (FileExist(bbsCfg.DataPath + 'users.dat')) OR NOT
|
|
(ioReWrite(UserFile, SizeOf(RecUser), fmRWDN)) Then
|
|
Exit;
|
|
|
|
Box := TAnsiMenuBox.Create;
|
|
List := TAnsiMenuList.Create;
|
|
|
|
List.NoWindow := True;
|
|
List.LoChars := #13#27;
|
|
|
|
Box.Header := ' User Editor ';
|
|
|
|
Box.Open (15, 5, 65, 21);
|
|
|
|
WriteXY (17, 7, 112, 'User Name Level UserID');
|
|
WriteXY (16, 8, 112, strRep(#196, 49));
|
|
|
|
Repeat
|
|
MakeList;
|
|
|
|
List.Open (15, 8, 65, 21);
|
|
List.Close;
|
|
|
|
Case List.ExitCode of
|
|
#13 : If List.ListMax <> 0 Then Begin
|
|
Seek (UserFile, List.Picked - 1);
|
|
Read (UserFile, User);
|
|
|
|
Configuration_EditUser(User);
|
|
|
|
Seek (UserFile, List.Picked - 1);
|
|
Write (UserFile, User);
|
|
End;
|
|
#27 : Break;
|
|
End;
|
|
Until False;
|
|
|
|
Close (UserFile);
|
|
|
|
Box.Close;
|
|
List.Free;
|
|
Box.Free;
|
|
End;
|
|
|
|
Procedure Configuration_LocalUserEdit;
|
|
Var
|
|
SavedLocal : Boolean;
|
|
Begin
|
|
Session.io.BufFlush;
|
|
|
|
SavedLocal := Session.LocalMode;
|
|
|
|
Session.InUserEdit := True;
|
|
Session.LocalMode := True;
|
|
|
|
Configuration_EditUser (Session.User.ThisUser);
|
|
|
|
Console.WriteXY (1, 24, 7, strRep(' ', 80));
|
|
|
|
Session.InUserEdit := False;
|
|
Session.LocalMode := SavedLocal;
|
|
|
|
Session.SetTimeLeft(Session.User.ThisUser.TimeLeft);
|
|
|
|
{$IFNDEF UNIX}
|
|
UpdateStatusLine(Session.StatusPtr, '');
|
|
{$ENDIF}
|
|
End;
|
|
|
|
End.
|