; BBS locker V1.0 ... coded by ROY/Peanuts

1. ; BBS locker V1.0 ... coded by ROY/Peanuts

2. ; - check fr user mit level kleiner/gleich dem im cfg angegebenen bzw.

3. ; nach datei (Siehe CFG) .. also alle user, die NICHT in USERS.LST stehn

4. ; - wochenende wird nicht beruecksichtigt, aber wechsel von

5. ; sonntag zu montag und wechsel von freitag zu samstag

6. ; - wenn es innerhalb der woche zw. 1:45 und 5:00 uhr ist bekommt der

7. ; user ne meldung und danach nen HANGUP

8. ; - wenn es vor 1:45 ist, wird ausgerechnet, ob die onlinezeit des users

9. ; in die "happy Long-Distance-Trading-Hours" reinreicht, wenn ja, wird

10. ; die onlinezeit eingeschraenkt

11. ; (die Zeiten beziehen sich auf die aktuell im cfg eingestellten)

12. ;

13. ; diese PPE entstand auf Anfrage von Menion Leah/Dynasty ... dankt ihm hehe

14. ;

15. ; p.s. NEIN, meine shift-taste hat keine macke..

16. ;

17. INTEGER MINDIF

18. INTEGER ABZUG

19. TIME HHSTART

20. TIME MIDNIGHT

21. TIME BEFOREM

22. TIME HHENDE

23. BOOLEAN CHECKEN

24. STRING USER

25. INTEGER COUNT

26. INTEGER ABZUG2

27. STRING PARAMSTR

28. STRING LESEN

29. ;checken ob PPE activ ist

30. IF (READLINE((PPEPATH()+"USERCHK.CFG"),1) <> "Y") THEN

31. ;noe is se nich.. also gar nich erst weitermachen

32. END

33. ENDIF

34. GETTOKEN PARAMSTR

35. IF (PARAMSTR="/192") GOTO DO192

36. IF (EXIST(PPEPATH()+"TIME."+STRING(PCBNODE()))) THEN

37. DELETE PPEPATH()+"TIME."+STRING(PCBNODE())

38. ENDIF

39. HHSTART = READLINE((PPEPATH()+"USERCHK.CFG"),4)

40. HHENDE = READLINE((PPEPATH()+"USERCHK.CFG"),5)

41. MIDNIGHT = "00:00:00"

42. BEFOREM = "23:59:59"

43. IF (DOW(DATE())=6) THEN

44. ;es ist samstag.. also eh wurscht

45. END

46. ENDIF

47. CHECKEN = TRUE

48. GETUSER

49. IF (READLINE((PPEPATH()+"USERCHK.CFG"),3) <> "N") THEN

50. ;checken ob es den aktuellen user betrifft NACH LEVEL