1 / 182

Quick User View PPE: Enhanced User Lookup Tool for PPL

Quick User View PPE v1.0, created by Drew (PWA) and last updated on March 24, 1996, is a refined version of the original freeware developed by Gerry Schechter. This tool simplifies the user lookup process in PPL 2.0 environments. While it lacks extensive inline documentation, it retains key functionalities to enhance usability. The PPE allows for efficient user record retrieval, addressing issues with certain shareware distribution practices. This version includes source code and is designed for ease of integration.

jimbo
Télécharger la présentation

Quick User View PPE: Enhanced User Lookup Tool for PPL

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  2. ;

  3. ; Quick User View PPE v1.0

  4. ; Written by Drew [PWA]

  5. ; Last Updated 03-24-96

  6. ;

  7. ; Original freeware version written by Gerry Schechter.

  8. ;

  9. ; The original freeware version was compiled with PPLC 3.0 and did not come

  10. ; with source. This is my version of that fairly useful PPE, which uses only

  11. ; PPL 2.0 (since that's all that is necessary) and includes source.

  12. ;

  13. ; Note: there isn't too much inline commenting of how the code works, except

  14. ; for the really straight-forward parts.

  15. ;

  16. ; BTW- screw those idiotic shareware BBS's and CD-ROM makers who take PWA

  17. ; releases, edit the FILE_ID.DIZ, and delete PWA.NFO, bbs ads, etc.

  18. ;

  19. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  20. string tf(2)

  21. string buf

  22. word tmpword

  23. int recnum

  24. int numrecs

  25. byte i

  26. ; find the user name on the screen, and then get the user record #

  27. ;

  28. getuser

  29. recnum = -1

  30. for i = 1 to u_pagelen

  31. buf = scrtext(1, i, 31, 0)

  32. if (left(upper(buf), 6) == "FROM: ") then

  33. buf = mid(buf, 7, 25)

  34. if (buf == "SYSOP") then

  35. recnum = 1

  36. else

  37. recnum = u_recnum(buf)

  38. endif

  39. break

  40. endif

  41. next i

  42. savescrn

  43. cls

  44. ; quit/end ppe if the user doesn't exist

  45. ;

  46. if (recnum == -1) then

  47. ansipos 32, 10

  48. print "@X0CUser not found.@X07"

  49. delay 20

  50. restscrn

More Related