home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fresh Fish 8
/
FreshFishVol8-CD1.bin
/
new
/
comm
/
mail
/
thor
/
thor.lha
/
rexx
/
getconfconfig.thor
< prev
next >
Wrap
Text File
|
1994-08-06
|
988b
|
37 lines
/*
** getconfconfig.thor - demonstrates the GETCONFCONFIG function.
** (new in THOR 1.22)
**
** Will return 0 on success, and 10 if the given BBS or Conference was
** unknown.
**
** To calculate the total number of messages in conference, use:
** "LastMsg - FirstMsg + 1".
**
** Template:
**
** BBSNAME=BBS/A,CONFNAME=CONF/A,STEM/A
*/
options results
address "THOR.01"
GETCONFCONFIG bbs '"Ultima Thule BBS"' conf '"THOR/Support"' stem CONFIG
if(rc ~= 0) then exit
say " First Message....:" CONFIG.FIRSTMSG
say " Last Message.....:" CONFIG.LASTMSG
say " Total number.....:" CONFIG.LASTMSG - CONFIG.FIRSTMSG + 1
say " Unread...........:" CONFIG.UNREAD
say " Signature........:" CONFIG.SIGNATURE
say " Alias............:" CONFIG.ALIAS
say " Messages to Keep.:" CONFIG.KEEPMSG
say " Days to Keep.....:" CONFIG.KEEPTIME
say " KeepMsg flags....:" CONFIG.KEEPMSGFLAG
say " KeepTime flags...:" CONFIG.KEEPTIMEFLAG
say " Conf.Number......:" CONFIG.CONFNUMBER
exit