30 lines
755 B
Plaintext
30 lines
755 B
Plaintext
Function Send_Info_To(Text)
|
|
/*
|
|
Proxy version of SEND_INFO subroutine that redirects the message to a file.
|
|
|
|
Parameters :
|
|
Text [in] -- The text being passed into the SEND_INFO routine.
|
|
|
|
*/
|
|
|
|
Declare function Send_Info_Stock
|
|
|
|
Common /SEND_INFO_TO/ sitFile@
|
|
|
|
If Unassigned(sitFile@) then sitFile@ = ''
|
|
If Unassigned(Text) then Text = ''
|
|
|
|
// Send this to the stock SEND_INFO function
|
|
Convert @RM:@FM:@VM:@SVM:@TM:@STM to '-' in Text
|
|
|
|
// Call the SEND_INFO alias so that the stock SEND_INFO routine can be called.
|
|
Ans = Send_Info_Stock(Text)
|
|
|
|
If sitFile@ NE '' then
|
|
// Target file active, redirect output there.
|
|
NewMsg = TimeDate() : ' ' : Text
|
|
OSWrite NewMsg To sitFile@
|
|
end
|
|
|
|
Return Ans
|