IF c_file <> ?
THEN DO:
INPUT FROM VALUE(c_file) BINARY NO-MAP NO-CONVERT.
/* determine length */
SEEK INPUT TO END.
i_len = SEEK(INPUT).
/* position at begin */
SEEK INPUT TO 0.
/* Output header */
{&OUT} "Content-Type: " + (IF cp_doctype = 'DOC' THEN "application/rtf"
ELSE IF cp_doctype = 'SCA' THEN "image/tiff"
ELSE IF cp_doctype = 'MAI' THEN "application/msoutlook"
ELSE '') SKIP
"Accept-Ranges: none" skip
"Content-Length: " i_len format ">>>>>>9" skip (1).
/*stream file to webpage in 8k blocks (pick a number :-) ) */
ASSIGN LENGTH (ra_rawdata) = 8192.
REPEAT:
IMPORT UNFORMATTED ra_rawdata.
PUT {&WEBSTREAM} CONTROL ra_rawdata.
END.
ASSIGN LENGTH (ra_rawdata) = 0. /* Deallocate memory */
INPUT CLOSE.
RETURN ''.
END.
ELSE IF cp_doctype = 'MAI' THEN "application/msoutlook"ELSE IF cp_doctype = 'xls' THEN
"application/vnd.ms-excel"
COPY-LOB FROM FILE chFilename TO OBJECT mpData.
{&OUT-LONG} mpData SKIP.
SET-SIZE(mpData) = 0.<a href="http://www.domain.co.nz/IA/filedownload.html?filename=latetestreport.pdf">File Download</a><a href="getorders_dl.html?filename=/apps/trade/out/test.xls">/apps/trade/out/test.xls</a> IF GET-SIZE(mpPDFDOCO) GT 0 THEN
DO:
output-http-header("Content-Description", "File Transfer").
output-http-header("Content-Type", "application/force-download").
output-http-header("Content-Type", "application/octet-stream").
output-http-header("Content-Type", "application/download").
output-http-header("Content-Disposition", "attachment; filename=MembershipFile.pdf").
output-http-header("Content-Transfer-Encoding", "binary").
output-http-header("Expires","0").
output-http-header("Cache-Control", "no-cache, must-revalidate").
output-http-header("Content-Length",STRING(GET-SIZE(mpPDFDOCO))).
output-content-type("":U).
/* Spit the data out to the web stream */
{&OUT-lONG} mpPDFDOCO.<script language="speedscript">
def var v-form-name as char no-undo.
def var v-form-id as char no-undo.
def var v-textfld-id as char no-undo.
def var v-textfld-name as char no-undo.
def var v-form-action as char no-undo.
def var v-editor-type as char no-undo.
/* form definitions */
assign v-form-name = "form1"
v-form-id = "form1"
v-textfld-id = "desc"
v-textfld-name = "desc"
v-form-action = "test.html"
v-editor-type = "default". /* config defined in fckconfig.js */
</script>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "[URL]http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd[/URL]">
<html xmlns="[URL]http://www.w3.org/1999/xhtml[/URL]">
<head>
<title>My form</title>
<!-- ahh jquery library -->
<script type="text/javascript" src="/js/jquery-1.2.6.min.js"></script>
<!-- jquery fckeditor plugin -->
<script type="text/javascript" src="/js/FCKEditor1.3.js"></script>
<script language="javascript">
//# jquery used to embed fckeditor by simply attaching
// it to the id of a textfield
$(function(){
$.fck.path = '/fckeditor/';
$('#`v-textfld-id`').fck({toolbar: '`v-editor-type`', height: 300, width: 400 });
});
</script>
</head>
<body>
<div id="wrapper">
<div class="form-container">
<div class="forminfo">
<p class="forminfotitle">Add Info</p>
</div>
<!-- FORM -->
<form name="`v-form-name`" id="`v-form-id`" method="post" action="`v-form-action`">
<input type="hidden" name="mode" value="add">
<p class="legend"><strong>Note:</strong> Required fields are marked with an asterisk (<em>*</em>)</p>
<fieldset>
<legend>Add News Event</legend>
<div>
<label for="Description">Description <em>*</em></label>
<textarea name="`v-textfld-name`" id="`v-textfld-id`"></textarea>
</div>
<div class="buttonrow">
<input type="submit" value="Submit" class="button" />
</div>
</fieldset>
</form>
</div>
</div>
</body>
</html>{&OUT} "Content-Type: application/vnd.ms-excel" skip
"Content-disposition: attachment; filename=" + ip_filefullpath skip
"Accept-Ranges: none" skip
"Content-Length: " filelength format ">>>>>>>>9" skip(1).
LENGTH(vfileline) = 8192.
repeat:
import stream inputfile unformatted vfileline.
put {&WEBSTREAM} CONTROL vfileline.
end. /* repeat */
/* Clean-up: Raw variable should be reset to deallocate the memory
and the stream should be closed. */
LENGTH(vfileline) = 0.<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "[URL]http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd[/URL]">
<html xmlns="[URL]http://www.w3.org/1999/xhtml[/URL]">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>test</title>
</head>
<body>
<form id="streamtest" name="streamtest" method="post" action="stream_out.html">
<input type="submit" name="button" id="button" value="Submit" />
</form>
</body>
</html><script language="speedscript">
def var v-random-num as int no-undo.
def var v-file-name as char no-undo.
/* form is submitted using post in production change to eq post */
if request_method eq "post" then
do:
/* report title */
{&out} 'ORDERS: File Generated on ' string(today) ' at ' string(time, "HH:MM AM") skip(2).
/* generate headers for report example headers */
{&out} '"Account",'
'"Order Date",'
'"Invoice",'
'"Order Qty"' skip.
/* do your query. example query */
/* for each order .... */
/* output formated for excel */
/* {&out} '"' order.acct '",' */
/* '"' order.order-date '",' */
/* '"' order.invoice '",' */
/* '"' order.qty '"'. */
/* end. */
/* now stream to browser as a csv using output headers */
procedure output-header:
assign v-random-num = etime
v-file-name = "account" + trim(get-value("acctlist")) + "-" + trim(get-value("report_type")) +
string(v-random-num) + ".csv".
if index(HTTP_USER_AGENT, "MSIE") ne 0 then
do:
output-http-header ("content-disposition", "attachment~; filename=" + v-file-name ).
output-content-type ("text/plain").
end.
else
do:
output-http-header ("content-disposition", "inline~; filename=" + v-file-name ).
output-content-type ("application/octet-stream").
end.
end procedure.
end.
</script>