home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ANews 1
/
AnewsCD01.iso
/
Internet
/
Newsgroup
/
THOR_2.6
/
THOR26_AREXX.LHA
/
Rexx
/
BBSRead
/
Log2Info.br
< prev
next >
Wrap
Text File
|
1999-01-17
|
2KB
|
60 lines
/*
$VER: Log2Info 1.0 (13.2.97)
(c) Neil Bothwick <neil@wirenet.co.uk> 1997
*/
/* Adds the contents of a temporary logfile */
/* to the Information conference */
/* Set ConnectTHOR of Get/SendTCP to log to the file */
/* specified in InfoLog. If you also want the information */
/* logged to a permanent file, specify the name in MainLog */
MainLog = 'UUSpool:Connect.log' /* Name of main logfile to copy to, leave blank if you don't want a copy */
InfoLog = 'UUSpool:Info.log' /* Temporary logfile to be added to Information conference */
System = 'Wirenet' /* The system containing your information conference */
Conf = 'Information' /* The name of your information conference */
ShowStartup = 0 /* Set to 1 to show Startup/Exit messages */
/* Don't change anything below here */
options results
address command
if ~exists(InfoLog) then exit
/* Load bbsread.library if necessary */
if ~show('p', 'BBSREAD') then do
address command
"run >nil: `GetEnv THOR/THORPath`bin/LoadBBSRead"
"WaitForPort BBSREAD"
end
/* Copy temporary log contents to main logfile */
if symbol('MainLog') = 'VAR' & MainLog > '' then 'type' InfoLog '>>'MainLog
if ~open(log,InfoLog,'R') then exit
drop MsgData.
MsgData.TEXT.COUNT = 0
body = ''
/* Read log file */
do while ~eof(log)
line = readln(log)
if ShowStartup = 0 & (word(line,3) = 'STARTUP' | word(line,3) = 'EXIT') then iterate
MsgData.TEXT.COUNT = MsgData.TEXT.COUNT + 1
interpret 'MsgData.TEXT.'MsgData.TEXT.COUNT '= line'
end
call close(log)
/* Write message to conference */
address BBSREAD
MsgData.FROMNAME = 'Log2Info'
MsgData.SUBJECT = 'Log information'
'WRITEBRMESSAGE "'System'" "'Conf'" stem MSGDATA'
if RC > 0 then say BBSREAD.LASTERROR
address command
'delete >NIL:' InfoLog