;Load the WinInet extender
AddExtender("WWINT34i.DLL")
origdir=DirGet()


;Define key values
;Get host name from ACTION= parameter or induce it from Web page viewed
host="patriotweb.gmu.edu:9977"
;Get mainurl also from action line
mainurl="/pls/prod/bwckgens.p_sel_term_date"

;https://patriotweb.gmu.edu:9977/pls/prod/bwckschd.p_disp_detail_sched?term_in=200470&crn_in=72948

;Define output file name
outfile=strcat(origdir,"result3.html")


;Format form data. First define the formdata variable as a null string
formdata=""
;Then add the required form fields one value=pair at a time.
formdata=iContentUrl(formdata,"call_proc_in", "bwckschd.p_crse_search_unsec")
formdata=iContentUrl(formdata,"term_in","200470")
formdata=iContentUrl(formdata,"from_id","")
formdata=iContentUrl(formdata,"to_id","")
formdata=iContentUrl(formdata,"submit", "Submit")


; Basic web page fetch script
tophandle=iBegin(1,"129.0.0.111","")
;iOptionSet(tophandle,"user_agent","Mozilla compatible WinBatch")
connecthandle=iHostConnect(tophandle, host, @HTTPS, "", "")
datahandle=iHttpInit(connecthandle,"POST",mainurl,"", 0)


rslt = iHttpOpen(datahandle, 0, formdata, -1);


If rslt == "ERROR" || rslt != 200
Message(StrCat("Error ",iGetLastError()),iGetResponse())
headers=iHttpHeaders(datahandle)
AskItemList("Rslt=%rslt%",headers,@tab,@unsorted,@single)
endif
xx=iReadData(datahandle,outfile)
iClose(datahandle)
iClose(connecthandle)
iClose(tophandle)


;Message("FileRead",strcat(testfile1,@crlf,"backed up to",@crlf,testfile2))

;We now have the returned web page. Since it is just an
;HTML page, we'll just use the users Web Browser to display it.
ShellExecute(outfile,"","",@NORMAL,"OPEN")

exit