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

Added additional User variables

This commit is contained in:
mysticbbs 2012-07-24 21:31:54 -04:00
parent c3f58451a3
commit f18c1efef5
2 changed files with 36 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mystic/mpl_common.pas
View File

@ -327,6 +327,10 @@ Begin
AddVar ({$IFDEF MPLPARSER} 'usercalls', {$ENDIF} iLongInt); AddVar ({$IFDEF MPLPARSER} 'usercalls', {$ENDIF} iLongInt);
AddStr ({$IFDEF MPLPARSER} 'userpassword', {$ENDIF} iString, 15); AddStr ({$IFDEF MPLPARSER} 'userpassword', {$ENDIF} iString, 15);
AddVar ({$IFDEF MPLPARSER} 'userflags', {$ENDIF} iLongInt); AddVar ({$IFDEF MPLPARSER} 'userflags', {$ENDIF} iLongInt);
AddVar ({$IFDEF MPLPARSER} 'userfbase', {$ENDIF} iLongInt);
AddVar ({$IFDEF MPLPARSER} 'userfgroup', {$ENDIF} iLongInt);
AddVar ({$IFDEF MPLPARSER} 'usermbase', {$ENDIF} iLongInt);
AddVar ({$IFDEF MPLPARSER} 'usermgroup', {$ENDIF} iLongInt);
End; End;
2 : Begin 2 : Begin
AddPointer ({$IFDEF MPLPARSER} 'cfgsyspath', {$ENDIF} iString, mysMaxPathSize, {$IFNDEF MPLPARSER} @Config.SystemPath {$ELSE} NIL {$ENDIF}); AddPointer ({$IFDEF MPLPARSER} 'cfgsyspath', {$ENDIF} iString, mysMaxPathSize, {$IFNDEF MPLPARSER} @Config.SystemPath {$ELSE} NIL {$ENDIF});

56
mystic/mpl_execute.pas
View File

