AddExtender("WWPST32I.DLL")
Addextender("WWWNT32I.DLL")			
rcp="recip.txt"
dra="\\NTFS01\home"									   
drb="\\NTIS01\data"
out="c:\mfg\mirror.txt"
ttt="00:00:00:23:30:00"

:TOP
If diskexist("R:") then wntCancelCon("R:", @FALSE, @TRUE)
If diskexist("S:") then wntCancelCon("S:", @FALSE, @TRUE)

while 1
   TimeWait(ttt)
   goto MIRROR
endwhile  

:MIRROR
wntAddDrive(@DEFAULT,@NONE,dra,"R:",@FALSE )
wntAddDrive(@DEFAULT, @NONE,drb,"S:",@FALSE)
path="R:\carcon\personal\seqfiles"
pathto="S:\carcon\transfer\seqfiles"
option_1=' /MIR /Z /R:3 /W:10 /LOG:'
option_2=strcat(pathto,option_1,out)
RunWait('Robocopy.exe','%path% %option_2%')

fp=FileOpen(rcp,"read")
while @TRUE             ; Loop till break do us end
        x = FileRead(fp)
        If x == "*EOF*" Then Break
	      host="ntex01.affymetrix.com"
			fromaddr="Helpdesk@affymetrix.com"
			userid="carcon"
			password="waterboy"
			port=""
			tolist="%x%"
			cclist=""
			bcclist=""
			subject="Mirror Utility Update"
			msg="The Mirror Utility has completed. Attached is the log file for the latest run. "
			attachments="%out%"
			flags=""
			kInit(host,fromaddr,userid,password,port)
			kDest(tolist,cclist,bcclist)
			kSendText(subject,msg,attachments,flags)
endwhile
FileClose(fp)
goto TOP