<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
  <meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000000">
<tt>Hmm, This is what happens when I call a servlet with <br>
images in it. The Last revise-timer is that of an image<br>
loaded by the web server <b>static </b>content part.<br>
So even a reference to CSS will be a problem.<br>
<br>
So whatever timeout I set. It will allways be overridden<br>
with some other value.<br>
<br>
Is this a problem in the 360 web-server code?<br>
<br>
--Hans<br>
<br>
<br>
adjust-timeout! 15 600<br>
revise-timer: 2: id=46, secs=86429980.0<br>
revise-timer: 2: id=46, secs=600000<br>
revise-timer: 2: id=46, secs=86429980.0<br>
timer-loop: 366<br>
revise-timer: 2: id=46, secs=600000<br>
timer-loop: 367<br>
htmllink:page special:logout
(/servlets;15*1*92444916/hwiki.scm/index.html)&nbsp; .html<br>
htmllink:page special:edit
(/servlets;15*1*92444916/hwiki.scm/index.html)&nbsp; .html<br>
htmllink:page special:upload
(/servlets;15*1*92444916/hwiki.scm/index.html)&nbsp; .html<br>
htmllink:page special:template
(/servlets;15*1*92444916/hwiki.scm/index.html)&nbsp; .html<br>
htmllink:page special:prefs
(/servlets;15*1*92444916/hwiki.scm/index.html)&nbsp; .html<br>
htmllink:page special:admin
(/servlets;15*1*92444916/hwiki.scm/index.html)&nbsp; .html<br>
revise-timer: 2: id=8, secs=30000<br>
revise-timer: 2: id=8, secs=3912000<br>
revise-timer: 2: id=8, secs=30000<br>
timer-loop: 368<br>
revise-timer: 2: id=8, secs=3912000<br>
timer-loop: 369<br>
revise-timer: 2: id=35, secs=30000<br>
revise-timer: 2: id=35, secs=34785000<br>
revise-timer: 2: id=35, secs=30000<br>
timer-loop: 370<br>
revise-timer: 2: id=35, secs=34785000<br>
timer-loop: 371<br>
</tt><br>
<br>
Hans Oesterholt-Dijkema schreef:
<blockquote cite="mid:4684E410.7030502@gawab.com" type="cite">
  <meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
However, I still don't get the results I'd like to see.<br>
Given the add.scm below, I see following behaviour in my debug log:<br>
  <br>
Welcome to MzScheme version 360, Copyright (c) 2004-2006 PLT Schem<br>
&gt; (require (planet "hwiki.scm" ("oesterholt" "hwiki.plt" 1 0)))<br>
&gt; (hwiki)<br>
Warning: No rewrite rules defined.<br>
Servlet will be available through '/servlets/hwiki.scm/&lt;page.html&gt;<br>
  <br>
PostgreSQL connectionstring: host=pegasus dbname=test user=hans<br>
copy-to: C:\Documents and Settings\hdijkema\Application Data\PLT S<br>
wiki.scm<br>
Web server started on port 80<br>
Visit URL <a moz-do-not-send="true" class="moz-txt-link-freetext"
 href="http://localhost:80/servlets/hwiki.scm">http://localhost:80/servlets/hwiki.scm</a><br>
Type stop to stop the server and exit<br>
Type restart to restart the server<br>
add-timer: ID=1 30000<br>
revise-timer!: ID=1 30000<br>
revise-timer!: ID=1 86400000<br>
add-timer: ID=2 86400000<br>
revise-timer!: ID=2 172800000.0<br>
revise-timer!: ID=2 172800000.0<br>
  <font color="#3333ff"><b>1<br>
adjust-timeout! 1 180<br>
  </b><b>add-timer: ID=3 30000<br>
revise-timer!: ID=3 259200000.0<br>
revise-timer!: ID=3 180000<br>
ALARM: id=3<br>
  <br>
  <i>This is after 30 seconds, not after 180!</i><br>
  <br>
  </b></font>add-timer: ID=4 0<br>
ALARM: id=4<br>
revise-timer!: ID=4 30000<br>
revise-timer!: ID=4 86400000<br>
revise-timer!: ID=4 86547143.0<br>
revise-timer!: ID=4 172947143.0<br>
revise-timer!: ID=4 172947143.0<br>
revise-timer!: ID=4 27146.0<br>
revise-timer!: ID=4 259347143.0<br>
  <br>
  <tt>(require (lib "unitsig.ss")<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (lib "servlet-sig.ss" "web-server")<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (lib "date.ss"))<br>
  <br>
(unit/sig () (import servlet^)<br>
  <br>
&nbsp; ; request-number : str -&gt; num<br>
&nbsp; (define (request-number which-number)<br>
&nbsp;&nbsp;&nbsp; (string-&gt;number<br>
&nbsp;&nbsp;&nbsp;&nbsp; (extract-binding/single<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'number<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (request-bindings (send/suspend (build-request-page
which-number))))))<br>
  <br>
&nbsp; ; build-request-page : str -&gt; str -&gt; response<br>
&nbsp; (define (build-request-page which-number)<br>
&nbsp;&nbsp;&nbsp; (lambda (k-url)<br>
  <font color="#3333ff">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (adjust-timeout! 180)<br>
  </font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; `(html (head (title "Enter a Number to Add"))<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (body ([bgcolor "white"])<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (form ([action ,k-url] [method "post"])<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "Enter the " ,which-number " number to add: "<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (input ([type "text"] [name "number"] [value
""]))<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (input ([type "submit"] [name "enter"] [value
"Enter"])))))))<br>
  <br>
  <br>
&nbsp; `(html (head (title "Sum"))<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (body ([bgcolor "white"])<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (p "The sum is "<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ,(number-&gt;string (+ (request-number "first")
(request-number "second")))))))<br>
  </tt><br>
  <br>
  <br>
Matt Jadud schreef:
  <blockquote
 cite="mid:cf093f420706290223x7ffa312q3a6ed87b7955edae@mail.gmail.com"
 type="cite">I usually find that I answer most of my questions after
asking them on <br>
the list. It's good to see others using the list for the same <br>
purpose... asking a question, answering it themselves, and then having <br>
the same forehead-slapping revelations that I do... :D <br>
    <br>
Cheers, <br>
M <br>
    <br>
On 6/29/07, Hans Oesterholt-Dijkema <a moz-do-not-send="true"
 class="moz-txt-link-rfc2396E" href="mailto:hdnews@gawab.com">&lt;hdnews@gawab.com&gt;</a>
wrote: <br>
    <blockquote type="cite"><br>
&nbsp;I'm such a birdbrain, <br>
&nbsp;adjust-timeout! has to be in the function given to send/supend of
course! <br>
&nbsp;Thanks anyway! <br>
    </blockquote>
    <br>
    <br>
  </blockquote>
  <pre wrap="">
<hr size="4" width="90%">
_________________________________________________
  For list-related administrative tasks:
  <a class="moz-txt-link-freetext" href="http://list.cs.brown.edu/mailman/listinfo/plt-scheme">http://list.cs.brown.edu/mailman/listinfo/plt-scheme</a>
  </pre>
</blockquote>
</body>
</html>