home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #1
/
monster.zip
/
monster
/
PCBOARD
/
IAB110A.ZIP
/
E.PPS
< prev
next >
Wrap
Text File
|
1994-01-20
|
3KB
|
102 lines
;-------------------------------------------------------------------------
;
; E.PPE
; PCBOARD 15.x
; Custom Front End PPE for Internet Address Book
;
; SQLCraft Software
; 3 Grandin Drive Annandale, NJ 08801-3346
; (908)735-5440 main (908)735-4843 fax
;
; Written By: Michael Walter
; Written in PCBoard Programming Language
; Last modified: 01-20-1994
;
; Data-Base Bulletin Board System
; Node 1 - 908-735-2180 - [14.4 v.32bis]
; Node 2 - 908-735-2185 - [14.4 v.32bis]
; Node 3 - 908-735-2707 - [14.4 DS]
;
;-------------------------------------------------------------------------
; E.PPS is a customizable "front-end" PPL program that allows the SYSOP
; to install IAB4E.PPE into their general purpose CMD.LST without
; having to have their users wait for the full IAB4E.PPE to load
; up when they want to enter a non-Internet Email conference
; message.
;
; All E.PPS does is determine if the user is in the Internet Email
; conference. If so, load IAB4E.PPE. If not, pass the "E" command
; and anything else entered on the command line by the user, back
; to PCBoard and exit.
;
; SYSOP NOTES: 1) Go to the Variable Initialization section and change the
; nEmailConfNum and sIAB4EPath values to match your setup.
; 2) Recompile
; 3) Go into PCBSetup and change your 'E' command PPE from
; from IAB4E.PPE to E.PPE (using the appropriate path).
;-------------------------------------------------------------------------
;-------------------------
; Variable Definitions
;-------------------------
INTEGER nEMailConfNum 'Internet Email Conference Number
STRING sIAB4EPath 'Full path\filename of your IAB4E.PPE
STRING sKeysToStuff 'Holds string to KeyBoard Stuff
STRING sParam 'Contains the CmdLine Token
STRING sParamLine 'Contains the CmdLine Sting
STRING CR 'Carraige Return
INTEGER i,j 'Loop counter variables
;-------------------------
; Variable Initializations
;-------------------------
nEmailConfNum = 181
sIAB4EPath = "r:\pcb\ppl\iab\iab4E.ppe"
sKeysToStuff = "E"
CR = CHR(13)
;-------------------------
; MAIN
;-------------------------
IF ( CURCONF() = nEmailConfNum ) GOTO gRunIAB4E
sParamLine = TOKENSTR()
TOKENIZE sParamLine
IF ( TOKCOUNT() > 0 ) GOSUB subRebuildParamLine
KBDSTUFF sKeysToStuff + CR
END
;-------------------
:subRebuildParamLine
;-------------------
j = TOKCOUNT()
FOR i = 1 TO j
sKeysToStuff = sKeysToStuff +" "+GETTOKEN()
NEXT
RETURN
;-------------------
:gRunIAB4E
;-------------------
CALL sIAB4EPath
END