/*

	Name		: Poller.rexx
	Created		: 12-Apr-93
	Programmer	: Urban Lindeskog
	Organisation	: ProNova SoftWare Development Group
	Purpose		: Poll the Boss and show a nice report
			  if there's any new files.
	Requires	: Welcome > 2.165 and LOGFILE in FTick.cfg
			  is set to 'MAIL:Logs/TodayTick.log'.

Config:
*/
PictureFile = "B:BigDisk"
WelRun = 0

OPTIONS RESULTS
OPTIONS FAILAT 15

ADDRESS Command

'TrapDoor Call Boss'
'FTick >NIL:'

if open(Log, 'MAIL:Logs/TodayTick.log', 'r') then do

	'Type MAIL:Logs/TodayTick.log >> MAIL:Logs/Tick.log'

	do while ~eof(Log)
		instring = readln(Log)
		if 0 < find(instring, 'Received') then do
			filename=substr(instring,30)
			Tog=2

			if(WelRun==0) then do
				'Run Welcome LEFT 'PictureFile' TEXT "You have received some files!" COLUMNS 80 ROWS 10'
				'Wait 1'
				address WELCOME
				WelRun = 1
			end
		end
		if Tog==1 then do
			TEXT 'Received 'filename' In area 'substr(instring,29)
			Tog=0
		end
		if(Tog==2) then Tog=1

	end

	if WelRun==1 then do
		TEXT ''
		TEXT 'Press Control-C to continue...'
		QUIT WAIT
	end

	address Command
	if close(Log) == 0 then do
		say Could not close the log-file
	end

	'Delete >NIL: MAIL:Logs/TodayTick.log'
end