1 / 58

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;. ; finger.ppe for EWHO. ; written by drew [pwa]. ;. ; this is a quickie "finger" type of ppe used as an example with EWHO. ; this ppe expects the user's name as a parameter. for example, if you.

kaelem
Download Presentation

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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. ; finger.ppe for EWHO

  3. ; written by drew [pwa]

  4. ;

  5. ; this is a quickie "finger" type of ppe used as an example with EWHO.

  6. ; this ppe expects the user's name as a parameter. for example, if you

  7. ; were to install this in your cmd.lst, someone would run this like:

  8. ;

  9. ; finger john doe

  10. ;

  11. ; this ppe can be compiled with pplc 2.0 (which is preferred since it

  12. ; loads a lot quicker than 3.x ppe's).

  13. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  14. string uname

  15. int numtok, recnum

  16. ; get the name of user to finger

  17. while (tokcount()) do

  18. uname = uname + " " + gettoken()

  19. endwhile

  20. ; zap any leading and trailing spaces (in case name wasn't passed in

  21. ; properly for whatever reason

  22. uname = ltrim(uname, " ")

  23. uname = rtrim(uname, " ")

  24. ; get the record #. if user exists, get their stats

  25. recnum = u_recnum(uname)

  26. if (recnum == -1) then

  27. println "@X0CNo such user : " + uname

  28. wait

  29. end

  30. endif

  31. getaltuser u_recnum(uname)

  32. ; print the user's stats

  33. defcolor

  34. println "@CLS@@X0F ____/\_________________________ __________________________________@X07"

  35. println "@X0C / / _/ _____/_ ___/ _ \ / ____\_____/ _ \_____/ _____/@X07"

  36. println "@X04 / / \___ \_/ __|_| |/ _/ \___ \_ / \ |/ \ \___ \_@X07"

  37. println "@X07 / / / / / | \ / \ \ _ | \ \@X07"

  38. println "@X08 \________/\_______/\_______|___|\ \ \_______/\_____/___| /____/_______/@X07"

  39. println "@X08 |__/ |__/@X07"

  40. println "@X0Cþ@X08ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ[ finger.ppe ]Ä@X0Cþ"

  41. println "@X08³ @X0FUs@X0Cer@X04 Handle@X08.........@X04: @X07" + u_name() + "@POS:79@@X08³"

  42. println "@X08³ @X0FUs@X0Cer@X04 Note@X08...........@X04: @X07" + u_city + "@POS:79@@X08³"

  43. println "@X08³ @X0FSe@X0Ccu@X04rity Level@X08......@X04: @X07" + string(u_sec) + "@POS:79@@X08³"

  44. println "@X08³ @X0FTi@X0Cme@X04s On System@X08.....@X04: @X07" + string(u_logons()) + "@POS:79@@X08³"

  45. println "@X08³ @X0FCa@X0Cll@X04er Number@X08.......@X04: @X07@NUMCALLS@@POS:79@@X08³"

  46. println "@X08³ @X08³"

  47. println "@X08³ @X0FFi@X0Cle@X04s DL'ed@X08.........@X04: @X07" + string(u_fdl()) + \

  48. "@POS:40@@X0FBy@X0Cte@X04s DL'ed@X08.........@X04: @X07" + \

  49. string(tounsigned(u_bdl())) + "@POS:79@@X08³"

More Related