/******************************************************************************* * * This module presents example PowerWeb Server++ API Hook Functions. * * Implements the same functionality as the C-language TourPresentCSV API hook. * * The two implementations are plug-in replaceable, showing how a * customised extension can be rapidly prototyped in Rexx and then either * used as-is, or ported across to C for final production release. * * COPYRIGHT: * CompuSource (Pty) Ltd * Licensed Materials - Property of CompuSource (Pty) Ltd * (C) Copyright CompuSource (Pty) Ltd 1994, 1995. * All Rights Reserved * Use, duplication, or disclosure restricted by international * copyright law. * *******************************************************************************/ Parse Arg parcel filename = ServerReadText(parcel, "Request:/Resource") html = ServerFind(parcel, "Request:/Result") call ServerAppendText html,, "
"field end end /* close the file */ call stream filename, 'C', 'close' call ServerAppendText html,, " |