Changeset 9597 in project


Ignore:
Timestamp:
03/14/08 07:41:55 (12 years ago)
Author:
rlpowell
Message:

Now with:

  1. Less debugging statements.
  1. More working with unpatched http egg.
Location:
release/3/selenium/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/3/selenium/trunk/iedoc2scm.xml

    r9593 r9597  
    106106;
    107107(define (selenium::do-command sel-sess verb . args)
    108   (format #t "d-c args: ~A\n" args)
     108  ;(format #t "d-c args: ~A\n" args)
    109109  (let*
    110110    (
     
    144144                           [else main-list])))))]
    145145     [http-thread (make-thread (lambda ()
    146                                  (http:GET url protocol: 'HTTP/1.1)))]
     146                                 (http:GET (http:make-request
     147                                             'GET url
     148                                             '(("Connection" . "close"))
     149                                             '() "" 'HTTP/1.1))))]
    147150     [result (begin
    148151               (thread-start! http-thread)
    149                (format #t "start done.\n")
     152               ;(format #t "start done.\n")
    150153               (thread-join! http-thread (selenium-session-timeout sel-sess) #f))])
    151     (format #t "do-command verb: ~A.\n" verb)
    152     (format #t "do-command args: ~A.\n" args)
    153     (format #t "do-command url: ~A.\n" url)
    154     (format #t "do-command output: ~A.\n" result)
     154    ;(format #t "do-command verb: ~A.\n" verb)
     155    ;(format #t "do-command args: ~A.\n" args)
     156    ;(format #t "do-command url: ~A.\n" url)
     157    ;(format #t "do-command output: ~A.\n" result)
    155158    result))
    156159
  • release/3/selenium/trunk/selenium-doc.html

    r9593 r9597  
    15901590
    15911591<pre>(define (selenium::do-command sel-sess verb . args)
    1592   (format #t &quot;d-c args: ~A\n&quot; args)
     1592  ;(format #t &quot;d-c args: ~A\n&quot; args)
    15931593  (let*
    15941594    (
     
    16281628                           [else main-list])))))]
    16291629     [http-thread (make-thread (lambda ()
    1630                                  (http:GET url protocol: 'HTTP/1.1)))]
     1630                                 (http:GET (http:make-request
     1631                                             'GET url
     1632                                             '((&quot;Connection&quot; . &quot;close&quot;))
     1633                                             '() &quot;&quot; 'HTTP/1.1))))]
    16311634     [result (begin
    16321635               (thread-start! http-thread)
    1633                (format #t &quot;start done.\n&quot;)
     1636               ;(format #t &quot;start done.\n&quot;)
    16341637               (thread-join! http-thread (selenium-session-timeout sel-sess) #f))])
    1635     (format #t &quot;do-command verb: ~A.\n&quot; verb)
    1636     (format #t &quot;do-command args: ~A.\n&quot; args)
    1637     (format #t &quot;do-command url: ~A.\n&quot; url)
    1638     (format #t &quot;do-command output: ~A.\n&quot; result)
     1638    ;(format #t &quot;do-command verb: ~A.\n&quot; verb)
     1639    ;(format #t &quot;do-command args: ~A.\n&quot; args)
     1640    ;(format #t &quot;do-command url: ~A.\n&quot; url)
     1641    ;(format #t &quot;do-command output: ~A.\n&quot; result)
    16391642    result))
    16401643
  • release/3/selenium/trunk/selenium.scm

    r9593 r9597  
    139139;
    140140(define (selenium::do-command sel-sess verb . args)
    141   (format #t "d-c args: ~A\n" args)
     141  ;(format #t "d-c args: ~A\n" args)
    142142  (let*
    143143    (
     
    177177                           [else main-list])))))]
    178178     [http-thread (make-thread (lambda ()
    179                                  (http:GET url protocol: 'HTTP/1.1)))]
     179                                 (http:GET (http:make-request
     180                                             'GET url
     181                                             '(("Connection" . "close"))
     182                                             '() "" 'HTTP/1.1))))]
    180183     [result (begin
    181184               (thread-start! http-thread)
    182                (format #t "start done.\n")
     185               ;(format #t "start done.\n")
    183186               (thread-join! http-thread (selenium-session-timeout sel-sess) #f))])
    184     (format #t "do-command verb: ~A.\n" verb)
    185     (format #t "do-command args: ~A.\n" args)
    186     (format #t "do-command url: ~A.\n" url)
    187     (format #t "do-command output: ~A.\n" result)
     187    ;(format #t "do-command verb: ~A.\n" verb)
     188    ;(format #t "do-command args: ~A.\n" args)
     189    ;(format #t "do-command url: ~A.\n" url)
     190    ;(format #t "do-command output: ~A.\n" result)
    188191    result))
    189192
Note: See TracChangeset for help on using the changeset viewer.