/* Quits and restarts IBrowse.  Useful if you have frequent crashes and
** want to keep the cache up to date.
**
** Send your comments and suggestions to knikulai@utu.fi
*/
options results
IBrowse='Work:IBrowse/IBrowse'	/* CHANGE here correct path */
MaxWin=15			/* Highest window number which is queried */

urls=0
address 'IBROWSE'
do i=1 to MaxWin
	result=''
	'Query Url' i
	if result~='' then do
		urls=urls+1
		url.urls=result
		end
	end

'Quit'					/* Bye bye */
do until ~show('p','IBROWSE')		/* Did it leave yet? */
	address command 'wait 2'	/* 2 second delay */
	end

address command 'run >nil:' IBrowse	/* Here we go again */

do until show('p','IBROWSE')		/* Let's wait until IBrowse is ready */
	address command 'wait 2'	/* Delay */
	end
	
do i=1 to urls
	if i>1 then 
		com='NewWindow'		/* New window is needed*/
	else
		com='GotoUrl'		/* One window is already open*/
	com url.i
	end

exit	/* Everything good has to come to an end some time :-( */