/* * xml table servlet * * Copyright 2009 Francesco Saverio Giudice * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2, or (at your option) * any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; see the file LICENSE.txt. If not, write to * the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, * Boston, MA 02110-1301 USA (or visit https://www.gnu.org/licenses/). * * As a special exception, the Harbour Project gives permission for * additional uses of the text contained in its release of Harbour. * * The exception is that, if you link the Harbour libraries with other * files to produce an executable, this does not by itself cause the * resulting executable to be covered by the GNU General Public License. * Your use of that executable is in no way restricted on account of * linking the Harbour library code into it. * * This exception does not however invalidate any other reasons why * the executable file might be covered by the GNU General Public License. * * This exception applies only to the code released by the Harbour * Project under the name Harbour. If you copy code from other * Harbour Project or Free Software Foundation releases into a copy of * Harbour, as the General Public License permits, the exception does * not apply to the code that you add in this way. To avoid misleading * anyone as to the status of such modified files, you must delete * this exception notice from them. * * If you write modifications of your own for Harbour, it is your choice * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. * */ #include "hbclass.ch" #define TABLE_NAME_PATH ".." + hb_ps() + ".." + hb_ps() + ".." + hb_ps() + "tests" + hb_ps() + "test.dbf" #define SIMULATE_SLOW_REPLY MEMVAR _REQUEST // defined in uHTTPD FUNCTION HRBMAIN() LOCAL cXml, cPage, cCount, nCount LOCAL oTM LOCAL hGets := _REQUEST hb_default( @hGets, { => } ) IF hb_HHasKey( hGets, "page" ) cPage := hGets[ "page" ] oTM := TableManager():New() IF oTM:Open() oTM:Read() cXml := oTM:getXmlData( Val( cPage ) ) oTM:Close() ENDIF ELSEIF hb_HHasKey( hGets, "count" ) cCount := hGets[ "count" ] IF cCount == "true" oTM := TableManager():New() IF oTM:Open() nCount := oTM:getLastRec() cXml := oTM:getXmlCount( nCount ) oTM:Close() ENDIF ENDIF ENDIF IF ! Empty( cXml ) uhttpd_SetHeader( "Content-Type", "text/xml" ) // cache control uhttpd_SetHeader( "Cache-Control", "no-cache, must-revalidate" ) uhttpd_SetHeader( "Expires", "Mon, 26 Jul 1997 05:00:00 GMT" ) uhttpd_Write( cXml ) ELSE uhttpd_SetHeader( "Content-Type", "text/xml" ) uhttpd_Write( '' ) uhttpd_Write( "No Data" ) ENDIF RETURN .T. // I Handle HTML Output /* TableManager */ CREATE CLASS TableManager CLASS VAR ROWS_PER_PAGE INIT 23 VAR aData INIT {} VAR cTable INIT TABLE_NAME_PATH VAR lOpened INIT .F. METHOD New() METHOD Open() METHOD Close() INLINE iif( ::lOpened, ( table->( dbCloseArea() ), ::lOpened := .F. ), ) METHOD Read() METHOD getLastRec() INLINE table->( LastRec() ) METHOD getXmlData( page ) METHOD getXmlCount( ncount ) METHOD xmlEncode( input ) ENDCLASS METHOD New() CLASS TableManager RETURN Self METHOD Open() CLASS TableManager LOCAL cDBF := ::cTable // hb_ToOutDebug( "CurPath = %s", hb_CurDrive() + hb_osDriveSeparator() + hb_ps() + CurDir() ) // hb_ToOutDebug( "before: cDBF = %s, Used() = %s\n", cDBF, Used() ) IF ! ::lOpened CLOSE ALL USE ( cDBF ) ALIAS table SHARED NEW // hb_ToOutDebug( "after: cDBF = %s, Used() = %s\n", cDBF, Used() ) ::lOpened := Used() ENDIF RETURN ::lOpened METHOD Read() CLASS TableManager LOCAL hMap, lOk := .F. #ifdef SIMULATE_SLOW_REPLY // force slow connection to simulate long reply hb_idleSleep( 0.5 ) #endif IF ::lOpened table->( dbGoTop() ) // n := 0 DO WHILE table->( ! Eof() ) // .AND. ++n < 50 hMap := { => } hMap[ "recno" ] := StrZero( table->( RecNo() ), 4 ) hMap[ "name" ] := RTrim( table->first ) + " " + RTrim( table->last ) hMap[ "address" ] := RTrim( table->street ) hMap[ "city" ] := RTrim( table->city ) hMap[ "state" ] := table->state hMap[ "zip" ] := table->zip AAdd( ::aData, hMap ) table->( dbSkip() ) ENDDO lOk := .T. ENDIF RETURN lOK /** * Builds a String of XML representing the aData for the * request table. * * For simplicity, we are using a hard-coded data set. In a production * system, you may wish to use DAOs to query a database for specific table * data. This may require additional parameters (e.g., the name of the * table, which could be used to look up instructions on retrieving the * necessary data). * * The returned XML will be formatted as follows: * <table>
* <header>
* <cell key="address">Address</cell>
* </header>
* <row>
* <cell key="name">Hank</cell>
* <cell key="address">1B Something Street</cell>
* <cell key="city">Marietta</cell>
* <cell key="state">GA</cell>
* <cell key="zip">30339</cell>
* </row>
* ...
* </table> * * @param page * the page number to retrieve data for * @return a String of XML representing data for the * requested table * @throws IllegalArgumentException */ METHOD getXmlData( page ) CLASS TableManager LOCAL startIndex, stopIndex LOCAL xml, i, map, key, cString /* * For simplicity, we are creating XML as a String. In a production * system, you should create an XML document (org.w3c.dom.Document) to * ensure compliance with the DOM Level 2 Core Specification. */ // Calculate the start and end indexes of the table data. startIndex := ( page - 1 ) * ::ROWS_PER_PAGE stopIndex := startIndex + ::ROWS_PER_PAGE stopIndex := Min( Len( ::aData ), stopIndex ) // Check the validity of the page index. IF startIndex < 0 .OR. startIndex >= stopIndex // throw new IllegalArgumentException("Page index is out of bounds."); ENDIF xml := BasicXML():New() xml:append( '' ) // Add the opening tag xml:append( "
" ) // Add nodes describing the table columns xml:append( "
" ) xml:append( 'RecNo' ) xml:append( 'Name' ) xml:append( 'Address' ) xml:append( 'City' ) xml:append( 'State' ) xml:append( 'Zip' ) xml:append( "
" ) // Add nodes for each row. FOR i := startIndex + 1 TO stopIndex map := ::aData[ i ] // Add the opening tag xml:append( "" ) // For each entry in the HashMap, add a node // e.g.,
123 four street
FOR EACH KEY IN map:Keys cString := '' cString += ::xmlEncode( hb_CStr( map[ key ] ) ) cString += "" xml:append( cString ) NEXT // Add the closing tag xml:append( "" ) NEXT // Add the closing
tag xml:append( "" ) RETURN xml:toString() METHOD getXmlCount( nCount ) CLASS TableManager LOCAL xml, n LOCAL nPages := nCount / ::ROWS_PER_PAGE IF Int( nPages ) < nPages nPages ++ ENDIF xml := BasicXML():New() xml:append( '' ) xml:append( "" ) FOR n := 1 TO nPages xml:append( "" + hb_ntos( n ) + "" ) NEXT xml:append( "" ) RETURN xml:toString() /** * Replaces characters commonly used in XML with symbolic representations * such that they are interpretted correctly by XML parsers. * * @param input * the string to encode. * @return the encoded version of the specified string */ METHOD xmlEncode( input ) CLASS TableManager LOCAL out, i, c IF input == NIL RETURN INPUT ENDIF // Go through the input string and replace the following // characters: // & & // ' ' // " " // < < // > > // [any non-ascii character] &#[character code]; out := "" FOR i := 1 TO Len( input ) c := SubStr( input, i, 1 ) SWITCH c CASE "&" out += "&" EXIT CASE "'" out += "'" EXIT CASE '"' out += """ EXIT CASE "<" out += "<" EXIT CASE ">" out += ">" EXIT #if 0 CASE " " out += " " EXIT #endif CASE Chr( 9 ) // E'\t' CASE Chr( 13 ) // E'\r' CASE Chr( 10 ) // E'\n' out += c EXIT OTHERWISE // All non-ascii IF Asc( c ) <= 0x1F .OR. Asc( c ) >= 0x80 out += "&#x" + hb_NumToHex( Asc( c ) ) + ";" ELSE out += c ENDIF EXIT ENDSWITCH NEXT RETURN out CREATE CLASS BasicXML VAR aData INIT {} METHOD New() CONSTRUCTOR METHOD append( cString ) INLINE AAdd( ::aData, cString ) METHOD ToString() ENDCLASS METHOD New() CLASS BasicXML RETURN Self METHOD ToString() CLASS BasicXML LOCAL s := "" AEval( ::aData, {| c | s += c + iif( Right( c, 1 ) == ">", hb_eol(), "" ) } ) RETURN s