DEFINE INPUT PARAMETER cp_file AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER cp_savedir AS CHARACTER NO-UNDO.
DEFINE VARIABLE c_msg AS CHARACTER NO-UNDO.
DEFINE VARIABLE l_ishtml AS LOGICAL NO-UNDO.
DEFINE VARIABLE c_options AS CHARACTER NO-UNDO.
DEFINE VARIABLE c_outfile AS CHARACTER NO-UNDO.
IF SUBSTRING(ENTRY(NUM-ENTRIES(cp_file,'.'),cp_file,'.'),1,3) = 'htm'
THEN DO:
ASSIGN l_ishtml = true.
RUN webutil\e4gl-gen.r( INPUT cp_file,
INPUT-OUTPUT c_options,
INPUT-OUTPUT c_outfile
).
END.
COMPILE VALUE(IF l_ishtml THEN c_outfile ELSE cp_file) SAVE INTO VALUE(cp_savedir) NO-ERROR.
IF COMPILER:ERROR
THEN DO:
/* error-handling */
END.
ELSE /*log message */.
IF l_ishtml THEN OS-DELETE VALUE(c_outfile).