SCRIPT ' *************************************************************** ' Description: Detect incoming Outpost messages and forward ' to a different BBS. For this script, check K6FB-2 ' for specific incoming messages addressed to KN6PE, ' that with a specific subject, and forward it to my ' email address via WINLINK. ' NOTE!!! The TNCs and BBSs assigned to the TNC and BBS variables ' must be previously set up in Outpost from the ' Setup > TNC and Setup > BBS forms. ' Author: Jim KN6PE ' Revision: 10/09/08 Original ' ' *************************************************************** VAR MsgID AS NUMBER ' holds the message ID for found msgs VAR counter AS NUMBER ' counts the number of matched msgs BEGIN LOOP ' Set to check K6FB-2 for incoming private messages to me counter = 0 BBS = "K6FB-2"; TNC = "GARAGE-TNC"; MYCALL = "KN6PE" RETRIEVE = "P" SendReceive ' I only care about certain messages. Check the Intray (1), the ' Subject Field (4), for a subject that starts with the characters ' "NOAA", then has anything after it "*" FindMessage(1, 4, "NOAA*") ' Get the first message ID (Outpost internal value) if one exists MsgID = NextMessage(0) WHILE MsgID > 0 ' One exists if greater than 0 ' Yes! Create the message with this file content Print("Forwarding message with Subject=" & subject) Counter = counter + 1 BBS = "SANDIEGO" ' must be previously defined TNC = "SANDIEGO-TELNET" ' must be previously defined TO = "SMTP:kn6pe@arrl.net" ' For the message, add a line up front to the message text MESSAGE = "OSL-forwarded from K6FB-2" & CRLF & MESSAGE CREATEMESSAGE MoveMessage(MsgID, 4) ' Once sent, move to Archive MsgID = NextMessage(0) ' get the next match ENDWHILE IF counter > 0 then SENDRECEIVE ' send via WINLINK Counter = 0 ' and reset the counter to 0 ENDIF PAUSE(600) ' Pause 10 minutes (10*60=600) between checks ENDLOOP END