I do the following [tcp] GET from a web site and get an error 302 (file not found)
Here is the code I am using:
08120 LET R$="GET /download/update/ HTTP/1.0"+$0D0A$
08130 LET R$+="Accept-Language: en-us"+$0D0A$
08140 LET R$+="Content-Type: application/x-www-form-urlencoded"+$0D0A$
08150 LET R$+="Host: www.website.ca"+$0D0A$
08160 LET R$+="Content-Length: "+STR(LEN(PARAMS$))+$0D0A$
08170 LET R$+="Cache-Control: no-cache"+$0D0A$+$0D0A$
08180 CLOSE (1);
OPEN (1,ERR=*NEXT)"[tcp]www.website.ca;80";
GOTO 8200
08190 MSGBOX "Unable to connect to the Upgrade Web Site.","Connection Failure","!,TIM=15";
LET CMD_STR$="END";
RETURN
08200 WRITE RECORD (1)R$;
LET RESP$="",X$=""
08210 WHILE 1
08220 READ RECORD (1,TIM=1,ERR=*BREAK)X$
08230 LET RESP$+=X$
08240 WEND
08250 CLOSE (1)
It should bring back the contents of file "index.html" but reports that it cannot find the file.
If I enter the full path to the website and directory in my browser it do get the contents of the "index.html" file.
any ideas on what can be wrong?
Here is the code I am using:
08120 LET R$="GET /download/update/ HTTP/1.0"+$0D0A$
08130 LET R$+="Accept-Language: en-us"+$0D0A$
08140 LET R$+="Content-Type: application/x-www-form-urlencoded"+$0D0A$
08150 LET R$+="Host: www.website.ca"+$0D0A$
08160 LET R$+="Content-Length: "+STR(LEN(PARAMS$))+$0D0A$
08170 LET R$+="Cache-Control: no-cache"+$0D0A$+$0D0A$
08180 CLOSE (1);
OPEN (1,ERR=*NEXT)"[tcp]www.website.ca;80";
GOTO 8200
08190 MSGBOX "Unable to connect to the Upgrade Web Site.","Connection Failure","!,TIM=15";
LET CMD_STR$="END";
RETURN
08200 WRITE RECORD (1)R$;
LET RESP$="",X$=""
08210 WHILE 1
08220 READ RECORD (1,TIM=1,ERR=*BREAK)X$
08230 LET RESP$+=X$
08240 WEND
08250 CLOSE (1)
It should bring back the contents of file "index.html" but reports that it cannot find the file.
If I enter the full path to the website and directory in my browser it do get the contents of the "index.html" file.
any ideas on what can be wrong?