Tcl Source Code

source:
package require http

set in [open submit.log r]
set log [read $in]
set submission [::http::formatQuery email 
[email protected] userid 58276954 format DSHIELD tz -
04:00 log $log Submit submit]
# set token [::http::geturl 
http://www.dshield.org/report.php -query $submission]
# puts [::http::code $token]
# ::http::cleanup $token
close $in

email [email protected]
This program opens a log file and uses HTTP POST to 
submit to a website. See an example of the log file 
attached as bug.log. When this program is run with 1250 
lines in the log, it takes 16 seconds (Pentium M laptop 
1.3 GHz). If the number of lines is 2500, the program 
takes 75 seconds to run. Somehow the processing 
in ::http::formatQuery does not scale well. I am using 
the ActiveState distro of TCL 8.4.7.0 with HTTP 
package 2.5.0

Logged In: YES 
user_id=79902

This comes down to http::mapReply being horribly
inefficient.  Recoding to use [string map] should make an
enormous difference!

Fixed in 8.4 branch and HEAD.

File Added - 99982: bug.log