2009-06-15 18:47 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

* utils/hbmk2/hbmk2.prg - Deleted hb_DirBase() DJGPP hack after Przemek's fix. - Deleted gcc compiler command line hack after Przemek's fix. * contrib/hbxbp/xbp.ch + Added extra protection for Windows-only debug line. * contrib/hbxbp/apig.ch * Minor in comment. * contrib/rddado/adordd.prg * Minor formatting. * Changed it to use non-legacy OLE interface. PLEASE REVIEW & TEST. * contrib/hbwin/legacy.prg + Added support for TOleAuto():cClassName var. + Added RTE generation in case the OLE object cannot be created. PLEASE REVIEW & TEST. + contrib/rddado/tests/test.mdb + Added. It's generated by access2.prg to avoid any problems. * contrib/rddado/tests/access1.prg * Minor formatting. ; TOFIX: Does't work: --- Error BASE/3012 Argument error: OPEN Called from WIN_OLEAUTO:OPEN(0) Called from ADO_OPEN(0) Called from DBUSEAREA(0) Called from MAIN(11) --- - examples/uhttpd + examples/httpsrv - examples/httpsrv/uhttpd.ini + examples/httpsrv/httpsrv.ini - examples/httpsrv/uhttpdgd.hbp + examples/httpsrv/httpsrvg.hbp - examples/httpsrv/uhttpdc.c + examples/httpsrv/httpsrvc.c - examples/httpsrv/uhttpd.prg + examples/httpsrv/httpsrv.prg * examples/httpsrv/cookie.prg * examples/httpsrv/cgifunc.prg * examples/httpsrv/session.prg * examples/httpsrv/readme.txt * Renamed uhttpd to httpsrv. NOTE: If there are better names proposed I can rename it to anything else. Mindaugas's new uhttpd will be name uhttpd2 to avoid any ambiguity.
2009-06-15 18:02:57 +00:00
parent 69941dbb06
commit 91bd1aee41
35 changed files with 245 additions and 154 deletions
--- a/harbour/examples/httpsrv/home/counter.html
+++ b/harbour/examples/httpsrv/home/counter.html
@@ -0,0 +1,89 @@
+
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html>
+    <head>
+        <title>Show Graphic Counter</title>
+        <meta http-equiv="Pragma" content="no-cache">
+        <link rel="stylesheet" type="text/css" href="/css/base.css" />
+        <script type="text/javascript" src="/js/ajax.js"></script>
+        <script type="text/javascript">
+            // <![CDATA[
+
+            var divpart;
+
+            /**
+             * Requests table data for a specific page.
+             *
+             * @param pageNum the page number to request data for
+             */
+            function sendData( force )
+            {
+                var qstr = getquerystring();
+                if ( force || qstr.length > 4 )
+                {
+                  //qstr = 'w1=' + escape(qstr);  // NOTE: no '?' before querystring
+                  //xmlPost('/cgi-bin/showcounter.hrb', qstr + "&sid=" + Math.random(), tableResponseHandler);
+                  divpart = 'result';
+                  updatepage( escape( qstr ) );
+                }
+                return false;
+            }
+
+            function getquerystring()
+            {
+                var form = document.forms[ 'f1' ];
+                var word = form.word.value;
+                //alert( 'qstr: ' + qstr );
+                return word;
+            }
+
+            function updatepage( str )
+            {
+                //document.getElementById( divpart ).innerHTML = str; /* "<img src='/counter/" + str + "' />"; */
+                document.getElementById( divpart ).innerHTML = "<img src='/cgi-bin/showcounter.hrb?w=" + str + "' />";
+            }
+
+            /**
+             * Handler for server's response to table requests.
+             * Table content is pulled from response XML and a HTML
+             * table is built.  The table is then inserted into the
+             * 'tableSection' DIV.
+             */
+            function tableResponseHandler()
+            {
+                // Make sure the request is loaded (readyState = 4)
+                if (req.readyState == 4)
+                {
+                    // Make sure the status is "OK"
+                    if (req.status == 200)
+                    {
+                        // shutdown Ajax loading progress
+                        EndProgress();
+
+                        // transform
+                        //document.write( xsldoc );
+                        updatepage( req.responseText );
+
+                    }
+                    else
+                    {
+                        EndProgress();
+                        alert("There was a problem retrieving the XML data:\n" +
+                            req.statusText);
+                    }
+                }
+            }
+            // ]]>
+        </script>
+    </head>
+    <body>
+       This is a simple ajax test. Please type a number (at least 4 digits).
+       <form name="f1"  onsubmit='JavaScript:sendData(true);return false'>
+         <p>Number: <input name="word" type="text" onkeyup='JavaScript:sendData(false);return false'>
+         <input value="Go" type="button" onclick='JavaScript:sendData(true)'></p>
+         <div id="result"></div>
+       </form>
+       Return to <a href="/">Main Page</a>
+    </body>
+</html>
+