@ -155,34 +155,42 @@ End;
Procedure TInterpEngine.GetUserVars (Var U: RecUser); Procedure TInterpEngine.GetUserVars (Var U: RecUser);
Begin Begin
Move (U.PermIdx, VarData[IdxVarUser ]^.Data^, SizeOf(U.PermIdx)); Move (U.PermIdx, VarData[IdxVarUser ]^.Data^, SizeOf(U.PermIdx));
Move (U.RealName, VarData[IdxVarUser + 1 ]^.Data^, SizeOf(U.RealName)); Move (U.RealName, VarData[IdxVarUser + 1 ]^.Data^, SizeOf(U.RealName));
Move (U.Handle, VarData[IdxVarUser + 2 ]^.Data^, SizeOf(U.Handle)); Move (U.Handle, VarData[IdxVarUser + 2 ]^.Data^, SizeOf(U.Handle));
Move (U.Address, VarData[IdxVarUser + 3 ]^.Data^, SizeOf(U.Address)); Move (U.Address, VarData[IdxVarUser + 3 ]^.Data^, SizeOf(U.Address));
Move (U.Security, VarData[IdxVarUser + 4 ]^.Data^, SizeOf(U.Security)); Move (U.Security, VarData[IdxVarUser + 4 ]^.Data^, SizeOf(U.Security));
Move (U.Gender, VarData[IdxVarUser + 5 ]^.Data^, SizeOf(U.Gender)); Move (U.Gender, VarData[IdxVarUser + 5 ]^.Data^, SizeOf(U.Gender));
Move (U.FirstOn, VarData[IdxVarUser + 6 ]^.Data^, SizeOf(U.FirstOn)); Move (U.FirstOn, VarData[IdxVarUser + 6 ]^.Data^, SizeOf(U.FirstOn));
Move (U.LastOn, VarData[IdxVarUser + 7 ]^.Data^, SizeOf(U.LastOn)); Move (U.LastOn, VarData[IdxVarUser + 7 ]^.Data^, SizeOf(U.LastOn));
Move (U.DateType, VarData[IdxVarUser + 8 ]^.Data^, SizeOf(U.DateType)); Move (U.DateType, VarData[IdxVarUser + 8 ]^.Data^, SizeOf(U.DateType));
Move (U.Calls, VarData[IdxVarUser + 9 ]^.Data^, SizeOf(U.Calls)); Move (U.Calls, VarData[IdxVarUser + 9 ]^.Data^, SizeOf(U.Calls));
Move (U.Password, VarData[IdxVarUser + 10]^.Data^, SizeOf(U.Password)); Move (U.Password, VarData[IdxVarUser + 10]^.Data^, SizeOf(U.Password));
Move (U.Flags, VarData[IdxVarUser + 11]^.Data^, SizeOf(U.Flags)); Move (U.Flags, VarData[IdxVarUser + 11]^.Data^, SizeOf(U.Flags));
Move (U.LastFBase, VarData[IdxVarUser + 12]^.Data^, SizeOf(U.LastFBase));
Move (U.LastFGroup, VarData[IdxVarUser + 13]^.Data^, SizeOf(U.LastFGroup));
Move (U.LastMBase, VarData[IdxVarUser + 14]^.Data^, SizeOf(U.LastMBase));
Move (U.LastMGroup, VarData[IdxVarUser + 15]^.Data^, SizeOf(U.LastMGroup));
End; End;
Procedure TInterpEngine.PutUserVars (Var U: RecUser); Procedure TInterpEngine.PutUserVars (Var U: RecUser);
Begin Begin
Move (VarData[IdxVarUser ]^.Data^, U.PermIdx, SizeOf(U.PermIdx)); Move (VarData[IdxVarUser ]^.Data^, U.PermIdx, SizeOf(U.PermIdx));
Move (VarData[IdxVarUser + 1 ]^.Data^, U.RealName, SizeOf(U.RealName)); Move (VarData[IdxVarUser + 1 ]^.Data^, U.RealName, SizeOf(U.RealName));
Move (VarData[IdxVarUser + 2 ]^.Data^, U.Handle, SizeOf(U.Handle)); Move (VarData[IdxVarUser + 2 ]^.Data^, U.Handle, SizeOf(U.Handle));
Move (VarData[IdxVarUser + 3 ]^.Data^, U.Address, SizeOf(U.Address)); Move (VarData[IdxVarUser + 3 ]^.Data^, U.Address, SizeOf(U.Address));
Move (VarData[IdxVarUser + 4 ]^.Data^, U.Security, SizeOf(U.Security)); Move (VarData[IdxVarUser + 4 ]^.Data^, U.Security, SizeOf(U.Security));
Move (VarData[IdxVarUser + 5 ]^.Data^, U.Gender, SizeOf(U.Gender)); Move (VarData[IdxVarUser + 5 ]^.Data^, U.Gender, SizeOf(U.Gender));
Move (VarData[IdxVarUser + 6 ]^.Data^, U.FirstOn, SizeOf(U.FirstOn)); Move (VarData[IdxVarUser + 6 ]^.Data^, U.FirstOn, SizeOf(U.FirstOn));
Move (VarData[IdxVarUser + 7 ]^.Data^, U.LastOn, SizeOf(U.LastOn)); Move (VarData[IdxVarUser + 7 ]^.Data^, U.LastOn, SizeOf(U.LastOn));
Move (VarData[IdxVarUser + 8 ]^.Data^, U.DateType, SizeOf(U.DateType)); Move (VarData[IdxVarUser + 8 ]^.Data^, U.DateType, SizeOf(U.DateType));
Move (VarData[IdxVarUser + 9 ]^.Data^, U.Calls, SizeOf(U.Calls)); Move (VarData[IdxVarUser + 9 ]^.Data^, U.Calls, SizeOf(U.Calls));
Move (VarData[IdxVarUser + 10]^.Data^, U.Password, SizeOf(U.Password)); Move (VarData[IdxVarUser + 10]^.Data^, U.Password, SizeOf(U.Password));
Move (VarData[IdxVarUser + 11]^.Data^, U.Flags, SizeOf(U.Flags)); Move (VarData[IdxVarUser + 11]^.Data^, U.Flags, SizeOf(U.Flags));
Move (VarData[IdxVarUser + 12]^.Data^, U.LastFBase, SizeOf(U.LastFBase));
Move (VarData[IdxVarUser + 13]^.Data^, U.LastFGroup, SizeOf(U.LastFGroup));
Move (VarData[IdxVarUser + 14]^.Data^, U.LastMBase, SizeOf(U.LastMBase));
Move (VarData[IdxVarUser + 15]^.Data^, U.LastMGroup, SizeOf(U.LastMGroup));
End; End;
Function TInterpEngine.GetUserRecord (Num: LongInt) : Boolean; Function TInterpEngine.GetUserRecord (Num: LongInt) : Boolean;