STRPCCMD PCCMD(&DOCNAME) PAUSE(*NO)
Tweet
**********************************************************************
* program description
*
* CGI-RPG program to add security to presenting documents over the
* Internet. Once validation takes place the program will read an IFS
* document and write it out to the browser using CGIDEV2 routines.
*
**********************************************************************
**********************************************************************
* compile options
**********************************************************************
h bnddir( 'QC2LE' )
h dftactgrp( *no )
/copy cgidev2/qrpglesrc,hspecs
/copy cgidev2/qrpglesrc,hspecsbnd
**********************************************************************
* files
**********************************************************************
**********************************************************************
* prototypes
**********************************************************************
/copy cgidev2/qrpglesrc,prototypeb
/copy cgidev2/qrpglesrc,usec
**********************************************************************
* standalone variables and data structures
**********************************************************************
d string s 200a
d fd s 10i 0
d wrdata s 24a
d rddata s 32768a
d flags s 10u 0
d mode s 10u 0
d Msg s 50a
d Len s 10i 0
d count s 10i 0
d savedQuery s 32767a varying
d session s 15a
d document s 100a varying
d period s 5a varying
d customer s 6a varying
d type s 4a varying
d nbr s 20a varying
d file s 200a varying
**********************************************************************
/free
// populate input fields from browser query string
zhbGetInput( savedQuery : qusec );
session = zhbGetVar( 'sessionid' );
document = zhbGetVar( 'doc' );
customer = zhbGetVar( 'customer' );
period = zhbGetVar( 'period' );
type = zhbGetVar( 'type' );
nbr = zhbGetVar( 'nbr' );
// if the object (PDF) exists in the IFS then read and display
if ChkIfsObj2( file );
// open IFS document for read only
flags = O_RDONLY;
fd = open( file : flags );
if fd < 0;
msg = 'open(): failed for reading' ;
*inlr = *on;
return;
endif;
ClrHtmlBuffer();
// prepare the browser for the type of file to be shown
// open it inline in the graybox window
string = 'Content-Type: application/pdf' + x'25'
+ 'Content-Disposition: inline; '
+ 'filename=' + document + '.pdf' + x'25' + x'25' ;
WrtNoSection( %addr(string) : %len(%trimr(string)) );
// read document from IFS
len = read( fd : %addr(rddata) : %size(rddata) );
dow ( len > 0 );
WrtNoSection( %addr(rddata) : len );
len = read( fd : %addr(rddata) : %size(rddata) );
enddo;
callp close(fd);
else;
// IFS object not found
string = 'Content-type: text/html' + x'25' + x'25'
+ 'File not found or access restricted.';
WrtNoSection( %addr(string) : %len(%trimr(string)) );
endif;
WrtSection( '*fini' );
*inlr = *on;
/end-free
Comment