Version Alpha 1

depuis hier : une petite avancé (support partiel du POST)

voici le source :

---- DEBUT ----

proc proxysocket {{port 3128}} {
global serversock
set serversock [socket -server proxyservsetevent $port]
}

proc proxyservsetevent {s i p} {
fconfigure $s -encoding binary
fconfigure $s -translation binary
fconfigure $s -blocking 0
fileevent $s readable "proxyservfirstevent $s"
}


proc proxyservfirstevent {s} {
global in
# on choppe la requette
gets $s in
# test pour chopper la fin
set test [read $s]
# index
set ind [string last "\n" $test]
# on incremente l'index pour ne pas avoir le retour chariot
incr ind 1
# on met la requette post dans une variable
set postquery [string range $test $ind end]
# essai
set l1 [split [lindex [split $in \n] 0] " "]
set command [lindex $l1 0]
set url [lindex $l1 1]
set proto [lindex $l1 2]

# on imprime dans la console tcl
puts "request : $in"
switch $command {
GET {
set h [http::geturl $url -command "proxyfeedpage $s"]
fileevent $s readable "proxyservnextevent $s"
}
POST {
puts "Post value : $postquery"
set h [http::geturl $url -command "proxyfeedpage $s" -query $postquery ]
fileevent $s readable "proxyservnextevent $s"
}
}
}

proc proxyservnextevent {s} {
# set in [read $s]
gets $s in
}

proc proxygeturl {s h} {
}

proc proxyfeedpage {s h} {
puts $s [http::data $h]
flush $s
proxyclosepage $s $h
}

proc proxyclosepage {s h} {
http::cleanup $h
close $s
}


proc proxyinit {} {
package require http
::http::config -useragent "portalmmm/2.0 N500i(c20;TB)"
::http::config -proxyhost 62.201.129.241
::http::config -proxyport 5080
proxysocket 3128

}

console show
proxyinit

---- FIN ----

cependant pour une raison qui m'echappe les appels des midlets plantent (opera mini) pourtant ca appelle bien mon proxy , mais les requettes posts semble etre differentes des requettes standard "variable=valeur&variable2=valeur2" ...

du coup je suis pour le moment dans une impasse , en attendant ce "proxy" est deja une bonne base de developpement