eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

IsUser MPL function, newuserapp bugfix

This commit is contained in:
mysticbbs 2012-06-30 16:25:29 -04:00
parent 03a06fa877
commit 1d45f04349
4 changed files with 29 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
mystic/HISTORY.txt
View File

@ -4205,3 +4205,8 @@
If the newuserapp.mpx exists in the scripts directory, it will be
executed instead of the normal application process.
+ New MPL function IsUser takes a string value which can contain either
a user realname, handle, or user perm index number. If the user exists,
it will return a TRUE result or FALSE if the user does not exist.

33
mystic/bbs_user.pas
View File

@ -90,21 +90,24 @@ Begin
FillChar (ThisUser, SizeOf(ThisUser), #0);
FillChar (Security, SizeOf(Security), #0);
UserNum := -1;
ThisUser.ScreenSize := Config.DefScreenSize;
ThisUser.Theme := Config.DefThemeFile;
ThisUser.DateType := 1;
ThisUser.HotKeys := True;
ThisUser.RealName := 'Unknown';
ThisUser.Handle := ThisUser.RealName;
ThisUser.EditType := 1;
ThisUser.Birthday := CurDateJulian;
ThisUser.Gender := 'U';
ThisUser.FirstOn := CurDateDos;
ThisUser.TimeLeft := Config.LoginTime;
ThisUser.Archive := Config.qwkArchive;
ThisUser.LastFGroup := Config.StartFGroup;
ThisUser.LastMGroup := Config.StartMGroup;
UserNum := -1;
ThisUser.ScreenSize := Config.DefScreenSize;
ThisUser.Theme := Config.DefThemeFile;
ThisUser.StartMenu := Config.DefStartMenu;
ThisUser.DateType := 1;
ThisUser.HotKeys := True;
ThisUser.RealName := 'Unknown';
ThisUser.Handle := ThisUser.RealName;
ThisUser.EditType := 1;
ThisUser.Birthday := CurDateJulian;
ThisUser.Gender := 'U';
ThisUser.FirstOn := CurDateDos;
ThisUser.TimeLeft := Config.LoginTime;
ThisUser.Archive := Config.qwkArchive;
ThisUser.LastFGroup := Config.StartFGroup;
ThisUser.LastMGroup := Config.StartMGroup;
ThisUser.UseLBQuote := True;
ThisUser.UseFulLChat := True;
IgnoreGroup := False;
InChat := False;

3
mystic/mpl_common.pas
View File

@ -286,8 +286,9 @@ Begin
AddProc ({$IFDEF MPLPARSER} 'strmci', {$ENDIF} 's', iString); // 535
AddProc ({$IFDEF MPLPARSER} 'getcharxy', {$ENDIF} 'bb', iChar); // 536
AddProc ({$IFDEF MPLPARSER} 'getattrxy', {$ENDIF} 'bb', iByte); // 537
AddProc ({$IFDEF MPLPARSER} 'putthisuser' {$ENDIF} '', iNone); // 538
AddProc ({$IFDEF MPLPARSER} 'putthisuser', {$ENDIF} '', iNone); // 538
AddProc ({$IFDEF MPLPARSER} 'putuser', {$ENDIF} 'l', iNone); // 539
AddProc ({$IFDEF MPLPARSER} 'isuser', {$ENDIF} 's', iBool); // 540
{ END OF PROCEDURE DEFINITIONS }

4
mystic/mpl_execute.pas
View File

@ -1883,6 +1883,10 @@ Begin
End;
538 : PutUserVars(Session.User.ThisUser);
539 : PutUserRecord(Param[1].L);
540 : Begin
TempBool := Session.User.FindUser(Param[1].S, False);
Store (TempBool, 1);
End;
End;
End;