home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / IAB110A.ZIP / E.PPS < prev    next >
Text File  |  1994-01-20  |  3KB  |  102 lines
  1. ;-------------------------------------------------------------------------
  2. ;
  3. ;                                 E.PPE
  4. ;                              PCBOARD 15.x
  5. ;               Custom Front End PPE for Internet Address Book
  6. ;
  7. ;                            SQLCraft Software
  8. ;                 3 Grandin Drive Annandale, NJ 08801-3346
  9. ;                  (908)735-5440 main   (908)735-4843 fax
  10. ;
  11. ;                        Written By: Michael Walter
  12. ;                 Written in PCBoard Programming Language
  13. ;                         Last modified: 01-20-1994
  14. ;
  15. ;                    Data-Base Bulletin Board System
  16. ;               Node 1 - 908-735-2180 - [14.4 v.32bis]
  17. ;               Node 2 - 908-735-2185 - [14.4 v.32bis]
  18. ;               Node 3 - 908-735-2707 - [14.4 DS]
  19. ;
  20. ;-------------------------------------------------------------------------
  21. ; E.PPS is a customizable "front-end" PPL program that allows the SYSOP
  22. ;       to install IAB4E.PPE into their general purpose CMD.LST without
  23. ;       having to have their users wait for the full IAB4E.PPE to load 
  24. ;       up when they want to enter a non-Internet Email conference 
  25. ;       message.
  26. ;
  27. ;       All E.PPS does is determine if the user is in the Internet Email
  28. ;       conference.  If so, load IAB4E.PPE.  If not, pass the "E" command
  29. ;       and anything else entered on the command line by the user, back
  30. ;       to PCBoard and exit.
  31. ;
  32. ; SYSOP NOTES: 1) Go to the Variable Initialization section and change the
  33. ;                 nEmailConfNum and sIAB4EPath values to match your setup.
  34. ;              2) Recompile
  35. ;              3) Go into PCBSetup and change your 'E' command PPE from
  36. ;                 from IAB4E.PPE to E.PPE (using the appropriate path).
  37. ;-------------------------------------------------------------------------
  38.  
  39. ;-------------------------
  40. ; Variable Definitions
  41. ;-------------------------
  42.  
  43. INTEGER nEMailConfNum   'Internet Email Conference Number
  44.  STRING sIAB4EPath      'Full path\filename of your IAB4E.PPE
  45.  
  46.  STRING sKeysToStuff    'Holds string to KeyBoard Stuff
  47.  STRING sParam          'Contains the CmdLine Token
  48.  STRING sParamLine      'Contains the CmdLine Sting
  49.  STRING CR              'Carraige Return
  50.  
  51. INTEGER i,j             'Loop counter variables
  52.  
  53.  
  54. ;-------------------------
  55. ; Variable Initializations
  56. ;-------------------------
  57.  
  58. nEmailConfNum  = 181
  59. sIAB4EPath     = "r:\pcb\ppl\iab\iab4E.ppe"
  60.  
  61. sKeysToStuff   = "E"
  62. CR             = CHR(13)
  63.  
  64.  
  65. ;-------------------------
  66. ; MAIN
  67. ;-------------------------
  68.  
  69.  
  70.   IF ( CURCONF() = nEmailConfNum ) GOTO gRunIAB4E
  71.  
  72.   sParamLine = TOKENSTR()
  73.   TOKENIZE sParamLine
  74.  
  75.   IF ( TOKCOUNT() > 0 ) GOSUB subRebuildParamLine
  76.   KBDSTUFF sKeysToStuff + CR
  77.  
  78. END
  79.  
  80.  
  81. ;-------------------
  82. :subRebuildParamLine
  83. ;-------------------
  84.  
  85.   j = TOKCOUNT()
  86.  
  87.   FOR i = 1 TO j
  88.       sKeysToStuff = sKeysToStuff +" "+GETTOKEN()
  89.   NEXT
  90.  
  91. RETURN
  92.  
  93.  
  94. ;-------------------
  95. :gRunIAB4E
  96. ;-------------------
  97.  
  98.   CALL sIAB4EPath
  99.  
  100. END
  101.  
  102.